shiny
htmltools
req()
seq()
on.exit()
observe()
isolate
observeEvent
eventReactive
reactiveTimer()
invalidateLater(ms)
git
How could you change the return value of randomUI() to make the display more attractive?
ui <- page_fluid( layout_column_wrap( width = 1/2, height = 450, randomUI("num1", "Number 1"), randomUI("num2", "Number 2"), randomUI("num3", "Number 3"), randomUI("num4", "Number 4") ) )