fixobject <- function(myObject){
if("recordedplot" %in% class(myObject)){
library(grid);
for(i in 1:length(myObject[[1]])) {
if( "NativeSymbolInfo" %in% class(myObject[[1]][[i]][[2]][[1]]) ){
myObject[[1]][[i]][[2]][[1]] <- getNativeSymbolInfo(myObject[[1]][[i]][[2]][[1]]$name);
}
}
}
return(myObject);
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.