if (interactive()) {
shinyApp(
ui = dashboardPage(
custom_header(
title = "MyLareShiny",
site = "https://github.com/laresbernardo/lareshiny",
font = "Montserrat",
logosrc = "logo.png",
text = Sys.Date()
),
dashboardSidebar(disable = TRUE),
dashboardBody()
),
server = function(input, output) { }
)
}
Run the code above in your browser using DataLab