From 5e7d7b3ef02867777bf33ad5b0d67a741f075db9 Mon Sep 17 00:00:00 2001 From: hillarymarler <152432687+hillarymarler@users.noreply.github.com> Date: Wed, 13 May 2026 13:12:15 -0400 Subject: [PATCH 1/2] Update EQ_DomainValues.R --- R/EQ_DomainValues.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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") From fafba41c2e38e8da6a685979951e8ef888b4c82b Mon Sep 17 00:00:00 2001 From: hillarymarler <152432687+hillarymarler@users.noreply.github.com> Date: Wed, 13 May 2026 13:13:56 -0400 Subject: [PATCH 2/2] Update Utilities.R --- R/Utilities.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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