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