# NOT RUN {
vm <- gce_vm("shiny-test",
template = "shiny",
predefined_type = "n1-standard-1")
vm <- vm_ssh_setup(vm)
app_dir <- system.file("dockerfiles","shiny-googleAuthRdemo",
package = "googleComputeEngineR")
gce_shiny_addapp(vm, app_image = "gceshinydemo", dockerfolder = app_dir)
# a new VM, it loads the Shiny docker image from before
gce_shiny_addapp(vm2, app_image = "gceshinydemo")
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab