请求将含时间依赖数据的绘图逻辑转换为Shiny响应式表达式

原来的代码用while(TRUE)循环在Shiny里是行不通的——因为Shiny的server端是响应式事件驱动的，这种无限循环会直接阻塞整个应用，导致界面卡死。我们需要用Shiny的响应式状态管理和定时失效机制来实现同样的逐点绘图效果，同时结合你提到的响应式表达式处理输入变化。

下面是适配后的完整代码：

library(shiny)

ui <- fluidPage(
  sidebarLayout(
    sidebarPanel(
      checkboxGroupInput("checkGroup", label = h3("Checkbox group"),
                         choices = list("Choice 1" = 1), selected = 1)
    ),
    mainPanel(
      plotOutput("plot_Choice1")
    )
  )
)

server <- function(input, output) {
  # 用reactiveValues存储需要跨更新保留的状态变量
  plot_state <- reactiveValues(
    x.v = c(1),
    i = 2,
    time = round(unname(proc.time()[3]), 2),
    y = seq(from = 1, to = 70, length.out = 30)
  )
  
  output$plot_Choice1 <- renderPlot({
    req(input$checkGroup)
    # 只有当复选框选中时才运行绘图逻辑
    if (any(input$checkGroup == 1)) {
      # 每隔0.1秒触发一次重新渲染，模拟定时更新
      invalidateLater(100)
      
      # 检查是否满足停止条件
      if (length(plot_state$x.v) < length(plot_state$y)) {
        current_time <- round(unname(proc.time()[3]), 2)
        # 时间差达到0.1秒时更新数据
        if (current_time - plot_state$time >= 0.1) {
          plot_state$time <- current_time
          plot_state$x.v <- c(plot_state$x.v, plot_state$i)
          plot_state$i <- plot_state$i + 1
        }
      }
      
      # 绘制基础画布和当前的线条
      plot(0, 0, col = "white", type = "l", xlim = c(0, 120), ylim = c(0, 90))
      if (length(plot_state$x.v) >= 2) {
        lines(plot_state$x.v, plot_state$y[seq_along(plot_state$x.v)])
      } else {
        # 第一个点单独绘制
        points(plot_state$x.v, plot_state$y[1])
      }
    } else {
      # 复选框未选中时，重置状态并显示空白图
      plot_state$x.v <- c(1)
      plot_state$i <- 2
      plot_state$time <- round(unname(proc.time()[3]), 2)
      plot(0, 0, col = "white", type = "l", xlim = c(0, 120), ylim = c(0, 90))
    }
  })
}

shinyApp(ui = ui, server = server)

关键改动说明： #

• 用reactiveValues保存状态：普通变量在renderPlot每次重新执行时会被重置，而reactiveValues里的变量可以在多次渲染之间保留值，这是实现动态更新的核心。我们把x.v、i、time和y都放到这里面。
• 用invalidateLater替代while循环：invalidateLater(100)会告诉Shiny每隔100毫秒（0.1秒）重新执行一次renderPlot，模拟了原循环的定时检查逻辑，同时不会阻塞应用。
• 响应式处理输入：当复选框被取消选中时，我们重置plot_state的状态并显示空白图；选中时继续逐点绘制，完美呼应「数据变化时更新」的需求。
• 绘图逻辑优化：第一次只有单个点时用points绘制，后续用lines连接所有已有的点，确保绘图效果和原代码一致。

这样修改后，你的Shiny应用就能实现和原代码一样的逐点动态绘图效果，同时符合Shiny的响应式编程模型，不会出现阻塞或更新失败的问题。

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