Arregla warnings de la funcion check - cambios en documentacion y DES…

…CRIPTION

DESCRIPTION

@@ -7,7 +7,7 @@ Authors@R:
            email = "florencia.dandrea@gmail.com", 
            role = c("aut", "cre"),
            comment = c(ORCID = "0000-0002-0041-097X"))
-Description: Website que permite visualizar datos de movilidad ciudadana de Meta para el pediodo marzo - dicimebre 2020 junto con casos de COVID-19 reportados para la provincia de Buenos Aires, Argentina.
+Description: Tablero que permite visualizar datos de movilidad ciudadana de Meta para el pediodo marzo - dicimebre 2020 junto con casos de COVID-19 reportados para la provincia de Buenos Aires, Argentina.
 License: file LICENSE
 Encoding: UTF-8
 Roxygen: list(markdown = TRUE)
@@ -17,21 +17,17 @@ Imports:
     dplyr (>= 1.1.2),
     dygraphs (>= 1.1.1.6),
     forcats (>= 1.0.0),
-    ggplot2 (>= 3.4.3),
     leafem (>= 0.2.3),
     leaflet (>= 2.2.0),
     leaflet.extras (>= 1.0.0),
     lubridate (>= 1.9.2),
-    markdown (>= 1.1),
     plotly (>= 4.10.3.9000),
-    purrr (>= 1.0.1),
-    readr (>= 2.1.4),
+    rlang (>= 1.1.2),
     rmarkdown (>= 2.24),
     sf (>= 1.0.14),
     shiny (>= 1.7.4),
     shinycssloaders (>= 1.0.0),
     shinyjs (>= 2.1.0),
-    stars (>= 0.6.2),
     stringr (>= 1.5.1),
     terra (>= 1.7.39),
     tidyr (>= 1.3.0),
@@ -40,6 +36,12 @@ Depends:
     R (>= 2.10)
 LazyData: true
 Suggests: 
+    ggplot2 (>= 3.4.4),
+    here (>= 1.0.1),
+    markdown (>= 1.12),
+    purrr (>= 1.0.2),
     shinytest2,
-    testthat (>= 3.0.0)
+    stars (>= 0.6.4),
+    testthat (>= 3.0.0),
+    tibble (>= 3.2.1)
 Config/testthat/edition: 3

NAMESPACE

@@ -22,4 +22,9 @@ export(formatted_date)
 export(run_app)
 export(server)
 export(ui)
+import(shiny)
+importFrom(graphics,hist)
+importFrom(graphics,par)
+importFrom(rlang,.data)
 importFrom(shiny,shinyApp)
+importFrom(stats,quantile)

R/mod_fecha_momento.R

@@ -1,21 +1,22 @@
 #' Elementos de interfaz de usuario de la barra flotante del tab de Mapa BsAs
 #'
-#' @param id 
+#' @param id Module name
 #' @param base_raster Dataframe que lista todos los rasters y desagrega en 
 #' sus columnas características de interes, como si son rasters de 
 #' AMBA o Buenos Aires, si el cambio porcentual es semanal o prepandemia 
 #' o el momento del día que representan.
 #'
+#' @param id Module name
 #' @return Barra flotante del tab Mapa Buenos Aires.
 #' 
 #' @export
 FechaMomentoUI <- function(id, base_raster) {
-
+  
   ns <- NS(id)
-
+  
   momento_del_dia <- as.list(unique(base::unique(base_raster$hora)))
   names(momento_del_dia) <- unique(base::unique(base_raster$momento))
-
+  
   shiny::tagList(
     h4("Cliquea en el mapa"),
     shiny::radioButtons(ns("basemap"),
@@ -32,40 +33,40 @@ FechaMomentoUI <- function(id, base_raster) {
                         selected = 'baires',
                         inline = TRUE),
     shinyjs::hidden(shiny::dateInput(ns("fechas"),
-                    label = "Fecha",
-                    min = "2020-05-09", #min(base::unique(base_raster$fecha)),
-                    max = "2020-05-14", #max(base::unique(base_raster$fecha))
-                    value = "2020-05-09",
-                    language = "es",
-                    format = "yyyy-mm-dd")),
+                                     label = "Fecha",
+                                     min = "2020-05-09", #min(base::unique(base_raster$fecha)),
+                                     max = "2020-05-14", #max(base::unique(base_raster$fecha))
+                                     value = "2020-05-09",
+                                     language = "es",
+                                     format = "yyyy-mm-dd")),
     shinyjs::hidden(shiny::radioButtons(ns('porcentaje'),
-                        label = 'Cambio porcentual',
-                        choices = c("Prepandemia" = "pc",
-                                    "Semanal" = "7dpc"),
-                        inline = TRUE,
-                        selected = "pc")),
-                    shinyjs::hidden(
-                       shiny::radioButtons(ns("momento"),
-                                   label = "Momento del día",
-                                   choices = unique(base_raster$momento),
-                                   inline = TRUE,
-                                   selected = unique(base_raster$momento)[1])),
+                                        label = 'Cambio porcentual',
+                                        choices = c("Prepandemia" = "pc",
+                                                    "Semanal" = "7dpc"),
+                                        inline = TRUE,
+                                        selected = "pc")),
     shinyjs::hidden(
-                      p(id = 'barra_transparencia',
-                      "Opciones de visualizacion del mapa"),
-                    shiny::sliderInput(ns("opacity"),
-                                       label = "Transparencia",
-                                       min = 0,
-                                       max = 1,
-                                       value = 0.5,
-                                       ticks = FALSE))
-
+      shiny::radioButtons(ns("momento"),
+                          label = "Momento del día",
+                          choices = unique(base_raster$momento),
+                          inline = TRUE,
+                          selected = unique(base_raster$momento)[1])),
+    shinyjs::hidden(
+      p(id = 'barra_transparencia',
+        "Opciones de visualizacion del mapa"),
+      shiny::sliderInput(ns("opacity"),
+                         label = "Transparencia",
+                         min = 0,
+                         max = 1,
+                         value = 0.5,
+                         ticks = FALSE))
+
   )
 }
 
 #' Convierte el archivo en raster en base a las elecciones del usuario
 #'
-#' @param id 
+#' @param id Module name
 #' @param base_raster Dataframe que lista todos los rasters y desagrega en 
 #' sus columnas características de interes, como si son rasters de 
 #' AMBA o Buenos Aires, si el cambio porcentual es semanal o prepandemia 
@@ -82,30 +83,26 @@ FechaMomento_Server <- function(id,
   moduleServer(id,
                session = getDefaultReactiveDomain(),
                function(input, output, session){
-
-
+                 
+                 
                  imagen <- shiny::reactive({
-
-
+                   
+                   
                    # selecciono un solo dia y tiempo, ya que estoy probando
                    raster_data <-  base_raster |>
-                                  dplyr::filter(fecha == as.Date(input$fechas,
-                                                     origin = "1970-01-01"),
-                                    tipo_de_raster == input$porcentaje,
-                                    momento == input$momento,
-                                    locacion == input$area)
-
+                     dplyr::filter(.data$fecha == as.Date(input$fechas,
+                                                    origin = "1970-01-01"),
+                                   .data$tipo_de_raster == input$porcentaje,
+                                   .data$momento == input$momento,
+                                   .data$locacion == input$area)
+                   
                    # leo el raster
                    terra::rast(paste0('data/rasters/', raster_data$value))
-
-
                  })
-
-
-
+
                  # revelo la barra de transparencia cuando el zoom es mayor a 6
                  shiny::observeEvent(mapa_zoom(),{
-                     if(mapa_zoom() <= 6){
+                   if(mapa_zoom() <= 6){
                      shinyjs::hide("opacity")
                      shinyjs::hide("porcentaje")
                      shinyjs::hide("momento")
@@ -117,7 +114,7 @@ FechaMomento_Server <- function(id,
                      shinyjs::show("fechas")
                    }
                  })
-
+                 
                  return(
                    list(
                      area = reactive({ input$area }),
@@ -126,5 +123,5 @@ FechaMomento_Server <- function(id,
                      basemap = reactive({ input$basemap }) #?
                    )
                  )
-
+                 
                })}