# NOT RUN {
if (interactive()) {
library(dash)
app <- Dash$new()
app$layout(
htmlDiv(list(
htmlNav(
list(
htmlA("Plotly", href = "https://plotly.com/"),
"> ",
htmlA("Dash", href = "https://plotly.com/dash"),
"> ",
htmlA("Request Trial", href = "https://go.plotly.com/dash-enterprise-trial")
)
)
))
)
app$run_server()
}
# }
Run the code above in your browser using DataLab