Government-mandated social distancing by location and date (with all dates)

format_data.R

library(tidyverse)
data <- read.csv('https://gist.githubusercontent.com/aflaxman/e93187b6a0845358dfca2c44e2492ee4/raw/347ce1ab6b18a011dd6bedb0cdb04b9bd0a68e7d/sdc_sources.csv', stringsAsFactors = F)
data <- data %>% 
  mutate(Initial.business.closures = if_else(
    Initial.business.closures == "full implementation", # If it's "full ..."
    Non.essential.services.closed,                      # Set as non essential
    Initial.business.closures)) %>%                     # Otherwise keep it
  mutate(Mass.gathering.restrictions = if_else(
    Mass.gathering.restrictions == "full implementation", # If it's "full ..."
    Stay.at.Home.Order,                                   # Set as Stay at home
    Mass.gathering.restrictions)                          # Otherwise keep it
    )

# Reset names to using spaces
with_periods <- colnames(data)
with_spaces <- str_replace_all(with_periods, "\\.", " ")
colnames(data) <- with_spaces
write.csv(data, "formatted_distancing_dates.csv", row.names = F)

formatted_distancing_dates.csv