separate 'identidy_older_files' fn in gh-pages.R

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: roreviewapi
 Title: Plumber API to report package structure and function
-Version: 0.1.0.051
+Version: 0.1.0.052
 Authors@R: 
     person("Mark", "Padgham", , "[email protected]", role = c("aut", "cre"),
            comment = c(ORCID = "0000-0003-2172-5265"))

R/gh-pages.R

@@ -51,29 +51,7 @@ push_to_gh_pages <- function (check) {
     files <- gsub (rorev_dir, "", unlist (files))
     files <- gsub (paste0 ("^", .Platform$file.sep), "", files)
 
-    # rm any older files:
-    older_files <- NULL
-    if ("network_file" %in% names (attributes (check))) {
-
-        older_files <- gsub (
-            "\\.html$",
-            "",
-            fs::path_file (attr (check, "network_file"))
-        )
-    }
-
-    if ("srr_report_file" %in% names (attributes (check))) {
-
-        older_files <- c (
-            older_files,
-            gsub (
-                "\\.html$",
-                "",
-                basename (attr (check, "srr_report_file"))
-            )
-        )
-    }
-
+    older_files <- identify_older_files (check)
     older_files <- older_files [which (!grep (this_hash, older_files))]
 
     index <- lapply (older_files, function (i) grep (i, git_files))
@@ -233,3 +211,29 @@ get_pkg_hash <- function (check, out) {
 
     return (this_hash)
 }
+
+identify_older_files <- function (check) {
+    older_files <- NULL
+    if ("network_file" %in% names (attributes (check))) {
+
+        older_files <- gsub (
+            "\\.html$",
+            "",
+            fs::path_file (attr (check, "network_file"))
+        )
+    }
+
+    if ("srr_report_file" %in% names (attributes (check))) {
+
+        older_files <- c (
+            older_files,
+            gsub (
+                "\\.html$",
+                "",
+                basename (attr (check, "srr_report_file"))
+            )
+        )
+    }
+
+    return (older_files)
+}

codemeta.json

@@ -8,7 +8,7 @@
   "codeRepository": "https://github.com/ropensci-review-tools/roreviewapi",
   "issueTracker": "https://github.com/ropensci-review-tools/roreviewapi/issues",
   "license": "https://spdx.org/licenses/GPL-3.0",
-  "version": "0.1.0.051",
+  "version": "0.1.0.052",
   "programmingLanguage": {
     "@type": "ComputerLanguage",
     "name": "R",