parse.date <- function(obj){
varname <- names(obj);
values <- sapply(obj[[1]]$values, parsevector);
as.POSIXct(strptime(values, format="%Y-%m-%d %H:%M:%S"));
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.