Allow to apply a shadow on a given element.
setShadow(id = NULL, class = NULL)
id | Use this argument if you want to target an individual element. |
---|---|
class | The element to which the shadow should be applied. For example, class is set to box. |
if (interactive()) { library(shiny) library(shinydashboard) library(shinydashboardPlus) library(shinyEffects) boxTag <- box( title = "A box", status = "warning", solidHeader = FALSE, collapsible = TRUE, p("Box Content") ) shinyApp( ui = dashboardPage( header = dashboardHeader(), sidebar = dashboardSidebar(), body = dashboardBody( setShadow(class = "box"), setShadow(id = "my-progress"), tags$h2("Add shadow to the box class"), fluidRow(boxTag, boxTag), tags$h2("Add shadow only to the first element using id"), tagAppendAttributes( progressBar( value = 10, striped = TRUE, animated = TRUE, vertical = TRUE ), id = "my-progress" ), progressBar( value = 50, status = "warning", size = "xs", ) ), controlbar = dashboardControlbar(), title = "DashboardPage" ), server = function(input, output) { } ) }