An open API service indexing awesome lists of open source software.

https://github.com/nmfs-ost/fit-status

nmfs-fish-tools status dashboard based on https://github.com/espinielli/status
https://github.com/nmfs-ost/fit-status

dashboard noaa-fit project-management

Last synced: 23 days ago
JSON representation

nmfs-fish-tools status dashboard based on https://github.com/espinielli/status

Awesome Lists containing this project

README

        

---
title: "GitHub Dashboard"
output: github_document
# provide user name to include all public, non-fork repos from the owner
all_by_owner: nmfs-fish-tools
# the repository where this repo exists
status_repo: nmfs-fish-tools/status
# list of repositories by owner name and repo (appear before owner's repos)
# repos:
# espinielli:
# - osn
# euctrl-pru:
# - trrrj
# - nvctr
# - airport-capacity-resilience
---

![](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}
source("gh-repo-info.R")

repo_list <- rmarkdown::metadata$repos
owner <- rmarkdown::metadata$all_by_owner
if (!is.character(owner) && length(owner) == 1) {
warning("`all_by_owner` should be a single GitHub user account")
owner <- NULL
}

repos <- gh_get_repo_status(repo_list, all_by_owner = owner)

has_repos_without_actions <- any(is.na(repos$badge_url))
```

```{r repo-status}
repos %>%
select_if(negate(is.list)) %>%
# repos with Github Actions have badges
filter(!is.na(badge_url)) %>%
mutate(
commit_message = map_chr(commit_message, ~ strsplit(.x, "\n")[[1]][1]),
commit_id_6 = substr(commit_id, 1, 6)
) %>%
transmute(
Repo = glue("[{full_name}]({html_url_repo})"),
Stars = stargazers_count,
Subscribers = subscribers_count,
Issues = open_issues_count,
Forks = forks_count,
Status = ifelse(!is.na(badge_url), glue("[![]({badge_url})]({html_url_run})"), ""),
Commit = glue('{commit_id_6}')
) %>%
knitr::kable(escape = FALSE)
```

```{r eval=has_repos_without_actions, results="asis"}
cat("## Repos without Github Actions")

repos %>%
select_if(negate(is.list)) %>%
filter(is.na(badge_url)) %>%
transmute(
Repo = glue("[{full_name}]({html_url_repo})"),
Stars = stargazers_count,
Subscribers = subscribers_count,
Issues = open_issues_count,
Forks = forks_count
) %>%
knitr::kable(escape = FALSE)
```