improve ... inspection message

Author: JohnMount

DESCRIPTION

@@ -2,7 +2,7 @@ Package: wrapr
 Type: Package
 Title: Wrap R Tools for Debugging and Parametric Programming
 Version: 1.9.4
-Date: 2020-01-11
+Date: 2020-01-16
 Authors@R: c(
     person("John", "Mount", email = "[email protected]", role = c("aut", "cre")),
     person("Nina", "Zumel", email = "[email protected]", role = c("aut")),

NEWS.md

@@ -1,8 +1,9 @@
 
-# wrapr 1.9.4 2020-01-11
+# wrapr 1.9.4 2020-01-16
 
  * tolerance on check_equiv_frames
  * remove graphics dependency
+ * improve ... check message.
 
 # wrapr 1.9.3 2019-11-03
 

R/stop_if_dot_args.R

@@ -27,11 +27,16 @@ stop_if_dot_args <- function(dot_args, msg = "") {
   if(length(dot_args)>1) {
     unams <- names(dot_args)[-1]
     uvals <- as.character(dot_args)[-1]
+    saw_blank <- any(nchar(uvals)<=0)
+    uvals <- sQuote(uvals, q=FALSE)
     unams[is.null(unams)] <- ""
     not_null <- nchar(unams)>0
     unams[not_null] <- paste0(unams[not_null], " = ")
     unams[!not_null] <- ""
     str <- paste(paste0(unams, uvals), collapse = ", ")
+    if(saw_blank) {
+      str <- paste(str, "(empty arguments can be caused by having exta commas in the function call)")
+    }
     stop(paste(msg, "unexpected arguments:", str),
          call. = FALSE)
   }