R/disp.R

In gmonette/yscs: Collection of tools used in York University's Statistical Consulting Service

#' Print the name and value of a variable in a function
#'
#' Useful for debugging as a substitute for printing the value of a variable in a function. It also prints the name of the variable.
#'
#' @param x value to print
#' @param head (default: deparse(substitute(x))) heading preceding printed value
#' @export
disp <- function(x, head = deparse(substitute(x)))
{
  cat("\n::: ", head, " :::\n")
  print(x)
}