simple overriding print.default method to prevent accidentally printing large objects

Print_Limits.R

# what object size should be prevented from being printed. Defaults to ~ 30mb, which is not very large
options("print_protect.print_size_bytes" = "30000")

# This method ONLY applies to functions sent to print.default (ie. matrix & vectors)
print.default <- function(x, ...) {
  x_bytes <- as.numeric(utils::object.size(x))
  answer <- "NA"
  
  if (interactive() &
      x_bytes >
      as.numeric(getOption("print_protect.print_size_bytes", "300"))) {
    answer <-
      readline(paste(
        "Object to print is",
        x_bytes,
        "bytes. Are you sure you want to print? [Y/n]"
      ))
    while (!(answer %in% c("Y", "n"))) {
      if (answer %in% c("Y", "n")) {
        break
      }
      answer <-
        readline(paste(
          "Object to print is",
          x_bytes,
          "bytes. Are you sure you want to print? [Y/n]"
        ))
    }
  } else{
    answer <- "Y"
  }
  
  if (answer == "Y") {
    base::print.default(x, ...)
  }
  
}