为什么我的R代码在采购时却给出错误但在本身运行脚本时却没有给出错误？

Question

编辑：我已查明了问题所在。我有一个区域代码regions = df$Code %>% unique的向量，为了匿名起见，说c('A', 'B', 'C')。当我运行clean_full.R时，此向量确实包含c('A', 'B', 'C')，但是当我source("clean_full.R")时，此向量变为c('A', 'B', 'C', NA)。这样，下面的代码将中断，因为它无法处理NA。目前，我只是提出了一个if语句来规避它，但是我无法找出为什么突然添加此NA。有什么想法吗？

---

我正在运行一个脚本model1.R，该脚本开始时会提供另一个脚本clean_full.R，以清理数据。当我使用source("clean_full.R")时收到错误消息

Error in FUN(X[[i]], ...) : 
  only defined on a data frame with all numeric variables

但是，如果我只是打开clean_full.R并使用Ctrl+A和Ctrl+Enter运行此脚本，则不会出现此错误。怎么会这样，我该怎么解决？

这是model1.R的前几行，向您展示我如何称呼它。

source("clean_full.R")
source("config.R")

library(tidyverse)
library(glue)
library(lmtest)