render_md_as_rmd.R

render_md_as_rmd <- function(file, overwrite = TRUE, ...) {
  file_name <- fs::path_ext_remove(file)

  file_to_render <- fs::file_copy(
    path = file,
    new_path = fs::path(file_name, ext = "Rmd"),
    overwrite = overwrite
  )

  tryCatch(
    {
      xfun::Rscript_call(
        fun = rmarkdown::render,
        args = list(input = file_to_render, ...)
      )
    },
    finally = {
      fs::file_delete(file_to_render)
    }
  )
}