# NOT RUN {
if (interactive()) {
app <- dash_app()
app %>% set_layout(
html$div(
h1(
"title",
style = list(
"color" = "red",
"backgroundColor" = "blue"
)
),
"some text",
button(
"can't click me",
disabled = NA,
className = "mybtn"
)
)
)
app %>% run_app()
}
# }
Run the code above in your browser using DataLab