# NOT RUN {
# Creation ------------------------------------------------
samples <- bq_dataset("publicdata", "samples")
natality <- bq_table("publicdata", "samples", "natality")
natality
# Or
bq_table(samples, "natality")
bq_job("bigrquery-examples", "m0SgFu2ycbbge6jgcvzvflBJ_Wft")
# Coercion ------------------------------------------------
as_bq_dataset("publicdata.shakespeare")
as_bq_table("publicdata.samples.natality")
as_bq_table(list(
project_id = "publicdata",
dataset_id = "samples",
table_id = "natality"
))
as_bq_job(list(
projectId = "bigrquery-examples",
jobId = "job_m0SgFu2ycbbge6jgcvzvflBJ_Wft",
location = "US"
))
# }
Run the code above in your browser using DataLab