Better converting strategy

Author: hadley

.gitignore

@@ -5,3 +5,4 @@ _cache
 _site
 cache
 diamonds.csv
+temp.Rmd

_plugins/knit.r

@@ -1,5 +1,6 @@
 #!/usr/bin/Rscript
 source("_plugins/rmd2html.r")
+library(methods)
 
 args <- commandArgs(trailingOnly = TRUE)
 path <- args[1]

_plugins/rmarkdown.rb

@@ -14,16 +14,20 @@ def output_ext(ext)
     end
 
     def convert(content)
-      Tempfile.open(['knitr', '.Rmd']) do |f|
-        f.write(content)
-        f.write("\n")
-        f.flush
+      f = File.new("temp.Rmd", "w")
+      f.write(content)
+      f.write("\n")
+      f.flush
 
-        # http://rubyquicktips.com/post/5862861056/execute-shell-commands
-        content = `_plugins/knit.r #{f.path}`
-        raise "Knitting failed" if $?.exitstatus != 0
-        content
+      # http://rubyquicktips.com/post/5862861056/execute-shell-commands
+      content = `_plugins/knit.r temp.Rmd`
+      
+      if $?.exitstatus != 0
+        raise "Knitting failed" 
       end
+      
+      content
+      # File.unlink f.path
     end
   end
 end