"0","# download house data"
"0","house_weight <- read.csv(""intermediary/house_weight.csv"", stringsAsFactors = F)"
"0","# reformat coded data as character"
"0","house_weight$project <- as.character(house_weight$project)"
"0","house_weight$contractor <- as.character(house_weight$contractor)"
"0","# load final net impacts summary and remove index"
"0","final_impact_summary <- read.csv(""intermediary/final_impact_summary.csv"", stringsAsFactors = F) %>%"
"0","   select(-1)"
"0","# load material weight detail data, remove index, and filter out dropbox info"
"0","salvage_material_weight <- read.csv(""intermediary/decon_material_weight.csv"", stringsAsFactors = F) %>%"
"0","   select(-1) %>% filter(deconMaterialName != ""dropbox"")"
"0","# reformat coded data as character"
"0","salvage_material_weight$project <- as.character(salvage_material_weight$project)"
"0","salvage_material_weight$contractor <- as.character(salvage_material_weight$contractor)"
"0","# download all project impact data and remove index"
"0","project_impact_data <- read.csv(""intermediary/final_complete_data_all_scenario_impacts.csv"", stringsAsFactors = F) %>%"
"0","   select(-1)"
"0","# reformat coded data as character"
"0","project_impact_data$project <- as.character(project_impact_data$project)"
"0","project_impact_data$contractor <- as.character(project_impact_data$contractor)"
"0","# replace scenario field info with full names for charts"
"0","project_impact_data$scenario <- str_replace_all(project_impact_data$scenario, ""decon"", ""deconstruction"")"
"0","project_impact_data$scenario <- str_replace_all(project_impact_data$scenario, ""demo"", ""demolition"")"
"0","# reshape data for summarizing and chart usage"
"0","gathered_impacts <- project_impact_data %>%"
"0","   gather(`material_impacts`, `site_transport_impact`, `EOL_transport_impact`, key = ""impact_origin"", value = ""impact"")"
