#' @importFrom RODBC sqlQuery manifoldRasterCRS <- function(connection, componentname) ## this should work but does not ##qu <- sprintf('SELECT TOP 1 CoordSysToWKT(CoordSys(" # TOP 1 CCoordSys(NewPoint([Easting (I)], [Northing (I)])) qu <- sprintf('OPTIONS COORDSYS("[ #print(qu) RODBC::sqlQuery(connection, qu, stringsAsFactors = FALSE)$CRS
1 | wktCRS2proj4(CRS)
|
CRS |
coordinate reference system in WKT form |
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.