if (interactive()) {
library(shiny)
library(shinydashboard)
library(shinydashboardPlus)
library(fresh)
shinyApp(
ui = dashboardPage(
freshTheme = create_theme(
adminlte_color(
light_blue = "#55e7ff",
blue = "#2011a2",
navy = "#201148",
red = "#ff34b3"
),
adminlte_sidebar(
dark_bg = "#D8DEE9",
dark_hover_bg = "#81A1C1",
dark_color = "#2E3440"
),
adminlte_global(
content_bg = "#FFF",
box_bg = "#D8DEE9",
info_box_bg = "#D8DEE9"
)
),
options = list(sidebarExpandOnHover = TRUE),
header = dashboardHeader(),
sidebar = dashboardSidebar(),
body = dashboardBody(
box(background = "red"),
box(background = "blue"),
box(background = "navy")
),
controlbar = dashboardControlbar(),
title = "DashboardPage"
),
server = function(input, output) { }
)
}
Run the code above in your browser using DataLab