"0","projects <- distinct(select(decon, c(""house_age"", ""house_size"", ""project"", ""contractor"")))"
"0","# create the labor & equipment tables and save for later"
"0","# combine per project worker transport to the larger material based impact data frames later"
"0","per_project_worker_equipment <- bind_rows(projects, projects) %>%"
"0","   add_column(decon_workers = c(rep(as.numeric(routes[1,11]),number_of_projects), rep(as.numeric(routes[1,12]),number_of_projects))) %>%"
"0","   add_column(demo_workers = c(rep(as.numeric(routes[9,11]),number_of_projects), rep(as.numeric(routes[9,12]),number_of_projects))) %>%"
"0","   add_column(demo_equipment = c(rep(as.numeric(routes[14,11]),number_of_projects), rep(as.numeric(routes[14,12]),number_of_projects))) %>%"
"0","   add_column(impact_units = c(rep(""kg CO2e"", number_of_projects), rep(""MJ"", number_of_projects) ))"
"0","write.csv(per_project_worker_equipment, ""intermediary/per_project_worker_equipment_transport_impacts.csv"")"
