fix fecha

content/recursos_coyuntura.csv

@@ -1,5 +1,5 @@
 recurso,src,url,description,tags,fecha
-imet_2023-12-21,img/imet.png,https://tableros.yvera.tur.ar/recursos/biblioteca/imet_2023-12-21.pdf,Evolución de los principales indicadores de la actividad turística (DICIEMBRE 2023),Estadísticas Turísticas,2023-12-21
+imet_2023-11-30,img/imet.png,https://tableros.yvera.tur.ar/recursos/biblioteca/imet_2023-11-30.pdf,Evolución de los principales indicadores de la actividad turística (NOVIEMBRE 2023),Estadísticas Turísticas,2023-11-30
 imet_2023-10-31,img/imet.png,https://tableros.yvera.tur.ar/recursos/biblioteca/imet_2023-10-31.pdf,Evolución de los principales indicadores de la actividad turística (OCTUBRE 2023),Estadísticas Turísticas,2023-10-31
 imet_2023-09-29,img/imet.png,https://tableros.yvera.tur.ar/recursos/biblioteca/imet_2023-09-29.pdf,Evolución de los principales indicadores de la actividad turística (SEPTIEMBRE 2023),Estadísticas Turísticas,2023-09-29
 imet_2023-08-31,img/imet.png,https://tableros.yvera.tur.ar/recursos/biblioteca/imet_2023-08-31.pdf,Evolución de los principales indicadores de la actividad turística (AGOSTO 2023),Estadísticas Turísticas,2023-08-31

content/update_recursos.R

@@ -72,7 +72,7 @@ nueva_publicacion_coyuntura <- function(publicacion = NULL){
   #### TEXTO PARA AGREGAR A DESCRIPTION CONDICIONAL A PARAMETRO DE LA FUNCION
 
 
-  desc_imet <- glue::glue("Evolución de los principales indicadores de la actividad turística ({toupper(format(as.Date('2023-11-31'),
+  desc_imet <- glue::glue("Evolución de los principales indicadores de la actividad turística ({toupper(format(Sys.Date(),
                           format='%B %Y'))})")
 
 
@@ -84,12 +84,12 @@ nueva_publicacion_coyuntura <- function(publicacion = NULL){
   ### AGREGO NUEVA PUBLICACION EN FUNCION DEL PARAPETRO PUBLICACION DE LA FUNCION
 
   read_csv("content/recursos_coyuntura.csv") %>%  # LEVANTA DATOS CARGADOS
-    add_row(recurso =  glue::glue("{publicacion}_{as.Date('2023-11-31')}"), # NUEVA FILA CON TODAS LAS VARS
+    add_row(recurso =  glue::glue("{publicacion}_{Sys.Date()}"), # NUEVA FILA CON TODAS LAS VARS
             src =  glue::glue("img/{publicacion}.png"),
-            url =  glue::glue("https://tableros.yvera.tur.ar/recursos/biblioteca/{publicacion}_{as.Date('2023-11-31')}.pdf"),
+            url =  glue::glue("https://tableros.yvera.tur.ar/recursos/biblioteca/{publicacion}_{Sys.Date()}.pdf"),
             description = ifelse(publicacion == "imet", yes = desc_imet, no = desc_panorama),
             tags = ifelse(publicacion == "imet", yes = "Estadísticas Turísticas", no = "Economía del Turismo"),
-            fecha = as.Date('2023-11-31'), .before = 1) %>%
+            fecha = Sys.Date(), .before = 1) %>%
     write_csv("content/recursos_coyuntura.csv") # GUARDO RECURSO ACTUALIZADO CON NUEVO REGISTRO