setBlur: Custom blur animation

Description Usage Arguments Examples

View source: R/setBlur.R

Description

Allow to apply a blur effect on a given element.

Usage

1
setBlur(intensity = 2)

Arguments

intensity

Blur intensity.

Examples

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 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) { }
  )
}

DivadNojnarg/shinyEffects documentation built on May 18, 2021, 7:09 p.m.