# NOT RUN {
if (interactive()) {
library(dash)
app <- Dash$new()
app$layout(
htmlDiv(list(
htmlLabel(
htmlFor = "option-select", "Please select car brand/model: "
),
htmlSelect(id = "option-select", list(
htmlOptgroup("Audi"), #label = "Audi"
htmlOption("TT"),
htmlOption("A4"),
htmlOptgroup("BMW"), #label = "BMW"
htmlOption("3 Series"),
htmlOption("5 Series")
))
))
)
app$run_server()
}
# }
Run the code above in your browser using DataLab