R中的Nargin函数(函数输入数)

Nargin <- function(...) {
  length(list(...))
}

myFunction <- function(...) {
  numArgs <- Nargin(...)
  
  if (numArgs == 0) {
    print("No arguments provided.")
  } else if (numArgs == 1) {
    print("One argument provided.")
  } else {
    print(paste(numArgs, "arguments provided."))
  }
}

myFunction()  # 输出: "No arguments provided."
myFunction(10)  # 输出: "One argument provided."
myFunction(1, 2, 3)  # 输出: "3 arguments provided."