Вставка сводной таблицы в глянцевый BBS popover в R блестящий

Question

Данный R блестящий скрипт создает всплывающее окно на основе нажатия кнопки, в которой отображается текст.

library(shiny)
library(shinyBS)
CR1_BS<-paste("i. This is line 1",
          "ii. This is line 2",
          "iii. This is line 3", sep = "<br>")
 ui <- fluidPage(
 actionButton("CR1_S1", "Button"),
 bsPopover(id="CR1_S1",title="x",content=CR1_BS ,"right",options = 
 list(container = "body")))

 server <- function(input, output){}
 shinyApp(ui, server)

Мое требование состоит в том, чтобы соответствовать приведенной ниже rpivotTable во всплывающем окне после нажатия кнопки.

 library(rpivotTable)
 rpivotTable(mtcars,rows="gear",cols = c("cyl","carb"),width = "100%", 
 height = "400px")

Answer 1

Как то так сделать?

rm(list = ls())
library(shiny)
library(shinyBS)
library(rpivotTable)

shinyApp(
  ui =
    fluidPage(
      sidebarLayout(
        sidebarPanel(actionButton("CR1_S1", "Button")),
        mainPanel(
          bsModal("modalExample", "Your Table", "CR1_S1", size = "large",rpivotTableOutput("test"))
        )
      )
    ),
  server =
    function(input, output, session) {

      output$test <- rpivotTable::renderRpivotTable({
        rpivotTable(mtcars,rows="gear",cols = c("cyl","carb"),width = "100%", height = "400px")
      })
    }
)