R/utils_helpers.R

In KoderKow/dinnR: What's for Dinner?

#' Find the date for the wanted next week day
#' 
#' Thank you `@aftonsteps` for the simplified code!
#'
#' @param starting_date A character. Date you are starting from.
#' @param next_monday A logical. Should the vector start with the following monday?
#'
#' @references https://gist.github.com/aftonsteps/1aad7b0220e9ce8e895020a105ed3386
get_planning_dates <- function(starting_date = NULL, next_monday = TRUE) {
  starting_date <- starting_date %||% Sys.Date()
  starting_point <- as.Date(starting_date)
  
  if (lubridate::wday(starting_point) != 2 & next_monday == TRUE) {
    starting_point <- lubridate::ceiling_date(
      x = starting_point, 
      week_start = 1, 
      unit = "weeks"
    )
  }
  
  date_sequence <- seq.Date(
    from = starting_point,
    length.out = 7,
    by = "days"
  )
  
  names(date_sequence) <- weekdays(date_sequence)
  
  return(date_sequence)
}

#' Retrieve Random Recipes
#'
#' @param r A reactive list.
#' @param n A numeric. Number of random recipes to recieve.
random_recipe <- function(r, n) {
  recipe_count <- length(r$recipes)
  ## Sample 7 recipes
  random_recipe <- sample(r$recipes, n, prob = rep(1 / recipe_count, recipe_count))
}

`%shh%` <- function(lhs,rhs){
  suppressWarnings(suppressMessages(eval.parent(substitute(lhs %>% rhs))))
}