Fixed #14

1. with correction to image lua filter
2. adding --resource-path param to pandoc

R/rj-article.R

@@ -74,17 +74,20 @@ convert_to_markdown<-function(article_dir){
         }
     }
     print(input_file)
+    library(tools)
+    abs_file_path<-file_path_as_absolute(article_dir)
     md_file=paste(toString(tools::file_path_sans_ext(input_file)),".md",sep="")
     print(md_file)
     bib_filter<-system.file("extdata/bib_filter.lua", package = "texor")
     code_block_filter<-system.file("extdata/code_block_filter.lua", package = "texor")
     image_filter<-system.file("extdata/image_filter.lua", package = "texor")
     pandoc_opt<-c("-s",
+                  "--resource-path",abs_file_path,
                   "--lua-filter",bib_filter,
                   "--lua-filter",image_filter,
                   "--lua-filter",code_block_filter)
     # This will generate a markdown file with YAML headers.
-    rmarkdown::pandoc_convert(input_file,to= "markdown",options=pandoc_opt,output = md_file,citeproc = TRUE,verbose = TRUE)
+    rmarkdown::pandoc_convert(input_file,from = "latex",to= "markdown",options=pandoc_opt,output = md_file,citeproc = TRUE,verbose = TRUE)
 }
 
 #' generate rmarkdown file in output folder

inst/extdata/image_filter.lua

@@ -1,13 +1,18 @@
 
-function removePDFExtensions(s)
-    return s:gsub("%.pdf", "")
+function removePDFExtensions(src)
+    return src:gsub("%.pdf", "")
 end
 
-
+function checkPDFextension(src)
+    return src:match("%.pdf")
+end
 function Image(img)
-  local img_old_src = removePDFExtensions(img.src)
-  local new_src = img_old_src .. ".png"
-  local image = pandoc.Image(img.caption, new_src, img.title, img.attr)
-  return image
+  if(checkPDFextension(img.src)) then
+    local img_old_src = removePDFExtensions(img.src)
+    local new_src = img_old_src .. ".png"
+    local image = pandoc.Image(img.caption, new_src, img.title, img.attr)
+    return image
+  end
+  return img
 end