Оценить выражение в виде строки

Question

Оценить выражение в виде строки

194

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

Это обычный случай:

eval("5+5")

Однако вместо 10 я получаю:

[1] "5+5"

Любое решение?

Federico Giorgi 16 нояб. 2009, в 18:25

Источник

6

Несмотря на все ответы, показывающие, как решить эту проблему с помощью синтаксического анализа ... Зачем вам нужно хранить языковые типы в символьной string ? Ответ Мартина Мехлера заслуживает гораздо большего числа голосов.
Petr Matousu 29 нояб. 2016, в 10:48
5

Спасибо @PetrMatousu. Да, я потрясен, увидев, как ложная информация распространяется на SO сейчас ... людьми, которые голосуют за поддельные решения eval(parse(text = *)) .
Martin Mächler 01 апр. 2017, в 16:22
0

Я хочу запустить scrips вида: QQ = c('11','12','13','21','22','23') , то есть: QQ = c (...,' ij ', ..) с i, j в зависимости от диапазона, который может варьироваться от прогона к прогону. Для этого и аналогичных примеров я могу написать скрипт как paste( "QQ = c('", paste(rep(1:2,each=3),1:3, sep="", collapse="','"), "')",sep="") , а опция eval(parse(text=...)) создает вектор QQ в рабочей среде согласно сценарию. Каков был бы правильный способ кодера R сделать это, если бы не «text = ...»?
VictorZurkowski 18 сен. 2018, в 15:04

Показать ещё 1 комментарий

Теги:

r

eval

r-faq

5 ответов

73

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

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

Shane 16 нояб. 2009, в 18:45

5

> fortunes :: fortune ("answer is parse") Если ответ - parse (), обычно вы должны переосмыслить вопрос. - Томас Ламли R-help (февраль 2005 г.)>
Martin Mächler 20 окт. 2016, в 20:40
5

@ MartinMächler Это иронично, потому что основные пакеты R используют parse постоянно! github.com/wch/r-source/...
geneorama 30 март 2017, в 22:10

21

Извините, но я не понимаю, почему слишком многие люди даже думают, что строка - это то, что можно оценить. На самом деле вы должны изменить свое мышление. Забудьте все соединения между строками с одной стороны и выражениями, вызовами, оценкой с другой стороны.

Соединение (возможно) только через 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)

Dec.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

Martin Mächler 20 окт. 2016, в 22:18

2

не могли бы вы привести пример? может быть, вы могли бы показать нам, как «удерживать» 5 + 5 в объекте r, а затем оценить его позже, используя кавычки и подстановки, а не символ и eval (parse (text =)?
Richard DiSalvo 19 дек. 2017, в 03:30
2

Я могу быть немного потерян. В какой момент вы получаете 10? Или это не главное?
Nick S 20 фев. 2018, в 13:12
0

@RichardDiSalvo: да, q5 <- quote(5+5) выше - это выражение (на самом деле "call") 5+5 и это объект R, но не строка. Вы можете оценить это в любое время. Опять же: использование, quote (), substitute (), ... вместо этого parse создает вызовы или выражения напрямую и более эффективно, чем через parse (text =.). Использование eval() хорошо, использование parse(text=*) подвержено ошибкам и иногда совершенно неэффективно по сравнению с вызовами конструкции и манипулированием ими. @Nick S: Это eval(q5) или eval(e5) в нашем работающем примере
Martin Mächler 25 фев. 2018, в 21:05

Показать ещё 1 комментарий

15

В качестве альтернативы вы можете использовать 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"

daroczig 12 окт. 2015, в 05:35

0

Хорошая функция; заполняет дыру, оставленную при evaluate::evaluate , фактически возвращая объект результата; что оставляет вашу функцию пригодной для использования для вызова через mclapply. Я надеюсь, что эта функция останется!
russellpierce 02 дек. 2015, в 09:56
0

Спасибо, @rpierce. Эта функция была изначально написана в 2011 году как часть нашего пакета rapport , и с тех пор активно поддерживается как интенсивно используемая в нашем сервисе rapporter.net, помимо нескольких других проектов - так что я уверен, что она будет сохраняться для некоторое время :) Я рад, что вы нашли это полезным, спасибо за ваши добрые отзывы.
daroczig 03 дек. 2015, в 07:22

1

В настоящее время вы также можете использовать функцию lazy_eval из пакета lazyeval.

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

Paweł Kozielski-Romaneczko 04 фев. 2018, в 01:15

Ещё вопросы

Несмотря на все ответы, показывающие, как решить эту проблему с помощью синтаксического анализа ... Зачем вам нужно хранить языковые типы в символьной string ? Ответ Мартина Мехлера заслуживает гораздо большего числа голосов.
Спасибо @PetrMatousu. Да, я потрясен, увидев, как ложная информация распространяется на SO сейчас ... людьми, которые голосуют за поддельные решения eval(parse(text = *)) .
Я хочу запустить scrips вида: QQ = c('11','12','13','21','22','23') , то есть: QQ = c (...,' ij ', ..) с i, j в зависимости от диапазона, который может варьироваться от прогона к прогону. Для этого и аналогичных примеров я могу написать скрипт как paste( "QQ = c('", paste(rep(1:2,each=3),1:3, sep="", collapse="','"), "')",sep="") , а опция eval(parse(text=...)) создает вектор QQ в рабочей среде согласно сценарию. Каков был бы правильный способ кодера R сделать это, если бы не «text = ...»?
> fortunes :: fortune ("answer is parse") Если ответ - parse (), обычно вы должны переосмыслить вопрос. - Томас Ламли R-help (февраль 2005 г.)>
@ MartinMächler Это иронично, потому что основные пакеты R используют parse постоянно! github.com/wch/r-source/...
не могли бы вы привести пример? может быть, вы могли бы показать нам, как «удерживать» 5 + 5 в объекте r, а затем оценить его позже, используя кавычки и подстановки, а не символ и eval (parse (text =)?
Я могу быть немного потерян. В какой момент вы получаете 10? Или это не главное?
@RichardDiSalvo: да, q5 <- quote(5+5) выше - это выражение (на самом деле "call") 5+5 и это объект R, но не строка. Вы можете оценить это в любое время. Опять же: использование, quote (), substitute (), ... вместо этого parse создает вызовы или выражения напрямую и более эффективно, чем через parse (text =.). Использование eval() хорошо, использование parse(text=*) подвержено ошибкам и иногда совершенно неэффективно по сравнению с вызовами конструкции и манипулированием ими. @Nick S: Это eval(q5) или eval(e5) в нашем работающем примере
Хорошая функция; заполняет дыру, оставленную при evaluate::evaluate , фактически возвращая объект результата; что оставляет вашу функцию пригодной для использования для вызова через mclapply. Я надеюсь, что эта функция останется!
Спасибо, @rpierce. Эта функция была изначально написана в 2011 году как часть нашего пакета rapport , и с тех пор активно поддерживается как интенсивно используемая в нашем сервисе rapporter.net, помимо нескольких других проектов - так что я уверен, что она будет сохраняться для некоторое время :) Я рад, что вы нашли это полезным, спасибо за ваши добрые отзывы.

Harlan · Accepted Answer · 2009-11-16T19-48-00.000Z

Функция 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) должны быть указаны. Например, если у вас есть предопределенное имя переменной, равное «David», и вы переназначаете его, используя eval (parse (text = "name") == "Alexander", вы получите ошибку, потому что eval & parse не возвращают R выражение, которое можно оценить.