# NOT RUN {
if (interactive() && require(dash)) {
library(dash)
library(dashHtmlComponents)
library(dashCoreComponents)
app <- Dash$new()
app$layout(
htmlDiv(
dccRadioItems(
options=list(
list("label" = "New York City", "value" = "NYC"),
list("label" = "Montreal", "value" = "MTL"),
list("label" = "San Francisco", "value" = "SF")
),
value = "MTL"
)
)
)
app$run_server()
}
# }
Run the code above in your browser using DataLab