Merge pull request #153 from odo/master

fixing problem with operation names containing underscores
basho · Nov 21, 2014 · 15f8806 · 15f8806
2 parents 1780fc8 + a09c831
commit 15f8806
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/priv/common.r b/priv/common.r
@@ -13,7 +13,7 @@ for(p in packages.to.install)
 # Load a latency file and ensure that it is appropriately tagged
 load_latency_frame <- function(File)
   {
-    op <- strsplit(basename(File), "_")[[1]][1]
+    op <- gsub("_latencies.csv", "", basename(File))
     frame <- read.csv(File)
     frame$op = rep(op, nrow(frame))
     return (frame)