Shiny应用二次调用reactive元素触发if参数长度为零报错

开发支持CSV上传、自定义选列做统计分析的Shiny应用时，t检验功能运行正常，Cohen's D效应量计算环节触发报错Error in if: argument is of length zero，初步怀疑是名为linking的响应式元素调用逻辑/顺序问题，原代码见问题附件。

报错和响应式二次调用、调用顺序无关，是三个明确的代码逻辑错误导致的：

• linking响应式内部用cat()打印计算结果，但cat()本身没有返回值，执行后只会返回NULL，后续output$cohensdEsize中执行linking()*4时，相当于对空值做算术运算，触发依赖长度判断的底层逻辑报错。
• Cohen's D计算公式编写错误：一是合并标准差项中误将第二组标准差的平方sd2^2写成了sd2*2，二是合并标准差的除法位置错误，导致计算逻辑完全不符合Cohen's D的定义。
• 所有依赖上传数据、用户选列的计算逻辑没有做空值前置拦截，应用启动初期还未上传数据、未生成列选择下拉框时，响应式会提前执行，拿到空值触发报错。

替换原有linking响应式和对应输出端的代码即可：

linking <- reactive({
  # 前置校验：必须等数据上传完成、两个分析列都选定后才执行计算
  req(values$data, input$var1, input$var2)
  # 用双中括号取列，避免子集类型异常
  group1 <- values$data[[input$var1]]
  group2 <- values$data[[input$var2]]
  # 加na.rm处理缺失值，避免列存在NA时计算返回NA
  mean1 <- mean(group1, na.rm = TRUE)
  mean2 <- mean(group2, na.rm = TRUE)
  sd1 <- sd(group1, na.rm = TRUE)
  sd2 <- sd(group2, na.rm = TRUE)
  n1 <- length(na.omit(group1))
  n2 <- length(na.omit(group2))
  # 修正Cohen's D合并标准差公式，直接返回计算值，不要在响应式内部用cat
  pooled_sd <- sqrt(((n1 - 1) * sd1^2 + (n2 - 1) * sd2^2) / (n1 + n2 - 2))
  d_value <- (mean1 - mean2) / pooled_sd
  return(d_value)
})

output$cohensd = renderPrint({
  req(linking())
  cat("Cohen's D计算结果：", linking())
})

output$cohensdEsize = renderPrint({
  req(linking())
  cat("效应量换算结果：", linking()*4)
})

• 你已经加载了effectsize包，不需要手动编写Cohen's D计算公式，直接调用包内置的cohens_d()函数计算即可，能自动应用小样本校正、处理异常值，结果更可靠。
• 所有render类输出、响应式计算中涉及用户输入、上传数据的部分，都建议加req()做依赖校验，从根源上避免启动初期空值运行报错。
• 读取CSV时建议显式设置编码、字符串转因子等参数，避免不同格式的CSV上传后出现列类型异常。

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