Valuta l'espressione fornita come una stringa

Sono curioso di sapere se R può usare la sua eval()funzione per eseguire calcoli forniti ad esempio da una stringa.

Questo è un caso comune:

eval("5+5")

Tuttavia, invece di 10 ottengo:

[1] "5+5"

Qualche soluzione?

La eval()funzione valuta un'espressione, ma "5+5"è una stringa, non un'espressione. Utilizzare parse()con text=<string>per modificare la stringa in un'espressione:

> eval(parse(text="5+5"))
[1] 10
> class("5+5")
[1] "character"
> class(parse(text="5+5"))
[1] "expression"

La chiamata eval()invoca molti comportamenti, alcuni non immediatamente evidenti:

> class(eval(parse(text="5+5")))
[1] "numeric"
> class(eval(parse(text="gray")))
[1] "function"
> class(eval(parse(text="blue")))
Error in eval(expr, envir, enclos) : object 'blue' not found

Vedi anche tryCatch .

È possibile utilizzare la parse()funzione per convertire i caratteri in un'espressione. È necessario specificare che l'input è testo, poiché l'analisi prevede un file per impostazione predefinita:

eval(parse(text="5+5"))

Scusate ma non capisco perché troppe persone pensano addirittura che una stringa sia qualcosa che può essere valutata. Devi cambiare la tua mentalità, davvero. Dimentica tutte le connessioni tra stringhe da un lato e espressioni, chiamate, valutazione dall'altro lato.

L'unica (possibilmente) connessione è via parse(text = ....)e tutti i bravi programmatori R dovrebbero sapere che questo raramente è un mezzo efficiente o sicuro per costruire espressioni (o chiamate). Piuttosto, scopri di più su substitute(), quote()e possibilmente il potere di usare do.call(substitute, ......).

fortunes::fortune("answer is parse")
# If the answer is parse() you should usually rethink the question.
#    -- Thomas Lumley
#       R-help (February 2005)

Dic.2017: Ok, ecco un esempio (nei commenti, non c'è una buona formattazione):

q5 <- quote(5+5)
str(q5)
# language 5 + 5

e5 <- expression(5+5)
str(e5)
# expression(5 + 5)

e se diventi più esperto imparerai che q5è un "call"considerando che e5è un "expression", e anche che e5[[1]]è identico a q5:

identical(q5, e5[[1]])
# [1] TRUE

In alternativa, è possibile utilizzare evalsdal mio panderpacchetto per acquisire l'output e tutti gli avvisi, errori e altri messaggi insieme ai risultati non elaborati:

> pander::evals("5+5")
[[1]]
$src
[1] "5 + 5"

$result
[1] 10

$output
[1] "[1] 10"

$type
[1] "numeric"

$msg
$msg$messages
NULL

$msg$warnings
NULL

$msg$errors
NULL


$stdout
NULL

attr(,"class")
[1] "evals"

Oggi puoi anche usare la lazy_evalfunzione dal lazyevalpacchetto.

> lazyeval::lazy_eval("5+5")
[1] 10

Allo stesso modo usando rlang:

eval(parse_expr("5+5"))