R/lsPackages.r

In imouzon/usefulR: A personal R package

#' function_name: lsPackages
#'
#' Purpose: lists the packages loaded since the start of the R session
#' Creation Date: 06-03-2015
#' Last Modified: Fri Mar 20 00:37:57 2015
#'
#' @param ret logical value, optional argument
#' @param pr logical value, optional argument
#' @param lib logical value, optional argument
#' @param kntr logical value, optional argument
#' @export
#' @examples
#' lsPackages(FALSE,TRUE,TRUE)
lsPackages = function(ret=FALSE,pr=TRUE,lib=FALSE,ignore.packages='base',kntr=FALSE){
   added.pkgs = (.packages())[which(!(.packages()) %in% c(getOption("defaultPackages"),ignore.packages))]
   if(lib){
      cat.packs = paste0('library(', added.pkgs, ')', collapse='\n')
   }else{
      cat.packs = paste0(added.pkgs, collapse='\n')
   }
   if(lib && pr) cat.packs = paste('\\end{verbatim}', paste0('\\hlwkd{library}\\hlstd{(',added.pkgs,')}',collapse='\n'), '\\begin{verbatim}',sep='\n')
   if(pr) cat(cat.packs)
   if(ret) return(added.pkgs)
}