Commit 7d0b50c7 authored by Holger Brandl's avatar Holger Brandl

new count() wrappers

parent a9816448
......@@ -345,6 +345,16 @@ n_as = function(df, name){
df
}
#count_occ = function(df, ...) count(df, ...) %>% n_as("num_occ")
dcount= function(df, ...) count(df, ...) %>% n_as("num_occ") %>% count(num_occ)
count_as= function(df, n_name, ...) count(df, ...) %>% n_as(n_name)
#iris %>% count_as("num_occ", Species)
#iris %>% dcross_tab(Species)
distinct_all = function (x, ...) distinct(x, ..., .keep_all=T)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment