R/record_time.R

In jtr13/jtr: Miscellaneous functions

#' Record what you're doing now to stay on track
#'
#' @return No return value. Writes to a file as a side effect.
#' @export
#'
#' @examples
#' \dontrun{
#' record()
#' }
#'
record <- function() {
  what <- "not done"
  sink("~/Downloads/stuff.txt")
  while(what != "done") {
    what <- readline(prompt = "What are you doing? ")
    cat(paste(format(Sys.time(), "%H:%M"), what, "\n"))
  }
  sink()
}