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