max/ourMELONS
1
0
Fork 0
Code Issues 1 Pull requests Projects Releases Packages Wiki Activity Actions

Added list output to cell()

Browse source
This commit is contained in:
Waldir Leoncio 2021-03-31 10:26:56 +02:00
parent d16de2ba7d
commit e1642f24e5
1 changed files with 6 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
R/cell.R
View file

@ -2,9 +2,14 @@
#' @description Creates an array of zeros #' @description Creates an array of zeros
#' @param n a the first dimension (or both, if sz is not passed) #' @param n a the first dimension (or both, if sz is not passed)
#' @param sz the second dimension (or 1st and 2nd, if not passed) #' @param sz the second dimension (or 1st and 2nd, if not passed)
#' @param expandable if TRUE, output is a list (so it can take different
#' lengths)
#' @param ... Other dimensions #' @param ... Other dimensions
#' @return An array of zeroes with the dimensions passed on call #' @return An array of zeroes with the dimensions passed on call
cell <- function(n, sz = c(n, n), ...) { cell <- function(n, sz = c(n, n), expandable=FALSE, ...) {
if (expandable) {
return(vector("list", length = n))
}
if (length(sz) == 1 & missing(...)) { if (length(sz) == 1 & missing(...)) {
return(array(0, dim = c(n, sz))) return(array(0, dim = c(n, sz)))
} else if (length(sz) == 2) { } else if (length(sz) == 2) {