data-raw/combiner_old2.R

# # add NA rows for years 1 to 2018
# for (country_var in unique(polity_dt[["country"]])) {
#   years = c(1:2020)[!(1:2020 %in% polity_dt[country == country_var, ][["year"]])]
#   dt = data.table(year = years, country = country_var)
#   polity_dt = rbind(polity_dt, dt, fill=TRUE)
# }
# # reorder
# maddison_dt = maddison_dt[order(country_name, year)]


# # old:   # if arguments, merge given datasets; else merge all datasets
# if (...length() > 0) {
#   dt_list = list(...)
# } else {
#   maddison = get_maddison()
#   polity = get_polity()
#   wgi = get_wgi()
#   dt_list = list(maddison, polity, wgi)
# }
abissellsiders/ipsed documentation built on Jan. 11, 2024, 4:30 a.m.