suppressPackageStartupMessages(library(tidyverse))
d <- read_csv("data/democracy.csv", show_col_types=FALSE, n_max=10)
cat("colnames:\n"); print(colnames(d))
cat("classes:\n"); print(map_chr(d, ~ class(.)[1]))
cat("first 5 country values:\n"); print(head(d$COUNTRY %||% d$country, 5))
