Question

我正在一个标签中绘制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

任何帮助？

由于

Answer 1

由于ggvis和rpivottable使用的jQuery版本不同，这是一个知道错误。从Github下载最新版本的ggvis以解决此问题。我目前正在使用以下版本的rpivottable和ggivs，它的工作原理。 ggvis：ggvis_0.4.2.9000 rpivottable：rpivotTable_0.1.5.20

闪亮的ggvis和rpivottable冲突

1 个答案: