R/time_join.R

In business-science/tibbletime: Time Aware Tibbles

# # both must be tbl_time
#
# time_left_join <- function(x, y, by = NULL, period = "year", copy = FALSE, suffix = c(".x", ".y"), ...) {
#
#   if(get_index_char(x) %in% by || get_index_char(y) %in% by) {
#     stop("Do not specify the time index in `by`. Use `period` instead.")
#   }
#
#   x <- mutate(x, .time_group = partition_index(!! get_index_quo(x), period = period))
#   y <- mutate(y, .time_group = partition_index(!! get_index_quo(y), period = period))
#
#   y <- y %>% select(- !! get_index_quo(y))
#
#   left_join(x, y, by = c(by, ".time_group"), copy = copy, suffix = suffix, ...) %>%
#     select(-.time_group)
# }
#
# time_right_join <- function(x, y, by = NULL, period = "year", copy = FALSE, suffix = c(".x", ".y"), ...) {
#
#   x <- mutate(x, .time_group = partition_index(!! get_index_quo(x), period = period))
#   y <- mutate(y, .time_group = partition_index(!! get_index_quo(y), period = period))
#
#   x <- x %>% select(- !! get_index_quo(x))
#
#   right_join(x, y, by = c(by, ".time_group")) %>%
#     select(-.time_group)
# }