5-prepare_viz_for_dashboard.R

## Libraries
if (!require("pacman")) install.packages("pacman")
pacman::p_load(tidyverse, 
               stringi)

## In order to upload the visualizations for the dashboard we need to remove spaces and commas, and uniform the encoding 

## For the htmls
file.rename(list.files(here("visualizations", "maps"), full.names = T), 
            str_replace_all(list.files(here("visualizations", "maps"), full.names = T), " ", "_"))

file.rename(list.files(here("visualizations", "maps"), full.names = T), 
            str_replace_all(list.files(here("visualizations", "maps"), full.names = T), ",", ""))

file.rename(list.files(here("visualizations", "maps"), full.names = T), 
            stri_trans_general(list.files(here("visualizations", "maps"), full.names = T), "Latin-ASCII"))


## For the pngs
file.rename(list.files(here("visualizations", "density_plots"), full.names = T), 
            str_replace_all(list.files(here("visualizations", "density_plots"), full.names = T), " ", "_"))

file.rename(list.files(here("visualizations", "density_plots"), full.names = T), 
            str_replace_all(list.files(here("visualizations", "density_plots"), full.names = T), ",", ""))

file.rename(list.files(here("visualizations", "density_plots"), full.names = T), 
            stri_trans_general(list.files(here("visualizations", "density_plots"), full.names = T), "Latin-ASCII"))


## We also need to create a file for the dropdown selector
selector <- lau_matched %>% 
  st_set_geometry(NULL) %>% 
  select(country_id, region) %>% 
  unique() %>% 
  arrange(country_id, region) %>% 
  mutate(region = str_replace_all(region, ",", ""),
         region = stri_trans_general(region, "Latin-ASCII")) %>% 
  write_csv("selector_az.csv")