#' walk3
#'
#' Given index \code{i}, \code{j}, \code{k} and the coordinates list \code{z}, generate the corresponding ggplot aesthetics
#'
#' @param i, the first index
#' @param j, the second index
#' @param k, the third index
#' @param z, the coordinates list extracted from dataset
#' @return the corresponding ggplot aesthetics including geo coordinates
#' @examples
#' x<-ICU$new(land="world-2",date="1984-11") ## New class
#' z<-x$guo$Countries$coordinates
#' ggplot()+walk3(116,1,1,z) ## the first area of Jordan
#'
walk3<-function(i,j,k,z){ ## Go through one by one
#da<-convertDF(z[[i]])
da<-as.data.frame(unlist(z[[i]][[j]][[k]]))
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.