R/utils.R

In markheckmann/R2wdaddons: Addon to the R2wd package.

Defines functions file_is_docx

Documented in file_is_docx

# utility functions

#' Is file a MS Word .docx file
#' 
file_is_docx <- function(f)
{
  ext <- tools::file_ext(f)
  tolower(ext) == "docx"  
}