string <- function(...) {
dots <- as.list(substitute(...))
vapply(dots,as.character,FUN.VALUE = character(1))[-1]
}
string(c(a,b,c))
> string(c(a,b,c))
[1] "a" "b" "c"
string <- function(...) {
dots <- as.list(substitute(...))
vapply(dots,as.character,FUN.VALUE = character(1))[-1]
}
string(c(a,b,c))
> string(c(a,b,c))
[1] "a" "b" "c"
本文标题：给字符串添加引号
本文链接：https://www.haomeiwen.com/subject/rxxffltx.html
网友评论