Specifying subnetworks when you create a new VM

[avidalfinsa]

When you create a new VM with gce_vm or gce_vm_create it is possible to define the network to use.

vm <- gce_vm(template = "rstudio", 
             name = "rstudio-server", 
             predefined_type = "f1-micro",
             network = "mynetwork",
             username = "rstudio", 
             password = "rstudio1234")

The problem is when you have defined subnetworks of this network because it returns an error like this:

2018-08-08 12:01:35> Creating template VM
Request failed [400]. Retrying in 1.2 seconds...
Request failed [400]. Retrying in 1.9 seconds...
2018-08-08 12:01:39> Request Status Code: 400
Scopes: https://www.googleapis.com/auth/cloud-platform
Method: service_json
Error: API returned: Invalid value for field 'resource.networkInterfaces[0]': ''. Subnetwork should be specified for custom subnetmode network

How is it possible to define the subnetwork to attach this VM to?

My subnetworks are like this:

  "network": "projects/myproject/global/networks/mynetwork",
  "privateIpGoogleAccess": false,
  "region": "projects/myproject/regions/europe-west1",
  "selfLink": "projects/myproject/regions/europe-west1/subnetworks/mysubnetwork"

[MarkEdmondson1234]

I've not come across this before so will need to check, I think the network interface part of the API has updated since the implementation below, so will look to update it.

googleComputeEngineR/R/networks.R

Lines 36 to 65 in df059e8

	gce_make_network <- function(name,
	network = "default",
	externalIP = NULL,
	project = gce_get_global_project()){
	make_ac <- function(externalIP, name){
	if(!is.null(externalIP) && externalIP == "none") return(NULL)
	list(
	list(
	natIP = jsonlite::unbox(externalIP),
	type = jsonlite::unbox("ONE_TO_ONE_NAT"),
	name = jsonlite::unbox(name)
	)
	)
	}
	net <- gce_get_network(network, project = project)
	structure(
	list(
	list(
	network = jsonlite::unbox(net$selfLink),
	accessConfigs = make_ac(externalIP, name)
	)
	),
	class = c("gce_networkInterface", "list")
	)
	}

[MarkEdmondson1234]

This should be fixed now in latest github version #154