bs4CardSidebar | R Documentation |
To insert in the sidebar slot of box.
bs4CardSidebar( ..., id = NULL, width = 50, background = "#333a40", startOpen = FALSE, icon = shiny::icon("cogs"), easyClose = TRUE ) updatebs4CardSidebar(id, session = shiny::getDefaultReactiveDomain()) cardSidebar( ..., id = NULL, width = 50, background = "#333a40", startOpen = FALSE, icon = shiny::icon("cogs"), easyClose = TRUE ) boxSidebar( ..., id = NULL, width = 50, background = "#333a40", startOpen = FALSE, icon = shiny::icon("cogs"), easyClose = TRUE ) updateCardSidebar(id, session = shiny::getDefaultReactiveDomain()) updateBoxSidebar(id, session = shiny::getDefaultReactiveDomain())
... |
Sidebar content. |
id |
Card sidebar id. |
width |
Sidebar opening width in percentage. 50% by default, means the card sidebar will take 50 A numeric value between 25 and 100. |
background |
Sidebar background color. Dark by default. |
startOpen |
Whether the sidebar is open at start. FALSE by default. |
icon |
Sidebar icon. Expect |
easyClose |
Whether to close sidebar on click outside. Default to TRUE. |
session |
Shiny session object. |
Other boxWidgets:
attachmentBlock()
,
bs4CardLabel()
,
bs4Carousel()
,
bs4SocialCard()
,
bs4Timeline()
,
cardDropdown()
,
cardProfile()
,
descriptionBlock()
,
userPost()
# Toggle a box sidebar if (interactive()) { library(shiny) library(bs4Dash) shinyApp( ui = dashboardPage( header = dashboardHeader(), body = dashboardBody( box( title = "Update box sidebar", closable = TRUE, width = 12, height = "500px", solidHeader = FALSE, collapsible = TRUE, actionButton("update", "Toggle card sidebar"), sidebar = boxSidebar( id = "mycardsidebar", p("Sidebar Content") ) ) ), sidebar = dashboardSidebar() ), server = function(input, output, session) { observe(print(input$mycardsidebar)) observeEvent(input$update, { updateBoxSidebar("mycardsidebar") }) } ) }
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.