R/printIncucyteDRCSetList.R

In chapmandu2/IncucyteDRC: Dose Response Curves from Incucyte Proliferation Assays

#' print.IncucyteDRCSetList
#'
#' Prints information on an IncucyteDRCSetList object
#'
#' @param x IncucyteDRCSet object
#' @param ... Additional arguments
#'
#' @export
#'
#' @examples
#' pm_file <- system.file(file='extdata/example.PlateMap', package='IncucyteDRC')
#' test_pm <- importPlatemapXML(pm_file)
#' data_file <- system.file(file='extdata/example_data.txt', package='IncucyteDRC')
#' test_data <- importIncucyteData(data_file, metric='pc')
#' test_list <- splitIncucyteDRCPlateData(test_pm, test_data, group_columns='growthcondition')
#' class(test_list)
#' print(test_list)

print.IncucyteDRCSetList <- function(x, ...) {

    cat(sprintf("## This is an IncucyteDRCSetList S3 object containing %s IncucyteDRCSet objects\n", length(x)))
    cat("## Access using standard list notation ie my_list[[1]]\n")
    cat('## Try lapply(my_list, print) to see more information on each object')

}