if (interactive()) {
library(shiny)
library(shinydashboard)
ui <- dashboardPage(
header = dashboardHeader(title = "My dashboard"),
sidebar = dashboardSidebar(),
body = dashboardBody(
use_theme(create_theme(
adminlte_global(
content_bg = "#FAAC58"
)
))
)
)
server <- function(input, output, session) {
}
shinyApp(ui, server)
}
Run the code above in your browser using DataLab