Qualcuno sa se R ha operatori di tipo preventivo come Perl qw()
per la generazione di vettori di caratteri?R ha operatori di tipo preventivo come il qw di Perl()?
20
A
risposta
23
No, ma è possibile scrivere da soli:
q <- function(...) {
sapply(match.call()[-1], deparse)
}
E proprio per dimostrare che funziona:
> q(a, b, c)
[1] "a" "b" "c"
5
qw = function(s) unlist(strsplit(s,' '))
8
Il popolare Hmisc package offre la funzione Cs()
per fare questo:
library(Hmisc)
Cs(foo,bar)
[1] "foo" "bar"
che utilizza una strategia simile alla risposta di Hadley:
Cs
function (...)
{
if (.SV4. || .R.)
as.character(sys.call())[-1]
else {
y <- ((sys.frame())[["..."]])[[1]][-1]
unlist(lapply(y, deparse))
}
}
<environment: namespace:Hmisc>
11
Ho aggiunto questa funzione per il mio file Rprofile.site (vedi ?Startup
se non si ha familiarità)
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"
+2
L'ho messo in un pacchetto personale quando hai postato questa risposta per la prima volta, e la uso sempre. È ottimo. Grazie. – GSee
3
Ancora più semplice:
qw <- function(...){
as.character(substitute(list(...)))[-1]
}
È una buona funzione che hai dato un nome sfortunato ... – Dason