labels added to query jobs

DESCRIPTION

@@ -28,5 +28,5 @@ Suggests:
     testthat,
     data.table,
     purrr
-RoxygenNote: 7.1.1
+RoxygenNote: 7.3.1
 VignetteBuilder: knitr

R/query.R

@@ -3,6 +3,7 @@
 #' @param projectId The BigQuery project ID
 #' @param datasetId A datasetId within projectId
 #' @param query BigQuery SQL.  You can also supply a file location of your query ending with \code{.sql}
+#' @param labels Labels to tag to job in list format. lower-case only. Default empty list
 #' @param maxResults Max number per page of results. Set total rows with LIMIT in your query.
 #' @param useLegacySql Whether the query you pass is legacy SQL or not. Default TRUE
 #' @param useQueryCache Whether to use the query cache. Default TRUE, set to FALSE for realtime queries. 
@@ -33,6 +34,7 @@
 bqr_query <- function(projectId = bqr_get_global_project(), 
                       datasetId = bqr_get_global_dataset(), 
                       query, 
+                      labels = list(),
                       maxResults = 1000, 
                       useLegacySql = TRUE, 
                       useQueryCache = TRUE,
@@ -50,6 +52,7 @@ bqr_query <- function(projectId = bqr_get_global_project(),
   body <- list(
     kind = "bigquery#queryRequest",
     query = query,
+    labels = labels,
     maxResults = maxResults,
     useLegacySql = useLegacySql,
     useQueryCache = useQueryCache,
@@ -125,6 +128,7 @@ bqr_query <- function(projectId = bqr_get_global_project(),
 #' @param projectId projectId to be billed.
 #' @param datasetId datasetId of where query will execute.
 #' @param query The BigQuery query as a string.
+#' @param labels Labels to tag to job in list format. lower-case only. Default empty list
 #' @param destinationTableId Id of table the results will be written to.
 #' @param writeDisposition Behaviour if destination table exists. See Details.
 #' @param useLegacySql Whether the query you pass is legacy SQL or not. Default TRUE
@@ -202,6 +206,7 @@ bqr_query <- function(projectId = bqr_get_global_project(),
 bqr_query_asynch <- function(projectId = bqr_get_global_project(), 
                              datasetId = bqr_get_global_dataset(), 
                              query, 
+                             labels = list(),
                              destinationTableId,
                              useLegacySql = TRUE,
                              writeDisposition = c("WRITE_EMPTY",
@@ -239,7 +244,8 @@ bqr_query_asynch <- function(projectId = bqr_get_global_project(),
         query = query,
         useLegacySql = useLegacySql,
         writeDisposition = writeDisposition
-      )
+      ),
+      labels = labels
     )
   )