Remove SDP scenario override in readMAgPIE

[gabriel-abrahao]

This section overrides the SDP scenario with SSP1, among others. Setting this issue as a reminder to remove it when we update the MAgPIE data.

mrcommons/R/readMAgPIE.R

Lines 109 to 121 in 0041fd9

	# make SSP2EU scenario using SSP2 data --- ATTENTION: needs to be deleted as soon as we have data for SSP2EU
	xSSP2EU <- x[, , c("SSP2-NDC-NDC", "SSP2-NDC-PkBudg1300", "SSP2-NDC-PkBudg900", "SSP2-NPI-Base")]
	getNames(xSSP2EU) <- gsub("SSP2", "SSP2EU", getNames(xSSP2EU))
	x <- mbind(x, xSSP2EU)
	# make SDP* scenarios using SSP1 data --- ATTENTION: needs to be deleted as soon as we have data for SDP*
	xSDPEI <- x[, , c("SSP1-NDC-NDC", "SSP1-NDC-PkBudg1300", "SSP1-NDC-PkBudg900", "SSP1-NPI-Base")]
	getNames(xSDPEI) <- gsub("SSP1", "SDP_EI", getNames(xSDPEI))
	xSDPRC <- x[, , c("SSP1-NDC-NDC", "SSP1-NDC-PkBudg1300", "SSP1-NDC-PkBudg900", "SSP1-NPI-Base")]
	getNames(xSDPRC) <- gsub("SSP1", "SDP_RC", getNames(xSDPRC))
	xSDPMC <- x[, , c("SSP1-NDC-NDC", "SSP1-NDC-PkBudg1300", "SSP1-NDC-PkBudg900", "SSP1-NPI-Base")]
	getNames(xSDPMC) <- gsub("SSP1", "SDP_MC", getNames(xSDPMC))
	x <- mbind(x, xSDPEI, xSDPRC, xSDPMC)