ggvis и rpivottable conflict in Shiny

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

Это ноу ошибка из-за разницы в версии JQuery, используемой ggvis и rpivottable. Загрузите последнюю версию ggvis от Github для решения проблемы. В настоящее время я использую следующую версию для rpivottable и ggivs, и она работает. ggvis: ggvis_0.4.2.9000 rpivottable: rpivotTable_0.1.5.20