중지 날짜를 숫자로 변환하는 중

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