input

[earowang]

• vega inputs: input_*()
• shiny reactive inputs

[earowang]

# slider <- input_slider(1:10, min, max, step, init)
# bind = c(Year = slider)
# init = c(Cycliners = 4, Year = 1977)
# init = list(x = c(55, 160), y = c(13, 37))

[earowang]

Done.