"0","decon <- left_join(reuse_scenario, material_category_mapping, by = ""deconMaterialName"") %>%"
"0","   rename(quantity = converted_quantity) %>%"
"0","   rename(quantity_units = converted_quantity_units) %>%"
"0","   bind_rows(dropbox_impacts) %>%"
"0","   rename(impact_category = impactCategory) "
"0","write.csv(decon, ""intermediary/deconData.csv"")"
