rpivotTable на блестящем сервере не работает

Question

Я пытаюсь запустить блестящее приложение, включая rpivottable.

мой конфиг: DevTools 1.8.0, 0.4.2 htmlwidgets, rpivotTable 0.1.4.1, блестящие 0.12.0

R версии 3.1.2 (2014-10-31)

Ubuntu 14,04. 1 LTS

Мой код работает отлично локально, но сбой на сервере. В браузере, я получаю эту ошибку на консоли:

TypeError: х не определено

И ссылки на этот код:

HTMLWidgets.widget({ 

    name: 'rpivotTable', 

    type: 'output', 

    initialize: function(el, width, height) { 

     return {} 

    }, 

    renderValue: function(el, x, instance) { 
     x.data = HTMLWidgets.dataframeToD3(x.data); 

     var derivers = $.pivotUtilities.derivers; 
     var tpl = $.pivotUtilities.aggregatorTemplates; 

     x.params.renderers = $.extend(
     $.pivotUtilities.renderers, 
     $.pivotUtilities.d3_renderers, 
     $.pivotUtilities.c3_renderers 
    ); 


     $('#'+el.id).pivotUI(
      x.data, x.params 
    ); 

    }, 

    resize: function(el, width, height, instance) { 

    } 

}); 

Мой R код выглядит следующим образом:

if (interactive()) { lib.path <- my.path.local 
} else { lib.path <- my.path.server } 

### packages ### 
library(shiny, lib.loc = lib.path) 
library(htmlwidgets, lib.loc = lib.path) 
library(rpivotTable, lib.loc = lib.path) 

data <- data.frame(var1 = c("mod1", "mod2"), value = c(1, 2)) 

shinyApp(
    ui = fluidPage(
    sidebarLayout(
     sidebarPanel(
    textOutput("config"), textOutput("path"), textOutput("version")) 
    , mainPanel(
    rpivotTableOutput("test") 
    ) 
    )), 

    server = function(input, output) { 
     output$test <- rpivotTable::renderRpivotTable({ 
     rpivotTable(data = data) 
     }) 

    output$config <- renderText({ 
     tt <- installed.packages() 
    paste(paste(tt[tt[, 1] %in% c("shiny", "htmlwidgets", "rpivotTable", "devtools") , 1], 
       tt[tt[, 1] %in% c("shiny", "htmlwidgets", "rpivotTable", "devtools") , 3]), collapse = ", ") 
    }) 

    output$path <- renderText({ 
     ll <- .libPaths() 
     ll 
    }) 

    output$version <- renderText({ 
     ss <- sessionInfo() 
     ss[[1]]$version.string 
    }) 

    } 
) 

Неужели кто-то уже встретил эту ошибку?

лучше,

Answer 1

пример функциональный.

лучше написано:

library(shiny) 
library(rpivotTable) 

data <- data.frame(var1 = c("mod1", "mod2"), value = c(1, 2)) 

shinyApp(
    ui = fluidPage(
    sidebarLayout(
     sidebarPanel(mainPanel(
    rpivotTableOutput("test") 
    ) 
    )), 

    server = function(input, output) { 
     output$test <- rpivotTable::renderRpivotTable({ 
     rpivotTable(data = data) 
     }) 

    } 
) 

Answer 2

YCR: Не имею комментарий но вы рабочий пример Блестящая + rpivotTable поделиться?

На самом деле - ЭТО РАБОТАЮЩИЙ пример.

Спасибо за обмен.