R/vector.struct.R

#' Vector Structure
#'
#' Defines the structure of a vector given to footnote, main, etc.
#'
#' @param vctr character vector
#' @export
vector.struct <-
function(vctr=NA)
{
  vctr.nrw=NA
  if (!is.na(vctr[1]))
    {
      vctr      <- vector.linebreak(vctr)
      vctr.nrw  <- length(vctr)
    }
  return(list(vctr=vctr,          # Newly formatted title
              vctr.nrw=vctr.nrw   # Number of rows title will take
              ))
}

Try the dprint package in your browser

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

dprint documentation built on May 2, 2019, 10:14 a.m.