ds <- bq_dataset(bq_test_project(),"dataset_api")bq_dataset_exists(ds)bq_dataset_create(ds)bq_dataset_exists(ds)str(bq_dataset_meta(ds))bq_dataset_delete(ds)bq_dataset_exists(ds)# Use bq_test_dataset() to create a temporary dataset that will# be automatically deletedds <- bq_test_dataset()bq_table_create(bq_table(ds,"x1"))bq_table_create(bq_table(ds,"x2"))bq_table_create(bq_table(ds,"x3"))bq_dataset_tables(ds)