Fix error in internal function scope

SantanderMetGroup · Jun 28, 2018 · e0216d8 · e0216d8
1 parent 6a1697c
commit e0216d8
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/R/ps2psl.R b/R/ps2psl.R
@@ -98,7 +98,7 @@ ps2psl <- function(ps, tas, zgs) {
     l <- lapply(1:n.mem, function(x) {
         p <- subsetGrid(ps, members = x, drop = TRUE) %>% redim(member = FALSE) %>% extract2("Data") %>% array3Dto2Dmat()
         t <- subsetGrid(tas, members = x, drop = TRUE) %>% redim(member = FALSE) %>% extract2("Data") %>% array3Dto2Dmat()
-        aux <- .reducePressure(p = p, t = t, zgs = zgs, direction = "ps2psl")
+        aux <- reducePressure(p = p, t = t, zgs = zgs, direction = "ps2psl")
         psl$Data <- mat2Dto3Darray(aux, coords$x, coords$y)
         return(psl)
     })

diff --git a/R/psl2ps.R b/R/psl2ps.R
@@ -101,7 +101,7 @@ psl2ps <- function(psl, tas, zgs) {
     l <- lapply(1:n.mem, function(x) {
         p <- subsetGrid(psl, members = x, drop = TRUE) %>% redim(member = FALSE) %>% extract2("Data") %>% array3Dto2Dmat()
         t <- subsetGrid(tas, members = x, drop = TRUE) %>% redim(member = FALSE) %>% extract2("Data") %>% array3Dto2Dmat()
-        aux <- .reducePressure(p = p, t = t, zgs = zgs, direction = "psl2ps")
+        aux <- reducePressure(p = p, t = t, zgs = zgs, direction = "psl2ps")
         ps$Data <- mat2Dto3Darray(aux, coords$x, coords$y)
         return(ps)
     })