Gages II variable reference

Datatable: Variable code and description

Variable inspection

get parameter units

[1] "parameter_cd"       "parameter_group_nm" "parameter_nm"       "casrn"             
[5] "srsname"            "parameter_units"   

# readr
# library(readr)
my_files <- dir("Data/spreadsheets-in-csv-format", full.names = TRUE)
all_csv.l <- purrr::map(my_files,readr::read_csv) # why is it so much bigger?
# read in basin id
# str(all_csv.l, max.level = 1)
# all_csv.l[[1]]

basinid <- all_csv.l[[3]]
basinid <- basinid %>% filter(!is.na(LAT_GAGE)) %>% # remove the na
  mutate(gage_id = as.factor(STAID)) %>% 
  datatable(filter = 'top')
# datatable(head(basinid))

```