if (FALSE) {
ocean_names <- c("North Atlantic Ocean", "South Atlantic Ocean")
buffer_distance <- 25000
data <- data.frame(
species = "A",
decimalLongitude = c(-120, -78, -110, -60, -75, -130, -10, 5),
decimalLatitude = c(20, 34, 30, 10, 40, 25, 15, 35)
)
data$flag_non_region <- ec_flag_non_west_atlantic(
ocean_names,
buffer_distance,
data,
latitude = "decimalLatitude",
longitude = "decimalLongitude"
)
}
Run the code above in your browser using DataLab