FilePs: Shiny module Server for file upload for propensity score matching.

Shiny module Server for file upload for propensity score matching.

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

Arguments

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

Value

Shiny module Server for file upload for propensity score matching.

Details

Shiny module Server for file upload for propensity score matching.

Examples

library(shiny)
library(DT)
#> 
#> Attaching package: ‘DT’
#> The following objects are masked from ‘package:shiny’:
#> 
#>     dataTableOutput, renderDataTable
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
  })
}