[R] HTML Output from R

[Terry J. Westley]

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.

--
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
_._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._