f1 <- function(x) {
  # notranslate start
  base::warning("I warned you!")
  x+1
}