Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- UI:
- ui <- fluidPage(
- ,shinyjs:::useShinyjs()
- , other input stuff
- , mainPanel(
- uiOutput("table")
- )
- #)
- )
- Server:
- data <- reactive({
- if(factor){
- output_table <- do whatever makes your table
- } else {
- output_table <- data.frame()
- }
- output_table
- })
- }
- output$table <- renderUI(
- data()
- )
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement