Fixed errors when plotting some examples without ggdendro

R/member_community.R

@@ -308,7 +308,9 @@ NULL
 #' \doi{10.1103/PhysRevE.69.026113}
 #' @examples
 #' node_in_betweenness(ison_adolescents)
+#' if(require("ggdendro", quietly = TRUE)){
 #' plot(node_in_betweenness(ison_adolescents))
+#' }
 #' @export
 node_in_betweenness <- function(.data){
   if(missing(.data)) {expect_nodes(); .data <- .G()}

R/member_equivalence.R

@@ -77,8 +77,10 @@ node_in_equivalence <- function(.data, census,
 #' @examples
 #' \donttest{
 #' (nse <- node_in_structural(ison_algebra))
+#' if(require("ggdendro", quietly = TRUE)){
 #' plot(nse)
 #' }
+#' }
 #' @export
 node_in_structural <- function(.data,
                                         k = c("silhouette", "elbow", "strict"),
@@ -100,8 +102,10 @@ node_in_structural <- function(.data,
 #' \donttest{
 #' (nre <- node_in_regular(ison_southern_women,
 #'   cluster = "concor"))
+#' if(require("ggdendro", quietly = TRUE)){
 #' plot(nre)
 #' }
+#' }
 #' @export
 node_in_regular <- function(.data, 
                             k = c("silhouette", "elbow", "strict"),
@@ -126,6 +130,8 @@ node_in_regular <- function(.data,
 #' if(require("sna", quietly = TRUE)){
 #' (nae <- node_in_automorphic(ison_southern_women,
 #'   k = "elbow"))
+#' }
+#' if(require("ggdendro", quietly = TRUE)){
 #' plot(nae)
 #' }
 #' }