"0","# same as previous code chunk but using sq ft units vs per home units"
"0","# reshape impacts for charts"
"0"," final_impact_summary <- final_impact_summary %>%"
"0","   mutate(per_sq_ft_impact = impact / as.numeric(total_house_size$total_sq_ft) )"
"0","reshaped_per_sq_ft_final_impact <- final_impact_summary %>%"
"0","   select(c(""scenario"", ""impact_origin"", ""per_sq_ft_impact"", ""impact_units"")) %>%"
"0","   spread(key = impact_origin, value = per_sq_ft_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","# create per sq ft tables for report appendix"
"0","carbon_impacts_per_sq_ft <- reshaped_per_sq_ft_final_impact %>%"
"0","   filter(impact_units == ""kg CO2e"") %>%"
"0","   gather(`EOL_transport_impact`, `equipment_use`, `materials`, `site_transport_impact`, `worker_transport`, `material_transport`, `total`, key = ""impact origin"", value = ""per_average_home_impact_value"") %>%"
"0","   spread(key = scenario, value = per_average_home_impact_value) %>%"
"0","   mutate(net_impacts = demo - decon) %>%"
"0","   select(c(""impact origin"", ""decon"", ""demo"", ""net_impacts"", ""impact_units""))"
"0","energy_impacts_per_sq_ft <- reshaped_per_sq_ft_final_impact %>%"
"0","   filter(impact_units == ""MJ"") %>%"
"0","   gather(`EOL_transport_impact`, `equipment_use`, `materials`, `site_transport_impact`, `worker_transport`, `material_transport`, `total`, key = ""impact origin"", value = ""per_average_home_impact_value"") %>%"
"0","   spread(key = scenario, value = per_average_home_impact_value) %>%"
"0","   mutate(net_impacts = demo - decon) %>%"
"0","   select(c(""impact origin"", ""decon"", ""demo"", ""net_impacts"", ""impact_units""))"
"0","kable(carbon_impacts_per_sq_ft, caption = ""average carbon impacts per square foot of house"")"
