Shiny移动端无法通过ggplot选点生成表格问题求助

问题根源在于默认的brush配置未启用触摸支持，移动端的触摸操作无法触发刷选事件，导致brushedPoints无数据输出，表格无法生成。

修改方案 #

在plotOutput的brush参数中，使用brushOpts显式开启触摸支持：

ui <- fluidPage(
  plotOutput("plot", brush = brushOpts(id = "plot_brush", touch = TRUE)),
  tableOutput("data")
)
server <- function(input, output, session) {
  output$plot <- renderPlot({
    ggplot(mtcars, aes(wt, mpg)) + geom_point()
  }, res = 96)
  
  output$data <- renderTable({
    brushedPoints(mtcars, input$plot_brush)
  })
}

补充说明 #

• touch = TRUE会让Shiny监听移动端的触摸刷选事件，与桌面端鼠标刷选行为保持一致。
• 若需调整触摸刷选的响应延迟等细节，可在brushOpts中添加delay参数，例如brushOpts(id = "plot_brush", touch = TRUE, delay = 100)。

内容的提问来源于stack exchange，提问作者V A