r - R には Perl の qw() のような引用符のような演算子がありますか?

Question

qw()R に文字ベクトルを生成するための Perl のような引用符のような演算子があるかどうか知っている人はいますか?

Answer 1

いいえ、しかし、あなたはそれを自分で書くことができます:

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

そして、それが機能することを示すために：

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

Answer 2

この関数を 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 3

人気のあるHmisc パッケージ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

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

Answer 5

さらに簡単：

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