"0","gathered__per_home_final_impact <- reshaped_per_home_final_impact %>%"
"0","   select(-material_transport) %>% # don't need this category as it is the sum of the site & EOL transport"
"0","   gather(`materials`, `site_transport_impact`, `EOL_transport_impact`, `worker_transport`, `equipment_use`, `total`, key = ""impact_origin"", value = ""impact_value"") %>%"
"0","   # reformat the field entries for impact_origin"
"0","   mutate(impact_type = case_when(impact_origin == ""materials"" ~ ""Material impacts"","
"0","                                  impact_origin == ""site_transport_impact"" ~ ""Material transport (to MRF or reuse)"","
"0","                                  impact_origin == ""EOL_transport_impact"" ~ ""Material transport (MRF to EOL)"",      "
"0","                                  impact_origin == ""worker_transport"" ~ ""Worker transport"","
"0","                                  impact_origin == ""equipment_use"" ~ ""Equipment use on site"","
"0","                                  impact_origin == ""total"" ~ ""Total""))"
"0","# table 8 in the main report"
"0","carbon_ave_project_table <- filter(gathered__per_home_final_impact, impact_units == ""kg CO2e"") %>%"
"0","   spread(key = ""scenario"",  value = ""impact_value"") %>%"
"0","   mutate(Difference = Demolition - Deconstruction) %>%"
"0","   mutate(Per_SqFt_Difference = Difference/mean(house_weight$house_size)) %>%"
"0","   add_column(roworder = c(3,5,1,2,6,4)) %>%"
"0","   arrange(roworder) %>%"
"0","   select(-impact_origin, -impact_units, -roworder)"
"0","# table 9 in the main report"
"0","energy_ave_project_table <- filter(gathered__per_home_final_impact, impact_units == ""MJ"") %>%"
"0","   spread(key = ""scenario"",  value = ""impact_value"") %>%"
"0","   mutate(Difference = Demolition - Deconstruction) %>%"
"0","   mutate(Per_SqFt_Difference = Difference/mean(house_weight$house_size)) %>%"
"0","   add_column(roworder = c(3,5,1,2,6,4)) %>%"
"0","   arrange(roworder) %>%"
"0","   select(-impact_origin, -impact_units, -roworder)"
"0","kable(carbon_ave_project_table, format.args = list(big.mark = "",""), caption = ""per house average global warming potential impacts (kg CO2 equivalent)"")"
