-
Notifications
You must be signed in to change notification settings - Fork 6
/
software.qmd
39 lines (36 loc) · 1.11 KB
/
software.qmd
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
---
title: "Software"
description: |
R packages and other software developed by the group
---
```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = FALSE, message = FALSE, warning = FALSE)
library(magrittr)
```
```{r, results='asis'}
pkg_descriptions <- jsonlite::stream_in(url("https://epiforecasts.r-universe.dev/stats/descriptions"), verbose = FALSE)
extra_metadata <- jsonlite::read_json("https://github.com/epiforecasts/universe/raw/main/packages.json") %>%
dplyr::bind_rows() %>%
dplyr::mutate(
Package = package,
display_website = display_website & !is.na(display_website),
.keep = "unused"
)
pkg_descriptions %>%
dplyr::left_join(extra_metadata) %>%
dplyr::filter(display_website) %>%
dplyr::arrange(Package) %>%
split(rownames(.)) %>%
purrr::map(unlist) %>%
purrr::map_chr(function(e) {
knitr::knit_expand(
"_software-item.Rmd",
Package = e[["Package"]],
Title = stringr::str_squish(e[["Title"]]),
github_url = e[["RemoteUrl"]],
owner = e[["_owner"]]
)
}) %>%
{ knitr::knit_child(text = unlist(.), quiet = TRUE) } %>%
cat(sep = "\n")
```