setBlur {shinyEffects} | R Documentation |
Allow to apply a blur effect on a given element.
setBlur(intensity = 2)
intensity |
Blur intensity. |
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(
setBlur(),
fluidRow(blurContainer(boxTag), boxTag)
),
controlbar = dashboardControlbar(),
title = "DashboardPage"
),
server = function(input, output) { }
)
}