library(dplyr)
landed <- tribble(
~user_id, ~timestamp,
1, "2018-07-01",
2, "2018-07-01",
2, "2018-07-01",
3, "2018-07-02",
4, "2018-07-01",
4, "2018-07-04",
5, "2018-07-10",
5, "2018-07-12",
6, "2018-07-07",
6, "2018-07-08"
) %>%
mutate(timestamp = as.Date(timestamp))
registered <- tribble(
~user_id, ~timestamp,
1, "2018-07-02",
3, "2018-07-02",
4, "2018-06-10",
4, "2018-07-02",
5, "2018-07-11",
6, "2018-07-10",
6, "2018-07-11",
7, "2018-07-07"
) %>%
mutate(timestamp = as.Date(timestamp))
after_inner_join(landed, registered, by_user = "user_id",
by_time = "timestamp", type = "first-first")
# You can use different methods of joining:
after_left_join(landed, registered, by_user = "user_id",
by_time = "timestamp", type = "first-first")
after_anti_join(landed, registered, by_user = "user_id",
by_time = "timestamp", type = "any-any")
Run the code above in your browser using DataLab