4

我想将 Plotly 图表渲染器添加到rpivotTable()R 包rpivotTable中的函数。我按照Javascript Pivot Table Wiki 中的说明添加了可选的额外渲染器。不幸的是，遵循这些说明将导致默认行为。也许我将 Java 代码分配给了错误的参数。

这是一个小例子：

library(rpivotTable)
library(shiny)

server <- function(input, output){

  output$mypivot = renderRpivotTable({
    rpivotTable(
      Titanic,
      renderers = htmlwidgets::JS("$.extend($.pivotUtilities.renderers,
            $.pivotUtilities.plotly_renderers)"),
      rendererName = "Horizontal Stacked Bar Chart"
    )
  })
}
ui <- shinyUI(fluidPage(
  tags$head(tags$script(src = "https://cdn.plot.ly/plotly-latest.min.js")),
  rpivotTableOutput("mypivot"))
)

shinyApp(ui = ui, server = server)
4

0 回答 0