R/get_def_assay.R

In kgellatl/SignalCell: Network Analysis for single cell RNA sequencing Data (sc-RNASeq)

#' Get Default Assay
#'
#' This will get the default assay used for downstream analysis.
#'
#' @param input the input sce
#' @export
#' @details
#'
#' @examples
#' sce <- get_def_assay(sce)

get_def_assay <- function(input){
  def_assay <- int_metadata(input)$default_assay
  return(def_assay)
}

# Doc check