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