simplify user-input checks

Author: adamhsparks

R/query_parameters.R

@@ -61,31 +61,14 @@ query_parameters <- function(
   community_vals <- c("AG", "RE", "SB")
   temporal_api_vals <- c("DAILY", "MONTHLY", "HOURLY", "CLIMATOLOGY")
 
-  # if the args for `community` and `temporal_api` are not empty, check and
-  # then reset `community_vals` and `temporal_api_vals` for use later
+  community <- tolower(community)
+  temporal_api <- tolower(temporal_api)
 
-  if (!is.null(community)) {
-    community <- toupper(community)
-
-    if (community %notin% community_vals) {
-      cli::cli_abort(c(
-        x = "{.arg community} does not match any valid values for {.var community}."
-      ))
-    }
-    community_vals <- community
-  }
-
-  if (!is.null(temporal_api)) {
-    temporal_api <- toupper(temporal_api)
-    if (temporal_api %notin% temporal_api_vals) {
-      cli::cli_abort(
-        c(
-          x = "{.arg temporal_api} does not match any valid values for {.var temporal_api}."
-        )
-      )
-    }
-    temporal_api_vals <- temporal_api
-  }
+  community <- rlang::arg_match(community, c("ag", "re", "sb"))
+  temporal_api <- rlang::arg_match(
+    temporal_api,
+    c("daily", "monthly", "hourly", "climatology")
+  )
 
   if (!is.null(pars)) {
     pars <- toupper(pars)

codemeta.json

@@ -13,7 +13,7 @@
     "name": "R",
     "url": "https://r-project.org"
   },
-  "runtimePlatform": "R version 4.5.0 (2025-04-11)",
+  "runtimePlatform": "R version 4.5.1 (2025-06-13)",
   "provider": {
     "@id": "https://cran.r-project.org",
     "@type": "Organization",
@@ -273,7 +273,7 @@
   "applicationCategory": "Tools",
   "isPartOf": "https://ropensci.org",
   "keywords": ["NASA", "meteorological-data", "weather", "global", "weather-data", "meteorology", "NASA-POWER", "agroclimatology", "earth-science", "data-access", "climate-data", "r", "nasa-power", "nasa", "agroclimatology-data", "weather-variables", "rstats", "r-package"],
-  "fileSize": "505.759KB",
+  "fileSize": "505.207KB",
   "citation": [
     {
       "@type": "ScholarlyArticle",