什么是具體的危險的評估(解析(…)？關(guān)于如何避免使用eval(parse(...))r-value解析-是-通常是次優(yōu)的。避免臭名昭著的-評估解析-構(gòu)造這引發(fā)了問題：為什么特別要eval(parse())被回避？最重要的是，危險是什么？如果代碼不用于生產(chǎn)，是否有任何危險？(我在想，任何意外結(jié)果的危險。顯然，如果您不小心正在解析什么，您就會有問題。但這比粗心大意更危險嗎？get()?)
3 回答
胡子哥哥
TA貢獻(xiàn)1825條經(jīng)驗 獲得超6個贊
eval(parse(...))
eval(parse(..))get[[$[[eval(parse(..))
一只甜甜圈
TA貢獻(xiàn)1836條經(jīng)驗 獲得超5個贊
eval
eval(parse(
std <- function(){
mean(1to10)}ep <- function(){
eval(parse(text = "mean(1to10)"))}system.time(for(i in seq_len(1e4)) mean(1:10)) user system elapsed 0.08 0.00 0.07
system.time(for(i in seq_len(1e4)) eval(parse(text = "mean(1:10)"))) user system elapsed 1.54 0.14 1.69
湖上湖
TA貢獻(xiàn)2003條經(jīng)驗 獲得超2個贊
require(gtools)# both action_to_take & predicate will be subbed with codeF <- defmacro(predicate, action_to_take, expr =
if(predicate) action_to_take)F(1 != 1, action_to_take = print('arithmetic doesnt work!'))F(pi > 3, action_to_take = return('good!'))[1]
'good!'# the raw code for Fprint(F)function (predicate = stop("predicate not supplied"), action_to_take = stop("action_to_take not
supplied")) {
tmp <- substitute(if (predicate) action_to_take)
eval(tmp, parent.frame())}<environment: 0x05ad5d3c>- 3 回答
- 0 關(guān)注
- 589 瀏覽
添加回答
舉報
0/150
提交
取消