From mboxrd@z Thu Jan  1 00:00:00 1970
From: "Cook, Malcolm" <MEC@stowers.org>
Subject: Re: capture htmlwidgets for export - a pattern in search of a new
 :results type???
Date: Wed, 29 Jul 2015 00:08:44 +0000
Message-ID: <9f3c40e52cdd4e2aa752f01d7733812a@exchsrv2.sgc.loc>
References: <f1cc8e5bcf1c4f9f903894f5e83f92e5@exchsrv2.sgc.loc>
	<alpine.OSX.2.11.1507281417430.1057@charles-berrys-macbook.local>
Mime-Version: 1.0
Content-Type: text/plain; charset="us-ascii"
Content-Transfer-Encoding: quoted-printable
Return-path: <emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org>
Received: from eggs.gnu.org ([2001:4830:134:3::10]:34272)
	by lists.gnu.org with esmtp (Exim 4.71)
	(envelope-from <prvs=765275f112=mec@stowers.org>) id 1ZKEvV-0007SM-DW
	for emacs-orgmode@gnu.org; Tue, 28 Jul 2015 20:08:54 -0400
Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71)
	(envelope-from <prvs=765275f112=mec@stowers.org>) id 1ZKEvQ-0004GV-ED
	for emacs-orgmode@gnu.org; Tue, 28 Jul 2015 20:08:53 -0400
Received: from smtp02.stowers.org ([40.141.174.62]:40508)
	by eggs.gnu.org with esmtp (Exim 4.71)
	(envelope-from <prvs=765275f112=mec@stowers.org>) id 1ZKEvQ-0004E9-8F
	for emacs-orgmode@gnu.org; Tue, 28 Jul 2015 20:08:48 -0400
In-Reply-To: <alpine.OSX.2.11.1507281417430.1057@charles-berrys-macbook.local>
Content-Language: en-US
List-Id: "General discussions about Org-mode." <emacs-orgmode.gnu.org>
List-Unsubscribe: <https://lists.gnu.org/mailman/options/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=unsubscribe>
List-Archive: <http://lists.gnu.org/archive/html/emacs-orgmode>
List-Post: <mailto:emacs-orgmode@gnu.org>
List-Help: <mailto:emacs-orgmode-request@gnu.org?subject=help>
List-Subscribe: <https://lists.gnu.org/mailman/listinfo/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=subscribe>
Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org
Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org
To: "'Charles C. Berry'" <ccberry@ucsd.edu>
Cc: "emacs-orgmode@gnu.org" <emacs-orgmode@gnu.org>

> On Tue, 28 Jul 2015, Cook, Malcolm wrote:
>=20
> > I have been playing with exporting htmlwidgets [1] generated in R code-
> blocks.
> >
>=20
> [snip: proposal for new :results format to accomodate repetitive codes]
>=20
>=20
> >
> > Perhaps there is  a better or more useful abstraction.
> >
> > Or a better workaround than simply following the pattern when needed
> (which is not too hard anyway).
> >
> > Any ideas along these lines?
>=20
> See
>=20
>  	(info "(org) Noweb reference syntax")
>=20
> for one way to handle repetitive codes.
>=20
> Alternately, header args :var, :post, :prologue and/or :epilogue could be=
 used
> to crystallize your code.

Excellent!  Glad to be directed to these.  The combination of all of them g=
ets me over the fence:

#+name: iframe
#+begin_src sh :var it=3D"" :var height=3D"700px" :var width=3D"700px" :res=
ults output :exports none
       printf "<iframe src=3D%s height=3D%s width=3D%s >" $it $height $widt=
h
#+end_src

#+header: :prologue {file=3D"d3heatmap_widget.html"; saveWidget({
#+header: :epilogue },file) ;file}
#+BEGIN_SRC R :session *R* :results html :exports both :post iframe(it=3D*t=
his*,height=3D"800px" width=3D"800px")
library(htmlwidgets)
library(d3heatmap)
d3heatmap(mtcars, scale=3D"column", colors=3D"Greens")
#+END_SRC

#+RESULTS:
#+BEGIN_HTML
<iframe src=3Dd3heatmap_widget.html height=3D800px width=3D700px >
#+END_HTML


I don't really care for all the verbosity of the header, but the effect is =
perfect.  The code block does not contain ANY extra org-mode export-specifi=
c cruft.

TH,

Malcolm

>=20
> One other alternative is to write an R function that creates the extra ma=
rkup.
>=20
> HTH,
>=20
> Chuck