Dev

R/categories.R

@@ -43,8 +43,8 @@ srr_stats_categories <- function () {
 #' @noRd
 list_categories <- function () {
 
-    # u <- paste0 (base_url (), "git/trees/main?recursive=1")
-    u <- paste0 (base_url (raw = TRUE), "main/standards.Rmd")
+    # u <- paste0 (base_url (raw = TRUE), "main/standards.Rmd")
+    u <- paste0 (base_url (raw = TRUE), "dev/standards.Rmd")
     tmp <- tempfile (fileext = ".Rmd")
     ret <- utils::download.file (u, destfile = tmp, quiet = TRUE) # nolint
 
@@ -123,6 +123,7 @@ std_prefixes <- function () {
     prefixes [cats == "time-series"] <- "TS"
     prefixes [cats == "unsupervised"] <- "UL"
     prefixes [cats == "distributions"] <- "PD"
+    prefixes [cats == "networks"] <- "NW"
 
     return (data.frame (
         category = cats,

R/dl-standards.R

@@ -22,9 +22,15 @@ base_url <- function (raw = FALSE) {
 #' @noRd
 dl_standards <- function (category = "general", quiet = FALSE) {
 
+    branch <- ifelse (
+        category %in% c ("distributions", "networks"),
+        "dev",
+        "main"
+    )
     u <- paste0 (
         base_url (raw = TRUE),
-        "main/standards/", category, ".Rmd"
+        branch,
+        "/standards/", category, ".Rmd"
     )
 
     tmp <- file.path (
@@ -176,6 +182,11 @@ category_titles_urls <- function (category) {
             title = "Probability Distributions",
             url = paste0 (u_base, "standards-distributions")
         )
+    } else if (category == "networks") {
+        ret <- list (
+            title = "Networks",
+            url = paste0 (u_base, "standards-networks")
+        )
     }
 
     return (ret)

tests/testthat/test-report.R

@@ -5,7 +5,7 @@ test_that ("srr_report", {
 
     categories <- srr_stats_categories ()$category
     categories <- categories [-which (categories == "general")]
-    expect_length (categories, 8L)
+    expect_length (categories, 9L)
 
     f <- file.path (path, "R", "srr-stats-standards.R")
     expect_true (file.exists (f))