Создайте отдельную копию замыкания R

Есть ли способ скопировать замыкание в новый объект, который содержит текущее состояние исходного замыкания и при этом быть отделенным для всех предстоящих изменений в среде?

Я пытался найти решение, но при попытке использовать содержащуюся функцию возникла ошибка: Error in { : could not find function "{"

Вот пример кода:

# basic incrementation closure
inc <- function() {
  i <- 0 
  
  function(x = 1) {
    i <<- i + x
    i
  }
}

copyClosure <- function(x) {
  oldEnv <- environment(x)
  
  # set up copy of x in new env
  ret <- x
  newEnv <- new.env(parent = emptyenv())
  environment(ret) <- newEnv
  
  # copy objects from old to new env
  objs <- ls(envir = oldEnv, all.names = TRUE, sorted = FALSE)
  for (ii in objs) assign(x = ii, envir = newEnv, value = get(x = ii, envir = oldEnv))
  
  return(ret)
}

# original closure object
foo <- inc()
foo(5)

bar <- copyClosure(foo)

# check if objects i are identical
identical(x = get(x = "i", envir = environment(foo)),
          y = get(x = "i", envir = environment(bar)))

# check if objects i are separated
foo(5)
identical(x = get(x = "i", envir = environment(foo)),
          y = get(x = "i", envir = environment(bar)))

# try using copied closure
bar(5)