Improving timestamps of OnosSystemTest wiki graphs
Change-Id: I593e50506932d8ddacfff76a1feceb8ef2c1ca67
diff --git a/TestON/JenkinsFile/wikiGraphRScripts/SCPFspecificGraphRScripts/SCPFbatchFlowResp.R b/TestON/JenkinsFile/wikiGraphRScripts/SCPFspecificGraphRScripts/SCPFbatchFlowResp.R
index 66dc505..1bcf551 100644
--- a/TestON/JenkinsFile/wikiGraphRScripts/SCPFspecificGraphRScripts/SCPFbatchFlowResp.R
+++ b/TestON/JenkinsFile/wikiGraphRScripts/SCPFspecificGraphRScripts/SCPFbatchFlowResp.R
@@ -129,6 +129,8 @@
print( "STEP 2: Organize Data." )
print( "**********************************************************" )
+latestBuildDate <- fileData$date[1]
+
# -----------------
# Post Data Sorting
# -----------------
@@ -270,7 +272,7 @@
xScaleConfig <- scale_x_continuous( breaks = postDataFrame$iterative,
label = postDataFrame$date )
-title <- labs( title = postChartTitle, subtitle = lastUpdatedLabel() )
+title <- labs( title = postChartTitle, subtitle = lastUpdatedLabel( latestBuildDate ) )
fundamentalGraphData <- mainPlot +
xScaleConfig +
@@ -329,7 +331,7 @@
xScaleConfig <- scale_x_continuous( breaks = delDataFrame$iterative,
label = delDataFrame$date )
-title <- labs( title = delChartTitle, subtitle = lastUpdatedLabel() )
+title <- labs( title = delChartTitle, subtitle = lastUpdatedLabel( latestBuildDate ) )
fundamentalGraphData <- mainPlot +
xScaleConfig +
diff --git a/TestON/JenkinsFile/wikiGraphRScripts/SCPFspecificGraphRScripts/SCPFcbench.R b/TestON/JenkinsFile/wikiGraphRScripts/SCPFspecificGraphRScripts/SCPFcbench.R
index 7e8e8c2..940a14b 100644
--- a/TestON/JenkinsFile/wikiGraphRScripts/SCPFspecificGraphRScripts/SCPFcbench.R
+++ b/TestON/JenkinsFile/wikiGraphRScripts/SCPFspecificGraphRScripts/SCPFcbench.R
@@ -106,6 +106,8 @@
print( "STEP 2: Organize Data." )
print( "**********************************************************" )
+latestBuildDate <- fileData$date[1]
+
# ------------
# Data Sorting
# ------------
@@ -187,7 +189,7 @@
theme <- graphTheme()
-title <- labs( title = chartTitle, subtitle = lastUpdatedLabel() )
+title <- labs( title = chartTitle, subtitle = lastUpdatedLabel( latestBuildDate ) )
fundamentalGraphData <- mainPlot +
xScaleConfig +
diff --git a/TestON/JenkinsFile/wikiGraphRScripts/SCPFspecificGraphRScripts/SCPFhostLat.R b/TestON/JenkinsFile/wikiGraphRScripts/SCPFspecificGraphRScripts/SCPFhostLat.R
index b34010a..b82f255 100644
--- a/TestON/JenkinsFile/wikiGraphRScripts/SCPFspecificGraphRScripts/SCPFhostLat.R
+++ b/TestON/JenkinsFile/wikiGraphRScripts/SCPFspecificGraphRScripts/SCPFhostLat.R
@@ -107,6 +107,8 @@
print( "STEP 2: Organize Data." )
print( "**********************************************************" )
+latestBuildDate <- fileData$date[1]
+
# ------------
# Data Sorting
# ------------
@@ -185,7 +187,7 @@
theme <- graphTheme()
-title <- labs( title = chartTitle, subtitle = lastUpdatedLabel() )
+title <- labs( title = chartTitle, subtitle = lastUpdatedLabel( latestBuildDate ) )
errorBarColor <- rgb( 140, 140, 140, maxColorValue = 255 )
diff --git a/TestON/JenkinsFile/wikiGraphRScripts/SCPFspecificGraphRScripts/SCPFmastershipFailoverLat.R b/TestON/JenkinsFile/wikiGraphRScripts/SCPFspecificGraphRScripts/SCPFmastershipFailoverLat.R
index c6e3503..2eb4145 100644
--- a/TestON/JenkinsFile/wikiGraphRScripts/SCPFspecificGraphRScripts/SCPFmastershipFailoverLat.R
+++ b/TestON/JenkinsFile/wikiGraphRScripts/SCPFspecificGraphRScripts/SCPFmastershipFailoverLat.R
@@ -115,6 +115,8 @@
print( "STEP 2: Organize Data." )
print( "**********************************************************" )
+latestBuildDate <- fileData$date[1]
+
# ------------
# Data Sorting
# ------------
@@ -209,7 +211,7 @@
print( "Generating fundamental graph data for the error bar graph." )
-title <- labs( title = chartTitle, subtitle = lastUpdatedLabel() )
+title <- labs( title = chartTitle, subtitle = lastUpdatedLabel( latestBuildDate ) )
fundamentalGraphData <- mainPlot +
xScaleConfig +
@@ -262,7 +264,7 @@
print( "Generating fundamental graph data for the stacked bar graph." )
-title <- labs( title = chartTitle, subtitle = lastUpdatedLabel() )
+title <- labs( title = chartTitle, subtitle = lastUpdatedLabel( latestBuildDate ) )
fundamentalGraphData <- mainPlot +
xScaleConfig +
diff --git a/TestON/JenkinsFile/wikiGraphRScripts/SCPFspecificGraphRScripts/SCPFportLat.R b/TestON/JenkinsFile/wikiGraphRScripts/SCPFspecificGraphRScripts/SCPFportLat.R
index dd3d95d..6311df7 100644
--- a/TestON/JenkinsFile/wikiGraphRScripts/SCPFspecificGraphRScripts/SCPFportLat.R
+++ b/TestON/JenkinsFile/wikiGraphRScripts/SCPFspecificGraphRScripts/SCPFportLat.R
@@ -110,6 +110,8 @@
print( "STEP 2: Organize Data." )
print( "**********************************************************" )
+latestBuildDate <- fileData$date[1]
+
# -----------------------------
# Port Up Averages Data Sorting
# -----------------------------
@@ -233,7 +235,7 @@
theme <- graphTheme()
-subtitle <- lastUpdatedLabel()
+subtitle <- lastUpdatedLabel( latestBuildDate )
colors <- scale_fill_manual( values=c( webColor( "redv2" ),
webColor( "light_blue" ),
@@ -259,7 +261,7 @@
print( "Generating fundamental graph data (Port Up Latency)." )
-title <- labs( title = "Port Up Latency", subtitle = lastUpdatedLabel() )
+title <- labs( title = "Port Up Latency", subtitle = lastUpdatedLabel( latestBuildDate ) )
fundamentalGraphData <- mainPlot +
xScaleConfig +
@@ -321,7 +323,7 @@
print( "Generating fundamental graph data (Port Down Latency)." )
-title <- labs( title = "Port Down Latency", subtitle = lastUpdatedLabel() )
+title <- labs( title = "Port Down Latency", subtitle = lastUpdatedLabel( latestBuildDate ) )
fundamentalGraphData <- mainPlot +
xScaleConfig +
diff --git a/TestON/JenkinsFile/wikiGraphRScripts/SCPFspecificGraphRScripts/SCPFscaleTopo.R b/TestON/JenkinsFile/wikiGraphRScripts/SCPFspecificGraphRScripts/SCPFscaleTopo.R
index 0a03b3a..7684a5f 100644
--- a/TestON/JenkinsFile/wikiGraphRScripts/SCPFspecificGraphRScripts/SCPFscaleTopo.R
+++ b/TestON/JenkinsFile/wikiGraphRScripts/SCPFspecificGraphRScripts/SCPFscaleTopo.R
@@ -108,6 +108,8 @@
print( "STEP 2: Organize Data." )
print( "**********************************************************" )
+latestBuildDate <- fileData$date[1]
+
# ------------
# Data Sorting
# ------------
@@ -205,7 +207,7 @@
wrapLegend <- guides( fill = guide_legend( nrow=2, byrow=TRUE ) )
-title <- labs( title = chartTitle, subtitle = lastUpdatedLabel() )
+title <- labs( title = chartTitle, subtitle = lastUpdatedLabel( latestBuildDate ) )
# Store plot configurations as 1 variable
fundamentalGraphData <- mainPlot +
diff --git a/TestON/JenkinsFile/wikiGraphRScripts/SCPFspecificGraphRScripts/SCPFswitchLat.R b/TestON/JenkinsFile/wikiGraphRScripts/SCPFspecificGraphRScripts/SCPFswitchLat.R
index 8082c4a..679d205 100644
--- a/TestON/JenkinsFile/wikiGraphRScripts/SCPFspecificGraphRScripts/SCPFswitchLat.R
+++ b/TestON/JenkinsFile/wikiGraphRScripts/SCPFspecificGraphRScripts/SCPFswitchLat.R
@@ -110,6 +110,8 @@
print( "STEP 2: Organize Data." )
print( "**********************************************************" )
+latestBuildDate <- fileData$date[1]
+
# -------------------------------
# Switch Up Averages Data Sorting
# -------------------------------
@@ -234,7 +236,7 @@
theme <- graphTheme()
-subtitle <- lastUpdatedLabel()
+subtitle <- lastUpdatedLabel( latestBuildDate )
colors <- scale_fill_manual( values=c( webColor( "redv2" ),
webColor( "light_blue" ),