library(tidyverse)
library(magrittr)
library(scales)
library(patchwork)
library(sf)
library(ggrepel)
library(ggstance)
library(pander)
library(countrycode)
library(here)

pound <- dollar_format(prefix = "£")

source(file.path(here(), "lib", "graphic-functions.R"))

# Robinson projection
projection = 54030

world_shapes <- st_read(file.path(here(), "data", "ne_110m_admin_0_countries",
                                  "ne_110m_admin_0_countries.shp"),
                        quiet = TRUE) %>% 
  filter(ISO_A3 != "ATA")

CIVICUS restrictions

Article 19