svglite，svgPanZoom 无法在 R 中绘制

Question

根据How to display scatter plot with R Packages:svgPanZoom? 的帖子，我尝试在 R 闪亮中复制可缩放的图。有人可以帮我写代码吗？为什么我不能重现这段代码？

library(shiny)
library(svglite)
library(svgPanZoom)


# Define UI ----
ui <- shinyUI(bootstrapPage(
    # App title ----
  headerPanel("Cyl vtree"),
  
    
 # Main panel for displaying outputs ----
  svgPanZoom(
    svglite:::inlineSVG(
      show(p)
    ),
    controlIconsEnabled = T
  )
  
))

# Define server logic to plot ----
server <- function(input, output) {
  output$main_plot <- renderSvgPanZoom({
    p <- ggplot(mtcars, aes(x = cyl, y = mpg)) + geom_point()
    svgPanZoom(p, controlIconsEnabled = T)
  })
}

shinyApp(ui, server)

Answer 1

1. 您的 UI 中缺少 svgPanZoomOutput 以将 svgpanzoom 绑定到闪亮
2. 您在 UI 中使用了 svgPanZoom，它只属于服务器中的 renderSvgPanZoom
3. 它以任何一种方式工作 - 使用 this solution 或只是来自 ?svgPanZoom 的基本示例

library(shiny)
library(svglite)
library(svgPanZoom)
library(ggplot2)
library(gridSVG)

# Define UI ----
ui <- shinyUI(bootstrapPage(
  # App title ----
  headerPanel("Cyl vtree"),
  
  
  # Main panel for displaying outputs ----
  svgPanZoomOutput(outputId = "main_plot")
  
  
))

# Define server logic to plot ----
server <- function(input, output) {
  output$main_plot <- renderSvgPanZoom({
    p <- ggplot(mtcars, aes(x = cyl, y = mpg)) + geom_point()

    svgPanZoom(p, controlIconsEnabled = T)
  })
}

shinyApp(ui, server)