removed ported oaqc code

DESCRIPTION

@@ -1,12 +1,8 @@
 Package: graphlayouts
 Title: Additional Layout Algorithms for Network Visualizations
 Version: 1.2.0.9000
-Authors@R: c(
-    person("David", "Schoch", email = "[email protected]", role = c("aut", "cre"),
-           comment = c(ORCID = "0000-0003-2952-4812")),
-    person("Mark", "Ortmann", role = "ctb", comment = "author of R package oaqc"),
-    person("Felix", "Schoenenberger", role = "ctb", comment = "author of R package oaqc")
-           )
+Authors@R: person("David", "Schoch", email = "[email protected]", role = c("aut", "cre"),
+           comment = c(ORCID = "0000-0003-2952-4812"))
 Description: Several new layout algorithms to visualize networks are provided which are not part of 'igraph'. 
     Most are based on the concept of stress majorization by Gansner et al. (2004) <doi:10.1007/978-3-540-31843-9_25>. 
     Some more specific algorithms allow the user to emphasize hidden group structures in networks or focus on specific nodes.
@@ -22,7 +18,8 @@ Imports:
 Suggests:
     testthat,
     ggplot2,
-    uwot
+    uwot,
+    oaqc
 LinkingTo: 
     Rcpp,
     RcppArmadillo

NAMESPACE

@@ -34,7 +34,6 @@ export(layout_with_sparse_stress)
 export(layout_with_stress)
 export(layout_with_stress3D)
 export(layout_with_umap)
-export(oaqc)
 export(reorder_edges)
 importFrom(Rcpp,sourceCpp)
 useDynLib(graphlayouts, .registration = TRUE)

NEWS.md

@@ -1,4 +1,6 @@
-# graphlayouts (development version)
+# graphlayouts 1.2.0.9000
+
+* moves oaqc back to suggested packages and removed ported code
 
 # graphlayouts 1.2.0
 

R/layout_backbone.R

@@ -26,7 +26,9 @@
 
 layout_as_backbone <- function(g, keep = 0.2, backbone = TRUE) {
     ensure_igraph(g)
-
+    if (!requireNamespace("oaqc", quietly = TRUE)) {
+        stop("oaqc is needed for this function to work. Please install it.", call. = FALSE)
+    }
     if (igraph::ecount(g) == 0) {
         stop("graph is empty")
     }
@@ -45,7 +47,7 @@ layout_as_backbone <- function(g, keep = 0.2, backbone = TRUE) {
     }
 
     # weighting ----
-    orbs <- oaqc(igraph::as_edgelist(g, names = FALSE) - 1, non_ind_freq = T)
+    orbs <- oaqc::oaqc(igraph::as_edgelist(g, names = FALSE) - 1, non_ind_freq = TRUE)
     e11 <- orbs$e_orbits_non_ind[, 11]
 
     qu <- rep(0, igraph::vcount(g))