调试函数 - 意外符号和缺少参数

Question

我有以下数据：

   factor_1 <- c("0","B", "C")
    factor_2 <- c("0","BB", "CC")
    factor_3 <- c("0","BBB", "CCC", "DDD")
    factor_4 <- c("0","BBBB", "CCCC", "DDDD", "EEEE")
    factor_5 <- c("0","BBBBB", "CCCCC", "DDDDD", "EEEEE", "FFFFFF")

假设我有以下功能：

filter_list <- function(x) {
  flist <- list()
  for (i in seq_along(x)) {
    flist <- c(flist,
      combn(x, i) |>     # matrix with cols = combinations of i elements
        data.frame() |>  # temporarily turn it into a data frame
        as.list()        # make it a list and append it to flist
    )
  }
  names(flist) <- NULL   # strip off the rather annoying item names
  flist
}

我正在尝试针对以下情况测试此功能：

factor_1_sets <- filter_list(factor_1)
factor_2_sets <- filter_list(factor_2)
factor_3_sets <- filter_list(factor_3)
factor_4_sets <- filter_list(factor_4)
factor_5_sets <- filter_list(factor_5)
# For convenience, we make a list of all the lists.
factor_sets <- list(factor_1_sets, factor_2_sets, factor_3_sets, factor_4_sets, factor_5_sets)

我的问题：上述函数似乎有一些与“意外符号”有关的错误：

filter_list <- function(x) {
+     flist <- list()
+     for (i in seq_along(x)) {
+         flist <- c(flist,
+                    combn(x, i) |>     # matrix with cols = combinations of i elements
Error: unexpected '>' in:
"        flist <- c(flist,
                   combn(x, i) |>"
>                        data.frame() |>  # temporarily turn it into a data frame
Error: unexpected '>' in "                       data.frame() |>"
>                        as.list()        # make it a list and append it to flist
Error in typeof(x) : argument "x" is missing, with no default
>         )
Error: unexpected ')' in "        )"
>     }
Error: unexpected '}' in "    }"
>     names(flist) <- NULL   # strip off the rather annoying item names
Error in names(flist) <- NULL : object 'flist' not found
>     flist
Error: object 'flist' not found
> }
Error: unexpected '}' in "}"

我试图删除一些可能导致此错误的 ">" 符号 - 现在该函数至少可以在没有任何初始错误的情况下定义：

filter_list <- function(x) {
    flist <- list()
    for (i in seq_along(x)) {
        flist <- c(flist,
                   combn(x, i) |    # matrix with cols = combinations of i elements
                       data.frame() |  # temporarily turn it into a data frame
                       as.list()        # make it a list and append it to flist
        )
    }
    names(flist) <- NULL   # strip off the rather annoying item names
    flist
}

问题：但是，我仍然无法使用该功能来执行上述任务：

factor_1_sets <- filter_list(factor_1)

 Error in typeof(x) : argument "x" is missing, with no default 

谁能告诉我我做错了什么？

谢谢！

> sessionInfo()
R version 4.0.3 (2020-10-10)
Platform: x86_64-w64-mingw32/x64 (64-bit)
Running under: Windows 10 x64 (build 19043)

Matrix products: default

locale:
[1] LC_COLLATE=English_Canada.1252  LC_CTYPE=English_Canada.1252    LC_MONETARY=English_Canada.1252 LC_NUMERIC=C                    LC_TIME=English_Canada.1252    

attached base packages:
[1] stats     graphics  grDevices utils     datasets  methods   base     

other attached packages:
[1] GA_3.2.1         iterators_1.0.13 foreach_1.5.1    dplyr_1.0.6     

loaded via a namespace (and not attached):
 [1] Rcpp_1.0.7       rstudioapi_0.13  magrittr_2.0.1   tidyselect_1.1.0 R6_2.5.0         rlang_0.4.10     fansi_0.4.2      tools_4.0.3      xfun_0.21        tinytex_0.30     utf8_1.1.4      
[12] cli_2.5.0        DBI_1.1.1        ellipsis_0.3.2   assertthat_0.2.1 tibble_3.1.2     lifecycle_1.0.0  crayon_1.3.4     purrr_0.3.4      vctrs_0.3.8      codetools_0.2-16 glue_1.4.2      
[23] compiler_4.0.3   pillar_1.6.1     generics_0.1.0   pkgconfig_2.0.3 

Answer 1

|> 是自 version 4.1.0 以来 R 的全新管道运算符。

将您的 R 升级到当前版本，然后它应该可以正常工作。

Answer 2

根据@HYENA 的建议，我想我想通了！ （将 |> 替换为 %>%）

filter_list <- function(x) {
  flist <- list()
  for (i in seq_along(x)) {
    flist <- c(flist,
      combn(x, i) %>%    # matrix with cols = combinations of i elements
        data.frame() %>%   # temporarily turn it into a data frame
        as.list()        # make it a list and append it to flist
    )
  }
  names(flist) <- NULL   # strip off the rather annoying item names
  flist
}


#test

 filter_list(factor_1)
[[1]]
[1] "AAAA"

[[2]]
[1] "BBBB"

[[3]]
[1] "CCCC"

#etc

[[11]]
[1] "BBBB" "DDDD"

[[12]]
[1] "BBBB" "EEEE"

#etc

[[27]]
[1] "AAAA" "BBBB" "CCCC" "EEEE"

[[28]]
[1] "AAAA" "BBBB" "DDDD" "EEEE"

[[29]]
[1] "AAAA" "CCCC" "DDDD" "EEEE"

[[30]]
[1] "BBBB" "CCCC" "DDDD" "EEEE"

[[31]]
[1] "AAAA" "BBBB" "CCCC" "DDDD" "EEEE"

旁白：有谁知道为什么 |> 被替换为 %>% ？