FilePs | R Documentation |
Shiny module Server for file upload for propensity score matching.
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.
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
})
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.