In jameslairdsmith/gs: A grammar of recurring calendar events

library(tidyverse)
library(lubridate)
library(magrittr)

week(ymd("1997-09-13"))

my_dates <- seq.Date(dmy("01-01-1997"), to = dmy("31-12-1998"), by = "1 day")

#make_period_seq(start = dmy("01-01-1997"), end = ymd("1997-09-13"))

increment <- 3

get_semi_distinct <- function(x){
  rle_object <- rle(x)
  rle_values <- rle_object$values
  result <- length(rle_values)

  result
}

tibble(candidate_date = my_dates,
       start_date = ymd("1997-09-13")
       ) %>% 
  mutate(dates_vec = map2(candidate_date, start_date, make_period_seq)) %>% 
  mutate(weeks_vec = map(dates_vec, week)) %>% 
  mutate(semi_distinct_weeks = map_dbl(weeks_vec, get_semi_distinct) - 1) %>% 
  mutate(remainder = semi_distinct_weeks %% increment) #%>%
  #pull()
  #filter(remainder == 0) #%>% 
  #pull(candidate_date)
  #count(candidate_year, candidate_weeks, remainder) %>% 
  #filter(remainder == 0)
  # ggplot(aes(x = remainder)) +
  # geom_histogram()
  # ggplot(aes(x = candidate_weeks, y = n, fill = remainder)) +
  # geom_col() +
  # facet_grid(. ~ candidate_year)

length(rle(week(make_period_seq(start = dmy("01-01-1997"), end = ymd("1998-12-31"))))$values)

in_every_nth(3, "quarters", dmy("01/01/2000"), inclusive = T, backdated = T) %>% 
  schedule_days(from = 1999, to = 2000) %>% 
  quarter()

on_my_schedule <- on_weekday()
start_date <- dmy("01/01/2000")
changing_date <- start_date
date_vector <- integer(0)
class(date_vector) <- "Date"
n <- 1
period_length <- months(12)
end_limit <- start_date + period_length
n_limit <- 10

if(happen(on_my_schedule, start_date)){
  date_vector <- c(date_vector, start_date)
}

while(n <= n_limit & changing_date < end_limit){

  changing_date <- changing_date + days(1)

  if(happen(on_my_schedule, changing_date)){
    n <- n + 1
    date_vector <- c(changing_date, date_vector)
  }
}

sort(date_vector)

schedule_next_days(on_weekday(), 20, dmy("01/01/2000"))

jameslairdsmith/gs documentation built on July 19, 2023, 12:49 a.m.