Emit warning when `print()` is called from annotation

[grosscol]

inject a print(x, ...) function into the annotation environment

Essentially a convenient warning to catch the case when you've left a print statement in your annotations.

print <- function(x, ...){
  rlang::warn("Printing in annotations will produce invalid output.")
  base::print(x, ...)
}