Оцініть вираз, поданий у вигляді рядка

Мені цікаво дізнатися, чи може R використовувати свою eval()функцію для обчислень, передбачених, наприклад, рядком.

Це звичайний випадок:

eval("5+5")

Однак замість 10 я отримую:

[1] "5+5"

Будь-яке рішення?

eval()Функція обчислює вираз, але "5+5"це рядок, а не вираження. Використовуйте parse()для, text=<string>щоб змінити рядок у вираз:

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

Виклик eval()викликає багато поведінки, деякі з них не відразу очевидні:

> 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

Дивіться також tryCatch .

Ви можете використовувати parse()функцію для перетворення символів у вираз. Вам потрібно вказати, що вхід - це текст, оскільки розбір очікує файл за замовчуванням:

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

Вибачте, але я не розумію, чому занадто багато людей навіть думають, що струна була чимось, що можна оцінити. Ви дійсно повинні змінити свою думку. Забудьте про всі зв’язки між рядками з одного боку та виразами, викликами, оцінкою з іншого боку.

(Можливо) єдине з'єднання здійснюється через, parse(text = ....)і всі хороші програмісти R повинні знати, що це рідко є ефективним або безпечним засобом побудови виразів (або викликів). Швидше дізнайтеся більше про substitute(), quote()і, можливо, про силу використання 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)

Грудень 2017: Добре, ось приклад (у коментарях немає приємного форматування):

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

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

і якщо ви отримаєте більше досвіду ви дізнаєтеся , що q5це в "call"той час як e5це "expression", і навіть то , що e5[[1]]ідентично q5:

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

Крім того, ви можете використовувати evalsз мого panderпакету для збору результатів та всіх попереджень, помилок та інших повідомлень разом із необробленими результатами:

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

Сьогодні ви також можете використовувати lazy_evalфункцію з lazyevalпакету.

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

Аналогічно використовуючи rlang:

eval(parse_expr("5+5"))