knitr::opts_chunk$set(
  echo = TRUE,
  message = FALSE,
  warning = FALSE,
  eval = TRUE
)

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


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