R Shiny中non-numeric argument to binary operator错误排查与解决

问题原因 #

报错Warning: Error in *: non-numeric argument to binary operator的核心原因：

• 应用初始化阶段，动态滑块输入还未完成渲染，input[[paste0('opt',j,'_x1')]]会返回NULL，即便用as.numeric()转换，as.numeric(NULL)得到的是长度为0的数值向量numeric(0)，无法与长度为100的runif(100,0,1)向量执行乘法运算。
• 当用户修改nbopt（选项数量）时，旧滑块会被移除，新滑块尚未生成的间隙期，同样会出现输入值为NULL的情况，触发相同错误。

解决方法 #

使用Shiny内置的req()函数，确保所有依赖的动态输入已存在且有效后再执行计算逻辑。req()会自动暂停reactive表达式的执行，直到指定输入满足非空、非NA的条件，从根源避免无效计算。

修正后的完整代码 #

rm(list=ls())
library(shiny)

ui = fluidPage(
  mainPanel(
    sidebarLayout(
      sidebarPanel(
        ### select number of options
        numericInput(
          inputId='nbopt',
          label='Number of options',
          value=2,
          min = 2,
          max = 10)),
      ### specify content of options
      mainPanel(
        fluidRow(
          column(width=5,
                 h2("Feature 1"),
                 uiOutput("perfx1")),
          column(width=5,
                 h2("Feature 2"),
                 uiOutput("perfx2"))),
        ### Display output table
        tableOutput('pcp_tab'))
      )))


server = function(input, output){
  # Define content of options  
  # Feature 1
  output$perfx1 = renderUI({
    lapply(1:input$nbopt, function(j){
      sliderInput(
        inputId=paste0('opt',j,'_x1'),
        label=paste0('Option ',j),
        value=20,
        min = 0,
        max = 40)
    })
  })
  
  # Feature 2
  output$perfx2 = renderUI({
    lapply(1:input$nbopt, function(j){
      sliderInput(
        inputId=paste0('opt',j,'_x2'),
        label=paste0('Option ',j),
        value=15,
        min = 0,
        max = 40)
    })
  })
  
  
  # Compute proba  
  pcp = reactive({
    # 确保选项数量输入有效，且所有动态滑块已加载
    req(input$nbopt)
    lapply(1:input$nbopt, function(j) {
      req(input[[paste0('opt',j,'_x1')]])
      req(input[[paste0('opt',j,'_x2')]])
    })
    
    eu = sapply(1:input$nbopt, function(j){
      umove = as.numeric(input[[paste0('opt',j,'_x1')]]) * runif(100,0,1)
      uinfo = as.numeric(input[[paste0('opt',j,'_x2')]]) * runif(100,0,1)
      return(exp(umove + uinfo))})
    
    prb = 100*eu/rowSums(eu)
    
    pcp = data.frame(
      opt = paste0('opt',1:input$nbopt),
      mu  = apply(prb,2,mean),
      se  = apply(prb,2,sd),
      stringsAsFactors=F)
    as.data.frame(pcp)
  })
  
  # Output table
  output$pcp_tab = renderTable({
    pcp()
  })
  
}

shinyApp(ui=ui, server=server)

额外说明 #

• req()是Shiny处理依赖的最佳实践，不仅能避免空值错误，还能减少不必要的计算，提升应用性能。
• 若想简化代码，也可仅在pcp reactive开头添加req(input$nbopt)——当input$nbopt更新后，renderUI会重新生成滑块，reactive会自动等待滑块加载完成后执行，但添加对每个滑块的req()能更稳妥地覆盖所有边界场景。

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