"0","# new deconMaterialName categories to incorporate later, leave commented out until update is released"
"0","# new_materials_demo_percentEOL <- EOL[76:86, c(3:4,7:9)]"
"0","# dropbox composition percentages to apply to dropbox total weight"
"0","dropbox_stream_distribution <- EOL[30:33, 3:5]"
"0","dropbox_stream_distribution$Distribution <- as.numeric(str_sub(dropbox_stream_distribution$Distribution, 1, -2))/100"
"0","# reshape table for extracting kg by EOL disposition"
"0","dropbox_EOL <- EOL[30:33, c(3:4,7:9)] %>%"
"0","   gather(""Percent Recycled"", ""Percent Incinerated"", ""Percent Landfilled"",  key = ""disposition_assignment"", value = ""percentage"") %>%"
"0","   add_column(disposition = case_when("
"0","      .$disposition_assignment == ""Percent Recycled"" ~ ""recyclingGeneric"","
"0","      .$disposition_assignment == ""Percent Incinerated"" ~ ""incineration"","
"0","      .$disposition_assignment == ""Percent Landfilled"" ~ ""landfill"")"
"0","      )"
"0","# merge the stream composition table with the EOL disposition assignment"
"0","dropbox_stream_EOL <- inner_join(dropbox_stream_distribution, dropbox_EOL, by = c(""SimpleEOLname"", ""deconMaterialName"")) %>%"
"0","   filter(percentage > 0) %>%"
"0","   add_column(target_units = rep(""kg"", length(.$percentage)))"
"0","# clean up intermediate objects"
"0","rm(dropbox_EOL)"
"0","rm(dropbox_stream_distribution)"
