blurt less in tests

logging, progess bars, and the java heap message are all suppressed by
setting options at the start of each test.

This only works if the test is run in a fresh session, before the JVM is
loaded (sigh)

Author: agoldst

tests/testthat/test-align.R

@@ -1,6 +1,9 @@
 context("model alignment")
 
 library(dplyr)
+options(java.parameters="-Xmx2g",
+        dfrtopics.mallet_logging="none",
+        dplyr.show_progress=FALSE)
 
 # run a scrap model: we're just doing manipulation here, not worrying
 # about quality

tests/testthat/test-browser_export.R

@@ -2,6 +2,10 @@ context("dfr-browser export")
 
 library(dplyr)
 library(Matrix)
+options(java.parameters="-Xmx2g",
+        dfrtopics.mallet_logging="none",
+        dplyr.show_progress=FALSE)
+
 
 clear_files <- function (fs, ...) {
     for (f in fs) {

tests/testthat/test-diagnostics.R

@@ -1,4 +1,7 @@
 context("MALLET diagnostics")
+options(java.parameters="-Xmx2g",
+        dfrtopics.mallet_logging="none",
+        dplyr.show_progress=FALSE)
 
 # run a scrap model: we're just doing manipulation here, not worrying
 # about quality

tests/testthat/test-foreign.R

@@ -1,4 +1,7 @@
 context("Using models from other packages")
+options(java.parameters="-Xmx2g",
+        dfrtopics.mallet_logging="none",
+        dplyr.show_progress=FALSE)
 
 clear_files <- function (fs, ...) {
     for (f in fs) {

tests/testthat/test-inferencer.R

@@ -1,4 +1,7 @@
 context("Topic inference support")
+options(java.parameters="-Xmx2g",
+        dfrtopics.mallet_logging="none",
+        dplyr.show_progress=FALSE)
 
 data_dir <- file.path(path.package("dfrtopics"),
                           "test-data", "pmla-modphil1905-1915")

tests/testthat/test-loading.R

@@ -1,4 +1,7 @@
 context("writing/loading model output files")
+options(java.parameters="-Xmx2g",
+        dfrtopics.mallet_logging="none",
+        dplyr.show_progress=FALSE)
 
 out_dir <- file.path(tempdir(), "test-loading")
 if (!file.exists(out_dir)) {

tests/testthat/test-mi.R

@@ -1,4 +1,7 @@
 context("Mutual Information")
+options(java.parameters="-Xmx2g",
+        dfrtopics.mallet_logging="none",
+        dplyr.show_progress=FALSE)
 
 # 5 vectors summing to 1 
 p <- t(rmultinom(5, 100, runif(8)) / 100)

tests/testthat/test-model_documents.R

@@ -1,4 +1,7 @@
 context("Modeling")
+options(java.parameters="-Xmx2g",
+        dfrtopics.mallet_logging="none",
+        dplyr.show_progress=FALSE)
 
 data_dir <- file.path(path.package("dfrtopics"),
                       "test-data", "pmla-modphil1905-1915")

tests/testthat/test-model_info.R

@@ -1,4 +1,7 @@
 context("Model inspection with topic info functions")
+options(java.parameters="-Xmx2g",
+        dfrtopics.mallet_logging="none",
+        dplyr.show_progress=FALSE)
 
 # construct a dummy trial model. We're not going for quality here,
 # since this is just to check that all the formatters and extractors

tests/testthat/test-plots.R

@@ -1,4 +1,7 @@
 context("Plot utilities")    
+options(java.parameters="-Xmx2g",
+        dfrtopics.mallet_logging="none",
+        dplyr.show_progress=FALSE)
 
 data_dir <- file.path(path.package("dfrtopics"),
                           "test-data", "pmla-modphil1905-1915")