R/load_food_plan.R

In kristian-bak/madplan: An Amazing Shiny App

#' Load food plan
#' @param token token, output from drop_auth_refreshable
#' @return tibble with existing food plan (empty food plan if non-existing)
#' 
load_food_plan <- function(token) {
  
  file_name <- get_file_name()
  
  if (!file.exists(file_name)) {
    return(empty_food_plan())
  }
  
  destfile <- tempfile()
  #dtoken <- "./dev/token.RDS"
  #token <- readRDS("dev/token.RDS")
  rdrop2::drop_download(path = "/data.txt", local_path = destfile, overwrite = TRUE, dtoken = token)
  
  read.table(file = destfile, header = TRUE, sep = ";", 
             colClasses = c("Date", "character", "character", "character")) %>% 
    dplyr::as_tibble() %>% 
    dplyr::mutate(
      Breakfast = replace_eol(x = Breakfast, old = "--break--", new = "\\\n"),
      Lunch     = replace_eol(x = Lunch, old = "--break--", new = "\\\n"), 
      Dinner    = replace_eol(x = Dinner, old = "--break--", new = "\\\n")
    )
  
}

#' Empty food plan
#' @return tibble
#' 
empty_food_plan <- function() {
  
  #dplyr::tibble()
  
  return(NULL)
  
}