R/04 dplyr-methods.R

In moodymudskipper/ggfun: Tools to apply functions to ggplot objects or their data

#' gg methods for tidyverse functions
#'
#' Methods for class gg obtained by applying ggmethod on functions from dplyr
#' and tidyr that have a data.frame or tbl_df method
#'
#' @param gg an object of class gg
#' @name tidygg
NULL

#' @export
#' @rdname tidygg
anti_join.gg <- ggmethod(dplyr::anti_join)

#' @export
#' @rdname tidygg
arrange.gg <- ggmethod(dplyr::arrange)

#' @export
#' @rdname tidygg
as.tbl.gg <- ggmethod(dplyr::as.tbl)

#' @export
#' @rdname tidygg
as.tbl_cube.gg <- ggmethod(dplyr::as.tbl_cube)

#' @export
#' @rdname tidygg
auto_copy.gg <- ggmethod(dplyr::auto_copy)

#' @export
#' @rdname tidygg
collapse.gg <- ggmethod(dplyr::collapse)

#' @export
#' @rdname tidygg
collect.gg <- ggmethod(dplyr::collect)

#' @export
#' @rdname tidygg
compute.gg <- ggmethod(dplyr::compute)

#' @export
#' @rdname tidygg
distinct.gg <- ggmethod(dplyr::distinct)

#' @export
#' @rdname tidygg
do.gg <- ggmethod(dplyr::do)

#' @export
#' @rdname tidygg
filter.gg <- ggmethod(dplyr::filter)

#' @export
#' @rdname tidygg
full_join.gg <- ggmethod(dplyr::full_join)

#' @export
#' @rdname tidygg
group_by.gg <- ggmethod(dplyr::group_by)

#' @export
#' @rdname tidygg
group_indices.gg <- ggmethod(dplyr::group_indices)

#' @export
#' @rdname tidygg
group_size.gg <- ggmethod(dplyr::group_size)

#' @export
#' @rdname tidygg
groups.gg <- ggmethod(dplyr::groups)

#' @export
#' @rdname tidygg
inner_join.gg <- ggmethod(dplyr::inner_join)

#' @export
#' @rdname tidygg
intersect.gg <- ggmethod(dplyr::intersect)

#' @export
#' @rdname tidygg
left_join.gg <- ggmethod(dplyr::left_join)

#' @export
#' @rdname tidygg
mutate.gg <- ggmethod(dplyr::mutate)

#' @export
#' @rdname tidygg
n_groups.gg <- ggmethod(dplyr::n_groups)

#' @export
#' @rdname tidygg
pull.gg <- ggmethod(dplyr::pull)

#' @export
#' @rdname tidygg
rename.gg <- ggmethod(dplyr::rename)

#' @export
#' @rdname tidygg
right_join.gg <- ggmethod(dplyr::right_join)

#' @export
#' @rdname tidygg
same_src.gg <- ggmethod(dplyr::same_src)

#' @export
#' @rdname tidygg
sample_frac.gg <- ggmethod(dplyr::sample_frac)

#' @export
#' @rdname tidygg
sample_n.gg <- ggmethod(dplyr::sample_n)

#' @export
#' @rdname tidygg
select.gg <- ggmethod(dplyr::select)

#' @export
#' @rdname tidygg
semi_join.gg <- ggmethod(dplyr::semi_join)

#' @export
#' @rdname tidygg
setdiff.gg <- ggmethod(dplyr::setdiff)

#' @export
#' @rdname tidygg
setequal.gg <- ggmethod(dplyr::setequal)

#' @export
#' @rdname tidygg
slice.gg <- ggmethod(dplyr::slice)

#' @export
#' @rdname tidygg
summarise.gg <- ggmethod(dplyr::summarise)

#' @export
#' @rdname tidygg
tbl_vars.gg <- ggmethod(dplyr::tbl_vars)

#' @export
#' @rdname tidygg
ungroup.gg <- ggmethod(dplyr::ungroup)

#' @export
#' @rdname tidygg
union.gg <- ggmethod(dplyr::union)

#' @export
#' @rdname tidygg
union_all.gg <- ggmethod(dplyr::union_all)

#' @export
#' @rdname tidygg
complete.gg <- ggmethod(tidyr::complete)

#' @export
#' @rdname tidygg
drop_na.gg <- ggmethod(tidyr::drop_na)

#' @export
#' @rdname tidygg
expand.gg <- ggmethod(tidyr::expand)

#' @export
#' @rdname tidygg
extract.gg <- ggmethod(tidyr::extract)

#' @export
#' @rdname tidygg
fill.gg <- ggmethod(tidyr::fill)

#' @export
#' @rdname tidygg
gather.gg <- ggmethod(tidyr::gather)

#' @export
#' @rdname tidygg
nest.gg <- ggmethod(tidyr::nest)

#' @export
#' @rdname tidygg
replace_na.gg <- ggmethod(tidyr::replace_na)

#' @export
#' @rdname tidygg
separate.gg <- ggmethod(tidyr::separate)

#' @export
#' @rdname tidygg
separate_rows.gg <- ggmethod(tidyr::separate_rows)

#' @export
#' @rdname tidygg
spread.gg <- ggmethod(tidyr::spread)

#' @export
#' @rdname tidygg
unite.gg <- ggmethod(tidyr::unite)

#' @export
#' @rdname tidygg
unnest.gg <- ggmethod(tidyr::unnest)


# for(pkg in c("dplyr","tidyr")){
#   all_funs <- ls(getNamespace(pkg))
#   exported <- getNamespaceExports(pkg)
#   # unexported <- setdiff(all_funs,exported)
#   pattern <- "([^_])\\.((tbl_df)|(data\\.frame))$"
#   funs.tbl_df <- grep(pattern,all_funs,value = TRUE)
#   funs <- unique(sub(pattern,"\\1",funs.tbl_df))
#   pkg_funs <- intersect(funs,exported)
#
#   cat(sprintf("#' @export\n#' @rdname tidygg\n%s <- ggmethod(%s::%s)\n\n",
#               paste0(pkg_funs,".gg"), pkg, pkg_funs))
# }