ggvis 和 rpivottable 在 Shiny 中的冲突

Question

我在一个选项卡中绘制 ggvis 图并在另一个选项卡中生成 rPivottable。如果我将两者都添加到 ui.R，我将无法生成 Pivot table。

下面是示例。

app <- shinyApp(ui = fluidPage(navbarPage("v0.5",
                               tabPanel("Report",sidebarLayout(
                                 sidebarPanel(actionButton("bbutton","Generate Report")),
                                 mainPanel(rpivotTableOutput("myPivot"),verbatimTextOutput("mytext")))),
                               tabPanel("PLOT",sidebarLayout(
                                 sidebarPanel(actionButton("cButton","Plot")),#mainPanel()
                                 mainPanel(ggvisOutput("myPlot"))
                               )
                               )

)),
  server = function(input,output){
    observe({
      input$bbutton

      output$mytext <- renderText("Hello There")
      #mydata <- getPivotTableData()
      mydata <- mtcars


      output$myPivot <- renderRpivotTable({
        rpivotTable(data = mydata)
      })

    })
  }
)

runApp(app)

如果我把代码拿出来

mainPanel(ggvisOutput("myPlot"))

并插入

mainPanel()

主元 table 生成得很好。

我正在使用以下版本： ggvis_0.4.2 rpivotTable_0.1.5.20

有什么帮助吗？

谢谢

Answer 1

由于 ggvis 和 rpivottable 使用的 jQuery 版本不同，这是一个已知错误。从 Github 下载最新版本的 ggvis 以解决问题。我目前正在为 rpivottable 和 ggivs 使用以下版本并且它有效。 ggvis: ggvis_0.4.2.9000 可旋转：rpivotTable_0.1.5.20

ggvis 和 rpivottable 在 Shiny 中的冲突

ggvis and rpivottable conflict in Shiny

r

shiny

ggvis

rpivottable