R包开发报错：attempt to replicate an object of type 'closure' 求助

• 你的dates函数在包的命名空间环境中查找s时，匹配到的是base R内置的s()函数（类型为closure，即函数），而非你通过sites赋值到全局环境的向量s。
• 包内函数默认在自身命名空间中搜索对象，不会自动读取全局环境的变量。即便你在全局环境创建了向量s，dates也无法直接访问，反而调用了同名内置函数，导致length(s)试图计算函数的长度，触发报错。

推荐优先采用符合R包开发规范的方案，避免依赖全局环境：

方法1：显式传递参数（最规范） #

让sites返回创建的向量，调用dates时将该向量作为参数传入：

sites <- function(...) {
  s <- c(...)
  return(s)
}

dates <- function(date, s) {
  d <- rep(date, length(s))
  print(d)
}

调用示例：

s_vec <- sites(1, 2, 3, 4, 5)
dates("10/24/2023", s_vec)

输出结果：

[1] "10/24/2023" "10/24/2023" "10/24/2023" "10/24/2023" "10/24/2023"

方法2：使用包内部环境共享状态 #

如果需要在包内多个函数间共享数据，可创建包专属的内部环境，避免污染全局：

# 在包的顶层定义内部环境
.pkg_env <- new.env(parent = emptyenv())

sites <- function(...) {
  s <- c(...)
  assign(x = 's', value = s, envir = .pkg_env)
}

dates <- function(date) {
  s <- get("s", envir = .pkg_env)
  d <- rep(date, length(s))
  print(d)
}

调用方式不变：

sites(1, 2, 3, 4, 5)
dates("10/24/2023")

方法3：强制读取全局环境（不推荐） #

若坚持使用全局环境，需在dates中明确指定读取全局环境的s：

dates <- function(date) {
  s <- get("s", envir = .GlobalEnv)
  d <- rep(date, length(s))
  print(d)
}

此方式会污染全局环境，且依赖用户手动调用sites创建变量，不符合模块化开发原则，易引发意外问题。

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