Fix partial argument matches

hadley · Nov 29, 2012 · ed4ccd8 · ed4ccd8
1 parent 03e1af8
commit ed4ccd8
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/R/progress.r b/R/progress.r
@@ -119,7 +119,7 @@ progress_text <- function(style = 3, ...) {
 #' l_ply(1:100, identity, .progress = progress_tk(label=""))
 #' }
 progress_tk <- function(title = "plyr progress", label = "Working...", ...) {
-  stopifnot(require("tcltk", quiet=TRUE))
+  stopifnot(require("tcltk", quietly = TRUE))
   n <- 0
   tk <- NULL
 

diff --git a/R/summarise.r b/R/summarise.r
@@ -32,7 +32,7 @@ summarise <- function(.data, ...) {
     missing_names <- names(cols) == ""
   }
   if (any(missing_names)) {
-    names <- unname(unlist(lapply(match.call(expand = FALSE)$`...`, deparse)))
+    names <- unname(unlist(lapply(match.call(expand.dots = FALSE)$`...`, deparse)))
     names(cols)[missing_names] <- names[missing_names]
   }
   .data <- as.list(.data)