read.cpchrt <-
function(file=file.choose()){
readLines(file)->a
a[12:length(a)]->a
do.call(rbind,strsplit(a,split="\\["))[,1]->b
strsplit(b,split=" +", perl=TRUE)->b1
apply(do.call(rbind,lapply(b1,function(x)x[2:5])),2,as.numeric)->chart
do.call(c,lapply(b1,function(x)paste(x[-(1:5)],collapse=" ")))->rownames(chart)
if(is.na(chart[nrow(chart),1])){chart[-nrow(chart),]->chart}
return(chart)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.