SDG Education - progress tracking

Description

Purpose of the App is to visualize the progress of the SDG Education on the example of European countries.

Data are fetched to a data template in real time through rejustify.

Repository details: Eurostat/edat_lfs_9911

Developed and hosted by rejustify.com

Deployed with Shiny 




            

            

              

              
Package install and load

              
install.packages("remotes")
remotes::install_github("rejustify/r-package")
library(rejustify)

              

                
Authenticate

                Create your free acount.
              

              
setCurl()
register(token = "YOUR_TOKEN", email = "YOUR_EMAIL")

              
1. Data template

              
df   <- data.frame(country = c('AT', 'BE', 'BG', 'HR', 'CY', 'CZ', 'DE', 'DK', 'EE', 'ES', 'FI', 'FR', 'GB', 'GR', 'HU', 'IE', 'IT', 'LT', 'LU', 'LV', 'MT', 'NL', 'PL', 'PT', 'RO', 'SE', 'SI', 'SK'),
                   education_SDG = NA,
                   check.names = FALSE, stringsAsFactors = FALSE)


              
2. Analyze

              
st  <- analyze(df)

              
2a. adjust (if needed)

              
st  <- adjust(st, column = 2, items = list("class" = "general", "feature" = NA, "provider" = "Eurostat", "table" = "edat_lfs_9911"))


              
3. Fill data

              
rdf <- fill(df, st)
vis(rdf)

              
3a. adjust (if needed)

              
def <- adjust(rdf$default, column = 2, items = list("Sex" = "M",
                                                    "Country of citizenship" = "NAT",
                                                    "International Standard Classification of Education (ISCED 2011)" = "ED5-8",
                                                    "Age class" = "Y30-34"))
rdf <- fill(df, st, default = def)