"0","# first leg: dropbox (site) to transfer station"
"0","# start with dropbox weight leaving off the index and build out columns"
"0","dropbox_EOL <- dropbox_EOL_weight[,-1] %>%"
"0","   add_column(carbon_impacts_per_kg_material_to_transfer = as.numeric(routes[3,9])) %>%"
"0","   add_column(energy_impacts_per_kg_material_to_transfer = as.numeric(routes[3,10])) %>%"
"0","   mutate(carbon_impacts_dropbox_to_transfer_kgCO2e = dropbox_EOL_kg * carbon_impacts_per_kg_material_to_transfer) %>%"
"0","   mutate(energy_impacts_dropbox_to_transfer_MJ = dropbox_EOL_kg * energy_impacts_per_kg_material_to_transfer)"
"0","# second leg: dropbox transfer station to EOL disposition"
"0","dropbox_EOL <- dropbox_EOL %>%"
"0","   left_join(transfer_to_EOL, by = ""SimpleEOLname"") %>%"
"0","   mutate(carbon_impacts_transfer_to_EOL_kgCO2e = dropbox_EOL_kg * CarbonImpact) %>%"
"0","   mutate(energy_impacts_transfer_to_EOL_MJ = dropbox_EOL_kg * EnergyImpact)"
"0","rm(dropbox_EOL_weight)"
"0","write.csv(dropbox_EOL, ""intermediary/dropbox_EOL_transport_impacts.csv"")"
