Description Usage Arguments Examples
This replaces the shinyBS popover feature that is not compatible with Bootstrap 4
1 2 3 4 5 6 7 | bs4PopoverServer(
target,
content,
title,
placement = c("top", "bottom", "left", "right"),
session
)
|
target |
Popover target. |
content |
Popover content. |
title |
Popover title. |
placement |
Popover placement: "top", "bottom", "left" or "right". |
session |
Shiny session object. |
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 30 | if (interactive()) {
library(shiny)
library(bs4Dash)
shiny::shinyApp(
ui = bs4DashPage(
enable_preloader = TRUE,
navbar = bs4DashNavbar(),
sidebar = bs4DashSidebar(),
controlbar = bs4DashControlbar(),
footer = bs4DashFooter(),
title = "test",
body = bs4DashBody(
actionButton("goButton", "Show popover!"),
actionButton("goButton2", "You can't see me first!")
)
),
server = function(input, output, session) {
observeEvent(input$goButton, {
bs4PopoverServer(
session = session,
target = "goButton2",
content = "Vivamus sagittis lacus vel augue laoreet rutrum faucibus.",
title = "Server popover",
placement = "bottom"
)
})
}
)
}
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.