if (bq_testable()) {
ds <- bq_test_dataset()
bq_mtcars <- bq_table_create(
ds,
"mtcars",
friendly_name = "Motor Trend Car Road Tests",
description = "The data was extracted from the 1974 Motor Trend US magazine",
labels = list(category = "example")
)
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