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