# NOT RUN {
if (bq_testable()) {
ds <- bq_test_dataset()
bq_mtcars <- bq_table(ds, "mtcars")
bq_table_exists(bq_mtcars)
bq_table_upload(bq_mtcars, mtcars)
bq_table_exists(bq_mtcars)
bq_table_fields(bq_mtcars)
bq_table_size(bq_mtcars)
str(bq_table_meta(bq_mtcars))
bq_table_delete(bq_mtcars)
bq_table_exists(bq_mtcars)
my_natality <- bq_table(ds, "mynatality")
bq_table_copy("publicdata.samples.natality", my_natality)
}
# }
Run the code above in your browser using DataLab