f <- file.path(dp, "Data\\World\\Low Resolution\\Continents and Oceans lowres.map") library(manifoldr) library(rbenchmark) benchmark(readmfd = manifoldr:::readmfd(f, "Drawing"), spatial = manifoldr:::readmfd(f, "Drawing"), sf = manifoldr::Drawing(f, "Drawing"), replications = 4) a <- profr(manifoldr:::readmfd(f, "Drawing"))
system.time(tab <- Drawing("C:/data/cadastre/list_parcels_hobart.map")) # user system elapsed # 7.59 1.03 8.76 system.time(x <- rgdal::readOGR("C:/data/cadastre/shp", "list_parcels_hobart")) #OGR data source with driver: ESRI Shapefile #Source: "C:/data/cadastre/shp", layer: "list_parcels_hobart" #with 33611 features #It has 19 fields #Integer64 fields read as strings: CID PID POT_PID # user system elapsed # 19.22 3.13 22.95 system.time(x <- rgdal::readOGR("C:/data/cadastre/tab", "list_parcels_hobart")) #OGR data source with driver: MapInfo File #Source: "C:/data/cadastre/tab", layer: "list_parcels_hobart" #with 33611 features #It has 19 fields # user system elapsed # 17.57 7.47 25.40
f <- file.path(dp, "Data\\World\\Medium Resolution\\World Provinces.map") system.time(x <- manifoldr:::readmfd(f, "Provinces")) # user system elapsed # 23.02 0.66 24.24 # system.time(x <- manifoldr:::readmfd(f, "Provinces", spatial = TRUE)) Error in if (byteOrder == as.raw(1L)) { : argument is of length zero
```r
f <- "..Data\World\High Resolution\Countries hires.map" system.time(x <- manifoldr:::readmfd(f, "Countries"))
format(object.size(x), unit = "Mb")
`
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.