save two data files for dashboard (repo + user)

Author: mpadge

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: repometrics
 Title: Metrics for Your Code Repository
-Version: 0.1.3.008
+Version: 0.1.3.009
 Authors@R: 
     person("Mark", "Padgham", , "mark.padgham@email.com", role = c("aut", "cre"),
            comment = c(ORCID = "0000-0003-2172-5265"))

R/quarto-dashboard.R

@@ -25,7 +25,7 @@ repometrics_dashboard <- function (data, action = "preview") {
     path_src <- system.file ("extdata", "quarto", package = "repometrics")
     path_dest <- fs::path (fs::path_temp (), "quarto")
     dir <- fs::dir_copy (path_src, path_dest, overwrite = TRUE)
-    saveRDS (data, fs::path (dir, "results.Rds"))
+    saveRDS (data, fs::path (dir, "results-pkg.Rds"))
 
     pkg_name <- data$pkgstats$desc_data$package [1]
     quarto_insert_pkg_name (dir, pkg_name)

codemeta.json

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

inst/extdata/quarto/contributors.qmd

@@ -17,7 +17,7 @@ requireNamespace ("tidyr", quietly = TRUE)
 ## Git log
 
 ```{r load-data}
-dat <- readRDS ("results.Rds")
+dat <- readRDS ("results-pkg.Rds")
 ```
 ```{r ctbs-git-data}
 ctbs <- dat$rm$contributors

inst/extdata/quarto/fn-stats.qmd

@@ -31,7 +31,7 @@ per function, along with the sum over all functions within the package. These
 the other measures.
 
 ```{r load-data}
-dat <- readRDS ("results.Rds")$pkgstats
+dat <- readRDS ("results-pkg.Rds")$pkgstats
 ```
 ```{r stats-data}
 cols <- names (dat$stats) [which (!names (dat$stats) %in% c ("package", "version"))]