Add/remove tags to a firewall

firewall_add_tags(id, tags, ...)

firewall_remove_tags(id, tags, ...)

Arguments

id	(character) A firewall id (not the name) to delete
tags	(character) tag strings
...	Options passed on to httr::POST or httr::DELETE

Examples

if (FALSE) {
drops <- droplets_create()
drop_ids <- vapply(drops, "[[", numeric(1), "id")
inbound <- list(list(protocol = "tcp", ports = "80", 
  sources = list(addresses = "18.0.0.0/8")))
outbound <- list(list(protocol = "tcp", ports = "80", 
  destinations = list(addresses = "0.0.0.0/0")))
res <- firewall_create("myfirewall", inbound, outbound)

tag_create(name = "foobar")
tags()
firewall_add_tags(id = res$id, tags = "foobar")
firewalls()[[1]]$tags
firewall_remove_tags(id = res$id, tags = "foobar")
}