R/update_dynamic_variables.R

In skgrange/emitr: Tools to Help With On-Road Vehicle Emission Data Analysis

#' Function to update dynamic variables in a vehicle emissions database. 
#' 
#' @author Stuart K. Grange
#' 
#' @param con Database connection to a vehicle emissions database. 
#' 
#' @param verbose Should the function give messages? 
#' 
#' @return Invisible \code{con}.
#' 
#' @export
update_dynamic_variables <- function(con, verbose = FALSE) {
  
  if (verbose) message(threadr::date_message(), "Updating registration counts...")
  update_session_vehicle_counts(con)
  
  if (verbose) message(threadr::date_message(), "Updating session dates...")
  update_session_dates(con)
  
  if (verbose) message(threadr::date_message(), "Updating session counts...")
  update_session_counts(con)
  
  return(invisible(con))
  
}