R/show-method.R

In binneR: Spectral Processing for High Resolution Flow Infusion Mass Spectrometry

#' show-BinParameters
#' @description show method for BinParameters class
#' @param object BinParameters Object
#' @author Jasen Finch \email{jsf9@aber.ac.uk}
#' @importFrom methods show
#' @importFrom purrr map_chr
#' @export

setMethod('show',signature = 'BinParameters',
          function(object){
              cat('\n')
              cat('Scans:',paste(min(object@scans),':',max(object@scans),sep = ''),'\n')
              cat('Modes:',paste(object@modes,collapse = ', '),'\n')
              cat('Scan Ranges:',paste(unlist(lapply(object@sranges,function(x){
                 paste(x[1],':',x[2],sep = '') 
              })),collapse = ' '),'\n')
              if (length(object@cls) > 0) {
                  cat('Class:',object@cls,'\n')
              }
              cat('No. Cores:',object@nCores,'\n')
              cat('Cluster Type:',object@clusterType,'\n')
          })

#' show-Binalysis
#' @description show method for Binalysis class
#' @param object Binalysis Object
#' @author Jasen Finch \email{jsf9@aber.ac.uk}
#' @importFrom methods show
#' @export

setMethod('show',signature = 'Binalysis',
          function(object){
              cat('\n')
              if (length(object@binLog) > 0) {
                  cat(object@binLog)
                  cat('\n')  
              }
              cat('Samples:',length(object@files))
              cat('\n')
              if (length(object@binLog) > 0) {
                  var <- lapply(object@binnedData,ncol)
                  var <- map_chr(names(var),~{
                  	str_c(.,': ',var[[.]],' features')
                  }) %>%
                  	str_c(collapse = '\n')
                  cat(var,sep = '\n')
              }
              cat('Average Purity:',mean(object@accurateMZ$Purity,na.rm = T) %>% round(3),'\n')
              cat('Average Centrality:',mean(object@accurateMZ$Centrality,na.rm = T) %>% round(3),'\n')
              cat('\n')
          })