#!/usr/bin/env R
#
# This file is part of peakAnalysis,
# http://github.com/alexjgriffith/alpha-score/,
# and is Copyright (C) University of Ottawa, 2015. It is Licensed under
# the three-clause BSD License; see LICENSE.txt.
# Author :Alexander Griffith
# Contact: griffitaj@gmail.com
#
#' Build Anotations
#' @export
buildAnotations<-function(...){
value<-c(...)
l=length(value)
br=""
if(modulous(l,2)==0)
collect(seq(from=1,to=l,by=2),function(x)
{collapse(" ",value[x],'="',value[x+1],'"')})}
#' htmlTags
#' @export
htmlTags<-function(tag,value=FALSE,anotations=FALSE){
closeT<-"/>"
an<-""
if(FALSE != anotations[1])
an<-lcollapse(anotations)
if(FALSE != value[1])
closeT<-collapse(an,">",lcollapse(value),"</",tag,">")
else
closeT<-collapse(an,closeT)
collapse("<",tag,closeT)}
#' html Doc
#' A minamilistic compelation of functions for the generation of html
#' @examples
#' title<-htmlTags("title", "Test Page")
#' head<-htmlTags("head",title)
#' body<-htmlTags("body",htmlTags("p","This is the test page."))
#' htmlDoc(head,body)
#' @export
htmlDoc<-function(...,doctype="<!DOCTYPE html>",tag="html"){
html<-htmlTags(tag,collapse(...))
collapse(doctype,html)}
#' html Table
#' @export
htmlTable<-function(x,...){
br<-""
shape<-dim(x)
for(i in seq(shape[1]))
{
tr<-""
for(j in seq(shape[2]))
tr<-collapse(tr,htmlTags("td",x[i,j]))
br<-collapse(br,htmlTags("tr",tr))
}
htmlTags("table",br,...)}
#' html Image
#' @export
htmlImage<-function(location,...){
htmlTags("img",anotations=c(buildAnotations("src",location,...)))}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.