R/global.r

In wrathematics/timeRtypeR: A Tool for Measuring Keys Per Second and Words Per Minute

### Global data
tbenv <- new.env()

tbenv$tb_prompt_active <- FALSE
tbenv$should_exit <- FALSE
tbenv$continuation <- FALSE

tbenv$warnings <- NULL
tbenv$num_warnings <- 0

tbenv$start_time <- Sys.time()
tbenv$tottime <- 0.0
tbenv$chars <- 0L
tbenv$words <- 0L
tbenv$avgchars <- 0.0
tbenv$avgwords <- 0.0



tb_init_gloabls <- function()
{
  tbenv$tb_prompt_active <- FALSE
  tbenv$should_exit <- FALSE
  tbenv$continuation <- FALSE
  
  tbenv$warnings <- NULL
  tbenv$num_warnings <- 0
  
  tbenv$start_time <- Sys.time()
  tbenv$tottime <- 0.0
  tbenv$chars <- 0L
  tbenv$words <- 0L
  tbenv$avgchars <- 0.0
  tbenv$avgwords <- 0.0
  
  invisible()
}

tb_update_globals <- function(char)
{
  time <- Sys.time()
  tbenv$tottime <- tbenv$tottime + unclass(time - tbenv$start_time)[1]
  tbenv$chars <- tbenv$chars + 1L
  tbenv$avgchars <- tbenv$chars / tbenv$tottime
  tbenv$start_time <- time
  
  if (char == " " || char == "\n")
  {
    tbenv$words <- tbenv$words + 1L
    tbenv$avgwords <- tbenv$words / tbenv$tottime * 60
  }
  
  invisible()
}

showspeed <- function()
{
  avgchars <- tbenv$avgchars
  avgwords <- tbenv$avgwords
  
  cat(paste0("Average # keys per second:\t\t", round(avgchars, 3), "\n"))
  cat(paste0("Average time between keypresses:\t", round(1 / avgchars, 3), "\n"))
  
  cat(paste0("Average # words per minute:\t\t", round(avgwords, 3), "\n\n"))
  
  invisible()
}

restart <- function()
{
  tbenv$start_time <- Sys.time()
  tbenv$tottime <- 0.0
  tbenv$chars <- 0L
  tbenv$avgchars <- 0.0
  tbenv$avgwords <- 0.0
  
  invisible()
}