if (interactive()) {
library(shiny)
library(shinydashboard)
library(shinydashboardPlus)
shinyApp(
ui = dashboardPage(
header = dashboardHeader(),
sidebar = dashboardSidebar(),
body = dashboardBody(),
controlbar = dashboardControlbar(skinSelector()),
title = "Skin Selector"
),
server = function(input, output) { }
)
}
Run the code above in your browser using DataLab