r - 在 R 中为另一个环境中的对象的一部分赋值

Question

假设我在环境 e 中定义了两个相似的大对象 x, y(数据表)。 我想使用函数 f 以类似的方式更改 x 或 y 的很大一部分，而无需在 f 的执行环境中创建 x 或 y 的副本。示例:

e <- new.env()
e$x <- c(1,2,3) # imagine this to be BIG (ie. dataframe with 200k vars each 500k rows)
e$y <- c(4,5,6) # same here
e$v <- 2        # minor variables 

f <- function(var_str, env, input){

    # do some computation on parts of var_str which is either "x" or "y"
    # and store these right back into e$x or e$y, respectively.
    # ie

    str <- paste0(var_str,"[2:3] <- (",var_str,"[2:3])^2 + rep(v,2) + ", deparse(input1),"^3/c(100,101)")
    eval(parse(text=str), envir= e)

    # this does work but I can image there is an easier/more elegant way 
    # of doing this.
}

我想在全局环境中定义该函数，并将该函数应用于输入中具有不同变量的 e$x 和 e$y。 IE。执行

f("x", e, c(1,2))
f("y", e, c(3,4))

有没有人有一个优雅的解决方案。

Answer 1

应避免使用

eval(parse())。您可以像这样引用环境:

e <- new.env()
e$x <- c(1,2,3) # imagine this to be BIG (ie. dataframe with 200k vars each 500k rows)
e$y <- c(4,5,6) # same here
e$v <- 2        # minor variables 

f <- function(var_str, env, input){

  # do some computation on parts of var_str which is either "x" or "y"
  # and store these right back into e$x or e$y, respectively.
  # ie
  env[[var_str]][2:3] <- (env[[var_str]][2:3])^2 + rep(env$v,2) + input^3/input

}


f("x", e, 1:2)
e$x
#[1]  1  7 15