如何将inf与橄榄酸和dplyr case_当

Question

我想构建一个自定义功能，该功能返回X年前的日期，或者在X提供的情况下是无限的，将恢复到一个特殊的日期。我正在使用dplyr和lubridate。这是一个微不足道的示例：

foo <- function(years_ago) {
    case_when(
        years_ago == Inf ~ as.Date("1800-01-01"),
        TRUE ~ Sys.Date() - years(years_ago)
    )
}

foo（1）正式返回1年前的日期。但是，foo（inf）给我错误： 参数无法解释为逻辑。即使在满足第一个条件时，似乎R跳跃以评估Case_时的真实行。

有什么办法可以使这些整理功能效果很好，还是需要在基本r中找到解决方法？

Answer 1

这不是一个漂亮的解决方案，但我认为这有效吗？不确定为什么在IS.Infinite case_when 中对Inf进行测试也失败了，因为这是我的第一个想法。

foo <- function(years_ago) {
  if (is.infinite(years_ago)) {
    years_ago <- NA
  }
  
  case_when(
    is.finite(years_ago) ~ Sys.Date() - years(years_ago),
    is.na(years_ago) ~ as.Date("1800-01-01"),
  )
}

另外，给定上述已经作为“如果”的一部分进行了逻辑语句，那么以下内容也应该起作用？

foo <- function(years_ago) {
  if (is.infinite(years_ago)) {
    rtrn <- as.Date("1800-01-01")
  } else {
    rtrn <- Sys.Date() - years(years_ago)
  }
  rtrn
}

Answer 2

case_when始终评估这两个条件。因此，尽管假设您的价值为inf，但何时无法评估第二行，它实际上是直观的。然后问题是年函数无法处理无限的值。

您可以在case_时可以做的事情，就是添加一个ifelse命令，该命令确保年份函数仅在不是无限的值上运行。

foo <- function(years_ago) {
  case_when(
    years_ago == Inf ~ as.Date("1800-01-01"),
    TRUE ~ Sys.Date() - years(ifelse(is.infinite(years_ago), 0, years_ago))
  )
}

一些例子：

foo(1)
[1] "2021-06-24"

foo(Inf)
[1] "1800-01-01"

foo(0)
[1] "2022-06-24"