# Load packages
library(wbstats)
library(dplyr)
library(janitor)
# Store the list of indicators in an object
indicators <- c("flfp" = "SL.TLF.CACT.FE.ZS", "women_rep" = "SG.GEN.PARL.ZS")
# Download the data
wb_dta <- wb_data(indicators, mrv = 25) |> # most recent 25 years
select(!iso2c) |>
rename(year = date) |>
mutate(
flfp = round_to_fraction(flfp, denominator = 100), # round to nearest 100th
women_rep = round_to_fraction(women_rep, denominator = 100)
)
# View the data
glimpse(women_emp)