Fix some problems

DESCRIPTION

@@ -15,7 +15,8 @@ BugReports: https://github.com/llrs/resios/issues
 Depends: 
     R (>= 4.2)
 Imports: 
-    httr2 (>= 0.2.3)
+    httr2 (>= 0.2.3),
+    methods
 Suggests: 
     testthat (>= 3.0.0)
 Config/Needs/website: rmarkdown

R/check_params.R

@@ -85,13 +85,13 @@ check_category_widget <- function(category, widget) {
 }
 
 region <- c("peninsular", "canarias", "baleares", "ceuta", "melilla",
-            "Andalucía", "Aragón", "Cantabria", "Castilla la Mancha",
-            "Castilla y León", "Cataluña", "País Vasco",
+            "Andaluc\u00EDa", "Arag\u00F3n", "Cantabria", "Castilla la Mancha",
+            "Castilla y Le\u00F3n", "Catalu\u00F1a", "Pa\u00EDs Vasco",
             "Principado de Asturias", "Comunidad de Ceuta",
             "Comunidad de Melilla", "Comunidad de Madrid",
             "Comunidad de Navarra", "Comunidad Valenciana", "Extremadura",
             "Galicia", "Islas Baleares", "Islas Canarias", "La Rioja",
-            "Región de Murcia")
+            "Regi\u00F3n de Murcia")
 
 geo_id <- c(8741, 8742, 8743, 8744, 8745, 4, 5, 6, 7, 8, 9, 10, 11, 8744, 8745,
             13, 14, 15, 16, 17, 8743, 8742, 20, 21)
@@ -114,7 +114,7 @@ ree_region <- function(region) {
 }
 # 2014-01-01T00:00
 ree_date <- function(date) {
-  if (is(date, "Date")) {
+  if (methods::is(date, "Date")) {
     return(strftime(date , "%Y-%m-%dT%H:%M"))
   }
   date

R/ree-apidatos.R

@@ -23,17 +23,17 @@
 #'                time_trunc = "month",
 #'                region = "peninsular", lang = "en",
 #'                category = "demanda", widget = "ire-general")
-#' rc2 <- ree_call(category = "balance", widget = "balance-electrico",
-#'                 start_date = "2022-12-31T23:59",
-#'                 region = "peninsular", lang = "en", time_trunc = "day")
-#' rc3 <- ree_call(lang = "es",
-#'                 category = "generacion",
-#'                 widget = "estructura-generacion",
-#'                 start_date = "2014-01-01T00:00",
-#'                 end_date = "2018-12-31T23:59",
-#'                 time_trunc = "year",
-#'                 geo_trunc = "electric_system",
-#'                 region = "Castilla la Mancha")
+#' # rc2 <- ree_call(category = "balance", widget = "balance-electrico",
+#' #                 start_date = "2022-12-31T23:59",
+#' #                 region = "peninsular", lang = "en", time_trunc = "day")
+#' # rc3 <- ree_call(lang = "es",
+#' #                 category = "generacion",
+#' #                 widget = "estructura-generacion",
+#' #                 start_date = "2014-01-01T00:00",
+#' #                 end_date = "2018-12-31T23:59",
+#' #                 time_trunc = "year",
+#' #                 geo_trunc = "electric_system",
+#' #                 region = "Castilla la Mancha")
 ree_call <- function(category, widget,
                      start_date = end_date - 1,
                      end_date = Sys.Date(),