如何在Shiny中检测缺失值并显示警告且正常绘制散点图？

要实现检测数据缺失值并显示警告、同时正常生成散点图的功能，你可以用Shiny的showNotification()函数替代req()的中断逻辑，具体修改如下：

修改后的完整代码 #

library(shiny)
library(datasets)

ui <- shinyUI(fluidPage(
  titlePanel("Column Plot"),
  tabsetPanel(
    tabPanel("Upload File",
             titlePanel("Uploading Files"),
             sidebarLayout(
               sidebarPanel(
                 fileInput('file1', 'Choose CSV File',
                           accept=c('text/csv', 
                                    'text/comma-separated-values,text/plain', 
                                    '.csv')),
                 checkboxInput('header', 'Header', TRUE),
                 radioButtons('sep', 'Separator',
                              c(Comma=',',
                                Semicolon=';',
                                Tab='\t'),
                              ','),
                 radioButtons('quote', 'Quote',
                              c(None='',
                                'Double Quote'='"',
                                'Single Quote'="'"),
                              '"')
               ),
               mainPanel(
                 tableOutput('datainput')
               )
             )
    ),
    tabPanel("Scatterplot",
             pageWithSidebar(
               headerPanel('Scatterplot'),
               sidebarPanel(
                 # User selected columns
                 selectInput('xcol', 'X', ""),
                 selectInput('ycol', 'Y', "", selected = "")
               ),
               mainPanel(
                 plotOutput('NewPlot')
               )
             )
    )
  )
))

server <- shinyServer(function(input, output, session) {
  
  data <- reactive({ 
    req(input$file1) 
    
    inFile <- input$file1 
    
    df <- read.csv(inFile$datapath, 
                   header = input$header, 
                   sep = input$sep,
                   quote = input$quote)
    
    # 检测缺失值并弹出警告
    if(any(is.na(df))){
      showNotification(
        "注意：数据中存在缺失值！",
        type = "warning",
        duration = 5, # 显示5秒后自动消失，设为NULL则需手动关闭
        id = "missing_value_warning" # 重复触发时替换通知，避免叠加
      )
    }
    
    updateSelectInput(session, inputId = 'xcol', label = 'X',
                      choices = names(df), selected = names(df))
    updateSelectInput(session, inputId = 'ycol', label = 'Y',
                      choices = names(df), selected = names(df)[2])
    
    return(df)
  })
  
  output$datainput <- renderTable({
    data()
  })
  
  output$NewPlot <- renderPlot({
    x <- data()[, c(input$xcol, input$ycol)]
    plot(x)
  })
})

shinyApp(ui, server)

关键修改说明 #

• 缺失值检测逻辑：在data()响应式函数中，读取数据后用any(is.na(df))判断是否存在缺失值。
• 警告通知设置：使用showNotification()生成警告，通过type = "warning"指定通知样式；duration控制通知显示时长；id参数确保重复触发时不会弹出多个相同通知，而是替换已有通知。
• 保留正常流程：检测到缺失值仅弹出警告，不会中断数据加载和绘图流程，用户仍可正常查看散点图。

另外，原代码中读取CSV时用到的input$header、input$sep、input$quote参数在UI中没有对应控件，已补充到上传文件的侧边栏，确保功能完整。

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