從readline（）函數執行R代碼

Question

我希望用戶能夠輸入代碼並執行代碼。我可以想到一個相當低效的解決方案：

code <- readline("Enter code > ") 
write(code, "code.R") 
source("code.R") 

有沒有更好的方法來實現這個目標？

Answer 1

您可以使用textConnection，這裏是一個演示：

code <- readline("Enter code > ") 
Enter code > df <- data.frame(x = 1:3) 

source(textConnection(code)) 

df 
    x 
1 1 
2 2 
3 3 

或者使用eval(parse(text = code))：

eval(parse(text = code)) 

df 
    x 
1 1 
2 2 
3 3