[ONOS-7340]: Add 'Last Updated' Date to All TestON Result Wiki Graphs
Change-Id: I73f49a8b9a8c1e255aab7ac74d017b3b74bd29eb
diff --git a/TestON/JenkinsFile/scripts/SCPFintentEventTp.R b/TestON/JenkinsFile/scripts/SCPFintentEventTp.R
index 0b168ba..e9a9dc4 100644
--- a/TestON/JenkinsFile/scripts/SCPFintentEventTp.R
+++ b/TestON/JenkinsFile/scripts/SCPFintentEventTp.R
@@ -251,7 +251,10 @@
theme <- theme( plot.title = element_text( hjust = 0.5, size = 32, face = 'bold' ),
legend.position = "bottom",
legend.text = element_text( size = 18, face = "bold" ),
- legend.title = element_blank() )
+ legend.title = element_blank(),
+ 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="" )
values <- geom_text( aes( x = dataFrame$scale,
y = dataFrame$throughput + 0.03 * max( dataFrame$throughput ),
@@ -280,7 +283,7 @@
width = width,
fill = "#169EFF" )
-title <- ggtitle( chartTitle )
+title <- labs( title = chartTitle, subtitle = subtitle )
result <- fundamentalGraphData +
barGraphFormat +