Merge branch 'main' of https://github.com/ropensci/tidyhydat

Author: boshek

R/hy_monthly_flows.R

@@ -68,7 +68,7 @@ hy_monthly_flows <- function(station_number = NULL,
   stns <- station_choice(hydat_con, station_number, prov_terr_state_loc)
 
   ## Creating rlang symbols
-  sym_YEAR <- sym("Year")
+  sym_YEAR <- sym("YEAR")
   sym_STATION_NUMBER <- sym("STATION_NUMBER")
   sym_variable <- sym("variable")
   sym_temp <- sym("temp")

R/hy_monthly_levels.R

@@ -67,7 +67,7 @@ hy_monthly_levels <- function(station_number = NULL,
   stns <- station_choice(hydat_con, station_number, prov_terr_state_loc)
 
   ## Creating rlang symbols
-  sym_YEAR <- sym("Year")
+  sym_YEAR <- sym("YEAR")
   sym_STATION_NUMBER <- sym("STATION_NUMBER")
   sym_variable <- sym("variable")
   sym_temp <- sym("temp")

R/hy_sed_monthly_loads.R

@@ -66,7 +66,7 @@ hy_sed_monthly_loads <- function(station_number = NULL,
   stns <- station_choice(hydat_con, station_number, prov_terr_state_loc)
 
   ## Creating rlang symbols
-  sym_YEAR <- sym("Year")
+  sym_YEAR <- sym("YEAR")
   sym_STATION_NUMBER <- sym("STATION_NUMBER")
   sym_variable <- sym("variable")
   sym_temp <- sym("temp")

R/hy_sed_monthly_suscon.R

@@ -65,7 +65,7 @@ hy_sed_monthly_suscon <- function(station_number = NULL,
   stns <- station_choice(hydat_con, station_number, prov_terr_state_loc)
 
   ## Creating rlang symbols
-  sym_YEAR <- sym("Year")
+  sym_YEAR <- sym("YEAR")
   sym_STATION_NUMBER <- sym("STATION_NUMBER")
   sym_variable <- sym("variable")
   sym_temp <- sym("temp")