R Under development (unstable) (2026-04-26 r89963 ucrt) -- "Unsuffered Consequences"
Copyright (C) 2026 The R Foundation for Statistical Computing
Platform: x86_64-w64-mingw32/x64

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> library("repo.data")

Attaching package: 'repo.data'

The following object is masked from 'package:stats':

    alias

> pkgs <- c("tools", "utils")
> 
> # Test that it works
> bhpnl <- base_help_pages_not_linked()
Downloading and caching base R's aliases for this session.
Warning: Packages with targets not present in a OS:
'base', 'grDevices', 'parallel'
Downloading and caching R's xrefs for this session.
Warning message:
Some links are distinct depending on the OS. 
> repo.data:::no_internet(bhpnl)
> stopifnot("Column names not matching" = colnames(bhpnl) == c("Package", "Source"))
> stopifnot("No data on base_help_pages_not_linked" = as.logical(NROW(bhpnl)))
> 
> bhpwl <- base_help_pages_wo_links()
Warning message:
Some links are distinct depending on the OS. 
> repo.data:::no_internet(bhpwl)
> stopifnot("No data on base_help_pages_wo_links" = as.logical(NROW(bhpwl)))
> stopifnot("Column names not matching" = colnames(bhpwl) == c("Package", "Source"))
> 
> if (repo.data:::check_installed("igraph")) {
+     bhc <- base_help_cliques()
+     repo.data:::no_internet(bhc)
+     stopifnot("Column names not matching" = colnames(bhc) == c("from_pkg", "from_Rd", "clique", "to_pkg", "to_Rd", "n"))
+     stopifnot("No data on base_help_cliques" = as.logical(NROW(bhc)))
+     stopifnot("No links == 0L" = !anyNA(bhc$n))
+ }
Warning message:
Some links are distinct depending on the OS. 
> 
> # CRAN
> pkgs <- c("BaseSet", "experDesign")
> chpnl <- cran_help_pages_not_linked(pkgs)
Downloading and caching CRAN aliases for this session.
Downloading and caching CRAN's packages xrefs for this session.
Warning: Packages with targets not present in a OS:
'sfsmisc'
Warning message:
Some links are distinct depending on the OS. 
> repo.data:::no_internet(chpnl)
> stopifnot("Column names not matching" = colnames(chpnl) == c("Package", "Source"))
> stopifnot("No data on cran_help_pages_not_linked" = as.logical(NROW(chpnl)))
> 
> chpwl <- cran_help_pages_wo_links(pkgs)
> repo.data:::no_internet(chpwl)
> stopifnot("Column names not matching" = colnames(chpwl) == c("Package", "Source"))
> stopifnot("No data on cran_help_pages_wo_links" = as.logical(NROW(chpwl)))
> 
> if (repo.data:::check_installed("igraph")) {
+     chc <- cran_help_cliques(pkgs)
+     repo.data:::no_internet(chc)
+     stopifnot("Column names not matching" =
+                   colnames(chc) == c("from_pkg", "from_Rd", "clique", "to_pkg",
+                                      "to_Rd", "n"))
+     stopifnot("No data on cran_help_cliques" = as.logical(NROW(chc)))
+ }
> 
> if (repo.data:::check_installed("igraph")) {
+     chc_BaseSet <- cran_help_cliques("BaseSet")
+     repo.data:::no_internet(chc_BaseSet)
+     stopifnot(unique(chc$clique) >= 1L)
+ }
> 
> # chc_pkgs <- cran_help_cliques(c("experDesign", "BaseSet"))
> # repo.data:::no_internet(chc_pkgs)
> # stopifnot(unique(chc$clique) >= 1L)
> # stopifnot("More packages do not lead to more cliques" = nrow(chc_pkgs) > nrow(chc_BaseSet))
> 
> chplwd <- cran_help_pages_links_wo_deps(pkgs)
> repo.data:::no_internet(chplwd)
> stopifnot(colnames(chplwd) == c("Package", "Source", "Anchor", "Target"))
> 
> 
> proc.time()
   user  system elapsed 
 117.42    6.89  124.96