如何整理粘贴 function 的结果？ (右)

Question

我有具有这种结构的列表

ex1.
[[1]]
[1]"blah blah~"

ex2.
[[1]]
[1]"blah blah~~~"
[2]"fmlafmlaf~~"

ex3.
[[1]]
[1]"blaaaa~"

当我使用粘贴 function, ex1, ex3 使结果整洁。 如下所示。

[[1]]
[1]"~~~sth"

但是，在示例 2 中，它在一个大列表中有 2 个组件，粘贴 function 的结果有点脏。 我是说

[[1]]
[1] "c(\ "blah blah~~~" ...

所以突然出现“c（\..~，\n”并使我的结果变脏。

更有什者，有时粘贴 function 不起作用，成分没有混合。

我应该怎么办？

Answer 1

不要直接使用 paste 因为你有一个使用sapply的列表

sapply(list_ex, paste0, collapse = "")

Answer 2

如果目的是将所有示例粘贴到一个大字符串中，那么您可以使用unlist ：

ex1 <- "blah blah~"
ex2 <- c("blah blah~", "blah ~ .... ~~~~")
list_ex <- list(ex1,ex2)

paste0(unlist(list_ex), collapse = " ")
[1] "blah blah~ blah blah~ blah ~ .... ~~~~"

Answer 3

map的一个选项

library(stringr)
library(purrr)
map_chr(list_ex, str_c, collapse="")