add creation dates

carpentries · Sep 18, 2023 · c6ff549 · c6ff549
1 parent 7a75b0e
commit c6ff549
Show file tree

Hide file tree

Showing 5 changed files with 26 additions and 0 deletions.
diff --git a/datacarpentry/ecology-workshop.R b/datacarpentry/ecology-workshop.R
@@ -82,6 +82,12 @@ idx[heads] <- purrr::map_chr(idx[heads], fix_table_head)
 writeLines(idx, fs::path(new, "index.md"))
 
 
+sandpaper::set_config(
+  c("created" = "2015-12-12"),
+  path = new,
+  write = TRUE
+)
+
 to_find <- paste0("$(find ", new, "/ -name '*md')")
 system2("sed", c("-i -r -e", "'s/[^a-z] solution/: spoiler/g'", to_find))
 system2("sed", c("-i -r -e", "'s_https://example.com/FIXME_https://github.com/datacarpentry/ecology-workshop_g'", fs::path(new, "CONTRIBUTING.md")))
diff --git a/datacarpentry/genomics-workshop.R b/datacarpentry/genomics-workshop.R
@@ -52,6 +52,11 @@ fix_table_head <- function(x) {
 heads <- grepl("| ---", idx, fixed = TRUE)
 idx[heads] <- purrr::map_chr(idx[heads], fix_table_head)
 writeLines(idx, fs::path(new, "index.md"))
+sandpaper::set_config(
+  c("created" = "2015-06-03"),
+  path = new,
+  write = TRUE
+)
 
 to_find <- paste0("$(find ", new, "/ -name '*md')")
 system2("sed", c("-i -r -e", "'s/[^a-z] solution/: spoiler/g'", to_find))

diff --git a/datacarpentry/geospatial-workshop.R b/datacarpentry/geospatial-workshop.R
@@ -52,6 +52,11 @@ fix_table_head <- function(x) {
 heads <- grepl("| ---", idx, fixed = TRUE)
 idx[heads] <- purrr::map_chr(idx[heads], fix_table_head)
 writeLines(idx, fs::path(new, "index.md"))
+sandpaper::set_config(
+  c("created" = "2018-03-06"),
+  path = new,
+  write = TRUE
+)
 
 to_find <- paste0("$(find ", new, "/ -name '*md')")
 system2("sed", c("-i -r -e", "'s/[^a-z] solution/: spoiler/g'", to_find))

diff --git a/datacarpentry/socialsci-workshop.R b/datacarpentry/socialsci-workshop.R
@@ -80,6 +80,11 @@ fix_table_head <- function(x) {
 heads <- grepl("| ---", idx, fixed = TRUE)
 idx[heads] <- purrr::map_chr(idx[heads], fix_table_head)
 writeLines(idx, fs::path(new, "index.md"))
+sandpaper::set_config(
+  c("created" = "2017-05-25"),
+  path = new,
+  write = TRUE
+)
 
 to_find <- paste0("$(find ", new, "/ -name '*md')")
 system2("sed", c("-i -r -e", "'s/[^a-z] solution/: spoiler/g'", to_find))

diff --git a/librarycarpentry/lc-overview.R b/librarycarpentry/lc-overview.R
@@ -52,6 +52,11 @@ fix_table_head <- function(x) {
 heads <- grepl("| ---", idx, fixed = TRUE)
 idx[heads] <- purrr::map_chr(idx[heads], fix_table_head)
 writeLines(idx, fs::path(new, "index.md"))
+sandpaper::set_config(
+  c("created" = "2018-05-29"),
+  path = new,
+  write = TRUE
+)
 
 to_find <- paste0("$(find ", new, "/ -name '*md')")
 system2("sed", c("-i -r -e", "'s/[^a-z] solution/: spoiler/g'", to_find))