install.packages("bigrquery")
install.packages("devtools")
devtools::install_github("rstats-db/bigrquery")
library(bigrquery)
library(data.table)
projectName <- "private"
datasetName <- "private"
ds <- bq_dataset(projectName, datasetName)
sql <-
"
SELECT
*
FROM
private
"
tb <- bq_dataset_query(ds,
query = sql,
billing = NULL,
quiet = NA)
private <- bq_table_download(tb)
print(private)