inst/doc/extra-elements.R

In bs4Dash: A 'Bootstrap 4' Version of 'shinydashboard'

## ----setup, include=FALSE-----------------------------------------------------
library(bslib)
knitr::opts_chunk$set(echo = TRUE)

## ----accordions-code, eval=TRUE, echo=FALSE-----------------------------------
card(
  bs4Dash:::create_link_iframe(bs4Dash:::shinylive_links["inst/examples/vignettes-demos/accordions"]),
  full_screen = TRUE,
  style = "margin: 0 auto; float: none;"
)

## ----message-code, eval=FALSE-------------------------------------------------
#  list(
#    author = "David",
#    date = "Now",
#    image = "https://i.pinimg.com/originals/f1/15/df/f115dfc9cab063597b1221d015996b39.jpg",
#    type = "received",
#    text = tagList(
#      sliderInput(
#        "obs",
#        "Number of observations:",
#        min = 0,
#        max = 1000,
#        value = 500
#      ),
#      plotOutput("distPlot")
#    )

## ----chat-code, eval=TRUE, echo=FALSE-----------------------------------------
card(
  bs4Dash:::create_link_iframe(bs4Dash:::shinylive_links["inst/examples/vignettes-demos/userMessages"]),
  full_screen = TRUE,
  style = "margin: 0 auto; float: none;"
)