R/addin.R

In jonathan-g/blogdownDigest: Extends Blogdown to Track Changed Source Files using Digests

# use touch to update the timestamp of a file if available (not on Windows);
# otherwise modify a file, undo it, and save it
touch_file <- function() {
  ctx <- rstudioapi::getSourceEditorContext()
  if (!file.exists(ctx$path)) stop('The current document has not been saved yet.')
  p <- normalizePath(ctx$path, winslash = "/"); mtime = function() file.info(p)[, 'mtime']
  m <- mtime(); check_mtime = function() {
    if (u <- !identical(m, m2 <- mtime())) message(
    )
    u
  }

  # Delete line in digests file corresponding to p
  prune_site_digests(p)

  if (Sys.which('touch') != '') {
    if (system2('touch', shQuote(p)) == 0 && check_mtime()) return(TRUE)
  }
  id <- ctx$id
  # add a space and delete it, then (re)save the document to update its mtime
  rstudioapi::insertText(c(1, 1), ' ', id = id)
  rstudioapi::modifyRange(list(c(1, 1, 1, 2)), '', id)
  rstudioapi::documentSave(id)
  check_mtime()
}