---
title: "Projects"
format: 
   html:
     df-print: kable
include-in-header:
  - text: |
      <script async src="https://pagead2.googlesyndication.com/pagead/js/adsbygoogle.js?client=ca-pub-7994446359957143"
      crossorigin="anonymous"></script>
---

Compilation of projects providing access to the date of last commit or publication date.

```{r message=FALSE, warning=FALSE, echo=FALSE, table.cap="Projects"}
#| label: tbl-projects
#| tbl-cap: Projects
#| results: asis

df <- read.csv("projects.csv")
df$last_commit <- as.Date(df$last_commit)
df <- df[!is.na(df$last_commit),]
df$project <- paste0("<a href='", df$url, "'>", df$project, "</a>")
df <- df[,c("project", "section", "last_commit")]
df <- df[order(df$last_commit, decreasing = TRUE),]
rownames(df) <- NULL
htmltools::tagList(DT::datatable(df, list(pageLength = 50), escape = FALSE))
```