update draft data

danmorse314 · Nov 24, 2024 · e97a2bc · e97a2bc
1 parent 1565f8c
commit e97a2bc
Show file tree

Hide file tree

Showing 3 changed files with 12,435 additions and 1,045 deletions.
diff --git a/get_draft_class.R b/get_draft_class.R
@@ -1,5 +1,7 @@
 get_draft_class <- function(season = as.integer(format(Sys.Date(), "%Y"))){
 
+  message(paste("\npulling draft data for",season,"season..."))
+
   # names for final df
   df_names <- c(
     "round","pick","team","player","pos_pfr","draft_age","last_season",
@@ -39,5 +41,12 @@ get_draft_class <- function(season = as.integer(format(Sys.Date(), "%Y"))){
 
   draft <- utils::type.convert(draft, as.is = "TRUE")
 
+  # sacks weren't a thing before 95 I guess
+  if(is.character(draft$sacks[1])){
+    draft <- draft |>
+      dplyr::select(-college) |>
+      dplyr::rename(college = sacks)
+  }
+
   return(draft)
-}
+}