[tor-commits] [metrics-tasks/master] Allow for the case that we're missing bwauth results (#2394).

[karsten at torproject.org]

commit 6eab08b32522d3d1640636822ba862578149f1b1
Author: Karsten Loesing <karsten.loesing at gmx.net>
Date:   Wed Nov 9 08:16:58 2011 +0100

    Allow for the case that we're missing bwauth results (#2394).
---
 task-2394/bandwidth-comparison.R |   27 +++++++++++++++++----------
 1 files changed, 17 insertions(+), 10 deletions(-)

diff --git a/task-2394/bandwidth-comparison.R b/task-2394/bandwidth-comparison.R
index a4b0329..50739b7 100644
--- a/task-2394/bandwidth-comparison.R
+++ b/task-2394/bandwidth-comparison.R
@@ -40,27 +40,34 @@ cdf_relays_category_votes <- function(data, category) {
   urras <- sort(d$urrasbandwidth * 1000 / d$descriptorbandwidth)
   moria1 <- sort(d$moria1bandwidth * 1000 / d$descriptorbandwidth)
   gabelmoo <- sort(d$gabelmoobandwidth * 1000 / d$descriptorbandwidth)
-  d <- rbind(
-    data.frame(x = consensus,
+  d <- data.frame(x = consensus,
                y = (1:length(consensus)) / length(consensus),
                source = "consensus",
-               category = category),
-    data.frame(x = urras,
+               category = category)
+  if (length(urras) > 0) {
+    d <- rbind(d, data.frame(x = urras,
                y = (1:length(urras)) / length(urras),
                source = "urras",
-               category = category),
-    data.frame(x = ides,
+               category = category))
+  }
+  if (length(ides) > 0) {
+    d <- rbind(d, data.frame(x = ides,
                y = (1:length(ides)) / length(ides),
                source = "ides",
-               category = category),
-    data.frame(x = moria1,
+               category = category))
+  }
+  if (length(moria1) > 0) {
+    d <- rbind(d, data.frame(x = moria1,
                y = (1:length(moria1)) / length(moria1),
                source = "moria1",
-               category = category),
-    data.frame(x = gabelmoo,
+               category = category))
+  }
+  if (length(gabelmoo) > 0) {
+    d <- rbind(d, data.frame(x = gabelmoo,
                y = (1:length(gabelmoo)) / length(gabelmoo),
                source = "gabelmoo",
                category = category))
+  }
   d
 }
 relays_category_votes <- rbind(