在bs_carousel管道链中使用if触发‘argument is not interpretable as logical’错误

错误原因 #

这是管道（%>%）使用的语法问题，并非bs_carousel的底层问题。

管道中的.符号指代前一步的输出结果（即bs_carousel生成的轮播对象），当你在管道链中直接写if (.) dim(df_checked)[1] !=0时，if会把轮播对象当作判断条件——而轮播对象不是逻辑值，自然触发argument is not interpretable as logical错误。

而把整个carousel放在条件内时，if判断的是dim(df_checked)[1] !=0这个独立的逻辑表达式，和轮播对象无关，因此能正常运行。

解决方法 #

要在管道链中为每个bs_append添加条件，需用代码块{}包裹分支逻辑，或用函数式编程的方式处理，避免把轮播对象传入if的条件判断：

方法1：代码块包裹条件逻辑

bs_carousel(id = "my_carousel") %>%
  {
    # 保存初始轮播对象
    carousel <- .
    # 第一个条件append
    if (dim(df1_checked)[1] != 0) {
      carousel <- carousel %>% bs_append(content = render_df(df1))
    }
    # 第二个条件append
    if (dim(df2_checked)[1] != 0) {
      carousel <- carousel %>% bs_append(content = render_df(df2))
    }
    # 返回最终轮播对象
    carousel
  }

方法2：purrr::reduce批量处理（适合多轮播项）

如果有多个需要判断的轮播项，用reduce更简洁：

library(purrr)

# 整理需要判断的数据集和对应内容
carousel_items <- list(
  list(data = df1_checked, content = render_df(df1)),
  list(data = df2_checked, content = render_df(df2))
)

# 初始化轮播后批量处理条件append
bs_carousel(id = "my_carousel") %>%
  reduce(carousel_items, function(carousel, item) {
    if (dim(item$data)[1] != 0) {
      carousel %>% bs_append(content = item$content)
    } else {
      # 数据为空时直接返回原轮播对象
      carousel
    }
  })

关键注意点 #

• 管道链中，if语句不能直接作为步骤，因为它会默认接收前一步的输出作为第一个参数（即.）。
• 所有条件判断必须针对数据框的逻辑表达式，而非管道传递的轮播对象。

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