R Shiny中reactive无数据时plotly图表报错怎么处理？

你提供的代码存在以下核心问题：

• 语法错误：data == data.frame() 是相等判断语句，不是变量赋值，正确赋值应该用<-符号
• 空数据判断逻辑错误：is.na()只能判断单个值是否为缺失值，无法用来判断数据框是否为空，空数据判断应该用nrow(data) == 0或is.null(data)
• 执行逻辑位置错误：数据判断逻辑写在server函数顶层，只会在应用启动时执行一次，无法响应后续数据的动态更新
• tryCatch返回值不符合要求：renderPlotly要求返回合法的plotly对象，返回空字符串仍然会触发渲染报错

可运行的修复后代码 #

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

ui <- fluidPage(
  titlePanel("Hello Shiny!"),
  mainPanel(
    plotlyOutput("toolbar")
  )
)

server <- function(input, output) {
  # 这里替换为你的实际数据获取逻辑，示例先赋值为空数据框
  data <- data.frame()
  proc_bars <- reactiveValues(plot = NULL)
  
  # 模拟数据存在时的绘图逻辑，可替换为你的自有绘图代码
  observe({
    if(nrow(data) > 0) {
      # 示例绘图，替换为你的实际绘图逻辑
      proc_bars$plot <- ggplot(data, aes(x=col1, y=col2)) + geom_col()
    } else {
      proc_bars$plot <- NULL
    }
  })
  
  output$toolbar <- renderPlotly({
    # 前置校验，绘图对象不存在时直接取消输出，不会抛出报错
    req(proc_bars$plot, cancelOutput = TRUE)
    tryCatch(
      expr = {
        plotly::ggplotly(proc_bars$plot)
      },
      error = function(e) {
        # 捕获到报错时返回空白图，无错误提示
        plotly::ggplotly(ggplot() + theme_void())
      }
    )
  })
}

shinyApp(ui, server)

核心实现逻辑 #

• 用shiny::req()函数做前置校验，当绘图对象不存在时直接取消输出，不会抛出报错信息
• tryCatch捕获异常时返回带空白主题的ggplot转plotly对象，符合renderPlotly的返回值要求，只会展示空白图表不会出现报错提示
• 数据判断逻辑写在observe响应式上下文内，支持数据动态更新后的自动重绘

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