remove ggraph suggest

yonicd · Nov 27, 2017 · 51c802c · 51c802c
1 parent c6d8138
commit 51c802c
Show file tree

Hide file tree

Showing 3 changed files with 5 additions and 6 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -27,7 +27,6 @@ Imports:
     stats,
     miniUI
 Suggests:
-    ggraph,
     testthat,
     covr
 License: GPL-2 | GPL-3

diff --git a/R/cloneLayer.R b/R/cloneLayer.R
@@ -70,10 +70,10 @@ cloneLayer <- function(l, verbose=FALSE, showDefaults=TRUE) {
   x$params <- x$params[!duplicated(names(x$params))]
   x$geom_params <- x$aes_params <- x$stat_params <- NULL
 
-  if (typeof(x$data) == "closure") {
-    requireNamespace("ggraph")
-    x$data <- ggraph::get_edges()
-  }
+  # if (typeof(x$data) == "closure") {
+  #   requireNamespace("ggraph")
+  #   x$data <- ggraph::get_edges()
+  # }
 
   if (verbose) {
     nm <- names(x)

diff --git a/R/utils.R b/R/utils.R
@@ -12,7 +12,7 @@ build_map <- function(y) {
   if (is.null(y)) out <- paste(item, "NULL", sep = "=")
   if (inherits(y, c("function", "call", "ggproto"))) out <- paste0(item, "=", paste(utils::capture.output(dput(y)), collapse = "\n"))
   if (inherits(y, c("data.frame"))) out <- paste0("=", paste(utils::capture.output(dput(y)), collapse = "\n"))
-  if (inherits(y, c("ggproto_method"))) out <- paste0("=ggraph::get_edges(edges='short')")
+  #if (inherits(y, c("ggproto_method"))) out <- paste0("=ggraph::get_edges(edges='short')")
   if (out == "") out <- paste(item, y, sep = "=")
   return(out)
 }
-Original file line number
+Diff line change
@@ Expand Up / @@ -27,7 +27,6 @@ Imports: @@
         stats,
         miniUI
     Suggests:
-        ggraph,
         testthat,
         covr
     License: GPL-2 | GPL-3
@@ Expand Down @@