# knitr::opts_chunk$set(echo = TRUE)

Setup

library(googleAuthR)
library(googleCloudAutoMLTablesR)

options(googleAuthR.scopes.selected = "https://www.googleapis.com/auth/cloud-platform")

gar_auth_service(json_file = Sys.getenv("GAR_SERVICE_JSON"))

Set global arguements

projectId <- Sys.getenv("GCAT_DEFAULT_PROJECT_ID")
location <- "us-central1"
gcat_region_set("us-central1")
gcat_project_set(projectId)

Create a dataset

gcat_dataset <- gcat_create_dataset(displayName = "example_dataset01")
gcat_dataset

List datasets

datasets_list <- gcat_list_datasets()
datasets_list

Delete dataset

gcat_delete_result <- gcat_delete_dataset(displayName = "example_dataset01")
gcat_delete_result

List datasets

gcat_list_datasets()


justinjm/googleCloudAutoMLTablesR documentation built on Jan. 11, 2023, 7:38 p.m.