尝试在R中通过引用传递

my_function <- function(x) {
  x <- substitute(x)
  # 修改参数的值
  x <- x + 1
  return(x)
}

# 调用函数
a <- 10
result <- my_function(a)
print(result)  # 输出11
print(a)  # 输出10，原始参数的值未被修改

my_function <- function(x) {
  x <<- x + 1
  return(x)
}

# 调用函数
a <- 10
result <- my_function(a)
print(result)  # 输出11
print(a)  # 输出11，原始参数的值被修改