"0","demo <- demo_scenario %>%"
"0","   bind_rows(dropbox_impacts) %>%"
"0","   rename(impact_category = impactCategory) %>%"
"0","   filter(quantity != 0)"
"0","write.csv(demo, ""intermediary/demoData.csv"")"
