Nothing
## ----setup, include = FALSE---------------------------------------------------
knitr::opts_chunk$set(
collapse = TRUE,
comment = "#>"
)
## ---- eval = FALSE------------------------------------------------------------
#
# ...
# ### ui body
# dashboardBody(
#
# ### changing theme
# shinyDashboardThemes(
# theme = "blue_gradient"
# )
#
# ### ui tabs
# ,tabItems(
# tabItem(
# ...
#
## ---- eval = FALSE------------------------------------------------------------
#
# ...
# ### ui
# ui <- dashboardPage(
#
# ### ui header
# dashboardHeader(
#
# ### changing logo
# title = shinyDashboardLogo(
# theme = "blue_gradient",
# boldText = "Shiny",
# mainText = "App",
# badgeText = "v1.1"
# )
# ...
#
## ---- eval = FALSE------------------------------------------------------------
#
# ### calling custom theme object in shinydashboard
# ...
# ### ui body
# dashboardBody(
#
# ### changing theme
# customTheme
#
# ### ui tabs
# ,tabItems(
# tabItem(
# ...
#
# ### creating custom theme object
# customTheme <- shinyDashboardThemeDIY(
#
# ### general
# appFontFamily = "Arial"
# ,appFontColor = "rgb(0,0,0)"
# ,primaryFontColor = "rgb(0,0,0)"
# ,infoFontColor = "rgb(0,0,0)"
# ,successFontColor = "rgb(0,0,0)"
# ,warningFontColor = "rgb(0,0,0)"
# ,dangerFontColor = "rgb(0,0,0)"
# ,bodyBackColor = "rgb(248,248,248)"
#
# ### header
# ,logoBackColor = "rgb(23,103,124)"
#
# ,headerButtonBackColor = "rgb(238,238,238)"
# ,headerButtonIconColor = "rgb(75,75,75)"
# ,headerButtonBackColorHover = "rgb(210,210,210)"
# ,headerButtonIconColorHover = "rgb(0,0,0)"
#
# ,headerBackColor = "rgb(238,238,238)"
# ,headerBoxShadowColor = "#aaaaaa"
# ,headerBoxShadowSize = "2px 2px 2px"
#
# ### sidebar
# ,sidebarBackColor = cssGradientThreeColors(
# direction = "down"
# ,colorStart = "rgb(20,97,117)"
# ,colorMiddle = "rgb(56,161,187)"
# ,colorEnd = "rgb(3,22,56)"
# ,colorStartPos = 0
# ,colorMiddlePos = 50
# ,colorEndPos = 100
# )
# ,sidebarPadding = 0
#
# ,sidebarMenuBackColor = "transparent"
# ,sidebarMenuPadding = 0
# ,sidebarMenuBorderRadius = 0
#
# ,sidebarShadowRadius = "3px 5px 5px"
# ,sidebarShadowColor = "#aaaaaa"
#
# ,sidebarUserTextColor = "rgb(255,255,255)"
#
# ,sidebarSearchBackColor = "rgb(55,72,80)"
# ,sidebarSearchIconColor = "rgb(153,153,153)"
# ,sidebarSearchBorderColor = "rgb(55,72,80)"
#
# ,sidebarTabTextColor = "rgb(255,255,255)"
# ,sidebarTabTextSize = 13
# ,sidebarTabBorderStyle = "none none solid none"
# ,sidebarTabBorderColor = "rgb(35,106,135)"
# ,sidebarTabBorderWidth = 1
#
# ,sidebarTabBackColorSelected = cssGradientThreeColors(
# direction = "right"
# ,colorStart = "rgba(44,222,235,1)"
# ,colorMiddle = "rgba(44,222,235,1)"
# ,colorEnd = "rgba(0,255,213,1)"
# ,colorStartPos = 0
# ,colorMiddlePos = 30
# ,colorEndPos = 100
# )
# ,sidebarTabTextColorSelected = "rgb(0,0,0)"
# ,sidebarTabRadiusSelected = "0px 20px 20px 0px"
#
# ,sidebarTabBackColorHover = cssGradientThreeColors(
# direction = "right"
# ,colorStart = "rgba(44,222,235,1)"
# ,colorMiddle = "rgba(44,222,235,1)"
# ,colorEnd = "rgba(0,255,213,1)"
# ,colorStartPos = 0
# ,colorMiddlePos = 30
# ,colorEndPos = 100
# )
# ,sidebarTabTextColorHover = "rgb(50,50,50)"
# ,sidebarTabBorderStyleHover = "none none solid none"
# ,sidebarTabBorderColorHover = "rgb(75,126,151)"
# ,sidebarTabBorderWidthHover = 1
# ,sidebarTabRadiusHover = "0px 20px 20px 0px"
#
# ### boxes
# ,boxBackColor = "rgb(255,255,255)"
# ,boxBorderRadius = 5
# ,boxShadowSize = "0px 1px 1px"
# ,boxShadowColor = "rgba(0,0,0,.1)"
# ,boxTitleSize = 16
# ,boxDefaultColor = "rgb(210,214,220)"
# ,boxPrimaryColor = "rgba(44,222,235,1)"
# ,boxInfoColor = "rgb(210,214,220)"
# ,boxSuccessColor = "rgba(0,255,213,1)"
# ,boxWarningColor = "rgb(244,156,104)"
# ,boxDangerColor = "rgb(255,88,55)"
#
# ,tabBoxTabColor = "rgb(255,255,255)"
# ,tabBoxTabTextSize = 14
# ,tabBoxTabTextColor = "rgb(0,0,0)"
# ,tabBoxTabTextColorSelected = "rgb(0,0,0)"
# ,tabBoxBackColor = "rgb(255,255,255)"
# ,tabBoxHighlightColor = "rgba(44,222,235,1)"
# ,tabBoxBorderRadius = 5
#
# ### inputs
# ,buttonBackColor = "rgb(245,245,245)"
# ,buttonTextColor = "rgb(0,0,0)"
# ,buttonBorderColor = "rgb(200,200,200)"
# ,buttonBorderRadius = 5
#
# ,buttonBackColorHover = "rgb(235,235,235)"
# ,buttonTextColorHover = "rgb(100,100,100)"
# ,buttonBorderColorHover = "rgb(200,200,200)"
#
# ,textboxBackColor = "rgb(255,255,255)"
# ,textboxBorderColor = "rgb(200,200,200)"
# ,textboxBorderRadius = 5
# ,textboxBackColorSelect = "rgb(245,245,245)"
# ,textboxBorderColorSelect = "rgb(200,200,200)"
#
# ### tables
# ,tableBackColor = "rgb(255,255,255)"
# ,tableBorderColor = "rgb(240,240,240)"
# ,tableBorderTopSize = 1
# ,tableBorderRowSize = 1
#
# )
#
#
## ---- eval = FALSE------------------------------------------------------------
#
# ### calling custom logo object in shinydashboard
# ...
# ### ui
# ui <- dashboardPage(
#
# ### ui header
# dashboardHeader(
#
# ### changing logo
# title = customLogo
# ...
#
# ### creating custom logo object
# customLogo <- shinyDashboardLogoDIY(
#
# boldText = "SD"
# ,mainText = "Themes"
# ,textSize = 16
# ,badgeText = "v1.1"
# ,badgeTextColor = "white"
# ,badgeTextSize = 2
# ,badgeBackColor = "#40E0D0"
# ,badgeBorderRadius = 3
#
# )
#
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.