rm Get Data column from get_dbkey

ropensci-archive · Sep 3, 2016 · e1812f1 · e1812f1
1 parent 08779fa
commit e1812f1
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/dbhydro_get.R b/R/dbhydro_get.R
@@ -419,7 +419,7 @@ get_dbkey <- function(category, stationid = NA, param = NA, freq = NA,
   }
   res[,1] <- as.character(res[,1])
 
-  res[,-(names(res) %in% c("Get Data"))]
+  res <- res[,-(names(res) %in% c("Get Data"))]
 
   if(detail.level %in% c("full", "summary")){
     message(paste("Search results for", " '", stationid, " ", category, "'",