PROSAGA码农传奇-R-懒惰的评估问题 - 在一个tibble中的功能

懒惰的评估问题 - 在一个tibble中的功能

作者: 冷月如霜·胡狼
发布时间: 2023-12-22 09:25:27 (6月前)
转自：

<div class =“post-text”itemprop =“text”>
  <P>
    这是懒惰评估而不是范围界定的问题。问题是，
     <code>
      Composite
    </code>
     函数永远不会评估
     <code>
      f
    </code>
     要么
     <code>
      g
    </code>
    ，它只是创建一个函数，将这些名称作为其正文的一部分。在第一次通话之前，它们的价值不固定。很难弄清楚实际值来解释-6的位置，但修复很简单：改变
     <code>
      Composite
    </code>
     至
  </p>
   <pre>
    <code>
      Composite <- function(f, g) {
  force(f)
  force(g)
  function(...) f(g(...))
}

</code>
  </pre>
  <P>
    然后你的原始版本工作。
  </p>
   <pre>
    <code>
      > data <- cost.matrix %>%
+   mutate(cost.flow.comp = cost)
> for (i in 1:nrow(data)){
+   a <- data$cost[[i]]
+   b <- data$flow[[i]]
+   want <- Composite(a,b)
+   data$cost.flow.comp[[i]] <- want
+ }
> data$cost.flow.comp[[4]](5,2)
[1] 25

</code>
  </pre>
  <P>
    顺便说一句，我怀疑有更多功能的方式来创建
     <code>
      cost.flow.comp
    </code>
     专栏，但我不知道
     <code>
      tidyverse
    </code>
     东西。我会用它做的
     <code>
      mapply
    </code>
    ，即
  </p>
   <pre>
    <code>
      data$new.column <- mapply(Composite, data$cost, data$flow)

</code>
  </pre>
</DIV>