1replacements_R6 <- function(env) { 2 unlist(recursive = FALSE, eapply(env, all.names = TRUE, 3 function(obj) { 4 if (inherits(obj, "R6ClassGenerator")) { 5 unlist(recursive = FALSE, eapply(obj, 6 function(o) { 7 if (inherits(o, "list")) { 8 lapply(names(o), 9 function(f_name) { 10 f <- get(f_name, o) 11 if (inherits(f, "function")) { 12 replacement(f_name, env = env, target_value = f) 13 } 14}) 15 } 16 })) 17} 18 })) 19} 20