"0","#impact_data <- impact_data %>%"
"0","#   select(c(1, 3:7))"
"0","# split impacts by disposition to create EOL scenario impact values"
"0","reuse_impacts <- impact_data %>%"
"0","   filter(.$disposition == ""reuse"")"
"0","demo_impacts <- impact_data %>%"
"0","   filter(.$disposition != ""reuse"")"
