R/magic_free.R

In hoxo-m/magicfor: Magic Functions to Obtain Results from for Loops

#' Free magicalizetion and clear the result
#'
#' @export
magic_free <- function() {
  calling_env <- parent.frame()

  if (is_magicalized(calling_env)) {
    remove("for", envir = calling_env)
  }

  var_names <- ls(.result_env, all.names = TRUE)
  rm(list = var_names, envir = .result_env)
}