R/sess.info.R

In frank113/CMU-Shiny-Server: Allows CMU Shiny Server to Save Sessions

sess.info <- function(name) {
  .full.dir <- paste("Saved_R_Sessions/", name,
                     "/", name, "_info",
                     sep = "")
  if (!dir.exists(.full.dir)) {
    stop("Directory does not exist")
  }

  load(.full.dir)
  print(.out)

  ## we must remove it from the environment
  remove(.out)
}

#' @title Get information About a Saved Session
#'
#' @name sess.info
#'
#' @description Given a string \code{name}, the function will produce
#'   relevant information about the saved session in the console.
#'
#' @param \code{name} A string value naming the session about which you
#'   wish to learn.
#'
#' @return NULL. Prints out the values in the console.
#'
#' @details No saved session exist with the given \code{name}, the function will
#'   raise an error.
#'
#' @keywords load, sessions, shiny, CMU
#'
#' @export
"sess.info"