R/draft.R

Defines functions draft

draft <- function(p) {
  print_debug_info(p)
  if (!is_yes(p$draft)) return(p)

  print_info(p, "[draft = y] Resolution set to 150 ppi")
  p$resolution = 150

  return(p)
}
data-science-made-easy/nicerplot documentation built on Nov. 3, 2024, 9:23 p.m.