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