# load packages
library(shiny)
library(readr)
library(ggplot2)
# load the data
dem_data <- read_csv("dem_data.csv")
# create list of named values for the input selection
vars <- c("Democracy" = "polyarchy",
"Clientelism" = "clientelism",
"Corruption" = "corruption",
"Women's Empowerment" = "womens_emp",
"Wealth" = "gdp_pc",
"Infant Mortality" = "inf_mort",
"Life Expectancy" = "life_exp",
"Education" = "education")