向R包rpivotTable的rpivotTable()添加Plotly渲染器遇问题求助

Let's sort out why your Plotly renderer isn't working with rpivotTable—the issue comes down to missing a critical script dependency and incorrect configuration of the renderers parameter. Here's the step-by-step fix:

Key Issues in Your Original Code #

• You only loaded the core Plotly library, but the PivotTable.js Plotly renderer plugin is also required
• The renderers parameter expects a merged renderer object, not a standalone extension statement

Corrected Shiny App Code #

library(rpivotTable)
library(shiny)

server <- function(input, output){
  output$mypivot = renderRpivotTable({
    rpivotTable(
      data = Titanic,
      # Merge default renderers with Plotly renderers and pass as the renderers argument
      renderers = htmlwidgets::JS("$.extend({}, $.pivotUtilities.renderers, $.pivotUtilities.plotly_renderers)"),
      # Use the Plotly-specific renderer name (note the "Plotly " prefix)
      rendererName = "Plotly Horizontal Stacked Bar Chart"
    )
  })
}

ui <- shinyUI(fluidPage(
  tags$head(
    # Load core Plotly library
    tags$script(src = "https://cdn.plot.ly/plotly-latest.min.js"),
    # Load the dedicated PivotTable.js Plotly renderer plugin
    tags$script(src = "https://cdn.jsdelivr.net/npm/pivottable@2.23.0/dist/pivot.plotly.min.js")
  ),
  rpivotTableOutput("mypivot")
))

shinyApp(ui = ui, server = server)

What Changed & Why #

1. Added the Plotly Renderer Plugin: The core Plotly library doesn't include integration code for PivotTable.js. Loading pivot.plotly.min.js makes the $.pivotUtilities.plotly_renderers object available for use.
2. Fixed the renderers Parameter: Instead of running $.extend as a standalone command, we return a new merged object that combines default renderers and Plotly renderers. This matches what rpivotTable expects for the renderers argument.
3. Updated rendererName: Plotly renderers add a "Plotly " prefix to their names to avoid conflicts with default renderers. Using the correct name ensures the app uses the Plotly-powered version of the chart, complete with interactive features like zoom and hover tooltips.

Test this code, and you should see the interactive Plotly chart render as expected!

内容的提问来源于stack exchange，提问作者Andreas Kitsche