Nothing
readShapeSpatial <- function(fn, proj4string=CRS(as.character(NA)),
verbose=FALSE, repair=FALSE, IDvar=NULL, force_ring=FALSE,
delete_null_obj=FALSE, retrieve_ABS_null=FALSE) {
.Deprecated("", package="maptools", msg="shapelib support is provided by GDAL through the sf and terra packages among others")
shinfo <- getinfo.shape(fn)
if (verbose) print(shinfo)
type <- shinfo[[2]]
types <- c("Point", NA, "PolyLine", NA, "Polygon", NA, NA,
"MultiPoint", NA, NA, "PointZ", NA, "PolyLineZ", NA,
"PolygonZ", NA, NA, "MultiPointZ", NA, NA, "PointM", NA,
"PolyLineM", NA, "PolygonM", NA, NA, "MultiPointM", NA, NA,
"MultiPatch")
typeSh <- types[type]
if (typeSh == "Point" || typeSh == "PointZ" || typeSh == "MultiPoint") {
res <- readShapePoints(fn=fn, proj4string=proj4string,
verbose=verbose, repair=repair)
} else if (typeSh == "PolyLine" || typeSh == "PolyLineZ") {
res <- readShapeLines(fn=fn, proj4string=proj4string,
verbose=verbose, repair=repair)
} else if (typeSh == "Polygon" || typeSh == "PolygonZ") {
res <- readShapePoly(fn=fn, IDvar=IDvar, proj4string=proj4string,
verbose=verbose, repair=repair, force_ring=force_ring,
delete_null_obj=delete_null_obj,
retrieve_ABS_null=retrieve_ABS_null)
} else stop("File type cannot be read")
res
}
writeSpatialShape <- function(x, fn, factor2char = TRUE, max_nchar=254) {
.Deprecated("", package="maptools", msg="shapelib support is provided by GDAL through the sf and terra packages among others")
if (is(x, "SpatialPolygonsDataFrame")) {
writePolyShape(x=x, fn=fn, factor2char=factor2char,
max_nchar=max_nchar)
} else if (is(x, "SpatialLinesDataFrame")) {
writeLinesShape(x=x, fn=fn, factor2char=factor2char,
max_nchar=max_nchar)
} else if (is(x, "SpatialPointsDataFrame")) {
writePointsShape(x=x, fn=fn, factor2char=factor2char,
max_nchar=max_nchar)
} else {
stop("x is a", class(x), "object, not a compatible Spatial*DataFrame")
}
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.