allow some empty tables in dashboard fn

mpadge · mpadge · commit 11d331a5ebd6 · 2024-12-10T14:24:23.000+01:00
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: repometrics
 Title: Metrics for Your Code Repository
-Version: 0.1.3.007
+Version: 0.1.3.008
 Authors@R: 
     person("Mark", "Padgham", , "mark.padgham@email.com", role = c("aut", "cre"),
            comment = c(ORCID = "0000-0003-2172-5265"))
diff --git a/R/quarto-dashboard.R b/R/quarto-dashboard.R
@@ -141,6 +141,9 @@ check_dashboard_arg <- function (data) {
     }
 
     nrows <- vapply (data$rm [index], nrow, integer (1L))
+    # These tables may be empty
+    maybe_empty <- c ("dependencies", "releases_from_gh_api", "repo_forks")
+    nrows <- nrows [which (!names (nrows) %in% maybe_empty)]
     if (!all (nrows > 0L)) {
         cli::cli_abort ("'data' contains empty tables.")
     }
diff --git a/codemeta.json b/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.007",
+  "version": "0.1.3.008",
   "programmingLanguage": {
     "@type": "ComputerLanguage",
     "name": "R",

Original file line number	Diff line number	Diff line change
`@@ -141,6 +141,9 @@ check_dashboard_arg <- function (data) {`
`141`	`141`	`}`
`142`	`142`
`143`	`143`	`nrows <- vapply (data$rm [index], nrow, integer (1L))`
	`144`	`+ # These tables may be empty`
	`145`	`+ maybe_empty <- c ("dependencies", "releases_from_gh_api", "repo_forks")`
	`146`	`+ nrows <- nrows [which (!names (nrows) %in% maybe_empty)]`
`144`	`147`	`if (!all (nrows > 0L)) {`
`145`	`148`	`cli::cli_abort ("'data' contains empty tables.")`
`146`	`149`	`}`