inst/doc/vignette.R

In ManagedCloudProvider: Providing the Kubernetes-Like Functions for the Non-Kubernetes Cloud Service

## ---- include = FALSE---------------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

## ----setup, include = FALSE---------------------------------------------------
library(ManagedCloudProvider)

if(FALSE){
makeReadMe <- function(){
  library(readr)
  fileName <- "vignettes/vignette.md"
  knitr::knit("vignettes/vignette.Rmd", output = fileName)
  content <- readChar(fileName, file.info(fileName)$size)
  content <- gsub("---.+?---","",content)
  content <- gsub("^(\r\n)+","",content)
  content <- gsub("([a-zA-Z]+)\\.jpg","vignettes/\\1.jpg",content)
  write_file(content, file="README.md")
  unlink(fileName)
}
  makeReadMe()
}


## -----------------------------------------------------------------------------
getGeneric("runDockerWorkerContainers")

## -----------------------------------------------------------------------------
getGeneric("getDockerWorkerStatus")

## -----------------------------------------------------------------------------
getGeneric("killDockerWorkerContainers")