EU Countries after Brexit

    # Load library
    library(leaflet)

    # EU countries codes, latitudes and longitudes.
    country <- c('AT','BE','BG','HR','CY','CZ','DK',
                 'EE','FI','FR','DE','EL','HU','IE',
                 'IT','LV','LT','LU','MT','NL','PL',
                 'PT','RO','SK','SI','ES','SE')
    lat <- c(47.5162, 50.5039, 42.7339, 45.1000, 35.1264, 49.8175, 56.2639,
             58.5953, 61.9241, 46.2276, 51.1657, 39.0742, 47.1625, 53.4129,
             41.8719, 56.8796, 55.1694, 49.8153, 35.9375, 52.1326, 51.9194,
             39.3999, 45.9432, 48.6690, 46.1512, 40.4637,60.1282)
    lon <- c(14.5501, 4.4699, 25.4858,15.2000, 33.4299, 15.4730, 9.5018,
             25.0136, 25.7482, 2.2137, 10.4515, 21.8243, 19.5033, -8.2439,
             12.5674, 24.6032, 23.8813, 6.1296, 14.3754, 5.2913, 19.1451,
             -8.2245, 24.9668, 19.6990, 14.9955, -3.7492, 18.6435)
    df <- data.frame(country,lat, lon)

    # Make Map
    df %>%
        leaflet() %>%
        addTiles()%>%
        addMarkers(clusterOptions = markerClusterOptions())