move some codes

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: ggtree
 Type: Package
 Title: an R package for visualization of tree and annotation data
-Version: 3.13.1
+Version: 3.13.2
 Authors@R: c(
        person("Guangchuang", "Yu",     email = "[email protected]", role = c("aut", "cre", "cph"), 
             comment = c(ORCID = "0000-0002-6485-8781")),
@@ -31,7 +31,7 @@ Imports:
     methods,
     purrr,
     rlang,
-    ggfun (>= 0.1.5),
+    ggfun (>= 0.1.7),
     yulab.utils (>= 0.1.6),
     tidyr,
     tidytree (>= 0.4.5),

NAMESPACE

@@ -178,6 +178,9 @@ importFrom(dplyr,select)
 importFrom(ggfun,"%<+%")
 importFrom(ggfun,get_aes_var)
 importFrom(ggfun,identify)
+importFrom(ggfun,td_filter)
+importFrom(ggfun,td_mutate)
+importFrom(ggfun,td_unnest)
 importFrom(ggplot2,Geom)
 importFrom(ggplot2,GeomLabel)
 importFrom(ggplot2,GeomPoint)

NEWS.md

@@ -22,6 +22,10 @@
 
 -->
 
+# ggtree 3.13.2
+
++ mv `td_filter()`, `td_unnest()` and `td_mutate()` to 'ggfun' package (2024-10-24, Thu)
+
 # ggtree 3.13.1
 
 + layout argument can be a function to re-calculate the coord of nodes (2024-07-27, Sat, #622)

R/reexports.R

@@ -1,58 +1,71 @@
-##' @importFrom ggfun %<+%
-##' @export
-##' @examples
-##' nwk <- system.file("extdata", "sample.nwk", package="treeio")
-##' tree <- read.tree(nwk)
-##' p <- ggtree(tree)
-##' dd <- data.frame(taxa=LETTERS[1:13],
-##'                    place=c(rep("GZ", 5), rep("HK", 3), rep("CZ", 4), NA),
-##'              value=round(abs(rnorm(13, mean=70, sd=10)), digits=1))
-##' row.names(dd) <- NULL
-##' p %<+% dd + geom_text(aes(color=place, label=label), hjust=-0.5)
+#' @importFrom ggfun %<+%
+#' @export
+#' @examples
+#' nwk <- system.file("extdata", "sample.nwk", package="treeio")
+#' tree <- read.tree(nwk)
+#' p <- ggtree(tree)
+#' dd <- data.frame(taxa=LETTERS[1:13],
+#'                    place=c(rep("GZ", 5), rep("HK", 3), rep("CZ", 4), NA),
+#'              value=round(abs(rnorm(13, mean=70, sd=10)), digits=1))
+#' row.names(dd) <- NULL
+#' p %<+% dd + geom_text(aes(color=place, label=label), hjust=-0.5)
 ggfun::`%<+%`
 
-##' @importFrom magrittr %>%
-##' @export
+#' @importFrom ggfun td_filter
+#' @export 
+ggfun::td_filter
+
+#' @importFrom ggfun td_mutate
+#' @export 
+ggfun::td_mutate
+
+#' @importFrom ggfun td_unnest 
+#' @export 
+ggfun::td_unnest 
+
+
+#' @importFrom magrittr %>%
+#' @export
 magrittr::`%>%`
 
-##' @importFrom ape rtree
-##' @export
+#' @importFrom ape rtree
+#' @export
 ape::rtree
 
-##' @importFrom ape read.tree
-##' @export
+#' @importFrom ape read.tree
+#' @export
 ape::read.tree
 
-##' @importFrom tidytree groupOTU
-##' @export
+#' @importFrom tidytree groupOTU
+#' @export
 tidytree::groupOTU
 
-##' @importFrom tidytree groupClade
-##' @export
+#' @importFrom tidytree groupClade
+#' @export
 tidytree::groupClade
 
-##' @importFrom tidytree nodeid
-##' @export
+#' @importFrom tidytree nodeid
+#' @export
 tidytree::nodeid
 
-##' @importFrom tidytree nodelab
-##' @export
+#' @importFrom tidytree nodelab
+#' @export
 tidytree::nodelab
 
-##' @importFrom tidytree MRCA
-##' @export
+#' @importFrom tidytree MRCA
+#' @export
 tidytree::MRCA
 
-##' @importFrom dplyr collapse
-##' @export
+#' @importFrom dplyr collapse
+#' @export
 dplyr::collapse
 
-##' @importFrom ggplot2 fortify
-##' @export
+#' @importFrom ggplot2 fortify
+#' @export
 ggplot2::fortify
 
-##' @importFrom ggplot2 ggplot
-##' @export
+#' @importFrom ggplot2 ggplot
+#' @export
 ggplot2::ggplot
 
 ##' @importFrom ggplot2 xlim