# NOT RUN {
if (interactive()) {
library(dash)
app <- Dash$new()
app$layout(htmlDiv(list(
dccInput(
placeholder = 'Enter here',
list = 'list-of-options'),
htmlDatalist(id = 'list-of-options',
children=list(
htmlOption("Option 1"),
htmlOption("Option 2"),
htmlOption("Option 3")
)
)
)
)
)
app$run_server()
}
# }
Run the code above in your browser using DataLab