R/restoretimecard.R

In benrwoodard/timecardassistant: A Simple Time Tracking Assistant

#' Restore the timecard
#'
#' If the timecard object has been deleted and you want to continue generating the timecard
#' records.
#'
#' @param filepath The file path of the most recent timecard csv file
#'
#' @importFrom magrittr %>%
#' @importFrom readr read_csv
#' @importFrom dplyr select
#' @importFrom dplyr mutate
#' @importFrom utils menu
#' @importFrom glue glue
#' @importFrom dplyr rename
#'
#' @export
#'

restoretc <- function(filepath = NULL) {

  if(is.null(filepath)) {
    items <- list.files(pattern = '_timecard.csv')
    lastfile <- max(items)
    ans <- utils::menu(c("Yes", "No"), title=glue::glue('Is "{lastfile}" your most uptodate saved timecard?'))
  }
  if(!is.null(filepath)) {
    ans <- 0
  }
  if(ans == 1) {
  timecardupdated <- readr::read_csv(lastfile)
  if(names(timecardupdated)[1] == 'X1'){
    timecardupdated <- timecardupdated %>% dplyr::rename(id = X1)
  }
  timecardupdated %>%
     dplyr::mutate(started = as.character(started),
           finished = as.character(finished))
  } else if(ans == 2) {
   stop("Please provide the filepath using the 'filepath' argument.")
  } else if(ans == 0) {
   timecardupdated <- readr::read_csv(filepath)
   timecardupdated %>%
      dplyr::mutate(started = as.character(started),
         finished = as.character(finished))
  }
}