diff --git a/.github/workflows/build.yml b/.github/workflows/build.yml
index 4016841..8ceac54 100644
--- a/.github/workflows/build.yml
+++ b/.github/workflows/build.yml
@@ -47,35 +47,22 @@ jobs:
# with:
# github_token: ${{ secrets.GITHUB_TOKEN }}
# publish_dir: ./docs
- # - uses: r-lib/actions/setup-r@v2
- # with:
- # r-version: '4.2.0' # The R version to download (if necessary) and use.
- # - uses: r-lib/actions/setup-r-dependencies@v2
- # with:
- # packages:
- # any::knitr
- # any::rmarkdown
- # any::downlit
- # any::xml2
- # any::tidyverse
- # any::DT
+ - uses: r-lib/actions/setup-r@v2
+ with:
+ r-version: '4.2.0' # The R version to download (if necessary) and use.
+ - uses: r-lib/actions/setup-r-dependencies@v2
+ with:
+ packages:
+ any::knitr
+ any::rmarkdown
+ any::DT
- name: setup Quarto
uses: quarto-dev/quarto-actions/setup@v2
with:
version: 1.4.550
- # - name: Render Quarto Project
- # uses: quarto-dev/quarto-actions/render@v2
- # with:
- # to: html
- # path: 'site'
- name: Publish to GitHub Pages (and render)
uses: quarto-dev/quarto-actions/publish@v2
with:
target: gh-pages
render: true
path: "site"
- # - name: Deploy pages
- # uses: peaceiris/actions-gh-pages@v3
- # with:
- # github_token: ${{ secrets.GITHUB_TOKEN }}
- # publish_dir: ./site/docs
diff --git a/site/docs/projects.html b/site/docs/projects.html
index 114a3d5..b308076 100644
--- a/site/docs/projects.html
+++ b/site/docs/projects.html
@@ -153,8 +153,8 @@ ul.task-list li input[type="checkbox"] {
Table 1: Projects
diff --git a/site/projects.qmd b/site/projects.qmd
index 062a6d9..51197ff 100644
--- a/site/projects.qmd
+++ b/site/projects.qmd
@@ -16,13 +16,12 @@ Compilation of projects providing access to the date of last commit or publicati
#| tbl-cap: Projects
#| results: asis
-library(tidyverse)
-
-df <- readr::read_csv("projects.csv")
-dt <- df |>
- filter(!is.na(last_commit)) |>
- mutate(project=paste0("", project, "")) |>
- select(project, section, last_commit) |>
- arrange(desc(last_commit), section)
-htmltools::tagList(DT::datatable(dt, list(pageLength = 50), escape = FALSE))
+df <- read.csv("projects.csv")
+df$last_commit <- as.Date(df$last_commit)
+df <- df[!is.na(df$last_commit),]
+df$project <- paste0("", df$project, "")
+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))
```