correction of labels

uses correct labels for result_param_plots and result_state_plots
sybila · Mar 28, 2017 · 50643bc · 50643bc
1 parent 70bca72
commit 50643bc
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 8 deletions.
diff --git a/plot/result_param_plot.R b/plot/result_param_plot.R
@@ -23,7 +23,7 @@ createResultParamPlot <- function(result, id, input, session, output) {
 		id, input, session, output
 	)
 
-	debug(id, ":statePlot create")
+	debug(id, ":resultParamPlot create")
 
 	plot$result <- result
 	plot$state$coverage <- NULL
@@ -235,7 +235,7 @@ createResultParamPlot <- function(result, id, input, session, output) {
 			# TODO experiment with margins
 			plot$setupPlot(config)		
 
-			title(main = Explorer_VF_label)	
+			title(main = Result_PS_label)	
 
 			#### HERE WE APPLY ALL STATE SPACE RESTRICTIONS ####
 
@@ -524,7 +524,7 @@ createResultParamPlot <- function(result, id, input, session, output) {
 
 	plot$destroy <- function() {
 		plot$baseDestroy()
-		debug(id, ":statePlot destroy")
+		debug(id, ":resultParamPlot destroy")
 
 		output[[plot$outImage]] <- renderPlot({ "Destroyed" })
 	}	

diff --git a/plot/result_state_plot.R b/plot/result_state_plot.R
@@ -13,7 +13,7 @@ createResultStatePlot <- function(result, id, input, session, output) {
 		id, input, session, output
 	)
 
-	debug(id, ":statePlot create")
+	debug(id, ":resultStatePlot create")
 
 	plot$result <- result
 	plot$state$formulaIndex <- NULL
@@ -44,9 +44,9 @@ createResultStatePlot <- function(result, id, input, session, output) {
 		config <- plot$config()
 		if (is.null(config)) {
 			# TODO some loading
-			debug(id, ":statePlot invalid config")			
+			debug(id, ":resultStatePlot invalid config")			
 		} else {
-			debug(id, ":statePlot render plot")
+			debug(id, ":resultStatePlot render plot")
 
 			xThres <- config$xThres
 			yThres <- config$yThres
@@ -55,7 +55,7 @@ createResultStatePlot <- function(result, id, input, session, output) {
 			# TODO experiment with margins
 			plot$setupPlot(config)
 
-			title(Explorer_SS_label)
+			title(Result_SS_label)
 
 			# Draw threshold lines
 			abline(v = xThres, h = yThres)		
@@ -143,7 +143,7 @@ createResultStatePlot <- function(result, id, input, session, output) {
 
 	plot$destroy <- function() {
 		plot$baseDestroy()
-		debug(id, ":statePlot destroy")
+		debug(id, ":resultStatePlot destroy")
 
 		plot$.selectionUpdate()$destroy()