2016-06-10 29 views
0

我在一个选项卡中绘制ggvis图并在另一个选项卡中生成一个rPivottable。 如果我同时添加到ui.R,我无法生成数据透视表。ggvis和rpivottable在Shiny中的冲突

下面是一个示例。

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

任何帮助吗?

感谢

回答

0

这是一个知道是不是BUG由于通过ggvis和rpivottable使用jQuery的版本差异。从Github下载最新版本的ggvis来解决问题。我目前使用rpivottable和ggivs的下列版本,它的工作原理。 ggvis:ggvis_0.4.2.9000 rpivottable:rpivotTable_0.1.5.20

+0

正确。在htmlwidgets之间,ggvis和rpivottable的冲突产生于不同的jqueryui(实际的罪魁祸首)组件,目前没有最终的解决方案(它必须基于htmlwidgets)。使用ggvis的最新github版本和rpivotTable的CRAN版本都可以。请让我知道(在github上)是否/何时我们会再次发生分歧。 – Enzo