1# Generated by using Rcpp::compileAttributes() -> do not edit by hand 2# Generator token: 10BE3573-1514-4C36-9D1C-5A225CD40393 3 4CPL_get_bbox <- function(sf, depth = 0L) { 5 .Call('_sf_CPL_get_bbox', PACKAGE = 'sf', sf, depth) 6} 7 8CPL_gdal_init <- function() { 9 invisible(.Call('_sf_CPL_gdal_init', PACKAGE = 'sf')) 10} 11 12CPL_gdal_cleanup_all <- function() { 13 invisible(.Call('_sf_CPL_gdal_cleanup_all', PACKAGE = 'sf')) 14} 15 16CPL_gdal_version <- function(what = "RELEASE_NAME") { 17 .Call('_sf_CPL_gdal_version', PACKAGE = 'sf', what) 18} 19 20CPL_crs_parameters <- function(crs) { 21 .Call('_sf_CPL_crs_parameters', PACKAGE = 'sf', crs) 22} 23 24CPL_crs_equivalent <- function(crs1, crs2) { 25 .Call('_sf_CPL_crs_equivalent', PACKAGE = 'sf', crs1, crs2) 26} 27 28CPL_crs_from_input <- function(input) { 29 .Call('_sf_CPL_crs_from_input', PACKAGE = 'sf', input) 30} 31 32CPL_roundtrip <- function(sfc) { 33 .Call('_sf_CPL_roundtrip', PACKAGE = 'sf', sfc) 34} 35 36CPL_circularstring_to_linestring <- function(sfc) { 37 .Call('_sf_CPL_circularstring_to_linestring', PACKAGE = 'sf', sfc) 38} 39 40CPL_multisurface_to_multipolygon <- function(sfc) { 41 .Call('_sf_CPL_multisurface_to_multipolygon', PACKAGE = 'sf', sfc) 42} 43 44CPL_compoundcurve_to_linear <- function(sfc) { 45 .Call('_sf_CPL_compoundcurve_to_linear', PACKAGE = 'sf', sfc) 46} 47 48CPL_curve_to_linestring <- function(sfc) { 49 .Call('_sf_CPL_curve_to_linestring', PACKAGE = 'sf', sfc) 50} 51 52CPL_transform <- function(sfc, crs, AOI, pipeline, reverse = FALSE, desired_accuracy = -1.0, allow_ballpark = TRUE) { 53 .Call('_sf_CPL_transform', PACKAGE = 'sf', sfc, crs, AOI, pipeline, reverse, desired_accuracy, allow_ballpark) 54} 55 56CPL_wrap_dateline <- function(sfc, opt, quiet = TRUE) { 57 .Call('_sf_CPL_wrap_dateline', PACKAGE = 'sf', sfc, opt, quiet) 58} 59 60CPL_get_gdal_drivers <- function(dummy) { 61 .Call('_sf_CPL_get_gdal_drivers', PACKAGE = 'sf', dummy) 62} 63 64CPL_sfc_from_wkt <- function(wkt) { 65 .Call('_sf_CPL_sfc_from_wkt', PACKAGE = 'sf', wkt) 66} 67 68CPL_gdal_with_geos <- function() { 69 .Call('_sf_CPL_gdal_with_geos', PACKAGE = 'sf') 70} 71 72CPL_axis_order_authority_compliant <- function(authority_compliant) { 73 .Call('_sf_CPL_axis_order_authority_compliant', PACKAGE = 'sf', authority_compliant) 74} 75 76CPL_get_proj_search_paths <- function(paths) { 77 .Call('_sf_CPL_get_proj_search_paths', PACKAGE = 'sf', paths) 78} 79 80CPL_set_proj_search_paths <- function(paths) { 81 .Call('_sf_CPL_set_proj_search_paths', PACKAGE = 'sf', paths) 82} 83 84CPL_area <- function(sfc) { 85 .Call('_sf_CPL_area', PACKAGE = 'sf', sfc) 86} 87 88CPL_gdal_dimension <- function(sfc, NA_if_empty = TRUE) { 89 .Call('_sf_CPL_gdal_dimension', PACKAGE = 'sf', sfc, NA_if_empty) 90} 91 92CPL_length <- function(sfc) { 93 .Call('_sf_CPL_length', PACKAGE = 'sf', sfc) 94} 95 96CPL_gdal_segmentize <- function(sfc, dfMaxLength = 0.0) { 97 .Call('_sf_CPL_gdal_segmentize', PACKAGE = 'sf', sfc, dfMaxLength) 98} 99 100CPL_gdal_linestring_sample <- function(sfc, distLst) { 101 .Call('_sf_CPL_gdal_linestring_sample', PACKAGE = 'sf', sfc, distLst) 102} 103 104CPL_get_layers <- function(datasource, options, do_count = FALSE) { 105 .Call('_sf_CPL_get_layers', PACKAGE = 'sf', datasource, options, do_count) 106} 107 108CPL_read_ogr <- function(datasource, layer, query, options, quiet, toTypeUser, fid_column_name, drivers, wkt_filter, promote_to_multi = TRUE, int64_as_string = FALSE, dsn_exists = TRUE, dsn_isdb = FALSE, width = 80L) { 109 .Call('_sf_CPL_read_ogr', PACKAGE = 'sf', datasource, layer, query, options, quiet, toTypeUser, fid_column_name, drivers, wkt_filter, promote_to_multi, int64_as_string, dsn_exists, dsn_isdb, width) 110} 111 112CPL_gdalinfo <- function(obj, options, oo) { 113 .Call('_sf_CPL_gdalinfo', PACKAGE = 'sf', obj, options, oo) 114} 115 116CPL_gdalwarp <- function(src, dst, options, oo, doo, quiet = TRUE, overwrite = FALSE) { 117 .Call('_sf_CPL_gdalwarp', PACKAGE = 'sf', src, dst, options, oo, doo, quiet, overwrite) 118} 119 120CPL_gdalrasterize <- function(src, dst, options, oo, doo, overwrite = FALSE, quiet = TRUE) { 121 .Call('_sf_CPL_gdalrasterize', PACKAGE = 'sf', src, dst, options, oo, doo, overwrite, quiet) 122} 123 124CPL_gdaltranslate <- function(src, dst, options, oo, quiet = TRUE) { 125 .Call('_sf_CPL_gdaltranslate', PACKAGE = 'sf', src, dst, options, oo, quiet) 126} 127 128CPL_gdalvectortranslate <- function(src, dst, options, oo, doo, quiet = TRUE) { 129 .Call('_sf_CPL_gdalvectortranslate', PACKAGE = 'sf', src, dst, options, oo, doo, quiet) 130} 131 132CPL_gdalbuildvrt <- function(src, dst, options, oo, quiet = TRUE) { 133 .Call('_sf_CPL_gdalbuildvrt', PACKAGE = 'sf', src, dst, options, oo, quiet) 134} 135 136CPL_gdaldemprocessing <- function(src, dst, options, processing, colorfilename, oo, quiet = TRUE) { 137 .Call('_sf_CPL_gdaldemprocessing', PACKAGE = 'sf', src, dst, options, processing, colorfilename, oo, quiet) 138} 139 140CPL_gdalnearblack <- function(src, dst, options, oo, doo, quiet = TRUE) { 141 .Call('_sf_CPL_gdalnearblack', PACKAGE = 'sf', src, dst, options, oo, doo, quiet) 142} 143 144CPL_gdalgrid <- function(src, dst, options, oo, quiet = TRUE) { 145 .Call('_sf_CPL_gdalgrid', PACKAGE = 'sf', src, dst, options, oo, quiet) 146} 147 148CPL_gdalmdiminfo <- function(obj, options, oo) { 149 .Call('_sf_CPL_gdalmdiminfo', PACKAGE = 'sf', obj, options, oo) 150} 151 152CPL_gdalmdimtranslate <- function(src, dst, options, oo, quiet = TRUE) { 153 .Call('_sf_CPL_gdalmdimtranslate', PACKAGE = 'sf', src, dst, options, oo, quiet) 154} 155 156CPL_gdal_warper <- function(infile, outfile, options, oo, doo, quiet = TRUE) { 157 .Call('_sf_CPL_gdal_warper', PACKAGE = 'sf', infile, outfile, options, oo, doo, quiet) 158} 159 160CPL_write_ogr <- function(obj, dsn, layer, driver, dco, lco, geom, dim, fids, ConfigOptions, quiet, append, delete_dsn = FALSE, delete_layer = FALSE, write_geometries = TRUE, width = 80L) { 161 .Call('_sf_CPL_write_ogr', PACKAGE = 'sf', obj, dsn, layer, driver, dco, lco, geom, dim, fids, ConfigOptions, quiet, append, delete_dsn, delete_layer, write_geometries, width) 162} 163 164CPL_delete_ogr <- function(dsn, layer, driver, quiet = TRUE) { 165 .Call('_sf_CPL_delete_ogr', PACKAGE = 'sf', dsn, layer, driver, quiet) 166} 167 168CPL_geos_binop <- function(sfc0, sfc1, op, par = 0.0, pattern = "", prepared = FALSE) { 169 .Call('_sf_CPL_geos_binop', PACKAGE = 'sf', sfc0, sfc1, op, par, pattern, prepared) 170} 171 172CPL_geos_is_valid_reason <- function(sfc) { 173 .Call('_sf_CPL_geos_is_valid_reason', PACKAGE = 'sf', sfc) 174} 175 176CPL_geos_make_valid <- function(sfc) { 177 .Call('_sf_CPL_geos_make_valid', PACKAGE = 'sf', sfc) 178} 179 180CPL_geos_is_valid <- function(sfc, NA_on_exception = TRUE) { 181 .Call('_sf_CPL_geos_is_valid', PACKAGE = 'sf', sfc, NA_on_exception) 182} 183 184CPL_geos_is_simple <- function(sfc) { 185 .Call('_sf_CPL_geos_is_simple', PACKAGE = 'sf', sfc) 186} 187 188CPL_geos_is_empty <- function(sfc) { 189 .Call('_sf_CPL_geos_is_empty', PACKAGE = 'sf', sfc) 190} 191 192CPL_geos_normalize <- function(sfc) { 193 .Call('_sf_CPL_geos_normalize', PACKAGE = 'sf', sfc) 194} 195 196CPL_geos_union <- function(sfc, by_feature = FALSE, is_coverage = FALSE) { 197 .Call('_sf_CPL_geos_union', PACKAGE = 'sf', sfc, by_feature, is_coverage) 198} 199 200CPL_geos_snap <- function(sfc0, sfc1, tolerance) { 201 .Call('_sf_CPL_geos_snap', PACKAGE = 'sf', sfc0, sfc1, tolerance) 202} 203 204CPL_geos_op <- function(op, sfc, bufferDist, nQuadSegs, dTolerance, preserveTopology, bOnlyEdges = 1L, endCapStyle = 0L, joinStyle = 0L, mitreLimit = 1L, singleside = 0L) { 205 .Call('_sf_CPL_geos_op', PACKAGE = 'sf', op, sfc, bufferDist, nQuadSegs, dTolerance, preserveTopology, bOnlyEdges, endCapStyle, joinStyle, mitreLimit, singleside) 206} 207 208CPL_geos_voronoi <- function(sfc, env, dTolerance = 0.0, bOnlyEdges = 1L) { 209 .Call('_sf_CPL_geos_voronoi', PACKAGE = 'sf', sfc, env, dTolerance, bOnlyEdges) 210} 211 212CPL_geos_op2 <- function(op, sfcx, sfcy) { 213 .Call('_sf_CPL_geos_op2', PACKAGE = 'sf', op, sfcx, sfcy) 214} 215 216CPL_geos_version <- function(runtime = FALSE, capi = FALSE) { 217 .Call('_sf_CPL_geos_version', PACKAGE = 'sf', runtime, capi) 218} 219 220CPL_geos_dist <- function(sfc0, sfc1, which, par) { 221 .Call('_sf_CPL_geos_dist', PACKAGE = 'sf', sfc0, sfc1, which, par) 222} 223 224CPL_geos_nearest_feature <- function(sfc0, sfc1) { 225 .Call('_sf_CPL_geos_nearest_feature', PACKAGE = 'sf', sfc0, sfc1) 226} 227 228CPL_geos_nearest_points <- function(sfc0, sfc1, pairwise) { 229 .Call('_sf_CPL_geos_nearest_points', PACKAGE = 'sf', sfc0, sfc1, pairwise) 230} 231 232CPL_transpose_sparse_incidence <- function(m, n) { 233 .Call('_sf_CPL_transpose_sparse_incidence', PACKAGE = 'sf', m, n) 234} 235 236CPL_nary_difference <- function(sfc) { 237 .Call('_sf_CPL_nary_difference', PACKAGE = 'sf', sfc) 238} 239 240CPL_nary_intersection <- function(sfc) { 241 .Call('_sf_CPL_nary_intersection', PACKAGE = 'sf', sfc) 242} 243 244CPL_hex_to_raw <- function(cx) { 245 .Call('_sf_CPL_hex_to_raw', PACKAGE = 'sf', cx) 246} 247 248CPL_raw_to_hex <- function(raw) { 249 .Call('_sf_CPL_raw_to_hex', PACKAGE = 'sf', raw) 250} 251 252read_mdim <- function(file, array_names, oo) { 253 .Call('_sf_read_mdim', PACKAGE = 'sf', file, array_names, oo) 254} 255 256write_mdim <- function(x, file, dimensions, units) { 257 .Call('_sf_write_mdim', PACKAGE = 'sf', x, file, dimensions, units) 258} 259 260opp_sfc <- function(geom, value, mult, crs) { 261 .Call('_sf_opp_sfc', PACKAGE = 'sf', geom, value, mult, crs) 262} 263 264normalize_sfc <- function(geom, min, range, crs) { 265 .Call('_sf_normalize_sfc', PACKAGE = 'sf', geom, min, range, crs) 266} 267 268CPL_polygonize <- function(raster, mask_name, raster_driver, vector_driver, vector_dsn, options, iPixValField, contour_options, use_contours = FALSE, use_integer = TRUE) { 269 .Call('_sf_CPL_polygonize', PACKAGE = 'sf', raster, mask_name, raster_driver, vector_driver, vector_dsn, options, iPixValField, contour_options, use_contours, use_integer) 270} 271 272CPL_rasterize <- function(raster, raster_driver, sfc, values, options, NA_value) { 273 .Call('_sf_CPL_rasterize', PACKAGE = 'sf', raster, raster_driver, sfc, values, options, NA_value) 274} 275 276CPL_proj_h <- function(b = FALSE) { 277 .Call('_sf_CPL_proj_h', PACKAGE = 'sf', b) 278} 279 280CPL_get_pipelines <- function(crs, authority, AOI, Use, grid_availability, accuracy = -1.0, strict_containment = FALSE, axis_order_auth_compl = FALSE) { 281 .Call('_sf_CPL_get_pipelines', PACKAGE = 'sf', crs, authority, AOI, Use, grid_availability, accuracy, strict_containment, axis_order_auth_compl) 282} 283 284CPL_get_data_dir <- function(b = FALSE) { 285 .Call('_sf_CPL_get_data_dir', PACKAGE = 'sf', b) 286} 287 288CPL_is_network_enabled <- function(b = FALSE) { 289 .Call('_sf_CPL_is_network_enabled', PACKAGE = 'sf', b) 290} 291 292CPL_enable_network <- function(url, enable = TRUE) { 293 .Call('_sf_CPL_enable_network', PACKAGE = 'sf', url, enable) 294} 295 296CPL_set_data_dir <- function(data_dir) { 297 .Call('_sf_CPL_set_data_dir', PACKAGE = 'sf', data_dir) 298} 299 300CPL_use_proj4_init_rules <- function(v) { 301 .Call('_sf_CPL_use_proj4_init_rules', PACKAGE = 'sf', v) 302} 303 304CPL_proj_version <- function(b = FALSE) { 305 .Call('_sf_CPL_proj_version', PACKAGE = 'sf', b) 306} 307 308CPL_proj_is_valid <- function(proj4string) { 309 .Call('_sf_CPL_proj_is_valid', PACKAGE = 'sf', proj4string) 310} 311 312CPL_have_datum_files <- function(foo) { 313 .Call('_sf_CPL_have_datum_files', PACKAGE = 'sf', foo) 314} 315 316CPL_proj_direct <- function(from_to, pts, keep, warn = TRUE, authority_compliant = FALSE) { 317 .Call('_sf_CPL_proj_direct', PACKAGE = 'sf', from_to, pts, keep, warn, authority_compliant) 318} 319 320CPL_proj_info <- function(type) { 321 .Call('_sf_CPL_proj_info', PACKAGE = 'sf', type) 322} 323 324CPL_xy2sfc <- function(cc, dim, to_points, which) { 325 .Call('_sf_CPL_xy2sfc', PACKAGE = 'sf', cc, dim, to_points, which) 326} 327 328points_cpp <- function(pts, gdim = "XY") { 329 .Call('_sf_points_cpp', PACKAGE = 'sf', pts, gdim) 330} 331 332CPL_signed_area <- function(pts) { 333 .Call('_sf_CPL_signed_area', PACKAGE = 'sf', pts) 334} 335 336CPL_get_metadata <- function(obj, domain_item, options) { 337 .Call('_sf_CPL_get_metadata', PACKAGE = 'sf', obj, domain_item, options) 338} 339 340CPL_get_crs <- function(obj, options) { 341 .Call('_sf_CPL_get_crs', PACKAGE = 'sf', obj, options) 342} 343 344CPL_inv_geotransform <- function(gt_r) { 345 .Call('_sf_CPL_inv_geotransform', PACKAGE = 'sf', gt_r) 346} 347 348CPL_read_gdal <- function(fname, options, driver, read_data, NA_value, RasterIO_parameters) { 349 .Call('_sf_CPL_read_gdal', PACKAGE = 'sf', fname, options, driver, read_data, NA_value, RasterIO_parameters) 350} 351 352CPL_write_gdal <- function(x, fname, driver, options, Type, dims, from, gt, p4s, na_val, create = TRUE, only_create = FALSE) { 353 invisible(.Call('_sf_CPL_write_gdal', PACKAGE = 'sf', x, fname, driver, options, Type, dims, from, gt, p4s, na_val, create, only_create)) 354} 355 356CPL_extract <- function(input, xy, interpolate = FALSE) { 357 .Call('_sf_CPL_extract', PACKAGE = 'sf', input, xy, interpolate) 358} 359 360CPL_read_wkb <- function(wkb_list, EWKB = FALSE, spatialite = FALSE) { 361 .Call('_sf_CPL_read_wkb', PACKAGE = 'sf', wkb_list, EWKB, spatialite) 362} 363 364CPL_write_wkb <- function(sfc, EWKB = FALSE) { 365 .Call('_sf_CPL_write_wkb', PACKAGE = 'sf', sfc, EWKB) 366} 367 368CPL_get_z_range <- function(sf, depth) { 369 .Call('_sf_CPL_get_z_range', PACKAGE = 'sf', sf, depth) 370} 371 372CPL_get_m_range <- function(sf, depth) { 373 .Call('_sf_CPL_get_m_range', PACKAGE = 'sf', sf, depth) 374} 375 376# Register entry points for exported C++ functions 377methods::setLoadAction(function(ns) { 378 .Call('_sf_RcppExport_registerCCallable', PACKAGE = 'sf') 379}) 380