Есть ли способ добавить цитаты в список запятыми?

Question

У меня есть длинный список из другого источника, например:

c(moses, abi, yoyoma) 

Я хочу, чтобы иметь его в качестве объекта:

a <- c("moses", "abi", "yoyoma") 

Есть ли способ сделать это без ручного добавления котировки каждому имени?

Спасибо.

Answer 1

Быстрый способ будет

cc <- function(...) sapply(substitute(...()), as.character) 

cc(moses, abi, yoyoma) 
# [1] "moses" "abi" "yoyoma" 

Более гибкое решение может быть

cc <- function(..., simplify = TRUE, evaluate = FALSE) { 
    l <- eval(substitute(alist(...))) 
    ev <- if (evaluate) eval else identity 
    sapply(l, function(x) if (is.symbol(x)) as.character(x) else ev(x), simplify = simplify) 
} 

cc(moses, abi, yoyoma) 
# [1] "moses" "abi" "yoyoma" 


cc(one, two, 'three', four = 4) 
#       four 
# "one" "two" "three"  "4" 

cc(one, two, 'three something' = rnorm(5), four = 4, simplify = FALSE) 
# [[1]] 
# [1] "one" 
# 
# [[2]] 
# [1] "two" 
# 
# $`three something` 
# rnorm(5) 
# 
# $four 
# [1] 4 

cc(one, two, 'three something' = rnorm(5), four = 4, simplify = FALSE, evaluate = TRUE) 
# [[1]] 
# [1] "one" 
# 
# [[2]] 
# [1] "two" 
# 
# $`three something` 
# [1] -1.1803114 0.3940908 -0.2296465 -0.2818132 1.3744525 
# 
# $four 
# [1] 4 

Answer 2

Просто используйте функцию as.character()

as.character(a) 
[1] "moses" "abi" "yoyoma"