R/n_observations.R

In metasnf: Meta Clustering with Similarity Network Fusion

#' Extract number of observations stored in an object
#'
#' @keywords internal
#' @param x The object to extract number of observations from.
#' @return The number of observations in x.
#' @export
n_observations <- function(x) {
    UseMethod("n_observations")
}

#' @keywords internal
#' @export
n_observations.data_list <- function(x) {
    return(attributes(x)$"n_observations")
}