Plot country and relevant FIR.
plot_country_fir(
icao_id,
name,
fl = 0,
buffer = 100,
firs = pruatlas::firs_nm_406,
merge = TRUE
)
optional, the ICAO ID of the relevant country, "LI" otherwise. It can be a regular expression, i.e. "LI|LF" for matching France and Italy.
The name used to title the plot.
flight level at which assemble the composing polygons.
Buffer around FIR (km)
the relevant NM FIRs.
Do you want to merge (default: TRUE)
A ggplot object with country and relevant FIR.
if (FALSE) {
plot_country_fir("LI", "Italy")
# UK and Portugal have oceanic part...
plot_country_fir("EG", "United Kingdom (oceanic)")
# decoupling oceanic, manually
uk_continental <- firs_nm_406 %>%
dplyr::filter(icao == "EG", min_fl <= 0, 0 <= max_fl) %>%
dplyr::filter(!(id %in% c("EGGXFIR", "EGGX")))
plot_country_fir("EG", "United Kingdom (continental)", firs = uk_continental)
# EUROCONTROL
plot_country_fir(icao_id = "E.|L.|UD|UG|GM|UK|GC",
"EUROCONTROL Member States",
buffer = 350,
fl = 200)
}