if (FALSE) {
direction <- "east"
buffer <- 25000
ocean <- "pacific"
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_region(
direction,
ocean,
buffer = 50000,
data
)
}
Run the code above in your browser using DataLab