ggvis und rpivotable konflikt in Shiny

Question

Ich zeichne ggvis plot in einem tab und erzeuge ein rPivottable in einem anderen tab. Wenn ich beide zu ui.R hinzufügen, kann ich die Pivot-Tabelle nicht generieren.

Unten ist ein Beispielbeispiel.

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) 

Wenn ich den Code takeout

mainPanel(ggvisOutput("myPlot")) 

und legen

mainPanel() 

die Pivot-Tabelle in Ordnung erzeugt wird.

ich die folgenden Versionen verwenden: ggvis_0.4.2 rpivotTable_0.1.5.20

Jede Hilfe?

Dank

Answer 1

Das war ein Know Fehler aufgrund von Unterschieden in der Version von ggvis und rpivottable verwendet jQuery. Laden Sie die neueste Version von ggvis von Github herunter, um das Problem zu beheben. Ich verwende derzeit die folgende Version für rpivotable und ggivs und es funktioniert. ggvis: ggvis_0.4.2.9000 rpivottable: rpivotTable_0.1.5.20