docs: add code finding duplicate seealso, and use it (#1270)

R/components.R

@@ -216,7 +216,6 @@ decompose <- function(graph, mode = c("weak", "strong"), max.comps = NA,
 articulation_points <- articulation_points_impl
 
 #' @rdname articulation_points
-#' @family components
 #' @export
 bridges <- bridges_impl
 

R/games.R

@@ -611,7 +611,6 @@ sample_gnp <- function(n, p, directed = FALSE, loops = FALSE) {
 
 #' @rdname sample_gnp
 #' @param ... Passed to `sample_gnp()`.
-#' @family games
 #' @export
 gnp <- function(...) constructor_spec(sample_gnp, ...)
 
@@ -667,7 +666,6 @@ sample_gnm <- function(n, m, directed = FALSE, loops = FALSE) {
 
 #' @rdname sample_gnm
 #' @param ... Passed to `sample_gnm()`.
-#' @family games
 #' @export
 gnm <- function(...) constructor_spec(sample_gnm, ...)
 
@@ -862,7 +860,6 @@ sample_degseq <- function(out.deg, in.deg = NULL,
 #' @param deterministic  Whether the construction should be deterministic
 #' @param ... Passed to `realize_degseq()` if \sQuote{deterministic} is true,
 #'   or to `sample_degseq()` otherwise.
-#' @family games
 #' @export
 degseq <- function(..., deterministic = FALSE) {
   constructor_spec(
@@ -913,7 +910,6 @@ sample_growing <- function(n, m = 1, directed = TRUE, citation = FALSE) {
 
 #' @rdname sample_growing
 #' @param ... Passed to `sample_growing()`.
-#' @family games
 #' @export
 growing <- function(...) constructor_spec(sample_growing, ...)
 
@@ -1112,7 +1108,6 @@ sample_pa_age <- function(n, pa.exp, aging.exp, m = NULL, aging.bin = 300,
 
 #' @rdname sample_pa_age
 #' @param ... Passed to `sample_pa_age()`.
-#' @family games
 #' @export
 pa_age <- function(...) constructor_spec(sample_pa_age, ...)
 
@@ -1263,7 +1258,6 @@ sample_grg <- function(nodes, radius, torus = FALSE, coords = FALSE) {
 
 #' @rdname sample_grg
 #' @param ... Passed to `sample_grg()`.
-#' @family games
 #' @export
 grg <- function(...) constructor_spec(sample_grg, ...)
 
@@ -1489,7 +1483,6 @@ sample_smallworld <- function(dim, size, nei, p, loops = FALSE,
 
 #' @rdname sample_smallworld
 #' @param ... Passed to `sample_smallworld()`.
-#' @family games
 #' @export
 smallworld <- function(...) constructor_spec(sample_smallworld, ...)
 
@@ -1696,7 +1689,6 @@ sample_bipartite <- function(n1, n2, type = c("gnp", "gnm"), p, m,
 
 #' @rdname sample_bipartite
 #' @param ... Passed to `sample_bipartite()`.
-#' @family games
 #' @export
 bipartite <- function(...) constructor_spec(sample_bipartite, ...)
 

R/iterators.R

@@ -1122,7 +1122,6 @@ simple_es_index <- function(x, i, na_ok = FALSE) {
 #' @name igraph-es-attributes
 #'
 #' @export
-#' @family vertex and edge sequences
 #' @examples
 #' # color edges of the largest component
 #' largest_comp <- function(graph) {

R/operators.R

@@ -873,7 +873,6 @@ edge <- function(...) {
   structure(list(...), class = "igraph.edge")
 }
 
-#' @family functions for manipulating graph structure
 #' @export
 #' @rdname edge
 edges <- edge
@@ -910,7 +909,6 @@ vertex <- function(...) {
   structure(list(...), class = "igraph.vertex")
 }
 
-#' @family functions for manipulating graph structure
 #' @export
 #' @rdname vertex
 vertices <- vertex
@@ -1236,7 +1234,6 @@ rep.igraph <- function(x, n, mark = TRUE, ...) {
 
 #' @rdname rep.igraph
 #' @method * igraph
-#' @family functions for manipulating graph structure
 #' @export
 `*.igraph` <- function(x, n) {
   if (!is_igraph(x) && is_igraph(n)) {
@@ -1275,6 +1272,5 @@ reverse_edges <- reverse_edges_impl
 #' @rdname reverse_edges
 #' @param x The input graph.
 #' @method t igraph
-#' @family functions for manipulating graph structure
 #' @export
 t.igraph <- function(x) reverse_edges(x)

R/plot.R

@@ -522,7 +522,6 @@ plot.igraph <- function(x,
 #' @family plot
 #' @export
 #' @keywords graphs
-#' @family plot
 #' @export
 #' @examples
 #'