阻止地图将日期转换为数字

xav 发表于 Dev

想

我有一个函数，可以查找给定日期的一周的第一天。在这个特殊的问题上，星期几确实从星期四开始。

该功能适用于各个日期。

week_commencing <- function(date) {
  weekday <- lubridate::wday(date)
  if (weekday >= 5) { 
    return(date - lubridate::days(weekday) + lubridate::days(5))
  } else {
    return(date - lubridate::days(weekday) - lubridate::days(2))
  } 
}

现在，我想将其与一起使用dplyr。所以我修改了它以接受带有的列Map。

week_commencing <- function(dates) {
  Map(function(date) {
    weekday <- lubridate::wday(date)
    if (weekday >= 5) { 
      return(date - lubridate::days(weekday) + lubridate::days(5))
    } else {
      return(date - lubridate::days(weekday) - lubridate::days(2))
    } 
  },dates)
}

我认为该功能有效，但同时也对日期应用了一些奇怪的强制措施，因为我最终使用的是数字日期。

> test <- data.frame(datetime=seq.Date(as.Date("2016-06-01"),as.Date("2016-06-10"), by='day'))
> test
     datetime
1  2016-06-01
2  2016-06-02
3  2016-06-03
4  2016-06-04
5  2016-06-05
6  2016-06-06
7  2016-06-07
8  2016-06-08
9  2016-06-09
10 2016-06-10

> test %>% mutate(datetime=week_commencing(datetime))
   datetime
1     16947
2     16954
3     16954
4     16954
5     16954
6     16954
7     16954
8     16954
9     16961
10    16961

关于如何以正常日期对象结束的任何想法？地图是否总是施加强制性？

康拉德·鲁道夫（Konrad Rudolph）

我不知道为什么将class属性放在这里（使用其他* apply函数时也会发生同样的情况）。—从根本上讲，问题似乎是unlist掉下了类：

> unlist(list(structure(1, class = 'foo')))
[1] 1

但是解决方法非常简单：将类设置在末尾。

此外，我建议不要使用Map（返回a list），而是使用vapply。然后我们剩下：

week_commencing <- function(dates) {
  wc <- function(date) {
    weekday <- lubridate::wday(date)
    if (weekday >= 5) { 
      return(date - lubridate::days(weekday) + lubridate::days(5))
    } else {
      return(date - lubridate::days(weekday) - lubridate::days(2))
    } 
  }

  structure(vapply(dates, wc, numeric(1)), class = 'Date')
}

您也可以Vectorize在该函数上使用，但这也会删除该class属性。

本文收集自互联网，转载请注明来源。

如有侵权，请联系[email protected] 删除。