tests/sessionInfo.R

In SuperCurve: RPPA Analysis Package

###
### $Id: sessionInfo.R 955 2015-01-24 22:10:34Z proebuck $
###


options(warn=1)
pkgname <- "SuperCurve"
suppressPackageStartupMessages(library(pkgname, character.only=TRUE))


##-----------------------------------------------------------------------------
## Returns character of package names corresponding to "Suggests:" field
suggestedPackages <- function(pkgname) {
    ## Mung suggested packages metadata to remove tab and newline characters
    suggests <- packageDescription(pkgname)$Suggests
    suggests <- gsub('\n', ' ', suggests)
    suggests <- gsub('\t', '',  suggests)

    unlist(strsplit(suggests, ', '))
}


## Load packages for all possible processing options
invisible(sapply(suggestedPackages(pkgname),
                 function(suggested) {
                     suppressPackageStartupMessages(
                         require(suggested, character.only=TRUE))
                 }))

show(sessionInfo())