Initial commit

.Rbuildignore

@@ -0,0 +1,3 @@
+^.*\.Rproj$
+^\.Rproj\.user$
+^\.httr-oauth$

.gitignore

@@ -0,0 +1,5 @@
+.Rproj.user
+.Rhistory
+.RData
+test.R
+.httr-oauth

DESCRIPTION

@@ -0,0 +1,10 @@
+Package: googleKubernetesR
+Title: R interface to Google Cloud Kubernetes Engine
+Version: 0.0.0.9000
+Authors@R: person("Rhys", "Jackson", email = "[email protected]", role = c("aut", "cre"))
+Description: The Google Kubernetes Engine API is used for building and managing container based applications, powered by the open source Kubernetes technology.
+Depends: R (>= 3.4.2)
+License: Year: 2017 Copyright Holder: Rhys Jackson
+Encoding: UTF-8
+LazyData: true
+RoxygenNote: 6.0.1.9000

LICENSE

@@ -0,0 +1,2 @@
+YEAR: 2018
+COPYRIGHT HOLDER: Rhys Jackson

NAMESPACE

@@ -0,0 +1,7 @@
+# Generated by roxygen2: do not edit by hand
+
+export(completeIpRotation)
+export(getCluster)
+export(getServerConfig)
+export(listClusters)
+export(setAddons)

R/completeIpRotation.R

@@ -0,0 +1,17 @@
+#' completeIpRotation
+#'
+#' Completes master IP rotation.
+#' @param projectId The Google Developers Console project ID or project number.
+#' @param zone The name of the Google Compute Engine zone in which the cluster resides.
+#' @param clusterId The name of the cluster.
+#' @keywords projects.locations.getServerConfig
+#' @export
+#' @examples
+#' completeIpRotation(projectId = "myProjectId", zone = "europe-west1-d", clusterId = "cluster-1")
+
+completeIpRotation <- function(projectId, zone, clusterId) {
+  f <- gar_api_generator("https://container.googleapis.com/v1beta1",
+                         "POST",
+                         path_args = list(projects = projectId, locations = zone, clusters = clusterId, `:completeIpRotation` = ""))
+  f()
+}

R/getCluster.R

@@ -0,0 +1,17 @@
+#' getCluster
+#'
+#' Gets the details of a specific cluster.
+#' @param projectId The Google Developers Console project ID or project number.
+#' @param zone The name of the Google Compute Engine zone in which the cluster resides.
+#' @param clusterId The name of the cluster to retrieve.
+#' @keywords projects.locations.clusters.get
+#' @export
+#' @examples
+#' getCluster(projectId = "myProjectId", zone = "europe-west1-d", clusterId = "cluster-1")
+
+getCluster <- function(projectId, zone, clusterId) {
+  f <- gar_api_generator("https://container.googleapis.com/v1beta1",
+                         "GET",
+                         path_args = list(projects = projectId, locations = zone, clusters = clusterId))
+  f()
+}

R/getServerConfig.R

@@ -0,0 +1,16 @@
+#' getServerConfig
+#'
+#' Returns configuration info about the Kubernetes Engine service.
+#' @param projectId The Google Developers Console project ID or project number.
+#' @param zone The name of the Google Compute Engine zone in which the cluster resides.
+#' @keywords projects.locations.getServerConfig
+#' @export
+#' @examples
+#' getServerConfig(projectId = "myProjectId", zone = "europe-west1-d")
+
+getServerConfig <- function(projectId, zone) {
+  f <- gar_api_generator("https://container.googleapis.com/v1beta1",
+                    "GET",
+                    path_args = list(projects = projectId, locations = zone, serverConfig = ""))
+  f()
+}

R/listClusters.R

@@ -0,0 +1,16 @@
+#' listClusters
+#'
+#' Lists all clusters owned by a project in either the specified zone or all zones.
+#' @param projectId The Google Developers Console project ID or project number.
+#' @param zone The name of the Google Compute Engine zone in which the cluster resides, or "-" for all zones. Defaults to all zones.
+#' @keywords projects.locations.clusters.get
+#' @export
+#' @examples
+#' listClusters(projectId = "myProjectId", location = "europe-west1-d")
+
+listClusters <- function(projectId, zone = "-") {
+  f <- gar_api_generator("https://container.googleapis.com/v1beta1",
+                         "GET",
+                         path_args = list(projects = projectId, locations = zone, clusters = ""))
+  f()
+}

R/setAddons.R

@@ -0,0 +1,20 @@
+#' setAddons
+#'
+#' Sets the addons of a specific cluster.
+#' @param projectId The Google Developers Console project ID or project number.
+#' @param zone The name of the Google Compute Engine zone in which the cluster resides.
+#' @param clusterId The name of the cluster to retrieve.
+#' @keywords projects.zones.clusters.addons
+#' @export
+#' @examples
+#' setAddons(projectId = "myProjectId", location = "europe-west1-d", clusterId = "cluster-1", addonsConfig = list(httpLoadBalancing = list(disabled = FALSE)))
+
+setAddons <- function(projectId, zone, clusterId, addonsConfig) {
+  body <- list(
+    addonsConfig = addonsConfig
+  )
+  f <- gar_api_generator("https://container.googleapis.com/v1beta1",
+                         "POST",
+                         path_args = list(projects = projectId, zones = zone, clusters = clusterId, addons = ""))
+  f(the_body = body)
+}

googleKubernetesR.Rproj

@@ -0,0 +1,21 @@
+Version: 1.0
+
+RestoreWorkspace: No
+SaveWorkspace: No
+AlwaysSaveHistory: Default
+
+EnableCodeIndexing: Yes
+UseSpacesForTab: Yes
+NumSpacesForTab: 2
+Encoding: UTF-8
+
+RnwWeave: Sweave
+LaTeX: pdfLaTeX
+
+AutoAppendNewline: Yes
+StripTrailingWhitespace: Yes
+
+BuildType: Package
+PackageUseDevtools: Yes
+PackageInstallArgs: --no-multiarch --with-keep.source
+PackageRoxygenize: rd,collate,namespace