Commit 1fe4d1e3 authored by Thomas Friedrichsmeier's avatar Thomas Friedrichsmeier
Browse files

Fix output getting deactivated, when preview is closed

parent dad7514d
Pipeline #178983 passed with stage
in 3 minutes and 31 seconds
......@@ -72,8 +72,10 @@ RKPreviewBox::RKPreviewBox (const QDomElement &element, RKComponent *parent_comp
RInterface::issueCommand ("local ({\n"
"outfile <- tempfile (fileext='.html')\n"
"rk.assign.preview.data(" + idprop + ", list (filename=outfile, on.delete=function (id) {\n"
" rk.flush.output (outfile, ask=FALSE)\n"
" unlink (outfile)\n"
" oldfile <- rk.get.output.html.file()\n"
" rk.flush.output(outfile, ask=FALSE)\n"
" unlink(outfile)\n"
" rk.set.output.html.file(oldfile)\n"
"}))\n"
"oldfile <- rk.set.output.html.file (outfile, style='preview') # for initialization\n"
"rk.set.output.html.file (oldfile)\n"
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment