Couldn't find "select", added dplyr::select

rmartinezferia · Jun 27, 2017 · b48a373 · b48a373 · Ranae · Jun 27, 2017
1 parent cd5710d
commit b48a373
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/_code/download_ssurgo.R b/_code/download_ssurgo.R
@@ -175,7 +175,7 @@ download_SSURGO <- function(SiteName = "field2",
       soil$layer <- .bincode(soil$center, breaks=c(-1,soilLayer_breaks[soilLayer_breaks>0]))
 
       soil %>%
-        select(-hydrogroup) %>%
+        dplyr::select(-hydrogroup) %>%
         group_by(layer) %>%
         mutate(thick = (max(center)-min(center))*10) %>%
         summarise_all("mean") -> soil
@@ -195,5 +195,5 @@ download_SSURGO <- function(SiteName = "field2",
 }
 
 ### Example 
-#soils <-  download_SSURGO(SiteName = "field2",north=42.010759,south=42.01000,east=-93.740682,west=-93.741712)
-#View(soils[2])
+soils <-  download_SSURGO(SiteName = "field2",north=42.010759,south=42.01000,east=-93.740682,west=-93.741712)
+View(soils[2])