@@ -45,7 +45,8 @@ Suggests:

     rmarkdown,

     stats,

     testthat,

-    tibble

+    tibble,

+    glue

 Remotes:

     GuangchuangYu/treeio

 VignetteBuilder: knitr

@@ -101,6 +101,8 @@ ggtree <- function(tr,

                 ...)

     if (!is.null(dd)){

+        message_wrap("The tree object will be displayed with graph layout since 

+                      layout argument was specified the graph layout function.")

         p$data <- dplyr::left_join(

                     p$data %>% select(-c("x", "y")), 

                     dd, 

@@ -117,6 +117,17 @@ getCols <- function (n) {

     grDevices::colorRampPalette(col3)(n)

 }

+message_wrap <- function(...){

+    msg <- .return_wrap(...)

+    message(msg)

+}

+

+.return_wrap <- function(...){

+    msg <- paste(..., collapse = "", sep = "")

+    wrapped <- strwrap(msg, width = getOption("width") - 2) %>%

+        glue::glue_collapse(., "\n", last = "\n")

+    wrapped

+}

 ##

 ##