commit 94f99dd44be302d1c03c0fc67498ee67bc381aba
author Jeremy Ronquillo <jeremyr@opennetworking.org> Fri Jan 05 11:11:27 2018 -0800
committer Jeremy Ronquillo <jeremyr@opennetworking.org> Fri Jan 05 13:40:32 2018 -0800
tree a7ada4d644c344af2555d31508ad7b24ed16f2ba
parent 1abeb44095f70859db0724bff1057247a7f5673c

[ONOS-7340]: Add 'Last Updated' Date to All TestON Result Wiki Graphs

Change-Id: I73f49a8b9a8c1e255aab7ac74d017b3b74bd29eb

TestON/JenkinsFile/scripts/SCPFscalingMaxIntents.R

diff --git a/TestON/JenkinsFile/scripts/SCPFscalingMaxIntents.R b/TestON/JenkinsFile/scripts/SCPFscalingMaxIntents.R
index 21dd70f..045f5e7 100644
--- a/TestON/JenkinsFile/scripts/SCPFscalingMaxIntents.R
+++ b/TestON/JenkinsFile/scripts/SCPFscalingMaxIntents.R
@@ -223,13 +223,17 @@
                 legend.position = "bottom",
                 legend.text = element_text( size=22 ),
                 legend.title = element_blank(),
-                legend.key.size = unit( 1.5, 'lines' ) )
+                legend.key.size = unit( 1.5, 'lines' ),
+                plot.subtitle = element_text( size=16, hjust=1.0 ) )
+
+subtitle <- paste( "Last Updated: ", format( Sys.time(), format = "%b %d, %Y at %I:%M %p %Z" ), sep="" )
 
 colors <- scale_fill_manual( values = c( "#F77670",
                                          "#619DFA" ) )
 
 wrapLegend <- guides( fill = guide_legend( nrow = 1, byrow = TRUE ) )
-title <- ggtitle( chartTitle )
+
+title <- labs( title = chartTitle, subtitle = subtitle )
 
 fundamentalGraphData <- mainPlot +
                         xScaleConfig +