#' calcSurface
#'
#' Calculates country surface
#'
#' @return Surface by country
#' @author Antoine Levesque
#' @seealso \code{\link{convertWDI}}
calcSurface <- function() {
data <- readSource("WDI", subtype = "AG.SRF.TOTL.K2")[,2010,]
return(list(x=data,weight=NULL,unit="km2",description="Surface by country"))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.