Skip to content
GitLab
Projects
Groups
Topics
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in
Toggle navigation
Menu
Computational Earth Sciences
multiApply
Compare revisions
a26efbe59bb5383e4f4604d5288492f9bcd4ecfd...3efdca8bb994c0c7529c1a41574383c1405ea0e8
Commits (2)
undo environment fun
· 90301e42
nperez
authored
Feb 01, 2021
90301e42
Merge branch 'develop-envir' into 'master'
· 3efdca8b
Nuria Pérez-Zanón
authored
Feb 01, 2021
Undo environment fun See merge request
!26
3efdca8b
Show whitespace changes
Inline
Side-by-side
DESCRIPTION
View file @
3efdca8b
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.
2
Version: 2.1.
3
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"),
...
...
R/Apply.R
View file @
3efdca8b
...
@@ -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
=
environment
(
fun
))
fun_env
<-
new.env
(
parent
=
parent.frame
(
))
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
)
}
}
...
...