Guest User

Untitled

a guest
Dec 14th, 2017
69
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.36 KB | None | 0 0
  1. ui1<-fluidrow(...)
  2. ui2<-fluidrow(...)
  3.  
  4. shinyUI <- function(ui) {
  5.  
  6. fluidPage(
  7. conditionalPanel(
  8. condition = "output.logged=='TRUE'",
  9. ui2),
  10. conditionalPanel(
  11. condition = "!output.logged",
  12. ui1)
  13. )
  14. }
  15.  
  16. output$logged<- reactive({
  17. print(value)
  18. value
  19. })
  20. outputOptions(output, "logged", suspendWhenHidden = FALSE)
Add Comment
Please, Sign In to add comment