Nothing
HtmlTable <-
function(x ,tableDesign = "table-design",align = NULL,cellpadding = 4,rules = "cols"){
if(length(align) == 0|length(align)!= dim(x)[2]){
align <- rep("center",dim(x)[2])
}
.cols <- colnames(x)
x <- apply(x,2,as.character)
if(is.vector(x)){x <- t(as.matrix(x))}
htmlTableString <-paste( "<table rules = \"",rules,"\" id=\"",tableDesign,"\" class=\"tablesorter\" cellpadding = ",cellpadding,">",sep = "")
collapse <- function(...,sep = "\n"){x <- paste(unlist(list(...)),collapse = sep) ;return(x)}
htmlRow <- function(x,start ="<thead>" ,end = "</thead>",stringTag = "th",align ){
alignImqc <<- 1
x <- sapply(x,function(x,align){
ret <- paste("<", stringTag," align = '",align[alignImqc],'',"'>",as.character(x),"</", stringTag,">",sep = "")
alignImqc <<- alignImqc+1
return(ret)
},align = align)
x <- c(start,x,end)
}
header <-htmlRow(.cols,align = rep("center",dim(x)[2]))
rows <- apply(x,1,htmlRow,start = "<tr align = \"center\">",end = "</tr>", stringTag = "td", align = align)
htmlTable <- collapse(htmlTableString,header,"<tbody>",rows,"</tbody>","</table>")
return(htmlTable)
}
#hui <- HtmlTable(tr)
#FUNFINAL(htmloutPath,folder)
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.