R/tsl_ncol.R

In distantia: Advanced Toolset for Efficient Time Series Dissimilarity Analysis

#' Get Number of Columns in Time Series Lists
#'
#' @param tsl (required, list) Time series list. Default: NULL
#'
#' @return list
#' @export
#' @examples
#' #initialize time series list
#' tsl <- tsl_simulate(
#'   n = 2,
#'   cols = 6
#' )
#'
#' #number of columns per zoo object
#' tsl_ncol(tsl = tsl)
#' @autoglobal
#' @family tsl_management
tsl_ncol <- function(
    tsl = NULL
){

  utils_check_args_tsl(
    tsl = tsl,
    min_length = 1
  )

  lapply(
    X = tsl,
    FUN = function(x){
      ncol(x)
    }
  )

}