R/showSessionInfo.R

In benjamin-chan/prepR: Prepares R Session With Commonly Used Functionality

#' showSessionInfo function
#' 
#' Show R session information for reproducibility purposes.
#' @keywords debugging trace reproducibility
#' @export
#' @examples
#' .timeStart <- Sys.time()  # Defined prior to calling showSessionInfo()
#' showSessionInfo()
#' showSessionInfo()$timeEnd

showSessionInfo <- function () {
  list(timeStart = ifelse(exists(".timeStart"), format(.timeStart), NA),
       timeEnd = Sys.time(),
       timeElapsed = ifelse(exists(".timeStart"),
                            format(Sys.time() - .timeStart, format=difftime),
                            NA),
       Sys.info = Sys.info(),
       sessionInfo = sessionInfo())
}