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: about 2 months ago
JSON representation
nmfs-fish-tools status dashboard based on https://github.com/espinielli/status
- Host: GitHub
- URL: https://github.com/nmfs-ost/fit-status
- Owner: nmfs-ost
- Created: 2022-09-19T16:10:20.000Z (over 2 years ago)
- Default Branch: main
- Last Pushed: 2024-04-08T05:08:34.000Z (about 1 year ago)
- Last Synced: 2024-04-08T06:25:05.402Z (about 1 year ago)
- Topics: dashboard, noaa-fit, project-management
- Language: R
- Homepage: https://noaa-s-t.github.io/nmfs-fish-tools-status/
- Size: 470 KB
- Stars: 2
- Watchers: 2
- Forks: 0
- Open Issues: 1
-
Metadata Files:
- Readme: README.Rmd
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
---
`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("[]({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)
```