r - 如何拆分和过滤字符串？

Question

考虑这个角色

mystring <- "this, this and this, and this, and this."

我想在 、 或 和 上拆分，但我想摆脱空字符串。我对以下解决方案不起作用感到困惑

拆分工作正常

> str_split(mystring, regex(',|and'))
[[1]]
[1] "this"   " this " " this"  " "      " this"  " "      " this."

过滤不起作用

> str_split(mystring, regex(',|and')) %>% purrr::keep(., function(x) x!= '')
Error: Predicate functions must return a single `TRUE` or `FALSE`, not a logical vector of length 7
Run `rlang::last_error()` to see where the error occurred.

这里有什么问题？谢谢!

Answer 1

如果我们只返回空白 ("") 而不是空格 ("")，那么我们可以使用 nzchar

library(purrr)
library(stringr)
str_split(mystring, regex('\\s*,\\s*|\\s*and\\s*'))[[1]]  %>%
    keep(nzchar)
[1] "this"  "this"  "this"  "this"  "this."

---

如果我们使用 OP 的代码，请在 keep 步骤之前使用 trimws

str_split(mystring, regex(',|and')) %>%
    pluck(1) %>%
    trimws %>%
    keep(nzchar) 
[1] "this"  "this"  "this"  "this"  "this."

---

在 OP 的代码中，keep 不起作用，因为 str_split 中的对象是一个 list 并且该元素未被提取。因此，当我们应用该函数时，它会为单个 list 元素返回多个 TRUE/FALSE，而 keep 期望单个 TRUE/FALSE。在这里，我们正在 pluck 列表元素。在第一个解决方案中，提取是由 [[1]]

完成的