Rのテキストの動的数式

Question

テキストから数式を読み込み、それを実行します。

例1 -

a <- 4 
b <- 7 
formula_text2 <- "a * b" 
y2 = as.formula(formula_text2) 

例2 - （dplyrを使用）

x <- data.frame("SN" = 1:2, "Age" = c(21,15)) 
formula_text = "x %>% mutate(AGE_SQ = Age * Age)" 
y = as.formula(formula_text) 

上記のアプローチの両方がエラーにつながります。

Answer 1

利用のeval /パース：

eval(parse(text = formula_text2)) 
## [1] 28 

eval(parse(text = formula_text)) 
## SN Age AGE_SQ 
## 1 1 21 441 
## 2 2 15 225