为什么我的简单代码不在全局环境中存储变量

Question

我有一个奇怪的问题，该函数的值应该存储在全局环境中。相反，它为不应执行的行返回错误！

DEV.OneCancerStrings <- function(Number){
  if(!exists("Number")){
    if(!exists("study_number")){
      study_number <<- 1
      specified_number <- study_number   
    }else if(exists("study_number")){   
      study_number <<- study_number + 1   
      specified_number <- study_number   
    } 
  }else if(exists("Number")){ 
    specified_number <- Number 
  }
}

如果我不带任何参数执行它，则会看到以下错误：

DEV.OneCancerStrings()
Error in DEV.OneCancerStrings() : 
  argument "Number" is missing, with no default

Answer 1

我知道了！我需要使用'missing'来评估函数参数！