walk2<-function(i,j,z){ ## Go through one by one
#da<-convertDF(z[[i]])
da<-as.data.frame(unlist(z[[i]][[j]]))
geom_polygon(data=da,aes(x=da[[1]],y=da[[2]]))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.