Fix the name of the series

usr110 · usr110 · commit 5cd86f3b3631 · 2016-08-04T15:44:15.000+01:00
diff --git a/app/server.R b/app/server.R
@@ -272,8 +272,8 @@ shinyServer(function(input, output, session){
         
         firstColName <- "Baseline (Total Population)"
         secondColName <- "Scenario (Sub-Population)"
-        #if (nrow(sessionData$idata) == nrow(scMETdata))
-        #  secondColName <- "Scenario (Total Population)"
+        if (nrow(sessionData$idata) == nrow(scMETdata))
+          secondColName <- "Scenario (Total Population)"
       }
       
       filtered_title <- getMETFilteredTitle(secondColData, "baseline")

Original file line number	Diff line number	Diff line change
`@@ -272,8 +272,8 @@ shinyServer(function(input, output, session){`
`272`	`272`
`273`	`273`	`firstColName <- "Baseline (Total Population)"`
`274`	`274`	`secondColName <- "Scenario (Sub-Population)"`
`275`		`- #if (nrow(sessionData$idata) == nrow(scMETdata))`
`276`		`- # secondColName <- "Scenario (Total Population)"`
	`275`	`+ if (nrow(sessionData$idata) == nrow(scMETdata))`
	`276`	`+ secondColName <- "Scenario (Total Population)"`
`277`	`277`	`}`
`278`	`278`
`279`	`279`	`filtered_title <- getMETFilteredTitle(secondColData, "baseline")`