R/version.R

In Appsilon/shiny.info: 'shiny' Info

#' Display version of the app
#'
#' Displays the version of the app by default using VERSION global variable.
#'
#' @param ver (default NULL) custom version number
#' @param position character with position of the parameter. Default "top right".
#'
#' @export
#'
#' @examples
#' version() # if VERSION global variable exists
#' version("1.2.1") # with custom version number
version <- function(ver = NULL, position = "top right") {
  if (exists("VERSION", envir = parent.frame()))
    ver <- get("VERSION", envir = parent.frame())
  display(ver, position, type = "version")
}