R/print.character.R

Defines functions print.character

#' @export
print.character <- function(x) {

  samp <- runif(length(x)) < 0.3
  x[samp] <- sub(" [[:alpha:]]+ [[:alpha:]]+ [[:alpha:]]+[.]*$"," covfefe", x[samp])
  print.default(x)
}
JerBoon/trumpverse documentation built on Oct. 30, 2019, 7:38 p.m.