R/empty_array.R

In YT100100/TodaFunc: Convenient R functions for myself

Defines functions empty_array

Documented in empty_array

#' Create empty matrix with dimnames
#'
#' @param data Data for array.
#' @param ... dimnames.
#'
#' @export

empty_array <- function(..., data = NA) {

  dimnames <- list(...)
  dim <- sapply(dimnames, length)
  return(array(data = data, dim = dim, dimnames = dimnames))

}