commit 3da02ebc70630be797f4c6f1702da090c0cef500
author Marc Kupietz <kupietz@ids-mannheim.de> Fri Oct 04 09:15:00 2019 +0200
committer Marc Kupietz <kupietz@ids-mannheim.de> Fri Oct 04 23:01:01 2019 +0200
tree ed9b12c2b74d63c9c8de1a04c2d50b5d7469b68d
parent 296e493e7c43197f9174b3d6ca92bdbe6065ade5

Regional example: don't plot intermediate results

Change-Id: I49e9dcf38aee4fcde40b7f882c9e9eebae540b75

demo/regional.R

diff --git a/demo/regional.R b/demo/regional.R
index 60ea5c7..05a3b6d 100755
--- a/demo/regional.R
+++ b/demo/regional.R
@@ -54,10 +54,10 @@
         regions[i,]$url <- kqo@webUIRequestUrl
       }
       cat(regions[i,]$afreq, regions[i,]$total, regions[i,]$freq, "\n")
-      plot <- updatePlot(query, map, regions)
       cat("\n\n")
     }
   }
+  plot <- updatePlot(query, map, regions)
   pp <- ggplotly(plot)
   for (i in 1:nrow(regions)) {
     j <- grep(paste0(regions$region[i], "\""), pp$x$data, perl=TRUE)