import from group_split and fix namespace

Author: B0ydT

NAMESPACE

@@ -11,6 +11,7 @@ S3method(filter,SummarizedExperiment)
 S3method(full_join,SummarizedExperiment)
 S3method(ggplot,SummarizedExperiment)
 S3method(group_by,SummarizedExperiment)
+S3method(group_split,SummarizedExperiment)
 S3method(inner_join,SummarizedExperiment)
 S3method(left_join,SummarizedExperiment)
 S3method(mutate,SummarizedExperiment)
@@ -37,7 +38,6 @@ S3method(tidy,SummarizedExperiment)
 S3method(unite,SummarizedExperiment)
 S3method(unnest,tidySummarizedExperiment_nested)
 export("%>%")
-export(group_split.SummarizedExperiment)
 export(tidy)
 export(unnest_summarized_experiment)
 importFrom(S4Vectors,"metadata<-")
@@ -65,6 +65,7 @@ importFrom(dplyr,filter)
 importFrom(dplyr,full_join)
 importFrom(dplyr,group_by)
 importFrom(dplyr,group_by_drop_default)
+importFrom(dplyr,group_split)
 importFrom(dplyr,inner_join)
 importFrom(dplyr,left_join)
 importFrom(dplyr,mutate)

R/dplyr_methods.R

@@ -868,13 +868,14 @@ pull.SummarizedExperiment <- function(.data, var=-1, name=NULL, ...) {
 #' @inherit dplyr::group_split
 #' 
 #' @examples
-#' data(pasilla)
+#' data(pasilla, package = "tidySummarizedExperiment")
 #' pasilla |> group_split(condition)
 #' pasilla |> group_split(counts > 0)
 #' pasilla |> group_split(condition, counts > 0)
 #' 
 #' @importFrom ellipsis check_dots_used
-#' @export group_split.SummarizedExperiment
+#' @importFrom dplyr group_split
+#' @export
 group_split.SummarizedExperiment <- function(.tbl, ..., .keep = TRUE) {
 
   var_list <- enquos(...)