2

我想创建一个create_thresholds动态创建 R6 类和实例对象的函数。这个想法是动态创建一个数据结构，它具有客户端对象可以访问的只读活动字段，类似于 Wickham 所示的示例（https://adv-r.hadley.nz/r6.html - 16.3.2 Active字段）。我已经查看了向 r6 类实例动态添加函数，但我正在寻找一种修改类定义的解决方案，而不是向实例对象添加函数。

该函数create_thresholds读取 var/val 对的 data.frame，然后创建一个 R6Class 对象，在该对象上尝试设置各种私有字段并创建只读活动字段。该函数通过创建 Thresholds 对象的新实例而终止。

如以下代码所示，调用活动方法似乎会在不正确的环境中评估方法表达式。

library("R6")


create_thresholds <- function(df) {
  require(glue)
  Thresholds <- R6Class("Thresholds")

    for (i in 1:nrow(df)){
      e <- environment()
      print(e)
      Thresholds$set("private", glue(".{df$var[i]}"), df$val[i])
      Thresholds$set("active", glue("{df$var[i]}"), function() {
        eval(parse(text = glue("private$.{df$var[i]}")))
      })
    }

  th <- Thresholds$new()

  return(th)
}

df <- tibble::tribble(~var, ~val,
                      "min_units", 100,
                      "min_discount", 999)


th <- create_thresholds(df)
th$min_discount ## expect 999
th$min_units ## OOPS! expect 100
4

1 回答 1

1

以下解决方案需要动态创建整个函数/方法定义的字符串形式，然后eval(parse())对其进行调用。

library("R6")


df <- tibble::tribble(~var, ~val,
                      "min_units", 100,
                      "min_discount", 999)

create_thresholds <- function(df) {
  Thresholds <- R6Class("Thresholds")

  for (i in 1:nrow(df)){
    mthd_name <- df$var[i]
    mthd_def <- glue::glue("function() private$.{mthd_name}")
    Thresholds$set("private", glue(".{mthd_name}"), df$val[i])
    Thresholds$set("active", mthd_name, eval(parse(text = mthd_def)))
  }

  hh <- Thresholds$new()
  return(hh)
}

hh <- create_thresholds(df)
hh$min_discount # expect 999!
hh$min_units #expect 100
于 2018-08-08T19:07:11.967 回答