Using R, how to cast a character string as a function (e.g., using `as.function`)?

Question

I have a character string:

FUN.n = "exp( 3 * x^2 + 2 * x + 1)";

I want to cast it as a function:

myFunction = castAsFunction (