修改参数

print_max5 <- function(data) {
  data <- substr(data, 1, 5)
  cat("data =", data, "\n")
}

print_max5("1234567")
# prints "data = 12345"