BUG: duplicate rows introduced for NPS from multiple sources

r2dii.climate.stress.test/web_tool_stress_test.R

Lines 296 to 299 in 60d0504

    
           pacta_equity_results_full <- pacta_equity_results_full %>% 
        
             filter(scenario %in% scenarios) %>% 
        
             mutate(scenario = ifelse(str_detect(scenario, "_"), str_extract(scenario, "[^_]*$"), scenario)) %>% 
        
             check_portfolio_consistency()

If an input data set has ETP2017_NPS and WEO2019_NPS for the same technologies, this will lead to ambiguous rows in the data.
We need an additional step, that clarifies we only want Automotive from ETP and everything else from WEO.

related to (or supersedes?) #45

possibly closed by #47?

fixed

	pacta_equity_results_full <- pacta_equity_results_full %>%
	filter(scenario %in% scenarios) %>%
	mutate(scenario = ifelse(str_detect(scenario, "_"), str_extract(scenario, "[^_]*$"), scenario)) %>%
	check_portfolio_consistency()