R语言自定义函数执行不终止无返回结果，函数外运行正常如何解决

在R环境中运行自定义函数时，程序始终无法结束执行，无任何结果返回；将函数内部的脚本逻辑移出函数单独运行时，可以正常得到输出结果，问题代码如下：

findWords <- function(metasInteresse)
 {
     stopWords <- c("da","de","do","a","no","que","com","","e","se","as","o","na","os","name","para","em","og")
     
     vTest<- strsplit(metasInteresse,',')
     
     a<-1
     j<-1
     st<-1
     
     while(a<= length(vTest))
     {
         while(st<= length(stopWords))
         {
             if(vTest[[a]][j] == stopWords[st])
             {
                 vTest[[a]][j] <- vTest[[a1]][j]
                 a<- a1
                 j<- j2
                 st<- st1          
             }  
             else
             {
                 a<- a1
                 j<- j1
                 st<- st1
             }
         }  
     }
     return(DATAFRAME(metasInteresse))
 }

函数无限卡死是多个低级错误叠加导致的：

• 循环计数器无递增逻辑：两层while循环用到的a、j、st三个计数器，从头到尾没有写+1的迭代逻辑，初始值设完就再也没有正确更新，循环判断条件永远成立，直接进入死循环。
• 作用域错误：循环分支里用来给计数器赋值的a1、j1、j2、st1四个变量根本没有在函数内定义。把代码拿到函数外跑的时候，如果全局环境里碰巧存了同名变量，代码能读到值就不会立刻报错；但函数运行时优先查找内部作用域，找不到这几个值时逻辑完全失效。
• 业务逻辑不通：匹配到停用词后的替换语句vTest[[a]][j] <- vTest[[a1]][j]没有实际意义，正常过滤停用词只需要剔除匹配到的词即可，不需要跨位置覆盖元素。
• 返回值错误：最后返回时调用的DATAFRAME()不是R的合法函数，R内置的构造数据框函数是小写开头的data.frame()，且传入的参数是未做任何处理的原始输入metasInteresse，和前面的文本处理逻辑完全脱节。

这类文本过滤场景不需要手写while循环，用R自带的向量化匹配和遍历函数即可，既不会出现计数器写错导致的死循环，运行效率也高很多，修正后的代码如下：

findWords <- function(metasInteresse) {
  # 定义停用词表
  stopWords <- c("da","de","do","a","no","que","com","","e","se","as","o","na","os","name","para","em","og")
  # 按逗号拆分输入文本
  splitText <- strsplit(metasInteresse, ',')
  # 批量过滤每个文本里的停用词
  filterRes <- lapply(splitText, function(words) {
    words[!words %in% stopWords]
  })
  # 组装结果数据框
  result <- data.frame(
    raw_input = metasInteresse,
    filter_result = sapply(filterRes, paste, collapse = ","),
    stringsAsFactors = FALSE
  )
  return(result)
}

• 写R函数时不要依赖全局环境的变量，所有用到的对象必须在函数内部明确定义，否则很容易出现「函数外能跑、函数内报错」的作用域问题。
• R内置函数基本为小写蛇形命名，遇到“找不到函数”的报错优先检查拼写、大小写错误。

内容的提问来源于stack exchange，提问作者tjus