Merge pull request #15 from AAGI-AUS/invalidkeys

DESCRIPTION

@@ -7,7 +7,8 @@ Authors@R: c(
     person("Wasin", "Pipattungsakul", , "[email protected]", role = "aut"),
     person("Russell", "Edson", , "[email protected]", role = "aut",
            comment = c(ORCID = "0000-0002-4607-5396")),
-    person("Sam", "Rogers", , "[email protected]", role = "aut"),
+    person("Sam", "Rogers", , "[email protected]", role = "aut",
+           comment = c(ORCID = "0000-0002-4607-5396")),
     person("Max", "Moldovan", , "[email protected]", role = "ctb")
   )
 Description: Provides access to Australia's TERN (Terrestrial Ecosystem

R/get_key.R

@@ -41,7 +41,7 @@ get_key <- function() {
   if (!nzchar(TERN_API_KEY)) {
     .set_tern_key()
   } else {
-    return(gsub("/", "%2f", TERN_API_KEY, fixed = TRUE))
+    return(TERN_API_KEY)
   }
 }
 

R/read_smips.R

@@ -49,6 +49,10 @@ read_smips <- function(collection = "totalbucket",
                        api_key = get_key(),
                        max_tries = 3L,
                        initial_delay = 1L) {
+
+  # Fix any invalid key here, rather than in get_key() in case a user passes a key
+  api_key <- gsub("/", "%2f", api_key, fixed = TRUE)
+
   attempt <- 1
   success <- FALSE
 

codemeta.json

@@ -14,7 +14,7 @@
     "name": "R",
     "url": "https://r-project.org"
   },
-  "runtimePlatform": "R version 4.4.2 (2024-10-31)",
+  "runtimePlatform": "R version 4.4.2 (2024-10-31 ucrt)",
   "author": [
     {
       "@type": "Person",
@@ -33,7 +33,8 @@
       "@type": "Person",
       "givenName": "Sam",
       "familyName": "Rogers",
-      "email": "[email protected]"
+      "email": "[email protected]",
+      "@id": "https://orcid.org/0000-0002-4607-5396"
     }
   ],
   "contributor": [
@@ -148,7 +149,7 @@
     },
     "SystemRequirements": null
   },
-  "fileSize": "176.921KB",
+  "fileSize": "177.735KB",
   "citation": [
     {
       "@type": "SoftwareSourceCode",