停止日から桁への変換

Question

私は、指定された日付の週の最初の曜日を見つける関数を持っています。この特定の問題では、週は木曜日から始まります。

この機能は、個々の日付でうまく機能します。

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 

正常な日付のオブジェクトで終了する方法についてのアイデアはありますか？マップは常に強制的に強制的に適用されますか？

Answer 1

なぜ、class属性がここにドロップされたのか分かりません（他の*適用機能を使用する場合も同様です）。 - 問題は、深いダウン、unlistはクラス落ちることのようだ：

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

をしかし、修正は十分に簡単です：最後にクラスを設定します。

さらに、Map（これはlistを返す）ではなく、vapplyを使用することをお勧めします。あなたはまた、機能上Vectorizeを使用することができ

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') 
} 

が、それはまた、class属性を削除します。その後、我々はを残しています。

Answer 2

それとも、あなたはdplyr家族の中でそれを保つことができます：

week_commencing <- function(date) { 
    weekday <- lubridate::wday(date) 
    dplyr::if_else(weekday >= 5, 
       date - lubridate::days(weekday) + lubridate::days(5), 
       date - lubridate::days(weekday) - lubridate::days(2)) 
}