List of characters to character vector

Question

I would like to convert a named list of characters like

stringlist = list("list1" = list("a","b",c("a","b")), 
                  "list2" = list("c","d",c("c","d")))

into a character vector

[1] "a"  "b"  "ab" "c"  "d"  "cd"

where the list objects of length > 1 are combined into a single element in the resulting character vector. The solution from this thread is

sapply(stringlist, paste0, collapse="")

which returns

              list1               list2 
"abc(\"a\", \"b\")" "cdc(\"c\", \"d\")"

so I was wondering whether there is an elegant and short solution to this problem.

score 4 · Accepted Answer · answered Dec 26 '20 at 14:55

4

Since you have a nested list unlist it one level and then use the solution that you have.

unname(sapply(unlist(stringlist, recursive = FALSE), paste0, collapse = ''))
#[1] "a"  "b"  "ab" "c"  "d"  "cd"

answered Dec 26 '20 at 14:55

Ronak Shah

Else use argument `use.names` in `unlist` directly instead of adding `unname` function ie. `sapply(unlist(stringlist, recursive = F, use.names = F), paste0, collapse = "")` – yuskam Oct 09 '22 at 14:02

score 4 · Answer 2 · answered Dec 26 '20 at 15:05

4

Using rapply.

unname(rapply(stringlist, paste, collapse=""))
# [1] "a"  "b"  "ab" "c"  "d"  "cd"

answered Dec 26 '20 at 15:05

jay.sf

score 3 · Answer 3 · answered Dec 26 '20 at 16:54

3

An option with rrapply

library(rrapply)
unname(rrapply(stringlist, f = paste, collapse="", how = 'unlist'))
#[1] "a"  "b"  "ab" "c"  "d"  "cd"

answered Dec 26 '20 at 16:54

akrun

score 2 · Answer 4 · answered Dec 26 '20 at 21:09

2

Another base R option is using nested sapply (but not as straightforward as the r(r)apply method)

> c(sapply(stringlist, function(x) sapply(x, paste0, collapse = "")))
[1] "a"  "b"  "ab" "c"  "d"  "cd"

answered Dec 26 '20 at 21:09

ThomasIsCoding

4 Answers4