# typical test
MyEnv <- function() {
self <- environment()
class(self) <- append('MyEnv', class(self))
f <- function(x_3, y_3n) x_3 + y_3n
self
}
getObjectFunctionArgumentNames(MyEnv())
#$f
#[1] "x_3" "y_3n"
Run the code above in your browser using DataLab