is.graph replaced by is_graph

ropensci · Mar 29, 2024 · 75d140f · 75d140f
1 parent 9fa3457
commit 75d140f
Show file tree

Hide file tree

Showing 7 changed files with 7 additions and 7 deletions.
diff --git a/R/clique_community_names.R b/R/clique_community_names.R
@@ -25,7 +25,7 @@
 #' @importFrom magrittr %>%
 
 clique_community_names <- function(g, k = 3) {
-  if (!igraph::is.igraph(g)) {
+  if (!igraph::is_igraph(g)) {
     stop(paste0("Please use an igraph object as input. The current object is an ", class(g), "."))
   }
   if (k > igraph::clique_num(g)) {

diff --git a/R/clique_community_names_par.R b/R/clique_community_names_par.R
@@ -30,7 +30,7 @@
 #' @importFrom foreach %dopar%
 
 clique_community_names_par <- function(g, k = 3, n_core = 4) {
-  if (!igraph::is.igraph(g)) {
+  if (!igraph::is_igraph(g)) {
     stop(paste0("Please use an igraph object as input. The current object is an ", class(g), "."))
   }
   doParallel::registerDoParallel(cores = n_core)

diff --git a/R/cyto_create_cpm_style.R b/R/cyto_create_cpm_style.R
@@ -30,7 +30,7 @@ cyto_create_cpm_style <- function(graph_input, k = 3, com_k = NULL, style_name =
   if ("GreyNodesLabel" %in% RCy3::getVisualStyleNames() == FALSE) {
     RCy3::importVisualStyles(filename = system.file("extdata", "NetworkStyles.xml", package = "dendroNetwork"))
   }
-  if (!igraph::is.igraph(graph_input)) {
+  if (!igraph::is_igraph(graph_input)) {
     stop(paste0("Please use an igraph object as input. The current object is an ", class(graph_input), "."))
   }
   if (is.null(com_k)) {

diff --git a/R/cyto_create_gn_style.R b/R/cyto_create_gn_style.R
@@ -28,7 +28,7 @@ cyto_create_gn_style <- function(graph_input, gn_coms = NULL, style_name = "auto
   if ("GreyNodesLabel" %in% RCy3::getVisualStyleNames() == FALSE) {
     RCy3::importVisualStyles(filename = system.file("extdata", "NetworkStyles.xml", package = "dendroNetwork"))
   }
-  if (!igraph::is.igraph(graph_input)) {
+  if (!igraph::is_igraph(graph_input)) {
     stop(paste0("Please use an igraph object as input. The current object is an ", class(graph_input), "."))
   }
   if (style_name == "auto") {

diff --git a/R/cyto_create_graph.R b/R/cyto_create_graph.R
@@ -33,7 +33,7 @@ cyto_create_graph <- function(graph_input,
     message("Cytoscape is not running, please start Cytoscape first")
     stop()
   }
-  if (!igraph::is.igraph(graph_input)) {
+  if (!igraph::is_igraph(graph_input)) {
     stop(paste0("Please use an igraph object as input. The current object is an ", class(graph_input), "."))
   }
   varnames <- all.vars(match.call())

diff --git a/R/find_all_cpm_com.R b/R/find_all_cpm_com.R
@@ -17,7 +17,7 @@
 
 
 find_all_cpm_com <- function(graph_input, n_core = 0) {
-  if (!igraph::is.igraph(graph_input)) {
+  if (!igraph::is_igraph(graph_input)) {
     stop(paste0("Please use an igraph object as input. The current object is an ", class(graph_input), "."))
   }
   if (n_core > 1) {

diff --git a/R/gn_names.R b/R/gn_names.R
@@ -18,7 +18,7 @@
 #' @importFrom magrittr %>%
 
 gn_names <- function(g) {
-  if (!igraph::is.igraph(g)) {
+  if (!igraph::is_igraph(g)) {
     stop(paste0("Please use an igraph object as input. The current object is an ", class(g), "."))
   }
   g_GN <- igraph::cluster_edge_betweenness(g,