inject html code into Rd file

Le 03/04/10 02:04, Duncan Murdoch a ?crit :

On 02/04/2010 8:06 AM, Duncan Murdoch wrote:

On 02/04/2010 7:13 AM, Romain Francois wrote:

Le 02/04/10 13:07, Duncan Murdoch a ?crit :

On 02/04/2010 6:17 AM, Romain Francois wrote:

Hello,

I'm trying to inject html code into an Rd file. For example :

\name{test}
\alias{test}
\title{test}
\description{
\if{html}{
\Sexpr[stage=render,results=text,echo=FALSE]{
"<b>hello</b>"
}
}
}

when this file is rendered, instead of having "hello" in bold, I get
<b>hello</b>, i.e. characters < and > are replaced with html entities
: &lt; and &gt;

Is there a way to turn this off ?

Yes, if you wrap it in \out{}. The example in the manual is

\if{latex}{\out{\alpha}}\ifelse{html}{\out{α}}{alpha}

Duncan Murdoch

yes, I saw that in WRE, I should have been more specific.


what if instead of a trivial string like "<b>hello</b>" the text is
to be computed by some function. For example:

print( xtable( iris), type = "html" )

I think this should do it:

\Sexpr[stage=render,results=rd,echo=FALSE]{
paste("\\out{", "<b>hello</b>, "}", sep="")}

but this stuff hasn't been tested much, so there might be problems...

One problem is that the backslashes need to be escaped twice, so you'd
want

\Sexpr[stage=render,results=rd,echo=FALSE]{
paste("\\\\out{", "<b>hello</b>, "}", sep="")}

and you'd probably want it wrapped in \if or \ifelse so that it doesn't
show up in text or latex output:

\Sexpr[stage=render,results=rd,
echo=FALSE]{"\\\\if{html}{\\\\out{<b>hello</b>}}"}

Duncan Murdoch

Thanks.
This gives one way to include images in a Rd file with data uri, here is a
proof of concept (that depends on openssl to do the base 64 encoding):

img <- function(){
? ? ? ?tf <- tempfile()
? ? ? ?tf.out <- tempfile()
? ? ? ?png( tf, width = 500, height = 500)
? ? ? ?plot( 1:100, rnorm(100), pch = 21, bg = "red", cex =2 )
? ? ? ?dev.off()
? ? ? ?system( sprintf( 'openssl base64 -in "%s" -out "%s" ', tf, tf.out ) )
? ? ? ?sprintf( '\\out{<img src="data:image/png;base64,%s" />}',
? ? ? ? ? ? ? ?paste( readLines( tf.out), collapse = "\n" ) )
}

and the Rd file:

\name{test}
\alias{test}
\title{test}
\description{
\if{html}{
\Sexpr[stage=render,results=rd,echo=FALSE]{
? ? ? ?source( "test.R" )
? ? ? ?img()
}
}
}



It might be interesting to have something like results=asis or something.

Romain

--
Romain Francois
Professional R Enthusiast
+33(0) 6 28 91 30 30
http://romainfrancois.blog.free.fr
|- http://tr.im/OIXN : raster images and RImageJ
|- http://tr.im/OcQe : Rcpp 0.7.7
`- http://tr.im/O1wO : highlight 0.1-5