R/module_importTab.R

In RLumShiny: 'Shiny' Applications for the R Package 'Luminescence'

importTab <- function(id, label, accept, callback = function() NULL) {

  ## create a namespace function using the provided id
  ns <- NS(id)

  tabPanel("Import",

           div(align = "center", h5("Data import")),

           # file upload button
           fileInput(inputId = "file",
                     label = strong(label),
                     accept = accept),

           # import
           actionButton(inputId = "import",
                        label = "Import",
                        class = "btn btn-success"),

           ## callback function
           callback()
           )
}