# Add 'graphics' file to contain the figures

  # use output filename based files dir
#  files_dir <-file.path(output_dir, knitr_files_dir(basename(output_file)))
#  files_dir <- pandoc_path_arg(files_dir)
 # Add 'graphics' file to contain the figures
  files_dir <-file.path(output_dir, knitr_files_dir(basename(output_file)))
  files_dir <- paste0("graphics/", files_dir, "/")       ## graphics
  files_dir <- pandoc_path_arg(files_dir)