Update ua-pop-2022.R

#19
kse-ua · Sep 2, 2022 · 5f32afc · 5f32afc
1 parent 88128e7
commit 5f32afc
Showing 1 changed file with 3 additions and 7 deletions.
diff --git a/analysis/ua-pop-2022/ua-pop-2022.R b/analysis/ua-pop-2022/ua-pop-2022.R
@@ -33,16 +33,12 @@ Sys.setlocale("LC_CTYPE", "ukr")
 prints_folder <- paste0("./analysis/ua-pop-2022/prints/")
 if (!fs::dir_exists(prints_folder)) { fs::dir_create(prints_folder) }
 
-path_data_input <- "./data-private/raw/ua-pop-2022.xlsx"
+path_data_input <- "./data-public/derived/ua-pop-2022.csv"
 # ---- declare-functions -------------------------------------------------------
 
 # ---- load-data ---------------------------------------------------------------
-ds0 <- readxl::read_xlsx(
-  path_data_input
-  , sheet = "12-47"
-  , skip = 5
-  , col_names = c("unit_ua","pop_count","unit_en" ) 
-)
+ds0 <- readr::read_csv(path_data_input)
+
 ds0 %>% glimpse()
 ds0
 # ---- inspect-data ------------------------------------------------------------