Commit 3837aa48 authored by nperez's avatar nperez
Browse files

Merge branch 'master' into develop-dimnames

parents 58fbae69 60ebb892
Pipeline #4811 passed with stage
in 1 minute and 16 seconds
Package: multiApply Package: multiApply
Title: Apply Functions to Multiple Multidimensional Arrays or Vectors Title: Apply Functions to Multiple Multidimensional Arrays or Vectors
Version: 2.1.1 Version: 2.1.2
Authors@R: c( Authors@R: c(
person("BSC-CNS", role = c("aut", "cph")), person("BSC-CNS", role = c("aut", "cph")),
person("Nicolau", "Manubens", , "nicolau.manubens@bsc.es", role = "aut"), person("Nicolau", "Manubens", , "nicolau.manubens@bsc.es", role = "aut"),
...@@ -29,9 +29,9 @@ Imports: ...@@ -29,9 +29,9 @@ Imports:
plyr plyr
Suggests: Suggests:
testthat testthat
License: LGPL-3 License: Apache License 2.0
URL: https://earth.bsc.es/gitlab/ces/multiApply URL: https://earth.bsc.es/gitlab/ces/multiApply
BugReports: https://earth.bsc.es/gitlab/ces/multiApply/issues BugReports: https://earth.bsc.es/gitlab/ces/multiApply/-/issues
Encoding: UTF-8 Encoding: UTF-8
LazyData: true LazyData: true
RoxygenNote: 5.0.0 RoxygenNote: 5.0.0
...@@ -507,7 +507,7 @@ Apply <- function(data, target_dims = NULL, fun, ..., ...@@ -507,7 +507,7 @@ Apply <- function(data, target_dims = NULL, fun, ...,
chunk_sizes <- c(chunk_sizes, total_size %% chunk_size) chunk_sizes <- c(chunk_sizes, total_size %% chunk_size)
} }
fun_env <- new.env(parent = parent.frame()) fun_env <- new.env(parent = environment(fun))
for (i in seq_along(extra_info)) { for (i in seq_along(extra_info)) {
assign(names(extra_info)[i], extra_info[[i]], envir = fun_env) assign(names(extra_info)[i], extra_info[[i]], envir = fun_env)
} }
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment