"0","# assign NonSalvage material dispositions "
"0","demoEOL <- EOL[38:66, c(3:4,7:9)] %>%"
"0","   gather(`Percent Recycled`, `Percent Incinerated`, `Percent Landfilled`,  key = ""disposition_assignment"", value = ""percentage"") %>%"
"0","   mutate(disposition = case_when("
"0","      .$disposition_assignment == ""Percent Recycled"" ~ ""recyclingGeneric"","
"0","      .$disposition_assignment == ""Percent Incinerated"" ~ ""incineration"","
"0","      .$disposition_assignment == ""Percent Landfilled"" ~ ""landfill"""
"0","   ))"
"0","demo_scenario <- salvage_materials_weight %>%"
"0","   left_join(demoEOL, by = ""deconMaterialName"") %>%"
"0","   inner_join(demo_impacts, by = c(""deconMaterialName"", ""disposition"")) %>%"
"0","   mutate(percent_EOL_quantity = converted_quantity * percentage) %>%"
"0","   mutate(material_impacts = percent_EOL_quantity * impactValue) %>%"
"0","   mutate(material_impact_units = impactUnit) %>%"
"0","   rename(quantity = percent_EOL_quantity) %>%"
"0","   rename(quantity_units = converted_quantity_units) %>%"
"0","   select(""house_age"", ""house_size"", ""project"", ""contractor"", ""deconMaterialName"", ""quantity"", ""quantity_units"", ""disposition"", ""impactCategory"", ""material_impacts"", ""material_impact_units"", ""SimpleEOLname"")"
