[R] HTML Output from R

[Kurt Hornik]

>>>>> Terry J Westley writes:

> I recommend that you model your HTML write function after
> write.table().  It's got many of the features you'd like
> to have and also will give you some good hints on how
> to handle row and column names and avoid that "forbidden"
> for loop.

Yes, this is a very good suggestion.  Eventually, one could have
something like write.table(..., format = "HTML") (or LaTeX).

-k

> --
> Terry J. Westley, Principal Engineer
> Veridian Engineering, Calspan Operations
> P.O. Box 400, Buffalo, NY 14225
> twestley at buffalo.veridian.com    http://www.veridian.com

>> -----Original Message-----
>> From: owner-r-help at stat.math.ethz.ch
>> [mailto:owner-r-help at stat.math.ethz.ch]On Behalf Of
>> partha_bagchi at hgsi.com
>> Sent: Monday, August 02, 1999 8:11 AM
>> To: r-help at stat.math.ethz.ch
>> Subject: [R] HTML Output from R
>> 
>> 
>> Task: To generate HTML output from R
>> Details: I am trying to serve up HTML output from R. That is analyses or
>> table of data from R saved as HTML output with formatted tables etc. This
>> file is then called in a CGI script to output to user browser. The CGI
>> script inspired by Mark J. Ray reads the HTML output, formats the header
>> and footer and any graphic output if necessary.
>> My question is: Has anyone done any HTML output from R?
>> 
>> My first attempt at this is the following:
>> (Note: this function is not intended for "production" work; in particular
>> no error checking - all the niceties I intend to add in the end)
>> 
>> mat2html <- function(x, y, capt="The Default Title", file= file){
>> #x: The matrix to be written in HTML
>> #y: A vector  of length m containing the colnames of x
>> #capt: The title for the table
>> #file: The HTML file to write to
>> n <- dim(x)[1] #no. of rows
>> m <- dim(x)[2] #no. of columns
>> sink(paste(file))
>> cat("<table border= 1, align= \"center\">\n")
>> cat(paste("<caption>", capt, "</caption>\n"))
>> cat("<tr>")
>> for(i in 1:m)cat(paste("<th>", y[i]))
>> cat("</tr>\n")
>> for(i in 1:n){
>> cat("<tr>\n")
>> for(j in 1:m){
>> cat(paste("<td>", x[i,j]))
>> }
>> cat("</tr>\n")
>> }
>> cat("</table>\n")
>> sink()
>> }
>> #---------------------------------------------------------------------------------------
>> 
>> Note that I am using the "forbidden" for loop. I am unable to see a
>> solution otherwise.
>> Comments and improvements obviously welcome.
>> TIA.
>> Partha.
>> PS: I will summarize all the replies I get.
>> 
>> 
>> -.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-
>> r-help mailing list -- Read http://www.ci.tuwien.ac.at/~hornik/R/R-FAQ.html
>> Send "info", "help", or "[un]subscribe"
>> (in the "body", not the subject !)  To: r-help-request at stat.math.ethz.ch
>> _._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._
>> 
> -.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-
> r-help mailing list -- Read http://www.ci.tuwien.ac.at/~hornik/R/R-FAQ.html
> Send "info", "help", or "[un]subscribe"
> (in the "body", not the subject !)  To: r-help-request at stat.math.ethz.ch
> _._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._
-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-
r-help mailing list -- Read http://www.ci.tuwien.ac.at/~hornik/R/R-FAQ.html
Send "info", "help", or "[un]subscribe"
(in the "body", not the subject !)  To: r-help-request at stat.math.ethz.ch
_._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._