shiny
htmltools
req()
seq()
on.exit()
observe()
isolate
observeEvent
eventReactive
reactiveTimer()
invalidateLater(ms)
git
if
output$out <- renderText({ a <- input$a b <- input$b if (input$choice == "a") { a } else { b } })