Fix bq_table_upload when source_format is undefined (#613)

apalacio9502 · web-flow · commit e574a61858db · 2024-06-11T09:08:15.000-05:00
diff --git a/R/bq-perform.R b/R/bq-perform.R
@@ -125,7 +125,7 @@ bq_perform_upload <- function(x, values,
     cli::cli_abort("{.arg values} must be a data frame.")
   }
   fields <- as_bq_fields(fields)
-  arg_match(source_format)
+  source_format <- arg_match(source_format)
   check_string(create_disposition)
   check_string(write_disposition)
   check_string(billing)

Original file line number	Diff line number	Diff line change
`@@ -125,7 +125,7 @@ bq_perform_upload <- function(x, values,`
`125`	`125`	`cli::cli_abort("{.arg values} must be a data frame.")`
`126`	`126`	`}`
`127`	`127`	`fields <- as_bq_fields(fields)`
`128`		`- arg_match(source_format)`
	`128`	`+ source_format <- arg_match(source_format)`
`129`	`129`	`check_string(create_disposition)`
`130`	`130`	`check_string(write_disposition)`
`131`	`131`	`check_string(billing)`