Nothing
#!/bin/env Rscript
h2 <- function( txt ){
sprintf( "<h2>%s</h2>\n", txt )
}
link <- function( txt, href ){
sprintf( '<a href="%s">%s</a>', href, txt )
}
line <- function( link, txt ){
sprintf( '<tr><td width="25%%">%s</td>\n<td>%s</td></tr>\n', link, txt )
}
ooindex.file <- file.path( Sys.getenv( "R_PACKAGE_DIR" ) , "html", "00Index.html" )
if( file.exists( ooindex.file ) ){
# read the 00Index.html file
ooindex <- readLines( ooindex.file )
bottom <- grep( "^</table>", ooindex)
bottom <- bottom[ length(bottom) ]
# add java specific things
txt <- paste(
'</table>',
h2( "Java" ),
'<table width="100%">',
line( link( "javadoc" , "../javadoc/index.html" ), "API documentation" ),
"</table>\n",
sep = "\n"
)
ooindex[ bottom ] <- txt
# write back
cat( ooindex, file = ooindex.file, sep = "\n" )
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.