How to get R to evaluate arbitrary code in a string

evaluate_a_string.r

rm(list=ls()) 

rcode <- "x <- 1+1; y <- 2+2"

# running `eval` evaluates `rcode` into the parent environment
eval(parse(text = rcode))

print(x)
print(y)