Update util.R

knitr_files_dir <- function(file) {
## paste(tools::file_path_sans_ext(file), "_files", sep = "")
  ## set supporting file as xxxx
  ## instead of the original xxxx_files
  ## in the 'graphics' file
  paste(tools::file_path_sans_ext(file), sep = "")
}