环境中使用函数：source()导入代码的作用域问题及解决方案咨询

首先咱们拆解你遇到的核心问题：为什么函数没拿到全局的y，以及预期的20没出现。

错误原因 #

1. R的词法作用域规则（最关键） #

R函数的变量查找遵循词法作用域：它只会沿着「函数被定义时所在的环境链」搜索变量，而不是调用函数时的环境。你的printing_func是在my_newenv环境里定义的，所以它找y时会先在my_newenv内部查找，找不到再去my_newenv的父环境（默认是全局环境）找——但还有第二个问题直接导致你看不到预期结果。

2. 函数返回值的遗漏 #

你的printing_func里确实计算了xx + y，但没有把这个结果返回出去！函数最后一行是print("it works")，所以函数的返回值就是这个字符串，而不是你想要的20，这是你看不到预期结果的直接原因。

3. 对attach()的误解 #

attach()只是把目标环境加到R的搜索路径里，方便你直接用变量名访问环境内容，但它不会改变环境本身的父环境，也不会让函数的作用域切换到调用环境。你的环境创建方式本身没问题，但显式指定父环境会更稳妥。

解决方法 #

方案一：修正函数返回值（最直接） #

修改你的tmp.R脚本，确保函数返回计算结果：

xxx <- "this overwrote"
printing_func <- function(xx){
  result <- xx + y
  print("it works")
  return(result) # 显式返回计算结果
}

这样调用my_newenv$printing_func(10)时，会先打印"it works"，然后返回20，完全符合你的预期。

方案二：显式指定环境的父环境（更稳妥） #

虽然new.env()默认父环境是全局环境，但显式指定可以避免意外：

# 更安全地卸载环境
if ("new_tmp" %in% search()) {
  detach("new_tmp", character.only = TRUE)
}
# 显式指定父环境为全局环境
my_newenv <- new.env(parent = .GlobalEnv)
attach(my_newenv, name="new_tmp")
source("C:/Users/tmp/tmp.R", local=my_newenv)

这样能确保my_newenv的环境链完全正确，函数查找y时会顺利找到全局的y=10。

方案三：动态获取调用环境的变量（不推荐，仅特殊场景用） #

如果你确实需要函数在调用时使用当前环境的变量（而非定义环境的链），可以用get()指定环境：

# 修改tmp.R里的函数
printing_func <- function(xx){
  # 从调用函数的环境中获取y
  y_from_call_env <- get("y", envir = parent.frame())
  result <- xx + y_from_call_env
  print("it works")
  return(result)
}

注意：动态作用域会降低代码可读性和可维护性，除非特殊需求，优先使用词法作用域。

另外补充：你全局的xxx没有被覆盖是完全正常的——source到my_newenv后，xxx是在这个独立环境中定义的，和全局变量互不干扰，这正好达到了你避免覆盖本地变量的目的。

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