R/vprint.R

Defines functions vprint

vprint <- function(x){
  if(class(x) == "character"){
    out = cat(x, sep = "\n")
  }else if(class(x) == "numeric"){
    out = matrix(x, ncol = 1)
  }
  print(out)
}
jlivsey/livsey documentation built on Oct. 17, 2024, 3:18 a.m.