New Tool

library(tidyverse)

peace <- read_csv("R_general_resources/EDA/30DayChartChallenge/data/Edition_2022/day20_new_tool/un-peacekeeping-forces.csv")

df <- peace%>%select(-Entity,-Code)%>%
  janitor::clean_names()%>%
  rename(peacekeeping_n=size_of_total_peacekeeping_force_united_nations_peacekeeping)

write_csv(df,"peacekeeping.csv")