R/04_current_file-condition-helpers.R

In moodymudskipper/poof: A Single Addin for Context Dependent Actions

Defines functions document_is_rmd document_is_r_script

Documented in document_is_rmd document_is_r_script

#' File Focused Condition Helpers
#' @export
#' @rdname file-condition-helpers
document_is_r_script <- function() {
  toupper(tools::file_ext(current_path())) == "R"
}

#' @export
#' @rdname file-condition-helpers
document_is_rmd <- function() {
  toupper(tools::file_ext(current_path())) == "RMD"
}