r管链错误处理中的trycatch()或存在()

Question

我当前正在遇到一个打ic，我正在尝试从某些上游计算中创建值表。通常，我一直以为每次创建这些数据帧时至少有1个值。但是我遇到了一个不是这种情况的例子，最终得到了这样的表格：

df <- data.frame(
  Experiment_Batch = c(rep("008_1", 83),
                       rep("008_6", 82),
                       rep("520_0", 2),
                       rep("944_10", 84),
                       rep("944_8", 85),
                       rep("944_9", 72)),
  Overall = rep(0, 408)
  ) 

这引起了以下下游处理：

df %>% 
  dplyr::count(Experiment_Batch, Overall) %>%
  tidyr::spread(Overall, n, fill = 0) %>% 
  dplyr::select(Experiment_Batch, `1`)

出错：Error in overscope_eval_next(overscope, expr) : object '1' not found。

我已经尝试使用tryCatch()和exists()，但是我似乎无法使它们正常工作。理想情况下，所有这些都可以使用管道操作员优雅地处理。我已经知道我可以创建一个对象，并根据需要在工作流程中添加一些if-else语句，但是我想知道是否有……"更有趣"的方法来照顾这个问题，所以我不会必须分解工作。

Answer 1

如果您不存在列，则可以使用选择助手功能，如果要忽略选择；在这里，matches("^1$")将尝试选择其名称与1完全匹配的列，由于数据框没有列，因此它只是忽略了选择，因为matches返回integer(0)：

library(tidyverse)
df %>% 
    count(Experiment_Batch, Overall) %>%
    spread(Overall, n, fill = 0) %>% 
    select(Experiment_Batch, matches("^1$"))
# A tibble: 6 x 1
#  Experiment_Batch
#*           <fctr>
#1            008_1
#2            008_6
#3            520_0
#4           944_10
#5            944_8
#6            944_9

---

matches返回 integer(0)当列名称与 select中被忽略的模式匹配时：

matches("^1$", vars = c("0", "experiment"))
# integer(0)
matches("^1$", vars = c("0", "experiment", "1"))
# [1] 3

---

如果您需要自定义错误捕获：

library(tidyverse)
df %>% 
    count(Experiment_Batch, Overall) %>%
    spread(Overall, n, fill = 0) %>% 
    {
        tryCatch(
            select(., Experiment_Batch, `1`), 
            error=function(e) select(., Experiment_Batch)
        )
    }
    # replace the error with the customized function to handle the exception
# A tibble: 6 x 1
#  Experiment_Batch
#*           <fctr>
#1            008_1
#2            008_6
#3            520_0
#4           944_10
#5            944_8
6            944_9