# NOT RUN {
if (interactive()) {
library(dash)
app <- Dash$new()
app$layout(
htmlDiv(
htmlLabel(
list(htmlDiv(list("Time points")),
dccInput(
id = "times-input",
placeholder = "Enter a value...",
type = "number",
value = 1,
min = 3,
max = 999)
)
)
)
)
app$run_server()
}
# }
Run the code above in your browser using DataLab