In justinjm/googleCloudVertexAIR: Google Cloud Vertex AI API Into R

knitr::opts_chunk$set(echo = TRUE)
# options(googleAuthR.verbose = 0) # set when debugging

Setup

library(googleAuthR)
library(googleCloudVertexAIR)

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("GCVA_DEFAULT_PROJECT_ID")
gcva_region_set("us-central1")
gcva_project_set(projectId)

First, let's set a unique dataset name with a timestamp to avoid confusion:

timestamp <- strftime(Sys.time(), "%Y%m%d%H%M%S")
timestamp

datasetDisplayName <- sprintf("california-housing-%s", timestamp)
datasetDisplayName

List datasets

gcva_list_datasets()

Create a dataset

dataset <- gcva_create_tabluar_dataset(
  displayName = datasetDisplayName,
  gcsSource = "gs://cloud-samples-data/ai-platform-unified/datasets/tabular/california-housing-tabular-regression.csv")
dataset

List datasets (again)

datasets_list <- gcva_list_datasets()
datasets_list

Get a dataset

gcva_dataset(datasetName = datasets_list[1,2])

Delete dataset

gcva_delete_dataset(dataset = dataset)

List datasets

gcva_list_datasets()

justinjm/googleCloudVertexAIR documentation built on April 17, 2025, 5:04 p.m.