Increase timeout

CITATION.cff

@@ -8,7 +8,7 @@ message: 'To cite package "climaemet" in publications use:'
 type: software
 license: GPL-3.0-only
 title: 'climaemet: Climate AEMET Tools'
-version: 1.3.0
+version: 1.3.0.9000
 doi: 10.5281/zenodo.5205573
 identifiers:
 - type: doi
@@ -199,6 +199,9 @@ references:
     email: [email protected]
     orcid: https://orcid.org/0000-0002-4035-0289
   year: '2024'
+  identifiers:
+  - type: url
+    value: https://arxiv.org/abs/1403.2805
   doi: 10.32614/CRAN.package.jsonlite
   version: '>= 1.7.0'
 - type: software

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: climaemet
 Title: Climate AEMET Tools
-Version: 1.3.0
+Version: 1.3.0.9000
 Authors@R: c(
     person("Manuel", "Pizarro", role = c("aut", "cph"),
            comment = c(ORCID = "0000-0002-6981-0154")),

NEWS.md

@@ -1,3 +1,8 @@
+# climaemet (development version)
+
+-   Increase timeout limit with `httr2::req_timeout()`.
+-   Better management of non valid/duplicated/empty API keys.
+
 # climaemet 1.3.0
 
 -   Migrate from **httr** to **httr2** (#50).

R/aemet_api_query.R

@@ -65,6 +65,16 @@ get_data_aemet <- function(apidest, verbose = FALSE) {
   stopifnot(is.logical(verbose))
 
   initapikey <- aemet_hlp_get_allkeys()
+  initapikey <- c("a", NULL, NA, initapikey)
+  # Clean not valid apikeys
+  initapikey <- initapikey[!is.na(initapikey)]
+  initapikey <- initapikey[nchar(initapikey) > 10]
+  initapikey <- unique(initapikey)
+
+  if (length(initapikey) < 1) {
+    stop("Can't find any valud API key. See ??aemet_api_key.", call. = FALSE)
+  }
+
 
   # Sample to get a random apikey
   index <- sample(seq_len(length(initapikey)), 1)
@@ -287,6 +297,9 @@ aemet_api_call <- function(apidest, verbose = FALSE, data_call = FALSE,
     FALSE
   })
 
+  # Increase timeout
+  req1 <- httr2::req_timeout(req1, 20)
+
   # Perform request
   if (verbose) {
     message("\nRequesting ", req1$url)

codemeta.json

@@ -8,13 +8,13 @@
   "codeRepository": "https://github.com/rOpenSpain/climaemet",
   "issueTracker": "https://github.com/rOpenSpain/climaemet/issues",
   "license": "https://spdx.org/licenses/GPL-3.0",
-  "version": "1.3.0",
+  "version": "1.3.0.9000",
   "programmingLanguage": {
     "@type": "ComputerLanguage",
     "name": "R",
     "url": "https://r-project.org"
   },
-  "runtimePlatform": "R version 4.4.1 (2024-06-14 ucrt)",
+  "runtimePlatform": "R version 4.4.1 (2024-06-14)",
   "provider": {
     "@id": "https://cran.r-project.org",
     "@type": "Organization",
@@ -339,7 +339,7 @@
   },
   "applicationCategory": "Meteorology",
   "isPartOf": "https://ropenspain.es/",
-  "fileSize": "831.104KB",
+  "fileSize": "823.112KB",
   "citation": [
     {
       "@type": "SoftwareSourceCode",

inst/WORDLIST

@@ -2,7 +2,6 @@ AEMET
 Avilés
 Bogdan
 Climatogram
-DMS
 Estadistica
 Fernández
 Guijarro
@@ -30,7 +29,6 @@ climatol
 climatological
 coercible
 de
-dms
 english
 json
 spanish

inst/schemaorg.json

@@ -42,8 +42,8 @@
         "name": "Comprehensive R Archive Network (CRAN)",
         "url": "https://cran.r-project.org"
       },
-      "runtimePlatform": "R version 4.4.1 (2024-06-14 ucrt)",
-      "version": "1.3.0"
+      "runtimePlatform": "R version 4.4.1 (2024-06-14)",
+      "version": "1.3.0.9000"
     },
     {
       "id": "https://doi.org/10.5281/zenodo.5205573",