# strip attributes in nested list
strip<-function(nl){
attributes(nl)<-attributes(nl)[ names(attributes(nl)) %in% "names"]
if(is.list(nl)){
nl<-lapply(nl, strip)
}
nl
}
attributes(strip(tr))
attributes(strip(tr)[[1]])
attributes(strip(tr)[[c(1,1)]])
str<-strip(tr)
save(str, file="../str")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.