[R] generically setting attributes of a function

[shang stud]

Hello all:

I wonder if there is a generic way to assign the name of a function as an
attribute of the function. For example,

w = function(x) x^2;
attr(w, "name") =  "w";

This assigns the name attribute of function w to be "w".

Would it be possible to put the second line of the code inside the
function definition? I would like to avoid typing specifically the
name, "w", when assigning the attribute.

Many thanks in advance.

Fang