diff --git a/R/EQ_DomainValues.R b/R/EQ_DomainValues.R index 943279a..73db603 100644 --- a/R/EQ_DomainValues.R +++ b/R/EQ_DomainValues.R @@ -82,7 +82,7 @@ EQ_DomainValues <- function(domain = NULL) { eq_param = .data$param, attains_ws_name = .data$attains_ws_name, attains_ws_field = .data$attains_ws_field - ) %>% + ) |> dplyr::arrange(.data$eq_param) message("EQ_DomainValues: domain list retrieved from ATTAINS web services.") @@ -226,7 +226,7 @@ param.cw <- utils::read.csv(system.file("extdata", "EQParamsCrosswalk.csv", eq_param = .data$param, attains_ws_name = .data$attains_ws_name, attains_ws_field = .data$attains_ws_field - ) %>% + ) |> dplyr::arrange(.data$eq_param) save(eq.params, file = file.path("inst", "extdata", "DomainValuesNull.rda"), compress = "xz") diff --git a/R/Utilities.R b/R/Utilities.R index 142742c..40a2d19 100644 --- a/R/Utilities.R +++ b/R/Utilities.R @@ -1,6 +1,6 @@ # set global variables utils::globalVariables(c( - ".data", ":=" + ".data", ":=", ".env", "attains_ws_field", "attains_ws_name", "domain" )) #' Include .data from rlang to prevent global variable warnings