Dev

DESCRIPTION

@@ -1,7 +1,7 @@
 Type: Package
 Package: saros.base
 Title: Base Tools for Semi-Automatic Reporting of Ordinary Surveys
-Version: 0.2.5
+Version: 0.2.6
 Authors@R: c(
     person(given = "Stephan", 
            family = "Daus", 

NAMESPACE

@@ -13,6 +13,7 @@ export(get_organize_by_opts)
 export(initialize_saros_project)
 export(read_default_draft_report_args)
 export(refine_chapter_overview)
+export(remove_entry_from_sidebar)
 export(setup_access_restrictions)
 export(write_default_draft_report_args)
 importFrom(fs,dir_ls)

R/remove_entry_from_sidebar.R

@@ -0,0 +1,39 @@
+#' Removes entries in sidebar if containing a filename regex pattern.
+#'
+#' @param path String, path to where your html-files are located. Defaults to "_site"
+#' @param filename_as_regex Character vector of regex patterns to search for. Defaults to c("report\\.pdf", "report\\.docx")
+#'
+#' @export
+#' @return Invisibly returns files processed
+
+remove_entry_from_sidebar <-
+    function(path = "_site",
+             filename_as_regex = c(
+                 "report\\.pdf",
+                 "report\\.docx"
+             )) {
+        fs::dir_ls(
+            path = path, all = FALSE, recurse = TRUE,
+            type = "file", regexp = "\\.html"
+        ) |>
+            lapply(FUN = function(.x) {
+                pattern_to_remove <-
+                    paste0(
+                        "<li class=\"sidebar-item\">\\s*<div class=\"sidebar-item-container\">\\s*<a href=\"[^\"]*",
+                        filename_as_regex, "\"[^>]*>\\s*<span class=\"menu-text\">[^<]*</span></a>\\s*</div>\\s*</li>"
+                    )
+                .x |>
+                    readLines() |>
+                    paste0(collapse = "\n") |>
+                    stringi::stri_replace_all_regex(
+                        pattern = pattern_to_remove,
+                        replacement = ""
+                    ) |>
+                    stringi::stri_split_lines() |>
+                    unlist()
+                writeLines(con = .x, sep = "\n")
+                .x
+            }) |>
+            unlist() |>
+            invisible()
+    }