Есть ли у R котировочные операторы, такие как qw() Perl?

Question

Кто-нибудь знает, если у R есть такие котировочные операторы, как Perl's qw() для генерации векторов символов?

Answer 1

Нет, но вы можете написать его самостоятельно:

q <- function(...) { 
    sapply(match.call()[-1], deparse) 
} 

И просто чтобы показать это работает:

> q(a, b, c) 
[1] "a" "b" "c" 

Answer 2

qw = function(s) unlist(strsplit(s,' ')) 

Answer 3

Популярный Hmisc package предлагает функцию Cs() сделать это:

library(Hmisc) 
Cs(foo,bar) 
[1] "foo" "bar" 

, который использует подобную стратегию ответа Хедли:

Cs 
function (...) 
{ 
    if (.SV4. || .R.) 
     as.character(sys.call())[-1] 
    else { 
     y <- ((sys.frame())[["..."]])[[1]][-1] 
     unlist(lapply(y, deparse)) 
    } 
} 
<environment: namespace:Hmisc> 

Answer 4

я добавил эту функцию в моей Rprofile.site файл (см ?Startup, если вы не знакомы)

qw <- function(x) unlist(strsplit(x, "[[:space:]]+")) 

qw("You can type text here 
    with linebreaks if you 
    wish") 
# [1] "You"  "can"  "type"  "text"  
# [5] "here"  "with"  "linebreaks" "if"   
# [9] "you"  "wish"  

Answer 5

Еще проще:

qw <- function(...){ 
as.character(substitute(list(...)))[-1] 
}