R/name_chunks.R

In mlr-org/mlr3gallery: What the Package Does (One Line, Title Case)

#' @title Name all chunks
#'
#' @description
#' Names all chunks of all Rmd files using the pattern `[file-name]-[number]`.
#'
#' @export
name_chunks_mlr3gallery = function() {
  root = rprojroot::find_package_root_file()
  path = file.path(root, "_posts")
  rmds = list.files(path, pattern = "\\.Rmd$", full.names = TRUE, recursive = TRUE)
  pattern = "^([[:space:]]*```\\{[rR])([[:alnum:] -]*)(.*\\})[[:space:]]*$"

  for (rmd in rmds) {
    message(sprintf("Renaming chunks in '%s'", basename(rmd)))

    lines = readLines(rmd)
    ii = which(stringi::stri_detect_regex(lines, "^[[:space:]]*```\\{[rR].*\\}$"))
    labels = sprintf("%s-%03i", stringi::stri_replace_last_fixed(basename(rmd), ".Rmd", ""), seq_along(ii))
    lines[ii] = stringi::stri_replace_first_regex(lines[ii], pattern, sprintf("$1 %s$3", labels))

    writeLines(stringi::stri_trim_right(lines), con = rmd)
  }

  invisible(TRUE)
}