raise error for invalid args passed through dots

airoldilab · Nov 12, 2017 · a256063 · a256063
1 parent ade59cb
commit a256063
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/R/sgd.R b/R/sgd.R
@@ -670,6 +670,10 @@ valid_implicit_control <- function(delta=30L, ...) {
   #
   # Args:
   #   delta: convergence criterion for the one-dimensional optimization
+  args <- list(...)
+  if (!is.null(names(args))) {
+    stop("Invalid args passed into sgd.control through dots")
+  }
   if (!is.numeric(delta) || delta - as.integer(delta) != 0 || delta <= 0) {
     stop("value of 'delta' must be integer > 0")
   }