using ggforce paginated figures with ggplotly

首先运行提供的 Shiny 应用，并使用 facet_wrap_paginate(page = 2) 将 renderPlot 的输出与 renderPlotly 和 ggplotly 进行比较。跟踪分页 facet 设置在 Plotly 转换中的处理方式，并在 Plotly 输出仅显示所请求的 facet 页面时认为该 issue 已完成。

Hello, I'm currently trying to use ggforce::facet_wrap_paginate to take figures with many facets and chop them up to make them easier for folks to view in a Shiny App. I can render these with ggplot just fine, but when I try to use poorly it just puts all of the facets on the same figure. The code below reproduces the problem, and the output I see shown as well. The figure on the top is paginated ggplot output and the one below is the paginated plotly output.

Any help would be most appreciated.

library(plotly)
library(ggplot2)
library(ggforce)


ui <- fluidPage(
  plotOutput("page2_ggplot"),
  tags$br(),
  plotly::plotlyOutput("page2_ggplotly")
)

server <- function(input, output) {
  
  tmpds = diamonds[1:1000,]

  output$page2_ggplot   = renderPlot({
    p = ggplot(tmpds) +
      geom_point(aes(carat, price), alpha = 0.1) +
      facet_wrap_paginate(~ cut:clarity, ncol = 3, nrow = 3, page = 2)
    
    res = p
  res})
  
  output$page2_ggplotly   = plotly::renderPlotly({
    p = ggplot(tmpds) +
      geom_point(aes(carat, price), alpha = 0.1) +
      facet_wrap_paginate(~ cut:clarity, ncol = 3, nrow = 3, page = 2)
    res = plotly::ggplotly(p)
  res})
}

# Run the application 
shinyApp(ui = ui, server = server)