README.md

meetr

Overview

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.

Installation

devtools::install_github('artichaud1/meetr')

Usage

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


artichaud1/meetr documentation built on May 24, 2019, 1:35 a.m.