可选参数值

say_goodbye <- function(text = "Goodbye!") {
  cat(text, "\n")
}

say_goodbye()
# prints "Goodbye!"

say_goodbye("see you")
# prints "see you"