R/mod_data_reading.R

In alberto-mateos-mo/data.analyseR: data.analyseR

# Module UI
  
#' @title   mod_data_reading_ui and mod_data_reading_server
#' @description  A shiny Module.
#'
#' @param id shiny id
#' @param input internal
#' @param output internal
#' @param session internal
#'
#' @rdname mod_data_reading
#'
#' @keywords internal
#' @export 
#' @importFrom shiny NS tagList 
mod_data_reading_ui <- function(id){
  ns <- NS(id)
  tagList(
    fluidRow(
    col_4(
      fileInput(ns("data"), label = "Upload your data file"),
      
      h6("We support almost all data formats."),
      
      shinyWidgets::useSweetAlert() 
    ),
    col_6(
        DT::DTOutput(ns("tabla"), width = 800)
    )
    )
  )
}
    
# Module Server
    
#' @rdname mod_data_reading
#' @export
#' @keywords internal
    
mod_data_reading_server <- function(input, output, session){
  ns <- session$ns
  
  userFile <- reactive({
    validate(need(input$data, message = FALSE))
    input$data
  })
  
  userData <- reactive({
    
    validate(need(input$data, message = FALSE))
    
    ufile <- userFile()$datapath
    
    df <- try(rio::import(ufile))
    
    df %>% 
      janitor::clean_names() %>% 
      dplyr::mutate(index = 1:dplyr::n())
    
  })

  observe({
    if(class(userData()) == "data.frame"){
      shinyWidgets::sendSweetAlert(
        session = session,
        title = "Success !!",
        text = "All in order",
        type = "success"
      )
    }else{
      shinyWidgets::sendSweetAlert(
        session = session,
        title = "Error !!",
        text = "We do not support your data, drop us a line if you like us to support your data :(",
        type = "error"
      )
    }
  })
  
  output$tabla <- DT::renderDT({
    if(class(userData()) != "data.frame") NULL
    DT::datatable(userData(), rownames = F, 
                  options = list(scrollX = TRUE, fixedColumns = TRUE))
  })
  
  return({
    userData
  })
}
    
## To be copied in the UI
# mod_data_reading_ui("data_reading_ui_1")
    
## To be copied in the server
# callModule(mod_data_reading_server, "data_reading_ui_1")