"0","weight_calc <- weight_calc %>% "
"0","   mutate(converted_quantity = case_when("
"0","      .$calculated_quantity_units == ""cu_ft"" & .$deconMaterialName == ""hardwood flooring"" ~ .$calculated_quantity * hardwood_density_factor,"
"0","      .$calculated_quantity_units == ""cu_ft"" & .$deconMaterialName == ""softwood lumber"" ~ .$calculated_quantity * softwood_density_factor,"
"0","      .$calculated_quantity_units == ""kg"" ~ .$calculated_quantity,"
"0","      .$calculated_quantity_units == ""lbs"" ~ .$calculated_quantity * lbs_to_kg,"
"0","      .$calculated_quantity_units == ""tons"" ~ .$calculated_quantity * short_tons_conversion"
"0","   )"
"0","   ) %>% "
"0","   mutate(converted_quantity_units = ifelse(is.na(.$converted_quantity), NA, ""kg""))"
"0","# save for calculation verification, all variables and observations included"
"0","write.csv(weight_calc, ""intermediary/weight_calc.csv"")"
