chore: remove console() and tkplot()

R/centrality.R

@@ -68,10 +68,8 @@ hub.score <- function(
   weights = NULL,
   options = arpack_defaults()
 ) {
-  # nocov start
   lifecycle::deprecate_stop("2.0.0", "hub.score()", "hits_scores()")
-  hub_score(graph = graph, scale = scale, weights = weights, options = options)
-} # nocov end
+}
 
 #' Kleinberg's hub and authority centrality scores.
 #'
@@ -89,15 +87,8 @@ authority.score <- function(
   weights = NULL,
   options = arpack_defaults()
 ) {
-  # nocov start
   lifecycle::deprecate_stop("2.0.0", "authority.score()", "hits_scores()")
-  authority_score(
-    graph = graph,
-    scale = scale,
-    weights = weights,
-    options = options
-  )
-} # nocov end
+}
 
 #' Strength or weighted vertex degree
 #'

R/centralization.R

@@ -409,7 +409,6 @@ centr_degree_tmax <- function(
       what = "centr_degree_tmax(loops = 'must be explicit')",
       details = "The default value (currently `FALSE`) will be dropped in the next release. Add an explicit value for the `loops` argument."
     )
-    loops <- FALSE
   }
 
   # Argument checks

R/console.R

@@ -58,12 +58,10 @@ igraph.console <- function() {
 #' @family console
 #' @export
 console <- function() {
-  oldverb <- igraph_opt("verbose")
-  igraph_options(verbose = "tkconsole")
-  pb <- .igraph.progress.tkconsole.create(oldverb)
-  assign(".igraph.pb", pb, envir = asNamespace("igraph"))
-  .igraph.progress.tkconsole.message("Console started.\n")
-  invisible()
+  lifecycle::deprecate_stop(
+    "3.0.0",
+    "console()",
+  )
 }
 
 .igraph.pb <- NULL

R/games.R

@@ -498,22 +498,12 @@ bipartite.random.game <- function(
   directed = FALSE,
   mode = c("out", "in", "all")
 ) {
-  # nocov start
   lifecycle::deprecate_stop(
     "2.0.0",
     "bipartite.random.game()",
     details = "Use sample_bipartite_gnp() or sample_bipartite_gnm()"
   )
-  sample_bipartite(
-    n1 = n1,
-    n2 = n2,
-    type = type,
-    p = p,
-    m = m,
-    directed = directed,
-    mode = mode
-  )
-} # nocov end
+}
 
 #' Generate random graphs using preferential attachment
 #'
@@ -1392,23 +1382,20 @@ sample_degseq <- function(
       "2.1.0",
       "sample_degseq(method = 'must be configuration instead of simple')"
     )
-    method <- "configuration"
   }
 
   if (method == "simple.no.multiple") {
     lifecycle::deprecate_stop(
       "2.1.0",
       "sample_degseq(method = 'must be fast.heur.simple instead of simple.no.multiple')"
     )
-    method <- "fast.heur.simple"
   }
 
   if (method == "simple.no.multiple.uniform") {
     lifecycle::deprecate_stop(
       "2.1.0",
       "sample_degseq(method = 'must be configuration.simple instead of simple.no.multiple.uniform')"
     )
-    method <- "configuration.simple"
   }
 
   # numbers from https://github.com/igraph/igraph/blob/640083c88bf85fd322ff7b748b9b4e16ebe32aa2/include/igraph_constants.h#L94

R/interface.R

@@ -479,7 +479,6 @@ el_to_vec <- function(x, call = rlang::caller_env()) {
         "get_edge_ids(vp = 'supplied as a matrix should be a n times 2 matrix, not 2 times n')",
         details = "either transpose the matrix with t() or convert it to a data.frame with two columns."
       )
-      c(x)
     } else if (ncol == 2) {
       c(t(x))
     } else {

R/layout.R

@@ -2645,7 +2645,6 @@ layout_components <- function(graph, layout = layout_with_kk, ...) {
 #' @keywords internal
 layout.spring <- function(graph, ...) {
   lifecycle::deprecate_stop("2.1.0", "layout.spring()", "layout_with_fr()")
-  layout_with_fr(graph)
 }
 
 #' SVD layout, this was removed from igraph
@@ -2663,7 +2662,6 @@ layout.spring <- function(graph, ...) {
 #' @export
 layout.svd <- function(graph, ...) {
   lifecycle::deprecate_stop("2.1.0", "layout.svd()", "layout_with_fr()")
-  layout_with_fr(graph)
 }
 
 #' Grid Fruchterman-Reingold layout, this was removed from igraph
@@ -2686,7 +2684,6 @@ layout.fruchterman.reingold.grid <- function(graph, ...) {
     "layout.fruchterman.reingold.grid()",
     "layout_with_fr()"
   )
-  layout_with_fr(graph)
 }
 
 #' The DrL graph layout generator

R/structural-properties.R

@@ -2726,9 +2726,6 @@ bfs <- function(
 
   if (lifecycle::is_present(father)) {
     lifecycle::deprecate_stop("2.2.0", "bfs(father = )", "bfs(parent = )")
-    if (missing(parent)) {
-      parent <- father
-    }
   }
 
   if (length(root) == 1) {
@@ -2988,9 +2985,6 @@ dfs <- function(
 
   if (lifecycle::is_present(father)) {
     lifecycle::deprecate_stop("2.2.0", "dfs(father = )", "dfs(parent = )")
-    if (missing(parent)) {
-      parent <- father
-    }
   }
 
   root <- as_igraph_vs(graph, root) - 1