# client user interface function
ui <- shiny::fluidPage(
shiny::sidebarLayout(
shiny::sidebarPanel(statsInput("test")),
shiny::mainPanel(statsUI("test"))
)
)
# server function
server <- function(input, output, session) {
statsServer("test", registryName = "rapbase", eligible = TRUE)
}
# run the shiny app in an interactive environment
if (interactive()) {
shiny::shinyApp(ui, server)
}
Run the code above in your browser using DataLab