Mapper of disjoint datasets

mapper_diff_datasets_to_similar_schema.R

library(tidyverse)

dot_data <- read_csv('./path/to/dot.csv')
311_data <- read_csv('./path/to/311.csv') 

# Shared headers, based on dot list you gave me

headers <- c(Columns by SR # / CD # / Request Type / Address / Description / Submit Date / Closed Date / Current Status / Owner) 

dot_data %>% 
  mutate(key = stringr::str_replace(key, "old_header", "new_header"))
  ## Repeat
  # set the owner to dot 
  
311_data %>%  
  mutate(key = stringr::str_replace(key, "old_header", "new_header"))
  ## Repeat
  # set the owner to 311
  
merged_data <- rbind(dot_data, 311_data)