Oceń wyrażenie podane jako ciąg

Jestem ciekawy, czy R może użyć swojej eval()funkcji do wykonania obliczeń dostarczonych np. Przez ciąg.

Jest to częsty przypadek:

eval("5+5")

Jednak zamiast 10 otrzymuję:

[1] "5+5"

Jakieś rozwiązanie?

eval()Funkcja ocenia wyrażenie, ale "5+5"jest ciągiem znaków, a nie wyrazem. Użyj za parse()pomocą, text=<string>aby zmienić ciąg znaków na wyrażenie:

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

Wywołanie eval()wywołuje wiele zachowań, niektóre nie są od razu oczywiste:

> 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

Zobacz także tryCatch .

Możesz użyć tej parse()funkcji do konwersji znaków na wyrażenie. Musisz określić, że dane wejściowe to tekst, ponieważ parsowanie domyślnie oczekuje pliku:

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

Przepraszam, ale nie rozumiem, dlaczego zbyt wiele osób uważa, że ​​łańcuch był czymś, co można ocenić. Naprawdę musisz zmienić swój sposób myślenia. Zapomnij o wszystkich połączeniach między łańcuchami po jednej stronie i wyrażeniami, wywołaniami, oceną po drugiej stronie.

Połączenie (możliwe) tylko przez parse(text = ....)i wszyscy dobrzy programiści R powinni wiedzieć, że rzadko jest to skuteczny lub bezpieczny sposób konstruowania wyrażeń (lub wywołań). Raczej dowiedzieć się więcej na temat substitute(), quote()i ewentualnie moc użyciu 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, oto przykład (w komentarzach nie ma ładnego formatowania):

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

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

a jeśli zdobędziesz więcej doświadczenia, nauczysz się, że q5jest to "call"a e5jest "expression", a nawet to e5[[1]]jest identyczne z q5:

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

Alternatywnie możesz użyć evalsz mojego panderpakietu do przechwytywania danych wyjściowych i wszystkich ostrzeżeń, błędów i innych komunikatów wraz z nieprzetworzonymi wynikami:

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

Obecnie możesz także korzystać lazy_evalz funkcji z lazyevalpakietu.

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

Podobnie za pomocą rlang:

eval(parse_expr("5+5"))