Skip to content
Browse files

Make colwise even faster by using lapply directly

  • Loading branch information...
1 parent 51f7a09 commit 59192b92716bf758b360268e509e0f749b782589 @hadley committed
Showing with 1 addition and 1 deletion.
  1. +1 −1 R/helper-col-wise.r
View
2 R/helper-col-wise.r
@@ -50,7 +50,7 @@ colwise <- function(.fun, .cols = function(x) TRUE) {
filtered <- filter(df)
if (ncol(filtered) == 0) return(data.frame())
- df <- as.data.frame(llply(filtered, .fun, ...))
+ df <- as.data.frame(lapply(filtered, .fun, ...))
names(df) <- names(filtered)
df
}

0 comments on commit 59192b9

Please sign in to comment.
Something went wrong with that request. Please try again.