regex - R 字符串来源

Question

希望这不会太复杂....但我在 x 中有以下字符串，并希望它以编程方式作为函数获取，以便我可以输入

HW.R()

生成 100 个随机法线....即我需要在 x 上执行什么操作才能实现？

下面是生成x

的代码

require(RCurl)
x <- base64Decode("SFcuUiA8LSBmdW5jdGlvbigpewogIHJub3JtKDEwMCkKfQ==\n")
x
[1] "HW.R <- function(){\n  rnorm(100)\n}"

Answer 1

如您所料，它一点也不复杂。这应该可以完成工作:

x <- "HW.R <- function(){\n  rnorm(100)\n}"
eval(parse(text = x))

HW.R
# function(){
#   rnorm(100)
# }

或者，您可以使用 source()，只要您首先将 x“包装”在 textConnection 中:

source(file = textConnection(x))
length(HW.R())
# [1] 100