More plot packages support in RMarkdown document

DESCRIPTION

@@ -1,8 +1,8 @@
 Package: JuliaCall
 Type: Package
 Title: Seamless Integration Between R and 'Julia'
-Version: 0.17.1
-Date: 2019-11-26
+Version: 0.17.1.9999
+Date: 2020-01-01
 Authors@R: c(
     person("Changcheng", "Li", , "cxl508@psu.edu", c("aut", "cre")),
     person("Randy", "Lai", role = "ctb"),
@@ -25,8 +25,9 @@ Encoding: UTF-8
 LazyData: true
 Imports: utils,
     Rcpp (>= 0.12.7),
-    knitr (>= 1.18)
-RoxygenNote: 7.0.0
+    knitr (>= 1.18),
+    mime (>= 0.8)
+RoxygenNote: 7.0.2
 LinkingTo: Rcpp
 NeedsCompilation: yes
 ByteCompile: yes

NAMESPACE

@@ -78,5 +78,6 @@ export(julia_source)
 export(julia_update_package)
 export(plotsViewer)
 import(Rcpp)
+import(mime)
 importFrom(knitr,knit_print)
 useDynLib(JuliaCall)

R/JuliaCall.R

@@ -54,5 +54,6 @@
 #' @docType package
 #' @useDynLib JuliaCall
 #' @import Rcpp
+#' @import mime
 #' @name JuliaCall
 NULL

inst/julia/display/RmdJulia.jl

@@ -20,6 +20,38 @@ function text_display(display::RmdDisplay, x)
     text_display_in_R(s)
 end
 
+if julia07
+    using Requires
+else
+    macro require_str() end
+end
+
+@require Plots="91a5bcdd-55d7-5caf-9e0b-520d859cae80" @eval begin
+
+    function display(display::RmdDisplay, x::Plots.Plot)
+        try
+            plot_display(display, x)
+            return
+        catch e;
+        end
+        try
+            text_display(display, x)
+            return
+        catch e;
+        end
+        throw(MethodError)
+    end
+
+    function plot_display(display::RmdDisplay, x::Plots.Plot)
+        path = rcopy(begin_plot_in_R())
+        mkpath(dirname(path))
+        Plots.savefig(x, path)
+        finish_plot_in_R()
+    end
+
+end
+
+
 function display(display::RmdDisplay, x)
     try
         if isa(x, Main.Plots.Plot)

inst/julia/install_dependency.jl

@@ -32,3 +32,8 @@ using Suppressor
 if installed("RCall") == nothing
     Pkg.add("RCall")
 end;
+
+if julia07 && installed("Requires") == nothing
+    Pkg.add("Requires")
+    using Requires
+end;

inst/julia/rebuildRCall.jl

@@ -31,6 +31,11 @@ end;
 
 using Suppressor
 
+if julia07 && installed("Requires") == nothing
+    Pkg.add("Requires")
+    using Requires
+end;
+
 if installed("RCall") == nothing
     Pkg.add("RCall")
 end;