devtools::install_github("RhysJackson/googleKubernetesR")
library(googleKubernetesR)

# Create and download your OAuth 2.0 credentials from the Google Cloud Platform
k8s_auth(json = "client_secret.json")

# If making many API calls, create your own OAuth client credentials from the Google Cloud console and provide them here as options to googleAuthR
options(googleAuthR.client_id = "YOUR-CLIENT-ID",
        googleAuthR.client_secret = "YOUR-CLIENT-SECRET")

# Authenticate
k8s_auth()

# Create a 3 node, n1-standard-1, 100Gb disk, cluster with the default name 'r-cluster'
# Cluster comes configured with recommended scopes https://www.googleapis.com/auth/compute and https://www.googleapis.com/auth/devstorage.read_only
createCluster(projectId = "myProject", "europe-west1-d")

# Create 5 node, n1-highmem-2, 500Gb disk, cluster with read/write access to Google Cloud Storage

# Define the cluster spec
clusterSpec <- list(
  name = "my-cluster",
  initialNodeCount = 5,
  nodeConfig = list(
    machineType = "n1-highmem-2",
    diskSizeGb = 500,
    oauthScopes = c("https://www.googleapis.com/auth/compute",
    				"https://www.googleapis.com/auth/devstorage.read_write")
  )
)

# Create the cluster
createCluster(projectId = "myProject",
	zone = "europe-west1-d",
	clusterSpec = clusterSpec)

# List all clusters in a project
listClusters(projectId = "myProject")

# List all clusters in a specific zone
listClusters(projectId = "myProject", zone = "europe-west1-d")

# Define the addons configuration
addonsConfig <- list(
	httpLoadBalancing = list(disabled = TRUE)
)

# Disable the HTTP Load Balancing addon
setAddons(projectId = "myProject",
		  projectLocation = "europe-west1-d",
		  clusterId = "my-cluster",
		  addonsConfig = addonsConfig)

deleteCluster(projectId = "myProject", zone = "europe-west1-d", clusterId = "my-cluster")