ensure that service string is uppercase

R/get_key.R

@@ -26,7 +26,7 @@
 #'
 #' @export
 get_key <- function(service = c("DPIRD", "SILO")) {
-
+  service <- toupper(service)
   service <- match.arg(service)
 
   if (service == "DPIRD") {
@@ -47,47 +47,46 @@ get_key <- function(service = c("DPIRD", "SILO")) {
   }
 }
 
-  #' Help the User Request an API Key for the DPIRD API
-  #'
-  #' Opens a browser window at the DPIRD API key request URL and provides
-  #'   instruction on how to store the key. After filling the form you will get
-  #'   the key soon, but not immediately.
-  #'
-  #' @keywords internal
-  #' @noRd
-  #' @return Called for its side-effects, opens a browser window at the DPIRD
-  #'   weather data API key request form.
-  .set_dpird_key <- function() {
-    if (interactive()) {
-      utils::browseURL("https://www.agric.wa.gov.au/form/dpird-api-registration")
-    }
-
-    stop(
-        "You need to set your DPIRD API key.\n",
-        "After getting your key set it as 'DPIRD_API_KEY' in .Renviron.\n",
-        "DPIRD_API_KEY='youractualkeynotthisstring'\n",
-        "For that, use `usethis::edit_r_environ()`"
-    )
-
-    invisible("https://www.agric.wa.gov.au/form/dpird-api-registration")
+#' Help the User Request an API Key for the DPIRD API
+#'
+#' Opens a browser window at the DPIRD API key request URL and provides
+#'   instruction on how to store the key. After filling the form you will get
+#'   the key soon, but not immediately.
+#'
+#' @keywords internal
+#' @noRd
+#' @return Called for its side-effects, opens a browser window at the DPIRD
+#'   weather data API key request form.
+.set_dpird_key <- function() {
+  if (interactive()) {
+    utils::browseURL("https://www.agric.wa.gov.au/form/dpird-api-registration")
   }
+  stop(
+    "You need to set your DPIRD API key.\n",
+    "After getting your key set it as 'DPIRD_API_KEY' in .Renviron.\n",
+    "DPIRD_API_KEY='youractualkeynotthisstring'\n",
+    "For that, use `usethis::edit_r_environ()`"
+  )
 
-  #' Help the User Set Up Their SILO API Key
-  #'
-  #' Instructs the user on how to set up the SILO API key to automatically find
-  #'   it.
-  #'
-  #' @return Invisible `NULL`, called for its side-effects, returns a message
-  #'   with instructions.
-  #' @keywords internal
-  #' @noRd
+  invisible("https://www.agric.wa.gov.au/form/dpird-api-registration")
+}
+
+#' Help the User Set Up Their SILO API Key
+#'
+#' Instructs the user on how to set up the SILO API key to automatically find
+#'   it.
+#'
+#' @return Invisible `NULL`, called for its side-effects, returns a message
+#'   with instructions.
+#' @keywords internal
+#' @noRd
 
-  .set_silo_key <- function() {
-    stop(
-        "Set your SILO API key (email address) as 'SILO_API_KEY' in .Renviron.\n",
-        "SILO_API_KEY='youractualemailnotthisstring'\n",
-        "For that, use `usethis::edit_r_environ()`"
-    )
+.set_silo_key <- function() {
+  stop(
+    "Set your SILO API key (email address) as 'SILO_API_KEY' in .Renviron.\n",
+    "SILO_API_KEY='youractualemailnotthisstring'\n",
+    "For that, use `usethis::edit_r_environ()`"
+  )
 
-    invisible(NULL)
-  }
+  invisible(NULL)
+}