Shiny module UI for file upload for propensity score matching.

FilePsInput(id, label = "Upload data (csv/xlsx/sav/sas7bdat/dta)")

Arguments

id

id

label

label, Default: 'csv/xlsx/sav/sas7bdat file'

Value

Shiny module UI for file upload for propensity score matching.

Details

Shiny module UI for file upload for propensity score matching.

Examples

library(shiny) library(DT) library(data.table) library(readxl) library(jstable) ui <- fluidPage( sidebarLayout( sidebarPanel( FilePsInput("datafile") ), mainPanel( tabsetPanel( type = "pills", tabPanel("Data", DTOutput("data")), tabPanel("Matching data", DTOutput("matdata")), tabPanel("Label", DTOutput("data_label", width = "100%")) ) ) ) ) server <- function(input, output, session) { mat.info <- callModule(FilePs, "datafile") output$data <- renderDT({ mat.info()$data }) output$matdata <- renderDT({ mat.info()$matdata }) output$label <- renderDT({ mat.info()$label }) }