Minor graph fixes, see details below
- Fix to SCPFmastershipFailoverLat.R unreferenced variable
- Removed misleading comments
- Fix to maximum y-axis in various SCPF scripts
- Minor code refractoring
- Changed contact info to university email
Change-Id: I825f435827f824c094b61afc9abe2559e989cdf3
diff --git a/TestON/JenkinsFile/scripts/SCPFscalingMaxIntents.R b/TestON/JenkinsFile/scripts/SCPFscalingMaxIntents.R
index e5f54e5..bc90806 100644
--- a/TestON/JenkinsFile/scripts/SCPFscalingMaxIntents.R
+++ b/TestON/JenkinsFile/scripts/SCPFscalingMaxIntents.R
@@ -18,7 +18,7 @@
# along with TestON. If not, see <http://www.gnu.org/licenses/>.
#
# If you have any questions, or if you don't understand R,
-# please contact Jeremy Ronquillo: jeremyr@opennetworking.org
+# please contact Jeremy Ronquillo: j_ronquillo@u.pacific.edu
# **********************************************************
# STEP 1: File management.
@@ -26,9 +26,6 @@
print( "STEP 1: File management." )
-# Command line arguments are read. Args usually include the database filename and the output
-# directory for the graphs to save to.
-# ie: Rscript SCPFgraphGenerator SCPFsampleDataDB.csv ~/tmp/
print( "Reading commmand-line args." )
args <- commandArgs( trailingOnly=TRUE )
@@ -47,9 +44,7 @@
q() # basically exit(), but in R
}
-# Filenames for output graphs include the testname and the graph type.
-# See the examples below. paste() is used to concatenate strings.
-
+# paste() is used to concatenate strings.
outputFile <- paste( args[ 8 ], args[ 6 ], sep="" )
if ( args[ 1 ] == "y" ){
outputFile <- paste( outputFile, "flowObj", sep="_" )
@@ -80,7 +75,7 @@
fileData <- dbGetQuery( con, command )
if ( args[ 1 ] == "y" ){
- chartTitle <- "Number of Installed Intents & Flows with Flow Objectives"
+ chartTitle <- "Number of Installed Intents & Flows w/ FlowObj"
} else {
chartTitle <- "Number of Installed Intents & Flows"
}