fix replications being removed

Author: JTPetter

R/doeFactorial.R

@@ -18,6 +18,11 @@
 #' @export
 doeFactorial <- function(jaspResults, dataset, options, ...) {
 
+  # 'repetitions' UI control is currently commented out in the QML; default to 0 so the
+  # summary table and design generation don't receive NULL (see doeFactorial.qml).
+  if (is.null(options[["repetitions"]]))
+    options[["repetitions"]] <- 0L
+
   selectedRow <- options[["selectedRow"]]
   maximumRow <- .getMaximumRow(options)