using ggforce paginated figures with ggplotly

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)

Bắt đầu bằng cách chạy ứng dụng Shiny được cung cấp và so sánh đầu ra của renderPlot với renderPlotly và ggplotly bằng cách sử dụng facet_wrap_paginate(page = 2). Theo dõi cách các thiết lập facet được phân trang được xử lý trong quá trình chuyển đổi sang Plotly, và coi issue là hoàn tất khi đầu ra Plotly chỉ hiển thị trang facet được yêu cầu.