"0","# split the full set of decon_material_weight data into two data frames: anything that didn't go into a dropbox vs anything that did! "
"0","salvage_materials_weight <- decon_material_weight %>% "
"0","   filter(deconMaterialName != ""dropbox"") %>%"
"0","   mutate(US_lbs = converted_quantity * 2.2046)"
"0","dropbox_weight <- decon_material_weight %>% "
"0","   filter(deconMaterialName == ""dropbox"") %>%"
"0","   select(c(""project"", ""contractor"", ""house_age"", ""house_size"", ""deconMaterialName"", ""converted_quantity"", ""converted_quantity_units"") ) %>%"
"0","   group_by(contractor, project) %>%"
"0","   summarise(total_dropbox_quantity = sum(converted_quantity)) %>%"
"0","   add_column(quantity_units = ""kg"")"
"0","rm(decon_material_weight)"
