Question

我的预感是这是对R语言的滥用，并且有一个很好的理由不会发生这种情况。但我发现这是我正在尝试调试的代码中的潜在错误来源：

MWE

list.1 <- list(a=1,b=2,c=list(d=3))
list.2 <- list(b=4,c=list(d=6,e=7))
input.values <- list(list.1,list.2)
do.something.to.a.list <- function(a.list) {
    a.list$b <- a.list$c$d + a.list$a
    a.list
}
experiment.results <- lapply(input.values,do.something.to.a.list)

use.results.in.some.other.mission.critical.way <- function(result) {
    result <- result^2
    patient.would.survive.operation <- mean(c(-5,result)) >= -5
    if(patient.would.survive.operation) {
        print("Congrats, the patient would survive! Good job developing a safe procedure.")
    } else {
        print("Sorry, the patient won't make it.")
    }
}

lapply(experiment.results, function(x) 

use.results.in.some.other.mission.critical.way(x$b))

是我知道这是一个愚蠢的例子，我可以在尝试访问之前添加对元素存在的检查。但是我不是要求知道我能做什么，如果我在任何时候都有完美的记忆和意识，要慢慢解决这个功能不方便并且让我很头疼的事实。我试图完全避免头痛，也许是以代码速度为代价。

所以：我想知道的是......

（a）是否可以这样做。我最初的尝试失败了，我试图阅读{$ 1}内部的“$”以了解如何正确处理参数

（b）如果是这样，是否有充分理由不（或）这样做。

基本上，我的想法是，不是编写依赖于从列表访问的非null返回的每个单独的函数来仔细检查，我只能编写一个函数来仔细检查并相信其余的函数不会使用未满足的前提条件调用b / c失败的列表访问将失败快速。

Answer 1

您可以覆盖R中的几乎任何内容（某些特殊值除外 - NULL，NA，NA_integer_ NA_real_ NA_complex_，NA_character_，就我所知，NaN，Inf，TRUE，FALSE。

对于您的具体情况，您可以这样做：

`$` <- function(x, i) {
  if (is.list(x)) {
    i_ <- deparse(substitute(i))
    x_ <- deparse(substitute(x))
    if (i_ %in% names(x)) {
      eval(substitute(base::`$`(x, i)), envir = parent.frame())
    } else {
      stop(sprintf("\"%s\" not found in `%s`", i_, x_))
    }
  } else {
    eval(substitute(base::`$`(x, i)), envir = parent.frame())
  }
}

`[[` <- function(x, i) {
  if (is.list(x) && is.character(i)) {
    x_ <- deparse(substitute(x))
    if (i %in% names(x)) {
      base::`[[`(x, i)
    } else {
      stop(sprintf("\"%s\" not found in `%s`", i, x_))
    }
  } else {
    base::`[[`(x, i)
  }
}

示例：

x <- list(a = 1, b = 2)
x$a
#[1] 1
x$c
#Error in x$c : "c" not found in `x`
col1 <- "b"
col2 <- "d"
x[[col1]]
#[1] 2
x[[col2]]
#Error in x[[col2]] : "d" not found in `x`

它会慢慢减慢你的代码：

microbenchmark::microbenchmark(x$a, base::`$`(x, a), times = 1e4)
#Unit: microseconds
#            expr    min     lq     mean median      uq      max neval
#             x$a 77.152 81.398 90.25542 82.814 85.2915 7161.956 10000
# base::`$`(x, a)  9.910 11.326 12.89522 12.033 12.3880 4042.646 10000

我已将此限制为list s（包括data.frame s）并已使用[[通过数字和字符向量实现选择，但这可能无法完全表示可以使用$和[[的方式。

注意[[您可以使用@ rawr更简单的代码：

`[[` <- function(x, i) if (is.null(res <- base::`[[`(x, i))) simpleError('NULL') else res

但这会给列表成员NULL而不是未定义的错误。 e.g。

x <- list(a = NULL, b = 2)
x[["a"]]

这当然可以是所希望的。

在要求缺少列表元素时，我可以覆盖`$`或`[[`抛出错误而不是NULL吗？

1 个答案: