R/mod_csvFileUI.R

In CentroGeo/visualizadorIncidentesViales: Visualizador de Incidentes Viales para la CDMX

#' csvFileUI UI Function
#'
#' @description Function that generates the user interface to load the files 
#' to create the database that is use to visualize "accidentes viales"
#'
#' @param id
#'
#' @importFrom shiny NS tagList
mod_csvFileUI_ui <- function(id, label = "Selecciona el archivo") {
  ns <- NS(id)

  tagList(
    fileInput(ns("file"), label),
    selectInput(ns("encoding"), "Codificación", c(
      "UTF-8" = "UTF-8",
      "Latin-1" = "latin1"
    )),
    selectInput(ns("database"), "Fuente de Datos", c(
      "Fiscalía" = "fgj",
      "Seguridad Ciudadana" = "ssc",
      "C5" = "c5",
      "AXA" = "axa"
    )),
    actionButton(ns("save"), "Guardar")
  )
}

#' csvFileUI Server Function
#'
#' Function that loads the new files for to create a new Dataframe to be use by 
#' the "visualizador de accidentes"
#'
#' @param input shiny Parameter where the inputs from the UI are store
#' 
#' @param output shiny parameter where the id are reference to display in the UI  
#' 
#' @param session shiny parameter to store the session 
mod_csvFileUI_server <- function(input, output, session) {
  ns <- session$ns
  shinyjs::toggleState("save")
  userFile <- reactive({
    # If no file is selected, don't do anything
    validate(need(input$file, message = FALSE))
    input$file
  })

  # The user's data, parsed into a data frame
  dataframe <- reactive({
    if (input$database == "fgj") {
      df <- readr::read_delim(userFile()$datapath,
        col_names = TRUE,
        quote = "\"",
        delim = ","
      )
      ##### Validates if the file is from FGJ
      validate(need(try(df <- preprocesa_pgj(df)), "El archivo no es de la FGJ"))
      shinyjs::toggleState("save")
      df
    } else if (input$database == "ssc") {
      df <- readr::read_delim(userFile()$datapath,
        col_names = TRUE,
        quote = "\"",
        delim = ","
      )
      ##### Validates if the file is from SSC
      validate(need(try(preprocesa_ssc(df)), "El archivo no es de la SSC"))
      shinyjs::toggleState("save")
      df <- preprocesa_ssc(df)
    } else if (input$database == "c5") {
      df <- readr::read_delim(userFile()$datapath,
                              col_names = TRUE,
                              quote = "\"",
                              delim = ","
      )
      ##### Validates if the file is from C5
      validate(need(try(df<- preprocesa_C5(df)), "El archivo no es del C5"))
      shinyjs::toggleState("save")
      #df <- preprocesa_axa(df)
      df 
    } else if (input$database == "axa") {
      df <- readr::read_delim(userFile()$datapath,
        col_names = TRUE,
        quote = "\"",
        delim = ","
      )
      ##### Validates if the file is from AXA
      validate(need(try(df<- preprocesa_axa_origin(df)), "El archivo no es de AXA"))
      shinyjs::toggleState("save")
      #df <- preprocesa_axa(df)
      df
    }
  })

  # We can run observers in here if we want to
  observe({
    msg <- sprintf("File %s was uploaded", userFile()$name)
    cat(msg, "\n")
  })
#### Saves file 
  observeEvent(input$save, {
    f_name <- paste0(input$database, ".rds")
    saveRDS(dataframe(), file = paste0("data-raw/", f_name))
    # TODO: Acá se tendría que correr une_tablas
    shinyjs::toggleState("save")
    showNotification("Datos guardados", type = "message")
  })
  # Return the reactive that yields the data frame
  return(dataframe)
}

## To be copied in the UI
# mod_csvFileUI_ui("csvFileUI_ui_1")

## To be copied in the server
# callModule(mod_csvFileUI_server, "csvFileUI_ui_1")