R/add.R

In poissonconsulting/poistimesheets: Poisson Time Sheets

#' Add Dummy Timesheet Entry
#'
#' @param timesheet A tibble of the timesheet to add an entry to.
#' @param date A Date of the date for the entry. 
#'
#' @return The modified timesheet.
#' @export
#'
#' @examples
#' tail(pts_add_entry(poistimesheets::timesheet, as.Date("2011-05-22")))
pts_add_entry <- function(timesheet, date) {
  check_timesheet(timesheet, nrow = TRUE)
  entry <- slice(timesheet, 1L)
  entry %<>% mutate(Date = as.Date(date), Project = "Internal", Task = "IT", 
                Hours = 0, 
                Billable = FALSE)
  timesheet %<>% bind_rows(entry)
  timesheet
}