From 045cc8a5d59dd4ec146942369281618c87127329 Mon Sep 17 00:00:00 2001
From: Dhirendra Singh <dhi.singh@gmail.com>
Date: Tue, 16 Mar 2021 11:28:25 +1100
Subject: [PATCH] Minor fixes; #4

---
 R/plan.R | 3 +++
 R/util.R | 4 ++++
 2 files changed, 7 insertions(+)

diff --git a/R/plan.R b/R/plan.R
index f620f05..914fc14 100644
--- a/R/plan.R
+++ b/R/plan.R
@@ -451,6 +451,9 @@ generatePlans <- function(N, csv, endcsv, binCols, outdir, writeInterval) {
     if (i%%writeInterval==0 || i==N) {
       write.table(plans, file=outfile, append=TRUE, row.names=FALSE, col.names=FALSE, sep = ',')
       plans<-plans[FALSE,] # remove all rows
+      if (i==N) {
+        cat('\n')
+      }
     }
   }
   # write out the analyses PDFs
diff --git a/R/util.R b/R/util.R
index b79fd0f..8d9353a 100644
--- a/R/util.R
+++ b/R/util.R
@@ -1,3 +1,7 @@
+suppressPackageStartupMessages(library(dplyr))
+# Suppress summarise info
+options(dplyr.summarise.inform = FALSE)
+
 # Probabilistically selects an index from the vector of probabilities
 selectIndexFromProbabilities <-function(vv) {
   if(is.null(vv) || is.na(vv)) return(vv)