Evaluation of text

Just to remember (once for all):
eval( parse( text="a <- c(1,2,3)" ) )