Changed field name from 'HUC_12.1' to 'HUC_12_int'

workspace/R/utils.R

@@ -88,12 +88,12 @@ fix_headwaters <- function(nhd_rds, out_rds, new_atts = NULL,
 #' @param sbitem (character) ScienceBase item ID
 #' @param out_dir (directory) directory where files are downloaded
 #' 
-# Retrieve files from SB if files in facet-organization
-facet_sb <- function(sbitem, out_dir){
+# Retrieve files from SB if files not listed under sbtools
+retrieve_sb <- function(sbitem, out_dir){
   
   item <- item_get(sbitem)
   
-  facet_files <- 
+  linked_files <- 
     lapply(item$facets, function(x) 
     {
       list(name = x$name, 
@@ -263,12 +263,14 @@ get_HUC12_Xwalk <- function(VPU, full_cats = FALSE, divides = FALSE, wbd = FALSE
   cats_HUC12 <- sf::st_intersection(reg_cats, HUC12_lyr) %>%
     # Convert area to squaker kilometers 
     mutate(intArea = as.numeric(st_area(.)) * 0.000001,
-           AreaHUC12 = ACRES * .00404686)
+           AreaHUC12 = ACRES * .00404686) %>%
+    rename(HUC_12_int = HUC_12.1)
   
   divides_HUC12 <- sf::st_intersection(divides, HUC12_lyr) %>%
     # Convert area to squaker kilometers 
     mutate(intArea = as.numeric(st_area(.)) * 0.000001,
-           AreaHUC12 = ACRES * .00404686)
+           AreaHUC12 = ACRES * .00404686) %>%
+    rename(HUC_12_int = HUC_12.1)
   
   
   return(list(cats_HUC12 = cats_HUC12, divides_HUC12 = divides_HUC12))