analogsea::firewall_create doesnt work anymore

[Sade154]

I encountered an issue with the example code below provided in the documentation for the firewall_create function.

Code from Documentation:

library(analogsea)
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)
res

Error received:

Error: missing name

Also, the message error is weird as the name is provided in the first argument.

[pachadotdev]

I encountered an issue with the example code below provided in the documentation for the firewall_create function.

Code from Documentation:

library(analogsea)
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)
res

Error received:

Error: missing name

Also, the message error is weird as the name is provided in the first argument.

this seems to be a change in the API, let me ask Digital Ocean

[stadbern]

Hello,

same problem here.

if it's of any help, this function works using httr2:

library(httr2)

api_token = "kshjqlf"

create_firewall = function(droplet_ids, firewall_name, authorized_IPs){

Define the request body

body <- list( name = firewall_name, droplet_ids = droplet_ids, inbound_rules = list( # Allowing specific IPs to communicate over SSH list( protocol = "tcp", ports = "22",
sources = list( addresses = authorized_IPs # Add ) ), # Allowing specific IPs to communicate over HTTP list( protocol = "tcp", ports = "80", sources = list( addresses = authorized_IPs ) ), # Allow ICMP for ping list( protocol = "icmp",
sources = list( #addresses = list("0.0.0.0/0") # Allow from all sources or specify your source IP addresses = authorized_IPs ) ) ) )

URL = "https://api.digitalocean.com/v2/firewalls" resp = request(URL) %>% req_headers( "Content-Type" = "application/json", "Authorization" = paste("Bearer", api_token) ) %>% req_body_json(body) |> req_perform() resp$status_code }