Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Fix partial argument matches

  • Loading branch information...
commit ed4ccd8bb20e787992d2dfcb437bb065750d4d54 1 parent 03e1af8
@wch wch authored
Showing with 2 additions and 2 deletions.
  1. +1 −1  R/progress.r
  2. +1 −1  R/summarise.r
View
2  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
View
2  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)
Please sign in to comment.
Something went wrong with that request. Please try again.