inst/updates/run_debug.R

In nascaR.data: NASCAR Race Data

# Debug mode:
# update_nascar_data(
#   debug = TRUE, 
#   target_year = 2024,
#   target_race = 15
# )

# Load required packages
library(purrr)      # for walk, map_dfr, keep
library(rvest)      # for read_html, html_elements, html_table
library(dplyr)      # for mutate, select, left_join, rename
library(stringr)    # for str_detect, str_remove, str_split

source("inst/updates/nascar_update.R")
current_month <- as.numeric(format(Sys.Date(), "%m"))

# Only run during race season (Feb-Nov)
if (current_month >= 2 && current_month <= 11) {
  update_nascar_data(
    debug = TRUE, 
    target_year = as.numeric(format(Sys.Date(), "%Y")),
    target_race = 0
  )
} else {
  message("Currently in off-season. No updates needed.")
}