Rmd 파일 저장할 때 knit하기 저장용

knit 할 때 저장할 때 knit되게 하는 함수 저장용

pdf_watch <- function (input, compile = bookdown::render_book, interval = 1, ...) 
{
  mtime <- function(...) file.info(...)[, "mtime"]
  last_time = mtime(input)
  updated = function() {
    this_time = mtime(input)
    result <- this_time > last_time
    last_time <<- this_time
    return(result)
  }
  while (TRUE) {
    for (f in input[updated()]) {
        system('powershell -command "Stop-Process -Name ALPDF" ')
        compile()
        fs::file_show(fs::path(getwd(), './_book/_main.pdf'))
    }
    Sys.sleep(1)
  }
}
pdf_watch(input = "index.Rmd")