Évalue l'expression donnée sous forme de chaîne

Je suis curieux de savoir si R peut utiliser sa eval()fonction pour effectuer des calculs fournis par exemple par une chaîne.

Ceci est un cas courant:

eval("5+5")

Cependant, au lieu de 10, j'obtiens:

[1] "5+5"

Toute solution?

La eval()fonction évalue une expression, mais "5+5"est une chaîne, pas une expression. Utilisez parse()avec text=<string>pour changer la chaîne en une expression:

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

L'appel eval()appelle de nombreux comportements, certains ne sont pas immédiatement évidents:

> 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

Voir aussi tryCatch .

Vous pouvez utiliser la parse()fonction pour convertir les caractères en une expression. Vous devez spécifier que l'entrée est du texte, car l'analyse attend un fichier par défaut:

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

Désolé mais je ne comprends pas pourquoi trop de gens pensent même qu'une chaîne est quelque chose qui pourrait être évaluée. Vous devez vraiment changer votre état d'esprit. Oubliez toutes les connexions entre les chaînes d'un côté et les expressions, les appels et l'évaluation de l'autre côté.

La (éventuellement) seule connexion est via parse(text = ....)et tous les bons programmeurs R doivent savoir que c'est rarement un moyen efficace ou sûr de construire des expressions (ou des appels). Apprenez plutôt sur substitute(), quote()et peut-être sur la puissance de l'utilisation 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)

Dec.2017: Ok, voici un exemple (dans les commentaires, il n'y a pas de mise en forme sympa):

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

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

et si vous êtes plus expérimenté, vous apprendrez que q5c'est un "call"alors que e5c'est un "expression", et même cela e5[[1]]est identique à q5:

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

Alternativement, vous pouvez utiliser à evalspartir de mon panderpackage pour capturer la sortie et tous les avertissements, erreurs et autres messages ainsi que les résultats bruts:

> 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"

De nos jours, vous pouvez également utiliser la lazy_evalfonction du lazyevalpackage.

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

De même, en utilisant rlang:

eval(parse_expr("5+5"))