Check if all .Rmd file are executable in an RStudio project

knit_rmd.R

knit_rmd <- function(path = ".") {
    direction <- fs::dir_ls(path = ".", recursive = TRUE, regexp = "[.][R-r]md$")
    t <- purrr::map(direction, purrr::safely(rmarkdown::render))
    df <- tibble::tibble(
        files = names(t),
        result = stringr::str_replace(
            string  = as.character(purrr::map(t, "result")),
            pattern  = "NULL", replacement = "ERROR"),
        call = as.character(purrr::map(t, c("error", "call"))),
        message = as.character(purrr::map(t, c("error", "message")))
    )
    df
}