R/mod_data_input.R

In esppk/fundr: Funding DashBoard

#' data_input UI Function
#'
#' @description A shiny Module.
#'
#' @param id,input,output,session Internal parameters for {shiny}.
#'
#' @noRd 
#' 
#' @import dplyr stringr
#' 
#' @importFrom shinyWidgets sendSweetAlert actionBttn
#'
#' @importFrom shiny NS tagList 
#' 
mod_data_input_ui <- function(id){
  ns <- NS(id)
  tagList(
    fluidPage(
      h1("Data Input Here"),
      fluidRow(
        col_4(fileInput(ns("file"), label = "Upload File"),
              actionBttn(
                inputId = ns("append"),
                label = "Append", 
                style = "fill",
                color = "success"
              ),
              actionBttn(
                inputId = ns("extra"),
                label = "Update Extra", 
                style = "fill",
                color = "success"
              )),
        col_6(DT::DTOutput(ns("preview")))
      )
    )
  )
}
    
#' data_input Server Function
#'
#' @noRd 
mod_data_input_server <- function(input, output, session, db, db2){
  
  ns <- session$ns
  
  data <- reactive({
    
    req(input$file)
    
    ext <- tools::file_ext(input$file$name)
    
    switch(ext,
           
           xlsx = readxl::read_excel(input$file$datapath),
           csv = readr::read_csv(input$file$datapath),
           validate("Invaldi file; please upload either csv or xlsx.")
    )
  })
  
  observeEvent(input$append, {
    
    tryCatch({
      
      db$drop()
      
      data() %>%
        mutate_at(vars(total, planned, tenure, coupon), as.numeric) %>% 
        left_join(aprilnames %>% select(-long_name), by = "name") %>% 
        db$insert(.)
      
      sendSweetAlert(
        session = session,
        title = "Success !!",
        text = "All in order",
        type = "success")
      
    },
    error = function(e) {
      
      golem::print_dev(e)
      sendSweetAlert(
        session = session,
        title = "Error !!",
        text = "Error parsing the colnames; Please make sure your have column `firm`",
        type = "error"
      )
    })
  })
  
  observeEvent(input$extra, {
    
    
    tryCatch({
      
      db2$drop()
      
      data() %>%
        db2$insert(.)
      
      sendSweetAlert(
        session = session,
        title = "Success !!",
        text = "All in order",
        type = "success")
      
    },
    error = function(e) {
      
      golem::print_dev(e)
      sendSweetAlert(
        session = session,
        title = "Error !!",
        text = "Error parsing the colnames; Please make sure your have column `firm`",
        type = "error"
      )
    })
    
    
  })
  
  output$preview <- DT::renderDT({

    data()
  })
  
 
}
    
## To be copied in the UI
# mod_data_input_ui("data_input_ui_1")
    
## To be copied in the server
# callModule(mod_data_input_server, "data_input_ui_1")