"0","reuse_scenario <- salvage_materials_weight %>%"
"0","   inner_join(reuse_impacts, by = ""deconMaterialName"") %>%"
"0","   mutate(material_impacts = converted_quantity * impactValue) %>%"
"0","   mutate(material_impact_units = impactUnit) %>%"
"0","   select(c(""project"", ""contractor"", ""house_age"", ""house_size"", ""deconMaterialName"", ""converted_quantity"", ""converted_quantity_units"", ""disposition"", ""impactCategory"", ""material_impacts"", ""material_impact_units"")) %>%"
"0","   group_by(project, contractor, deconMaterialName, disposition, impactCategory)"
"0"," "
"0","    "
"0","reuse_scenario_impact_summary <- reuse_scenario %>%"
"0","   summarise(impact_sum = sum(material_impacts)) %>%"
"0","   left_join(project_characteristics, by = ""project"")  "
"0","   "
