Nothing
#' Information on the current R session
#'
#' @return A named list.
#'
#' @examples
#' startup::sysinfo()
#'
#' @export
sysinfo <- function() {
## Built-in system information (character)
sysinfo <- as.list(Sys.info())
sysinfo$os <- .Platform$OS.type
sysinfo$gui <- .Platform$GUI
sysinfo$interactive <- interactive()
## Built-in system flags (logical)
sysinfo$rapp <- (.Platform$GUI == "AQUA")
sysinfo$rgui <- (.Platform$GUI == "Rgui")
sysinfo$rstudio <- is_rstudio_console()
sysinfo$rstudioterm <- is_rstudio_terminal()
sysinfo$microsoftr <- is_microsoftr()
sysinfo$ess <- is_ess()
sysinfo$radian <- is_radian()
## Deprecated: Renamed rtichoke -> radian in December 2018
sysinfo$rtichoke <- sysinfo$radian
## Deprecated: Renamed rice -> rtichoke in February 2018
sysinfo$rice <- sysinfo$radian
sysinfo$pqr <- is_pqr()
sysinfo$wine <- is_wine()
## Session-specific variables
sysinfo$dirname <- basename(getwd())
sysinfo$quiet <- any(c("-q", "--quiet", "--silent") %in% r_cli_args())
save <- NA
if ("--save" %in% r_cli_args()) save <- TRUE
if ("--no-save" %in% r_cli_args()) save <- FALSE
sysinfo$save <- save
sysinfo
}
r_cli_args <- local({
cli_args <- NULL
function() {
if (is.null(cli_args)) {
cli_args <<- setdiff(commandArgs(), commandArgs(trailingOnly = TRUE))
}
cli_args
}
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.