0

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

下面是一个示例。

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()

数据透视表生成得很好。

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

有什么帮助吗？

谢谢

4

1 回答 1

0

这是一个已知的错误，因为 ggvis 和 rpivottable 使用的 jQuery 版本不同。从 Github 下载最新版本的 ggvis 以解决该问题。我目前正在为 rpivottable 和 ggivs 使用以下版本，它可以工作。ggvis: ggvis_0.4.2.9000 可透视表: rpivotTable_0.1.5.20

于 2016-06-13T18:07:13.047 回答