在 R 闪亮的闪亮 BS 弹出窗口中插入数据透视表

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