2016-04-29 15:41:18 +02:00
|
|
|
import Plots
|
|
|
|
|
|
|
|
|
|
"""Pre-execute hooks to set the plot size for the chunk """
|
|
|
|
|
function plots_set_size(chunk)
|
|
|
|
|
w = chunk.options[:fig_width] * chunk.options[:dpi]
|
|
|
|
|
h = chunk.options[:fig_height] * chunk.options[:dpi]
|
|
|
|
|
Plots.default(size = (w,h))
|
|
|
|
|
return chunk
|
|
|
|
|
end
|
|
|
|
|
|
|
|
|
|
push_preexecute_hook(plots_set_size)
|
2016-10-31 16:55:38 +01:00
|
|
|
|
|
|
|
|
function Base.display(report::Report, m::MIME"image/svg+xml", data::Plots.Plot{Plots.PlotlyBackend})#
|
|
|
|
|
#Remove extra spaces from start of line for pandoc
|
|
|
|
|
s = reprmime(MIME("text/html"), data)
|
|
|
|
|
splitted = split(s, "\n")
|
|
|
|
|
start = split(splitted[1], r"(?=<div)")
|
|
|
|
|
#script = lstrip(start[1]) #local
|
|
|
|
|
script = "<script src=\"https://cdn.plot.ly/plotly-latest.min.js\"></script>"
|
|
|
|
|
div = lstrip(start[2])
|
|
|
|
|
plot = join(map(lstrip, splitted[2:end]), "\n")
|
|
|
|
|
|
|
|
|
|
if report.first_plot
|
|
|
|
|
report.rich_output *= "\n" * script
|
|
|
|
|
report.first_plot = false
|
|
|
|
|
end
|
|
|
|
|
|
|
|
|
|
report.rich_output *= "\n" * div * "\n" * plot
|
|
|
|
|
end
|
