path <- "C:/temp/"

pg <- htmlPageBegin(path,"htmlMaker.html",title="hmtlMaker",
           body.options="BGCOLOR=99CCFF",plot.method="png", comment="Intro to htmlMaker")
htmlLine(pg, "<br>")
htmlLine( pg, "<h1>htmlMaker  R (and S-Plus) code to generate webpages with plots</h1>" )
htmlLine(pg, "This is an R package to generate html code for webpages, especially for batch")
htmlLine(pg, "jobs where R is run in background mode.  This is a basic program to") 
htmlLine(pg, "get simple webpages with graphs, including simple clickable graphs,") 
htmlLine(pg, "it is not a web design tool.  You  will need to know some html to")
htmlLine(pg, "do anything beyond the simplest webpages.  These webpages are")
htmlLine(pg, "static html, no java or javascript is used.")
htmlLine(pg, "<br><br>To work under R in interactive mode, R in batch mode, and S-Plus, the package now ")
htmlLine(pg, "requires an argument to tell which method to use to produce plots.")
htmlLine(pg, "The sample routines below assume you are running R in interactive mode.<br><br>")

htmlLine(pg, "WARNING: Netscape Navigator (6.2 and 7.0) does NOT work correctly with clickable images: ")
htmlLine(pg, "(1) it does not process multiple images with maps correctly,")
htmlLine(pg, "(2) it does not display the alt=... text, except on the first graph on")
htmlLine(pg, "a webpage, and (3) it does not follow the href= link.")
htmlLine(pg, "Internet Explorer (5.5 and 6.0) does work correctly.<br> <br>" )

htmlLine( pg, "There is terse documentation included in the source file" )
htmlLine( pg, "htmlMaker.R below.  Also, see the source files ")
htmlLine( pg, "and pages of output generated below.")

# sample data for barplot
htmlLine( pg, "<br><p align=center>" )
ht <- runif(6)+.2

group.names <- c("brown","red","green","blue","cyan","pink")
links <- paste( "#clicked.",group.names, sep="")
htmlBarPlot(pg, ht, plot.file="sample_barplot.png", hyperlink=links,
  group.names=group.names, main="Sample barplot - click on a bar", color=1:6 )
htmlLine( pg, "</p>" )
   
htmlLine( pg, "<br> <br>" )

htmlLine( pg, "<br> <hr> <br>")
for (i in 1:length(group.names)) {
  htmlLine( pg, paste("<h2> <a name='clicked.",group.names[i],
       "'> You clicked on the ",group.names[i]," bar.</h2>",sep="") ) }
htmlLine( pg, "<h2>You can have links go to different places, including different webpages</h2>")
htmlLine( pg, "<br> <hr> <br>")

# example of a table with links 
htmlLine( pg, "<br><p align=center>" )
htmlTableBegin( pg, caption="<h3>Download source or view examples<h3>" ) 
htmlTableRow( pg,c("Description","File"), header=T ) 
htmlTableRow( pg, c("R code for htmlMaker",
       "<a href='htmlMaker.R'>htmlMaker.R</a>" ) )
htmlTableRow( pg, c("R code to generate the four sample pages below",
       "<a href='htmlMakerTest.R'>htmlMakerTest.R</a>" ) )
htmlTableRow( pg, c("Simplest plots","<a href='page1.html'>page1.html</a>" )) 
htmlTableRow( pg, c("Clickable plots","<a href='page2.html'>page2.html</a>" )) 
htmlTableRow( pg, c("plot options - color, tables","<a href='page3.html'>page3.html</a>" )) 
htmlTableRow( pg, c("General plots (3-D, multipanel, etc.)","<a href='page4.html'>page4.html</a>" )) 
htmlTableRow( pg, c("R code to generate this page",
       "<a href='htmlMakerWebpage.R'>htmlMakerWebpage.R</a>" ) )
htmlTableEnd( pg)
htmlLine( pg, "</p>" )

htmlLine( pg, "<a href='http://academic2.american.edu/~jpnolan'>John Nolan's homepage</a>" )
htmlLine( pg, "<br><br>Please send me e-mail if you find this package useful: jpnolan@american.edu<br><br>")

# specific code to set up a webcounter, do not copy this code
htmlLine( pg, " ")
htmlLine( pg, " ")
htmlLine( pg, '<!-- Begin Nedstat Basic code -->')
htmlLine( pg, '<!-- Title: htmlMaker -->')
htmlLine( pg, '<!-- URL: http://academic2.american.edu/~jpnolan/htmlMaker/htmlMaker.html -->')
htmlLine( pg, '<script language="JavaScript" src="http://m1.nedstatbasic.net/basic.js">')
htmlLine( pg, '</script>')
htmlLine( pg, '<script language="JavaScript">')
htmlLine( pg, '<!--')
htmlLine( pg, 'nedstatbasic("AB/BDABIO/HGfoawgDcUZWClLFyQ", 0);')
htmlLine( pg, '// -->')
htmlLine( pg, '</script>')
htmlLine( pg, '<noscript>')
htmlLine( pg, '<a target="_blank" href="http://v1.nedstatbasic.net/stats?AB/BDABIO/HGfoawgDcUZWClLFyQ"><img src="http://m1.nedstatbasic.net/n?id=AB/BDABIO/HGfoawgDcUZWClLFyQ"')
htmlLine( pg, 'border="0" nosave width="18" height="18"></a>')
htmlLine( pg, '</noscript>')
htmlLine( pg, '<!-- End Nedstat Basic code -->')
htmlLine( pg, " ")
htmlLine( pg, " ")

htmlPageEnd(pg)