| /dports/math/R-cran-sf/sf/tests/ |
| H A D | wkb.R | 2 round_trip = function(x, EWKB = FALSE, pureR = FALSE) { argument
5 wkb = st_as_binary(x, EWKB = EWKB, pureR = pureR)
8 y = st_as_sfc(wkb, EWKB = EWKB, pureR = pureR)
42 sapply(list(p3, p3m, p4, p2, ls, mp, pl1, mp1, ml1, gc), round_trip, EWKB = FALSE, pureR = TRUE) nameattr
44 sapply(list(p3, p3m, p4, p2, ls, mp, pl1, mp1, ml1, gc), round_trip, EWKB = TRUE, pureR = TRUE) nameattr
|
| H A D | empty.R | 80 st_as_sfc(st_as_binary(e1, pureR = TRUE))
81 st_as_sfc(st_as_binary(e1, pureR = FALSE))
82 st_as_sfc(st_as_binary(e2, pureR = FALSE))
83 st_as_sfc(st_as_binary(e3, pureR = FALSE))
84 st_as_sfc(st_as_binary(e4, pureR = FALSE))
85 st_as_sfc(st_as_binary(e1, pureR = FALSE))
|
| H A D | wkb.Rout.save | 19 > round_trip = function(x, EWKB = FALSE, pureR = FALSE) {
22 + wkb = st_as_binary(x, EWKB = EWKB, pureR = pureR)
25 + y = st_as_sfc(wkb, EWKB = EWKB, pureR = pureR)
60 > sapply(list(p3, p3m, p4, p2, ls, mp, pl1, mp1, ml1, gc), round_trip, EWKB = FALSE, pureR = TRUE)
64 > sapply(list(p3, p3m, p4, p2, ls, mp, pl1, mp1, ml1, gc), round_trip, EWKB = TRUE, pureR = TRUE)
|
| H A D | empty.Rout.save | 180 > st_as_sfc(st_as_binary(e1, pureR = TRUE))
192 > st_as_sfc(st_as_binary(e1, pureR = FALSE))
204 > st_as_sfc(st_as_binary(e2, pureR = FALSE))
217 > st_as_sfc(st_as_binary(e3, pureR = FALSE))
230 > st_as_sfc(st_as_binary(e4, pureR = FALSE))
244 > st_as_sfc(st_as_binary(e1, pureR = FALSE))
|
| /dports/math/R-cran-sf/sf/R/ |
| H A D | wkb.R | 35 st_as_sfc.WKB = function(x, ..., EWKB = FALSE, spatialite = FALSE, pureR = FALSE, crs = NA_crs_) { argument
38 if (spatialite && pureR)
41 x <- if (pureR)
49 ret = if (pureR)
250 st_as_binary.sfc = function(x, ..., EWKB = FALSE, endian = .Platform$endian, pureR = FALSE, argument
253 if (pureR && precision != 0.0)
255 ret = if (pureR)
256 structure(lapply(x, st_as_binary.sfg, EWKB = EWKB, pureR = pureR, endian = endian), class = "WKB")
290 st_as_binary.sfg = function(x, ..., endian = .Platform$endian, EWKB = FALSE, pureR = FALSE, argument
294 if (! pureR)
[all …]
|
| H A D | db.R | 501 st_as_binary(x, EWKB = TRUE, hex = TRUE, pureR = FALSE, srid = epsg(st_crs(x)))
572 pureR = FALSE, crs = NA_crs_) { # nocov start argument
573 st_as_sfc.WKB(x, ..., EWKB = EWKB, spatiallite = spatialite, pureR = pureR, crs = crs)
|
| /dports/math/R-cran-sf/sf/demo/ |
| H A D | bm_wkb.R | 30 system.time(sf::st_as_sfc(mls, pureR = TRUE)) globalVar
34 system.time(sf::st_as_sfc(ls1, pureR = TRUE)) globalVar
38 system.time(sf::st_as_sfc(ls2, pureR = TRUE)) globalVar
|
| /dports/math/R-cran-sf/sf/tests/testthat/ |
| H A D | test_wkb.R | 38 expect_identical(st_as_sfc(x, EWKB = TRUE, pureR = TRUE), st_as_sfc(y, EWKB = TRUE, pureR = TRUE))
39 expect_identical(st_as_sfc(x, EWKB = TRUE), st_as_sfc(y, EWKB = TRUE, pureR = TRUE))
|
| H A D | test_sfc.R | 38 expect_identical(gc, st_as_sfc(structure(list(r), class = "WKB"), pureR = T)[[1]])
39 expect_identical(gc, st_as_sfc(structure(list(r), class = "WKB"), pureR = T, EWKB = TRUE)[[1]])
|
| /dports/math/R-cran-sf/sf/man/ |
| H A D | st_as_binary.Rd | 16 pureR = FALSE,
26 pureR = FALSE,
40 \item{pureR}{logical; use pure R solution, or C++?}
|
| H A D | st_as_sfc.Rd | 28 pureR = FALSE,
43 pureR = FALSE,
83 \item{pureR}{logical; if TRUE, use only R code, if FALSE, use compiled (C++) code; use TRUE when th…
|