Rearranging post directory structure for a Quarto blog to mimic the URL path of a {blogdown} blog (for rostrum.blog)

q2bd-blog-post-dirs.R

paths <- list.dirs("posts", recursive = FALSE)

for (i in paths) {
  
  from_dir <- i
  
  date_rx <- "\\d{4}-\\d{2}-\\d{2}"
  
  dates <- regexpr(date_rx, basename(i)) |> 
    regmatches(basename(i), m = _) |> 
    gsub("-", "/", x = _)
  
  name <- gsub(paste0("posts/", date_rx, "-"), "", i)
  
  to_dir <- file.path(dates, name)
  
  files <- list.files(i, recursive = TRUE)
  from_files <- file.path(from_dir, files)
  to_files <- file.path(to_dir, files)
  
  dir.create(file.path(to_dir, "resources"), recursive = TRUE)
  
  file.rename(from_files, to_files)
   
  message("Moved ", name)
  
}