remove ggraph example

since it is producing warnings: thomasp85/ggraph#333

R/data_plot.R

@@ -61,7 +61,7 @@
 #'   chains = 2, iter = 200, refresh = 0
 #' ))
 #'
-#' x <- rope(model)
+#' x <- rope(model, verbose = FALSE)
 #' plot(x)
 #'
 #' x <- hdi(model)
@@ -71,7 +71,7 @@
 #' x <- p_direction(data)
 #' plot(x)
 #'
-#' x <- p_direction(model)
+#' x <- p_direction(model, verbose = FALSE)
 #' plot(x)
 #'
 #' model <<- suppressWarnings(stan_glm(
@@ -81,7 +81,7 @@
 #'   refresh = 0,
 #'   data = mtcars
 #' ))
-#' x <- equivalence_test(model)
+#' x <- equivalence_test(model, verbose = FALSE)
 #' plot(x)
 #' @export
 data_plot <- function(x, data = NULL, ...) {

R/geom_from_list.R

@@ -111,25 +111,6 @@
 #'   geom_from_list(list(aes = list(x = "Sepal.Length"), geom = "ggside::geom_xsidedensity")) +
 #'   geom_from_list(list(geom = "ggside::scale_xsidey_continuous", breaks = NULL))
 #'
-#' # Example 6 (ggraph) --------------------------
-#'
-#' @examplesIf require("tidygraph") && require("ggraph")
-#' library(tidygraph)
-#' library(ggraph)
-#'
-#' # Prepare graph
-#' nodes <- data.frame(name = c("Death", "Famine", "War", "Conquest"))
-#' edges <- data.frame(
-#'   from = c(1, 1, 1, 2, 3, 3, 4, 4, 4),
-#'   to = c(2, 3, 4, 1, 1, 2, 1, 2, 3)
-#' )
-#' data <- tidygraph::tbl_graph(nodes = nodes, edges = edges)
-#'
-#' ggraph(data, layout = "kk") +
-#'   geom_from_list(list(geom = "ggraph::geom_edge_arc")) +
-#'   geom_from_list(list(geom = "ggraph::geom_node_point", size = 10)) +
-#'   geom_from_list(list(geom = "ggraph::geom_node_label", aes = list(label = "name")))
-#'
 #' @export
 geom_from_list <- function(x, ...) {
   # Additional parameters ------------------------------------------------------