Advertisement
Guest User

Untitled

a guest
Oct 15th, 2019
93
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.38 KB | None | 0 0
  1. UI:
  2.  
  3. ui <- fluidPage(
  4. ,shinyjs:::useShinyjs()
  5. , other input stuff
  6. , mainPanel(
  7. uiOutput("table")
  8. )
  9. #)
  10. )
  11.  
  12. Server:
  13. data <- reactive({
  14. if(factor){
  15. output_table <- do whatever makes your table
  16. } else {
  17. output_table <- data.frame()
  18. }
  19. output_table
  20. })
  21. }
  22. output$table <- renderUI(
  23. data()
  24. )
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement