FilePs: FilePs: Shiny module Server for file upload for propensity...
In leevenstar/jstest: 'RStudio' Addins and 'Shiny' Modules for Medical Research

Description Usage Arguments Details Value Examples

Shiny module Server for file upload for propensity score matching.

1	FilePs(input, output, session, nfactor.limit = 20)

`input`	input
`output`	output
`session`	session
`nfactor.limit`	nfactor limit to include, Default: 20

Shiny module Server for file upload for propensity score matching.

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
  })
}