The goal of meetr
was for me to have fun is to facilite the coordination of agendas between people who want to setup a meeting, but live in different timezones.
devtools::install_github('artichaud1/meetr')
User 1:
library(meetr)
library(fileio)
library(magrittr)
agenda1 <-
this_week_and_next(1) %>%
available(
monday('9:00 to 12:00', '16:00 to 17:00') +
thursday('14:00 to 17:00') +
friday()
)
# NOT RUN
# link <- fi_post_rdata(agenda1)$link
# Sends link to User2
User 2:
agenda2 <-
this_week() %>%
available(
week_days('11:00 to 12:00') -
friday()
) +
next_week() %>%
available(
week_days('13:00 to 17:00')
)
# NOT RUN
# meet(readRDS(url(link)), agenda2, '01:00')
# Get earliest agreeable time for a 1 hour meeting
meet(agenda1, agenda2, '01:00')
## [[1]]
## [1] 2018-06-04 16:00:00 UTC--2018-06-04 17:00:00 UTC
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.