use_spoiler {spoiler}

Use Spoiler-alert

Description

Load Spoiler-alert dependencies, mark some elements as spoilers, and define the blurring intensity for these elements.

Usage

use_spoiler()

spoiler(ui_element)

hide_spoilers(max = 10, partial = 4)

Arguments

ui_element

Element to blur

max

Blurring intensity of the element by default

partial

Blurring intensity when hovering the element

Examples

if (interactive()) {
  library(shiny)
  library(spoiler)

  # works better in browser

  ui <- fluidPage(
    # Load dependencies
    use_spoiler(),
    column(
      3,
      p("this text can be seen"),
      spoiler(p("this one can't be seen")) # This text will be blurred
    ),
    hide_spoilers()
  )

  server <- function(input, output, session) {}

  shinyApp(ui, server)
}