https://github.com/andrie/dashboard
Andrie's dashboard of R package status
https://github.com/andrie/dashboard
Last synced: 7 days ago
JSON representation
Andrie's dashboard of R package status
- Host: GitHub
- URL: https://github.com/andrie/dashboard
- Owner: andrie
- Created: 2017-03-31T09:20:26.000Z (about 8 years ago)
- Default Branch: main
- Last Pushed: 2024-03-31T17:45:17.000Z (about 1 year ago)
- Last Synced: 2025-02-14T13:16:55.329Z (2 months ago)
- Language: R
- Size: 12.7 KB
- Stars: 1
- Watchers: 1
- Forks: 0
- Open Issues: 0
-
Metadata Files:
- Readme: README.Rmd
Awesome Lists containing this project
- jimsghstars - andrie/dashboard - Andrie's dashboard of R package status (R)
README
---
title: "Dashboard of packages on CRAN"
output: github_document
format: gfm
default-image-extension: ""
---
```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
get_badges <- function(pkg, repo = "andrie") {
blob <- glue::glue("https://raw.githubusercontent.com/{repo}/{pkg}/main/README.Rmd")
rmd <- readr::read_lines(blob)
start <- grep("", rmd)
end <- grep("" , rmd)
badges <- rmd[(start + 1) : (end - 1)]
desc <- glue::glue("https://raw.githubusercontent.com/{repo}/{pkg}/main/DESCRIPTION")
dcf <- readr::read_lines(desc)
line <- grep("^Title", dcf)
title <- dcf[line]
cat(title)
cat("\n\n")
cat(badges)
cat("\n\n")
invisible(list(title, badges))
}
```
Andrie's dashboard with status of R packages on CRAN
## miniCRAN
```{r}
#| echo: FALSE
#| output: asis
get_badges("miniCRAN")
```
## sss
```{r}
#| echo: FALSE
#| output: asis
get_badges("sss")
```
## ggdendro
```{r}
#| echo: FALSE
#| output: asis
get_badges("ggdendro")
```
## surveydata
```{r}
#| echo: FALSE
#| output: asis
get_badges("surveydata")
```
## rrd
```{r}
#| echo: FALSE
#| output: asis
get_badges("rrd")
```
## rfordummies
```{r}
#| echo: FALSE
#| output: asis
get_badges("rfordummies", "rfordummies")
```
# Posit
## config
```{r}
#| echo: FALSE
#| output: asis
get_badges("config", "rstudio")
```
```
## sortable
```{r}
#| echo: FALSE
#| output: asis
get_badges("sortable", "rstudio")
```
## nomnoml
```{r}
#| echo: FALSE
#| output: asis
get_badges("nomnoml", "rstudio")
```