R/info.R

In setempler/miscset: Miscellaneous Tools Set

#' @name info
#' @keywords session
#' @author Sven E. Templer
#' @title Print enhanced session information
#' @description 
#' Based on and enhancing \code{devtools::session_info}.
#' @param ... Forwarded to other methods.
#' @param width Console width in columns.
#' @seealso 
#' \link[devtools]{session_info}
#' @examples
#' info()
#' devtools::session_info()
#' sessionInfo()
#' @export info
info <- function(..., width = 120) {
  
  oldwidth <- getOption("width")
  options(width = width)
  
  libs <- unique(normalizePath(.libPaths(), winslash = "/"))
  libs <- paste0(libs, " (", sapply(libs, function (x) length(list.files(x))), ")")
  names(libs) <- rep("library", length(libs))
  rpid <- Sys.getpid()
  names(rpid) <- "pid"
  rbin <- Sys.which("R")
  names(rbin) <- "binary"
  repo <- getOption("repos")
  repo <- paste0(repo, " (", names(repo), ")")
  names(repo) <- rep("repository", length(repo))
  
  si <- session_info(...)
  si$platform <- c(rbin, rpid, si$platform, repo, libs)
  class(si$platform) <- "platform_info"
  
  cat("\n")
  print(si)
  cat("\n")
  
  options(width = oldwidth)
  
}