setClass("mapInfo",
representation(coordinates = "matrix",
projection = "optionalCharacter",
parameters = "optionalNumeric",
orientation = "optionalNumeric"))
# note order: long, lat
mapInfo <- function(coordinates, projection = NULL, parameters = NULL, orientation = NULL) {
new("mapInfo", coordinates = coordinates, projection = projection, parameters = parameters, orientation = orientation)
}
setClassUnion("optionalMapInfo", c("mapInfo","NULL"))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.