"0","# reshape/configure the data to produce tables and requested graphics"
"0","reshaped_per_home_final_impact <- final_impact_summary %>%"
"0","   select(c(""scenario"", ""impact_origin"", ""per_home_impact"", ""impact_units"")) %>%"
"0","   spread(key = impact_origin, value = per_home_impact) %>%"
"0","   rename(materials = material_impacts) %>%"
"0","   rename(worker_transport = workers) %>%"
"0","   rename(equipment_use = equipment) %>%"
"0","   mutate(material_transport = EOL_transport_impact + site_transport_impact) %>%"
"0","   mutate(total = materials + material_transport + worker_transport + equipment_use)"
"0","reshaped_per_home_final_impact$scenario <- str_replace_all(reshaped_per_home_final_impact$scenario, ""decon"", ""Deconstruction"")"
"0","reshaped_per_home_final_impact$scenario <- str_replace_all(reshaped_per_home_final_impact$scenario, ""demo"", ""Demolition"")   "
