R Shiny：点击Plotly后条件渲染表格并切换变量的实现问题

你的核心问题是把点击事件的逻辑处理和表格渲染耦合在了一起，修改count后会触发两个renderTable反复执行，导致循环。正确的做法是将事件处理和UI渲染分离，用observeEvent单独处理点击逻辑，renderTable只负责展示数据。

修正后的代码 #

library(ggplot2)
library(plotly)
library(shiny)

df <- data.frame(x = seq(1:10), y = sample(1:20, 10))

ui <- fluidPage(
  plotlyOutput("plot"),
  column(6, tableOutput("dataTable")),
  column(6, tableOutput("dataTable2"))
)

server <- function(input, output, session) {
  output$plot <- renderPlotly({
    df %>% 
      ggplot(aes(x = x, y = y)) + 
      geom_point() %>% 
      ggplotly()
  })
  
  # 用reactiveValues统一管理响应式状态：计数和两个存储数据框
  rv <- reactiveValues(
    count = 1,
    d_save = data.frame(),
    d_save2 = data.frame()
  )
  
  # 单独监听plotly点击事件，处理数据追加逻辑
  observeEvent(event_data("plotly_click"), {
    click_data <- event_data("plotly_click")
    # 根据count奇偶性决定追加到哪个表格
    if (rv$count %% 2 == 1) {
      rv$d_save <- rbind(rv$d_save, click_data[2:4])
    } else {
      rv$d_save2 <- rbind(rv$d_save2, click_data[2:4])
    }
    # 更新计数，准备下一次点击
    rv$count <- rv$count + 1
  })
  
  # 表格1只负责展示数据
  output$dataTable <- renderTable({
    rv$d_save
  })
  
  # 表格2只负责展示数据
  output$dataTable2 <- renderTable({
    rv$d_save2
  })
}

shinyApp(ui, server)

关键改动说明 #

• 状态统一管理：把count、d_save、d_save2都放进reactiveValues，避免使用全局变量（全局变量在多用户场景下会串数据），同时保证状态变化能触发响应式更新。
• 逻辑与渲染分离：用observeEvent单独处理点击事件，每次点击只执行一次数据追加和计数更新，不会因为count变化触发重复处理。
• 渲染只做展示：renderTable仅返回对应的数据框，不包含任何业务逻辑，避免因状态变化导致的循环触发。

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