bs4PopoverServer: Create a Bootstrap 4 Popover from the server side

Description Usage Arguments Examples

View source: R/feedbacks.R

Description

This replaces the shinyBS popover feature that is not compatible with Bootstrap 4

Usage

1
2
3
4
5
6
7
bs4PopoverServer(
  target,
  content,
  title,
  placement = c("top", "bottom", "left", "right"),
  session
)

Arguments

target

Popover target.

content

Popover content.

title

Popover title.

placement

Popover placement: "top", "bottom", "left" or "right".

session

Shiny session object.

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
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"
      )
    })
  }
 )
}

RX-PBB/bs4Mash documentation built on April 11, 2020, 12:15 a.m.