R/matitle.R

Defines functions matitle

matitle <- function(x) {
  tl <- options()$width - 7
  ##
  if (!is.null(x$title))
    if (x$title != "")
      if (nchar(x$title) <= tl)
        cat("Title: ", x$title, "\n\n", sep="")
      else
        cat("Title: ", substring(x$title, 1, tl - 4),
            " ...\n\n", sep = "")
}

Try the netmeta package in your browser

Any scripts or data that you put into this service are public.

netmeta documentation built on June 23, 2024, 9:06 a.m.