Merge branch 'main' into repo-status

.Rbuildignore

@@ -3,3 +3,4 @@
 ^\.Rproj\.user$
 ^assets$
 ^README\.Rmd$
+^\.github$

.github/workflows/CODEOWNERS

@@ -0,0 +1,5 @@
+# These owners will be the default owners for everything in
+# the repo. Unless a later match takes precedence,
+# @jdhoffa will be requested for review when someone opens 
+# a pull request.
+*       @jdhoffa

.github/workflows/R.yml

@@ -0,0 +1,22 @@
+---
+# This example file will enable R language checks on push or PR to the main
+# branch.
+# It will also run the checks every weeknight at midnight UTC
+#
+# Note the @main in `uses:` on the last line. This will call the latest version
+# of the workflow from the `main` brnach in the RMI-PACTA/actions repo. You can
+# also specify a tag from that repo, or a commit SHA to pin action versions.
+on:
+  pull_request:
+  push:
+    branches: [main]
+  schedule:
+    - cron: '0 0 * * 1,2,3,4,5'
+  workflow_dispatch:
+
+name: R
+
+jobs:
+  R-package:
+    name: R Package Checks
+    uses: RMI-PACTA/actions/.github/workflows/R.yml@main

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: pacta.sit.rep
 Title: What the Package Does (One Line, Title Case)
-Version: 0.0.0.9000
+Version: 0.0.0.9002
 Authors@R: 
     person("Jackson", "Hoffart", , "jackson.hoffart@gmail.com", role = c("aut", "cre"),
            comment = c(ORCID = "0000-0002-8600-5042"))
@@ -14,7 +14,9 @@ Suggests:
     testthat (>= 3.0.0)
 Config/testthat/edition: 3
 Imports: 
+    dplyr,
     gh,
     glue,
     purrr,
+    rlang,
     tibble

NAMESPACE

@@ -1,3 +1,4 @@
 # Generated by roxygen2: do not edit by hand
 
 export(generate_package_table)
+importFrom(rlang,.data)

R/generate_package_table.R

@@ -1,6 +1,7 @@
 #' Generate a table with R package information
 #'
-#' @param repo_paths A character vector with GH paths to the R package repositories
+#' @param repo_paths A character vector with GH paths to the R package
+#'   repositories
 #'
 #' @return A tibble with the following columns:
 #' * Repo
@@ -24,11 +25,11 @@ generate_package_table <- function(repo_paths) {
 
   dplyr::transmute(
     out,
-    Repo = format_repo_v(repo),
-    Lifecycle = format_lifecycle_v(lifecycle),
-    Status = format_status_v(repo, status),
-    Latest_SHA = format_latest_sha_v(repo, sha),
-    Maintainer = format_maintainer_v(maintainer)
+    Repo = format_repo_v(.data[["repo"]]),
+    Lifecycle = format_lifecycle_v(.data[["lifecycle"]]),
+    Status = format_status_v(.data[["repo"]], .data[["status"]]),
+    Latest_SHA = format_latest_sha_v(.data[["repo"]], .data[["sha"]]),
+    Maintainer = format_maintainer_v(.data[["maintainer"]])
   )
 }
 
@@ -59,7 +60,9 @@ format_status <- function(repo, r_cmd_check_status) {
   }
 
   desc <- "![R-CMD-check]"
-  link <- glue::glue("https://github.com/{repo}/actions/workflows/R-CMD-check.yaml")
+  link <- glue::glue(
+    "https://github.com/{repo}/actions/workflows/R-CMD-check.yaml"
+  )
 
   glue::glue("[{desc}({r_cmd_check_status})]({link})")
 }
@@ -114,8 +117,9 @@ table_lifecycle <- function(repo_path) {
 }
 
 table_status <- function(repo_path) {
-  r_cmd_check_status <-   glue::glue(
-    "https://github.com/{repo_path}/actions/workflows/R-CMD-check.yaml/badge.svg"
+  r_cmd_check_status <- glue::glue(
+    "https://github.com/{repo_path}",
+    "/actions/workflows/R-CMD-check.yaml/badge.svg"
   )
 
   return(r_cmd_check_status)

R/imports.R

@@ -0,0 +1,2 @@
+#' @importFrom rlang .data
+NULL

README.Rmd

@@ -51,6 +51,7 @@ transition_monitor_repos <- c(
   "RMI-PACTA/pacta.portfolio.import",
   "RMI-PACTA/pacta.portfolio.audit",
   "RMI-PACTA/pacta.portfolio.allocate",
+  "RMI-PACTA/pacta.portfolio.report",
   "RMI-PACTA/pacta.executive.summary",
   "RMI-PACTA/pacta.portfolio.utils"
 )
@@ -60,6 +61,19 @@ knitr::kable(tm_table)
 
 ```
 
+### PACTA for Supervisors
+
+``` {r echo = FALSE, results = "asis"}
+transition_monitor_repos <- c(
+  "RMI-PACTA/pacta.multi.loanbook.analysis",
+  "RMI-PACTA/pacta.multi.loanbook.plot"
+)
+
+tm_table <- pacta.sit.rep::generate_package_table(transition_monitor_repos)
+knitr::kable(tm_table)
+
+```
+
 ## Transition Monitor Docker Build Status
 
 | Commit time          | Git sha                                  | Project code | Holdings date | Language | Peer group    | Report                                                                                                                                                                                                                                      | Image                                                                                   |

tests/testthat/test-generate_package_table.R

@@ -1,3 +1,20 @@
-test_that("multiplication works", {
-  expect_identical(2L * 2L, 4L)
+library(testthat)
+library(dplyr)
+
+pacta_r_package_path <- "https://github.com/RMI-PACTA/pacta.r.package"
+
+test_that("returns correct structure and data", {
+  result <- generate_package_table(pacta_r_package_path)
+  expected_names <- c("Repo", "Lifecycle", "Status", "Latest_SHA", "Maintainer")
+
+  expect_true(tibble::is_tibble(result))
+  expect_equal(ncol(result), 5)
+  expect_true(all(expected_names %in% names(result)))
+})
+
+test_that("handles empty input", {
+  empty_input <- character(0)
+  result <- generate_package_table(empty_input)
+
+  expect_true(tibble::is_tibble(result) && nrow(result) == 0)
 })