R Shiny中第二个if语句被误判为恒真的问题求助

核心问题1：第一个代码块的逻辑错误 #

你的narrowed reactive函数没有显式返回处理后的nar数据框。R语言中函数默认返回最后一个表达式的结果，这里最后一个表达式是第二个if语句：

• 当length(exh)>=1时，if块执行赋值操作，赋值语句的返回值是修改后的nar，函数能正确返回数据；
• 当length(exh)<1时，if块不执行，if语句返回invisible(NULL)，导致narrowed()最终返回空值，绘图时表现为“始终排除数据”。

修正代码（显式返回数据框）：

narrowed <- reactive({
    nar <- data.frame(ref.range())
    exl <- which(nar$Result < input$minimum)
    if(length(exl) >= 1){
      nar <- nar[-exl,]
    }
    exh <- which(nar$Result > input$maximum)
    if(length(exh) >= 1){
      nar <- nar[-exh,]
    }
    nar  # 显式返回处理后的数据集
  })

更简洁的替代方案（直接布尔索引过滤）：

可以完全去掉if语句和which，用布尔索引一步完成过滤，避免这类低级错误：

narrowed <- reactive({
  nar <- data.frame(ref.range())
  nar[nar$Result >= input$minimum & nar$Result <= input$maximum, ]
})

核心问题2：拆分后的递归与变量错误 #

拆分后的代码存在两个致命问题：

1. 无返回值：两个reactive函数都没有显式返回处理后的数据，导致返回值可能为NULL；
2. 变量名错误：narrowed函数中使用了未定义的nar，实际应该用你定义的narr；
3. 无限递归：大概率是ref.range()依赖了narrowed()或narrow()，形成了循环依赖。

修正后的拆分代码：

narrow <- reactive({
  nar <- data.frame(ref.range())
  exl <- which(nar$Result < input$minimum)
  if(length(exl) >= 1){
    nar <- nar[-exl,]
  }
  nar  # 显式返回
})

narrowed <- reactive({
  narr <- narrow()  # 无需重复转成data.frame，除非narrow()返回非数据框类型
  exh <- which(narr$Result > input$maximum)
  if(length(exh) >= 1){
    narr <- narr[-exh,]
  }
  narr  # 显式返回
})

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