如何强制 R 执行引号内的内容？

Question

我有一个值向量，其中每个元素都在引号“...”之间 我想要的是 R 摆脱引号并执行里面的内容。 在我的特殊情况下，引号之间的内容是一个巨大列表中的元素。 请注意以下示例： 第一个元素是“list_jsons[[1]]['description']$description$title”。 当然，如果我复制然后粘贴：

list_jsons[[1]]['description']$description$title

在控制台中，我得到了我想要的输出。 但我想要的是自动化。 到目前为止，我尝试了删除引号的命令glue()。所以我尝试了glue(glue(list_......))

Answer 1

我们必须将字符元素转换为表达式并求值。 我们可以使用rlangpackage 做到这一点。对于存储在名为“character_element”的tex元素中的代码，我们可以使用eval(parse_expr(character_element))。要对整个向量执行此操作，请使用循环函数或 Vectorize。 lapply 将输出一个列表，其中包含向量中所有表达式的输出。

library(rlang)

lapply(your_vector, function(x) eval(parse_expr(x)))

或者用 purrr:map

library(purrr)
library(rlang)

map(your_vector, ~eval(parse_expr(.x)))

一个例子：

text<-c("iris[1:10, 1:2]$Sepal.Width", "mtcars[mtcars$mpg<median(mtcars$mpg),]")

lapply(text, function(x) eval(parse_expr(x)))

[[1]]
 [1] 3.5 3.0 3.2 3.1 3.6 3.9 3.4 3.4 2.9 3.1

[[2]]
                     mpg cyl  disp  hp drat    wt  qsec vs am gear carb
Hornet Sportabout   18.7   8 360.0 175 3.15 3.440 17.02  0  0    3    2
Valiant             18.1   6 225.0 105 2.76 3.460 20.22  1  0    3    1
Duster 360          14.3   8 360.0 245 3.21 3.570 15.84  0  0    3    4
Merc 280C           17.8   6 167.6 123 3.92 3.440 18.90  1  0    4    4
Merc 450SE          16.4   8 275.8 180 3.07 4.070 17.40  0  0    3    3
Merc 450SL          17.3   8 275.8 180 3.07 3.730 17.60  0  0    3    3
Merc 450SLC         15.2   8 275.8 180 3.07 3.780 18.00  0  0    3    3
Cadillac Fleetwood  10.4   8 472.0 205 2.93 5.250 17.98  0  0    3    4
Lincoln Continental 10.4   8 460.0 215 3.00 5.424 17.82  0  0    3    4
Chrysler Imperial   14.7   8 440.0 230 3.23 5.345 17.42  0  0    3    4
Dodge Challenger    15.5   8 318.0 150 2.76 3.520 16.87  0  0    3    2
AMC Javelin         15.2   8 304.0 150 3.15 3.435 17.30  0  0    3    2
Camaro Z28          13.3   8 350.0 245 3.73 3.840 15.41  0  0    3    4
Ford Pantera L      15.8   8 351.0 264 4.22 3.170 14.50  0  1    5    4
Maserati Bora       15.0   8 301.0 335 3.54 3.570 14.60  0  1    5    8

Vectorize:

Vectorize(function(x) eval(parse_expr(x)))(text)

正如@Donald Seinein 在 cmets 中指出的那样，有eval(parse(text=x)) 的base-R 解决方案：

lapply(text, function(x) eval(parse(text = x))