PostgisAdapter <- setClass(
"PostgisAdapter"
)
#method loadPostgisData
setGeneric (name = "loadPostgisData",
def = function(object, layer) {
standardGeneric("loadPostgisData")
}
)
setMethod(f = "loadPostgisData", signature = "PostgisAdapter",
definition = function(object, layer) {
dsn <- paste ("PG:",
"dbname=",object@dataSourceInfo@dbname,
"host=",object@dataSourceInfo@host,
"port=",object@dataSourceInfo@port,
"user=",object@dataSourceInfo@username,
"password=",object@dataSourceInfo@password
)
print(dsn)
return(readOGR(dsn, layer))
}
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.