2016-06-10 49 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