update dplyr methods

- comments in slice example are preserved

Author: noriakis

NAMESPACE

@@ -30,39 +30,21 @@ S3method(select,SummarizedExperiment)
 S3method(separate,SummarizedExperiment)
 S3method(slice,SummarizedExperiment)
 S3method(summarise,SummarizedExperiment)
+S3method(summarize,SummarizedExperiment)
 S3method(tbl_format_header,tidySummarizedExperiment)
 S3method(tidy,RangedSummarizedExperiment)
 S3method(tidy,SummarizedExperiment)
 S3method(unite,SummarizedExperiment)
 S3method(unnest,tidySummarizedExperiment_nested)
 export("%>%")
-export()
 export(as_tibble)
-export(bind_rows)
-export(count)
-export(distinct)
 export(extract)
-export(filter)
-export(full_join)
 export(ggplot)
-export(group_by)
-export(inner_join)
-export(left_join)
-export(mutate)
 export(nest)
 export(pivot_longer)
 export(pivot_wider)
 export(plot_ly)
-export(pull)
-export(rename)
-export(right_join)
-export(rowwise)
-export(sample_frac)
-export(sample_n)
-export(select)
 export(separate)
-export(slice)
-export(summarise)
 export(tbl_format_header)
 export(tidy)
 export(unite)
@@ -105,6 +87,7 @@ importFrom(dplyr,select)
 importFrom(dplyr,select_if)
 importFrom(dplyr,slice)
 importFrom(dplyr,summarise)
+importFrom(dplyr,summarize)
 importFrom(dplyr,vars)
 importFrom(ellipsis,check_dots_unnamed)
 importFrom(ellipsis,check_dots_used)
@@ -166,5 +149,6 @@ importFrom(tidyselect,eval_select)
 importFrom(tidyselect,one_of)
 importFrom(ttservice,bind_cols)
 importFrom(ttservice,bind_rows)
+importFrom(utils,packageDescription)
 importFrom(utils,tail)
 importFrom(vctrs,new_data_frame)

R/attach.R

@@ -0,0 +1,23 @@
+core <- c("dplyr", "tidyr", "ttservice", "ggplot2")
+
+core_unloaded <- function() {
+    search <- paste0("package:", core)
+    core[!search %in% search()]
+}
+
+# Attach the package from the same library it was loaded from before.
+# [source: https://github.com/tidy-biology/tidyverse/issues/171]
+same_library <- function(pkg) {
+    loc <- if (pkg %in% loadedNamespaces()) 
+        dirname(getNamespaceInfo(pkg, "path"))
+    library(pkg, lib.loc=loc, character.only=TRUE, warn.conflicts=FALSE)
+}
+
+tidyverse_attach <- function() {
+    to_load <- core_unloaded()
+    
+    suppressPackageStartupMessages(
+        lapply(to_load, same_library))
+    
+    invisible(to_load)
+}