header

index.Rmd

@@ -0,0 +1,62 @@
+---
+title: animint2 gallery
+output: html_document
+---
+
+```{r Ropts, echo=FALSE}
+options(width=200)
+knitr::opts_chunk$set(
+  echo=FALSE,
+  results="asis")
+ahref <- function(href, text){
+  sprintf('<a href="%s">%s</a>', href, text)
+}
+```
+
+```{r}
+myread <- function(csv, repo.col){
+  nc::capture_first_df(
+    fread(csv),
+    repo=list(user=".*?", "/", repo_only=".*")
+  )[
+  , img.png := sprintf("repos/%s.png", repo)
+  ][
+  , viz.link := ahref(
+    sprintf("https://%s.github.io/%s/", user, repo_only),
+    ifelse(
+      file.exists(img.png),
+      sprintf('<img src="%s" alt="%s" />', img.png, repo),
+      repo)
+  )][
+  , repo.link := ahref(
+    sprintf("https://github.com/%s/tree/gh-pages", repo),
+    get(repo.col))
+  ]
+}
+meta.dt <- myread("meta.csv", "title")[
+  , source.link := ahref(
+    source,
+    commit.POSIXct)
+]
+error.dt <- myread("error.csv", "repo")
+```
+
+```{r}
+knitr::kable(meta.dt[, .(
+  viz.link, repo.link, source.link
+)])
+download <- function(csv){
+  cat(ahref(csv, paste("Download this table: ", csv)))
+}
+download("meta.csv")
+```
+
+## Visualizations with missing meta-data
+
+```{r}
+knitr::kable(error.dt[, .(
+  viz.link, repo.link, error
+)])
+download("error.csv")
+```
+

meta.csv

@@ -1,2 +1,2 @@
-add.POSIXct,repo,commit.POSIXct,source,title
+add.POSIXct,viz_user_repo,commit.POSIXct,source,title
 2023-10-28T05:42:48.192757Z,tdhock/necromass-figure-one-network,2023-10-27T23:58:42Z,https://github.com/tdhock/necromass/blob/main/figure-one-network.R,bacteria_fungi_conservative visualization

repos.txt

@@ -0,0 +1,3 @@
+tdhock/tdhock-figure-nnet-regression-degrees
+tdhock/animint-figure-nnet-regression-degrees
+tdhock/necromass-figure-one-network