README.Rmd

---
title: "GitHub Actions"
output: github_document
# the repository where this repo exists
status_repo: abjur/abjStatus
# list of repositories by owner name and repo
params:
  abjur:
  - obsFase2
  - obsFase3
  - obsRJRS
  - obsRJRJ
  - obsCRSFN 
  - obsMC
  - saudeJFCE
  - falrec
  - associados
  - authLogs
  - relatorioPesquisadores
  - abjMktAnalytics
  - obsDash
  - abjDash
  - abjutils
  - cnc
  - abjMaps
---

![](https://github.com/`r rmarkdown::metadata$status_repo`/workflows/Render%20Status/badge.svg)  
`r strftime(Sys.time(), "%F %T %Z")`


```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = FALSE, warning = FALSE, message = FALSE)
library(purrr)
library(dplyr)
library(glue)
```

```{r gh-get-repos}
# agora lidando com runs vazios
source("gh-repo-info.R")
repos <- gh_get_repo_status(params)
```

```{r repo-status}
repos |> 
  dplyr::select(-where(is.list)) |>
  dplyr::filter(
    purrr::map_chr(repos$workflows, "state") != "disabled_manually"
  ) |> 
  dplyr::arrange(repo_name) |> 
  dplyr::mutate(
    commit_message = map_chr(commit_message, ~strsplit(.x, "\n")[[1]][1]),
    commit_id_6 = substr(commit_id, 1, 6)
  ) |>
  dplyr::transmute(
    Repo = glue("[{repo_name}]({html_url_repo})"),
    Name = basename(dirname(badge_url)),
    Stars = stargazers_count,
    Issues = open_issues_count,
    Status = glue("[![{Name}]({badge_url})]({html_url_run})")
  ) |> 
  dplyr::filter(
    Name != "pages-build-deployment"
  ) |> 
  knitr::kable(escape = FALSE)
```