Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Update count.r

Changed test from `is.vector` to `is.atomic`, in order to fix Issue 130.
  • Loading branch information...
commit 7f0dfd64e0157f5751967de0f9a73425b65dcf6d 1 parent 9543c05
@richierocks richierocks authored
Showing with 1 addition and 1 deletion.
  1. +1 −1  R/count.r
View
2  R/count.r
@@ -36,7 +36,7 @@
#' count(count(baseball[1:100,], c("id", "year")), "id", "freq")
#' count(count(baseball, c("id", "year")), "freq")
count <- function(df, vars = NULL, wt_var = NULL) {
- if (is.vector(df)) {
+ if (is.atomic(df)) {
df <- data.frame(x = df)
}
Please sign in to comment.
Something went wrong with that request. Please try again.