Avaliar expressão dada como uma sequência

Estou curioso para saber se R pode usar sua eval()função para realizar cálculos fornecidos por, por exemplo, uma string.

Este é um caso comum:

eval("5+5")

No entanto, em vez de 10, recebo:

[1] "5+5"

Qualquer solução?

A eval()função avalia uma expressão, mas "5+5"é uma sequência, não uma expressão. Use parse()with text=<string>para alterar a string em uma expressão:

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

Chamar eval()invoca muitos comportamentos, alguns não são imediatamente óbvios:

> 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

Veja também tryCatch .

Você pode usar a parse()função para converter os caracteres em uma expressão. Você precisa especificar que a entrada é texto, porque a análise espera um arquivo por padrão:

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

Desculpe, mas não entendo por que muitas pessoas acham que uma string é algo que pode ser avaliado. Você deve mudar sua mentalidade, realmente. Esqueça todas as conexões entre seqüências de caracteres de um lado e expressões, chamadas e avaliação do outro lado.

A (possivelmente) única conexão é via parse(text = ....)e todos os bons programadores de R devem saber que esse raramente é um meio eficiente ou seguro para construir expressões (ou chamadas). Em vez disso, aprenda mais sobre substitute(), quote()e possivelmente o poder de usar 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)

Dez.2017: Ok, aqui está um exemplo (nos comentários, não há formatação legal):

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

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

e se você tiver mais experiência, aprenderá que q5é um "call"considerando e5é um "expression", e até isso e5[[1]]é idêntico a q5:

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

Como alternativa, você pode usar evalsdo meu panderpacote para capturar a saída e todos os avisos, erros e outras mensagens junto com os resultados brutos:

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

Atualmente você também pode usar a lazy_evalfunção do lazyevalpacote.

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

Da mesma forma, usando rlang:

eval(parse_expr("5+5"))