From 90301e42d20b9f60d37e8a5f49b195483b380001 Mon Sep 17 00:00:00 2001 From: nperez Date: Mon, 1 Feb 2021 17:28:18 +0100 Subject: [PATCH] undo environment fun --- DESCRIPTION | 2 +- R/Apply.R | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/DESCRIPTION b/DESCRIPTION index f39632b..12a3128 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -1,6 +1,6 @@ Package: multiApply Title: Apply Functions to Multiple Multidimensional Arrays or Vectors -Version: 2.1.2 +Version: 2.1.3 Authors@R: c( person("BSC-CNS", role = c("aut", "cph")), person("Nicolau", "Manubens", , "nicolau.manubens@bsc.es", role = "aut"), diff --git a/R/Apply.R b/R/Apply.R index 108811d..bbd71ae 100644 --- a/R/Apply.R +++ b/R/Apply.R @@ -507,7 +507,7 @@ Apply <- function(data, target_dims = NULL, fun, ..., chunk_sizes <- c(chunk_sizes, total_size %% chunk_size) } - fun_env <- new.env(parent = environment(fun)) + fun_env <- new.env(parent = parent.frame()) for (i in seq_along(extra_info)) { assign(names(extra_info)[i], extra_info[[i]], envir = fun_env) } -- GitLab