Alternative solution for nflverse#389:

rstats-tips · rstats-tips · commit fd5c7b2c6b84 · 2022-10-16T13:40:09.000+02:00
Start with the latest season. This season has column "weather" filled. So BigQuery will choose the right column type STRING.
diff --git a/R/helper_database_functions.R b/R/helper_database_functions.R
@@ -137,7 +137,8 @@ build_db <- function(tblname = "nflfastR_pbp", db_conn, rebuild = FALSE, show_me
     dplyr::filter(.data$season >= 1999 & !is.na(.data$result)) %>%
     dplyr::group_by(.data$season) %>%
     dplyr::summarise() %>%
-    dplyr::ungroup()
+    dplyr::ungroup() %>%
+    dplyr::arrange(dplyr::desc(season))
 
   if (all(rebuild == TRUE)) {
     cli::cli_ul("{my_time()} | Purging the complete data table {.val {tblname}}
diff --git a/R/utils.R b/R/utils.R
@@ -173,7 +173,6 @@ write_pbp <- function(seasons, dbConnection, tablename){
   purrr::walk(seasons, function(x, p){
     pbp <- nflreadr::load_pbp(x)
     if (!DBI::dbExistsTable(dbConnection, tablename)){
-      default_play$weather <- "some other string"
       pbp <- dplyr::bind_rows(default_play, pbp)
     }
     if (DBI::dbExistsTable(dbConnection, tablename)) {

Original file line number	Diff line number	Diff line change
`@@ -173,7 +173,6 @@ write_pbp <- function(seasons, dbConnection, tablename){`
`173`	`173`	`purrr::walk(seasons, function(x, p){`
`174`	`174`	`pbp <- nflreadr::load_pbp(x)`
`175`	`175`	`if (!DBI::dbExistsTable(dbConnection, tablename)){`
`176`		`- default_play$weather <- "some other string"`
`177`	`176`	`pbp <- dplyr::bind_rows(default_play, pbp)`
`178`	`177`	`}`
`179`	`178`	`if (DBI::dbExistsTable(dbConnection, tablename)) {`