Skip to contents

The dataset contains information on main education services by Member States.

Usage

gisco_get_education(
  year = c("2023", "2020"),
  cache = TRUE,
  update_cache = FALSE,
  cache_dir = NULL,
  verbose = FALSE,
  country = NULL
)

Arguments

year

Release year of the file. One of "2020", "2023" (default).

cache

A logical whether to do caching. Default is TRUE. See About caching.

update_cache

A logical whether to update cache. Default is FALSE. When set to TRUE it would force a fresh download of the source .geojson file.

cache_dir

A path to a cache directory. See About caching.

verbose

Logical, displays information. Useful for debugging, default is FALSE.

country

Optional. A character vector of country codes. It could be either a vector of country names, a vector of ISO3 country codes or a vector of Eurostat country codes. Mixed types (as c("Italy","ES","FRA")) would not work. See also countrycode::countrycode().

Value

A POINT sf object.

Details

Files are distributed on EPSG:4326. Metadata available on https://gisco-services.ec.europa.eu/pub/education/metadata.pdf.

About caching

You can set your cache_dir with gisco_set_cache_dir().

Sometimes cached files may be corrupt. On that case, try re-downloading the data setting update_cache = TRUE.

If you experience any problem on download, try to download the corresponding .geojson file by any other method and save it on your cache_dir. Use the option verbose = TRUE for debugging the API query.

For a complete list of files available check gisco_db.

See also

Author

dieghernan, https://github.com/dieghernan/

Examples

# \donttest{

edu_BEL <- gisco_get_education(country = "Belgium")
#> HTTP Status Code: 503 - Service Unavailable
#> 
#> url 
#>   https://gisco-services.ec.europa.eu/pub/education/2023/gpkg/BE.gpkg  not reachable.
#> 
#> Please download manually.  If you think this is a bug please consider opening an issue on  https://github.com/ropengov/giscoR/issues
#> Returning `NULL`

# Plot if downloaded
if (nrow(edu_BEL) > 3) {
  library(ggplot2)
  ggplot(edu_BEL) +
    geom_sf(shape = 21, size = 0.15)
}
#> Error in if (nrow(edu_BEL) > 3) {    library(ggplot2)    ggplot(edu_BEL) + geom_sf(shape = 21, size = 0.15)}: argument is of length zero
# }