[
{
"path": ".Rbuildignore",
"content": ".travis.yml\nPROPOSAL.md\nconfig.log\nconfig.status\nTODO\n^windows\n^appveyor\\.yml$\n^.*\\.Rproj$\n^\\.Rproj\\.user$\nblog\nREADME.md\nCONDUCT.md\nrdev\n^codecov\\.yml$\nhub\ntic.R\nNOTES\n^\\.ccache$\n^\\.github$\n^tic\\.R$\nvignettes.awk\n^\\.gitattributes$\n_pkgdown.yml\ndocs\npkgdown\nchanges0.txt\nchanges1.txt\nchanges2.txt\nchanges3.txt\nchanges.txt\naware.patch\n"
},
{
"path": ".gitattributes",
"content": "* text=auto\ndata/* binary\nsrc/* text=lf\nR/* text=lf\n\n# Force the following filetypes to have unix eols, so Windows does not break them\nconfigure.ac text eol=lf\n"
},
{
"path": ".github/.gitignore",
"content": "*.html\n"
},
{
"path": ".github/ISSUE_TEMPLATE/bug_report.md",
"content": "---\nname: Bug report\nabout: Standard bug report template\ntitle: ''\nlabels: ''\nassignees: ''\n\n---\n\n**Describe the bug**\nA clear and concise description of what the bug is.\n\n**To Reproduce**\nIt is easier for developers to help if they can reproduce the problem. \nCould you please provide a minimal reproducible example?\n\n**If reporting a change from previous versions**\n\nPlease read https://cran.r-project.org/web/packages/sf/news/news.html first.\n\n**Additional context**\nAdd any other context about the problem here.\n\n\nPaste the output of your `sessionInfo()` and `sf::sf_extSoftVersion()`\n \n"
},
{
"path": ".github/ISSUE_TEMPLATE/other_issue.md",
"content": "---\nname: Other issue\nabout: Blank template for other issue types\ntitle: ''\nlabels: ''\nassignees: ''\n\n---\n\n\n"
},
{
"path": ".github/workflows/R-CMD-check.yaml",
"content": "# Workflow derived from https://github.com/r-lib/actions/tree/v2/examples\n# Need help debugging build failures? Start at https://github.com/r-lib/actions#where-to-find-help\non:\n push:\n branches: [main, master]\n pull_request:\n branches: [main, master]\n schedule:\n - cron: \"0 4 * * *\"\n\nname: R-CMD-check\n\njobs:\n R-CMD-check:\n runs-on: ${{ matrix.config.os }}\n\n name: ${{ matrix.config.os }} (${{ matrix.config.r }})\n\n strategy:\n fail-fast: false\n matrix:\n config:\n - {os: macos-latest, r: 'release'}\n - {os: windows-latest, r: 'release'}\n - {os: ubuntu-latest, r: 'devel', http-user-agent: 'release'}\n - {os: ubuntu-latest, r: 'release'}\n - {os: ubuntu-latest, r: 'oldrel-1'}\n - {os: ubuntu-latest, r: 'oldrel-2'}\n\n env:\n GITHUB_PAT: ${{ secrets.GITHUB_TOKEN }}\n R_KEEP_PKG_SOURCE: yes\n\n steps:\n - uses: actions/checkout@v6\n\n - uses: r-lib/actions/setup-pandoc@v2\n\n - uses: r-lib/actions/setup-r@v2\n with:\n r-version: ${{ matrix.config.r }}\n http-user-agent: ${{ matrix.config.http-user-agent }}\n use-public-rspm: true\n\n - name: Install macOS system dependencies\n if: runner.os == 'macos'\n run: brew install gdal proj\n\n - uses: r-lib/actions/setup-r-dependencies@v2\n with:\n extra-packages: any::rcmdcheck\n needs: check\n\n - uses: r-lib/actions/check-r-package@v2\n with:\n upload-snapshots: true\n"
},
{
"path": ".github/workflows/pkgdown.yaml",
"content": "# Workflow derived from https://github.com/r-lib/actions/tree/v2/examples\n# Need help debugging build failures? Start at https://github.com/r-lib/actions#where-to-find-help\non:\n push:\n branches: [main, master]\n pull_request:\n branches: [main, master]\n release:\n types: [published]\n workflow_dispatch:\n\nname: pkgdown\n\npermissions: read-all\n\njobs:\n pkgdown:\n runs-on: ubuntu-latest\n # Only restrict concurrency for non-PR jobs\n concurrency:\n group: pkgdown-${{ github.event_name != 'pull_request' || github.run_id }}\n env:\n GITHUB_PAT: ${{ secrets.GITHUB_TOKEN }}\n permissions:\n contents: write\n steps:\n - uses: actions/checkout@v6\n\n - uses: r-lib/actions/setup-pandoc@v2\n\n - uses: r-lib/actions/setup-r@v2\n with:\n use-public-rspm: true\n\n - uses: r-lib/actions/setup-r-dependencies@v2\n with:\n extra-packages: any::pkgdown, local::.\n needs: website\n\n - name: Build site\n run: pkgdown::build_site_github_pages(new_process = FALSE, install = FALSE)\n shell: Rscript {0}\n\n - name: Deploy to GitHub pages 🚀\n if: github.event_name != 'pull_request'\n uses: JamesIves/github-pages-deploy-action@v4.8.0\n with:\n clean: false\n branch: gh-pages\n folder: docs\n"
},
{
"path": ".github/workflows/rhub.yaml",
"content": "# R-hub's generic GitHub Actions workflow file. It's canonical location is at\n# https://github.com/r-hub/actions/blob/v1/workflows/rhub.yaml\n# You can update this file to a newer version using the rhub2 package:\n#\n# rhub::rhub_setup()\n#\n# It is unlikely that you need to modify this file manually.\n\nname: R-hub\nrun-name: \"${{ github.event.inputs.id }}: ${{ github.event.inputs.name || format('Manually run by {0}', github.triggering_actor) }}\"\n\non:\n workflow_dispatch:\n inputs:\n config:\n description: 'A comma separated list of R-hub platforms to use.'\n type: string\n default: 'linux,windows,macos'\n name:\n description: 'Run name. You can leave this empty now.'\n type: string\n id:\n description: 'Unique ID. You can leave this empty now.'\n type: string\n\njobs:\n\n setup:\n runs-on: ubuntu-latest\n outputs:\n containers: ${{ steps.rhub-setup.outputs.containers }}\n platforms: ${{ steps.rhub-setup.outputs.platforms }}\n\n steps:\n # NO NEED TO CHECKOUT HERE\n - uses: r-hub/actions/setup@v1\n with:\n config: ${{ github.event.inputs.config }}\n id: rhub-setup\n\n linux-containers:\n needs: setup\n if: ${{ needs.setup.outputs.containers != '[]' }}\n runs-on: ubuntu-latest\n name: ${{ matrix.config.label }}\n strategy:\n fail-fast: false\n matrix:\n config: ${{ fromJson(needs.setup.outputs.containers) }}\n container:\n image: ${{ matrix.config.container }}\n\n steps:\n - uses: r-hub/actions/checkout@v1\n - uses: r-hub/actions/platform-info@v1\n with:\n token: ${{ secrets.RHUB_TOKEN }}\n job-config: ${{ matrix.config.job-config }}\n - uses: r-hub/actions/setup-deps@v1\n with:\n token: ${{ secrets.RHUB_TOKEN }}\n job-config: ${{ matrix.config.job-config }}\n - uses: r-hub/actions/run-check@v1\n with:\n token: ${{ secrets.RHUB_TOKEN }}\n job-config: ${{ matrix.config.job-config }}\n\n other-platforms:\n needs: setup\n if: ${{ needs.setup.outputs.platforms != '[]' }}\n runs-on: ${{ matrix.config.os }}\n name: ${{ matrix.config.label }}\n strategy:\n fail-fast: false\n matrix:\n config: ${{ fromJson(needs.setup.outputs.platforms) }}\n\n steps:\n - uses: r-hub/actions/checkout@v1\n - uses: r-hub/actions/setup-r@v1\n with:\n job-config: ${{ matrix.config.job-config }}\n token: ${{ secrets.RHUB_TOKEN }}\n - uses: r-hub/actions/platform-info@v1\n with:\n token: ${{ secrets.RHUB_TOKEN }}\n job-config: ${{ matrix.config.job-config }}\n - uses: r-hub/actions/setup-deps@v1\n with:\n job-config: ${{ matrix.config.job-config }}\n token: ${{ secrets.RHUB_TOKEN }}\n - uses: r-hub/actions/run-check@v1\n with:\n job-config: ${{ matrix.config.job-config }}\n token: ${{ secrets.RHUB_TOKEN }}\n"
},
{
"path": ".github/workflows/test-coverage.yaml",
"content": "# Workflow derived from https://github.com/r-lib/actions/tree/v2/examples\n# Need help debugging build failures? Start at https://github.com/r-lib/actions#where-to-find-help\non:\n push:\n branches: [main, master]\n pull_request:\n branches: [main, master]\n\nname: test-coverage\n\njobs:\n test-coverage:\n runs-on: ubuntu-latest\n env:\n GITHUB_PAT: ${{ secrets.GITHUB_TOKEN }}\n\n steps:\n - uses: actions/checkout@v4\n\n - uses: r-lib/actions/setup-r@v2\n with:\n use-public-rspm: true\n\n - uses: r-lib/actions/setup-r-dependencies@v2\n with:\n extra-packages: any::covr\n needs: coverage\n\n - name: Test coverage\n run: |\n covr::codecov(\n quiet = FALSE,\n clean = FALSE,\n install_path = file.path(normalizePath(Sys.getenv(\"RUNNER_TEMP\"), winslash = \"/\"), \"package\")\n )\n shell: Rscript {0}\n\n - name: Show testthat output\n if: always()\n run: |\n ## --------------------------------------------------------------------\n find ${{ runner.temp }}/package -name 'testthat.Rout*' -exec cat '{}' \\; || true\n shell: bash\n\n - name: Upload test results\n if: failure()\n uses: actions/upload-artifact@v4\n with:\n name: coverage-test-failures\n path: ${{ runner.temp }}/package\n"
},
{
"path": ".github/workflows/tic-db.yml",
"content": "## tic GitHub Actions template: linux\n## revision date: 2021-06-27\n# [Custom header]\non:\n workflow_dispatch:\n push:\n branches:\n - main\n pull_request:\n # for now, CRON jobs only run on the default branch of the repo (i.e. usually on master)\n schedule:\n # * is a special character in YAML so you have to quote this string\n - cron: \"0 4 * * *\"\n\nname: tic-db\n\njobs:\n all:\n runs-on: ${{ matrix.config.os }}\n\n name: ${{ matrix.config.os }} (${{ matrix.config.r }})\n\n strategy:\n fail-fast: false\n matrix:\n config:\n # use a different tic template type if you do not want to build on all listed platforms\n - { os: ubuntu-latest, r: \"release\" }\n\n services:\n postgres:\n image: kartoza/postgis\n ports:\n - 5432:5432\n\n env:\n # otherwise remotes::fun() errors cause the build to fail. Example: Unavailability of binaries\n R_REMOTES_NO_ERRORS_FROM_WARNINGS: true\n CRAN: ${{ matrix.config.cran }}\n # make sure to run `tic::use_ghactions_deploy()` to set up deployment\n TIC_DEPLOY_KEY: ${{ secrets.TIC_DEPLOY_KEY }}\n # prevent rgl issues because no X11 display is available\n RGL_USE_NULL: true\n # if you use bookdown or blogdown, replace \"PKGDOWN\" by the respective\n # capitalized term. This also might need to be done in tic.R\n BUILD_PKGDOWN: ${{ matrix.config.pkgdown }}\n # macOS >= 10.15.4 linking\n SDKROOT: /Library/Developer/CommandLineTools/SDKs/MacOSX.sdk\n # use GITHUB_TOKEN from GitHub to workaround rate limits in {remotes}\n GITHUB_PAT: ${{ secrets.GITHUB_TOKEN }}\n\n steps:\n - uses: actions/checkout@v4\n\n - uses: r-lib/actions/setup-r@v2\n with:\n r-version: ${{ matrix.config.r }}\n Ncpus: 4\n\n # LaTeX. Installation time:\n # Linux: ~ 1 min\n # macOS: ~ 1 min 30s\n # Windows: never finishes\n - uses: r-lib/actions/setup-tinytex@v2\n if: matrix.config.latex == 'true'\n\n - uses: r-lib/actions/setup-pandoc@v2\n\n # set date/week for use in cache creation\n # https://github.community/t5/GitHub-Actions/How-to-set-and-access-a-Workflow-variable/m-p/42970\n # - cache R packages daily\n# - name: \"[Cache] Prepare daily timestamp for cache\"\n# if: runner.os != 'Windows'\n# id: date\n# run: echo \"::set-output name=date::$(date '+%d-%m')\"\n\n# - name: \"[Cache] Cache R packages\"\n# if: runner.os != 'Windows'\n# uses: pat-s/always-upload-cache@v2\n# with:\n# path: ${{ env.R_LIBS_USER }}\n# key: ${{ runner.os }}-r-${{ matrix.config.r }}-${{steps.date.outputs.date}}\n# restore-keys: ${{ runner.os }}-r-${{ matrix.config.r }}-${{steps.date.outputs.date}}\n\n - name: \"[Stage] [Linux] Install required system libs\"\n if: runner.os == 'Linux'\n run: sudo apt install libcurl4-openssl-dev libgit2-dev\n\n # for some strange Windows reason this step and the next one need to be decoupled\n - name: \"[Stage] Prepare\"\n run: |\n Rscript -e \"if (!requireNamespace('remotes')) install.packages('remotes', type = 'source')\"\n Rscript -e \"if (getRversion() < '3.2' && !requireNamespace('curl')) install.packages('curl', type = 'source')\"\n\n - name: \"[Custom block] [Linux] Install spatial libraries\"\n if: runner.os == 'Linux'\n run: sudo apt-get install libgdal-dev libproj-dev libgeos-dev libudunits2-dev\n\n - name: \"[Custom block] [macOS] Install spatial libraries\"\n if: runner.os == 'macOS'\n run: |\n # conflicts with gfortran from r-lib/actions when linking gcc\n rm '/usr/local/bin/gfortran'\n brew install pkg-config gdal proj geos\n\n - name: \"[Stage] [macOS] Install libgit2\"\n if: runner.os == 'macOS'\n run: brew install libgit2\n\n - name: \"[Stage] [macOS] Install system libs for pkgdown\"\n if: runner.os == 'macOS' && matrix.config.pkgdown != ''\n run: brew install harfbuzz fribidi\n\n - name: \"[Stage] [Linux] Install system libs for pkgdown\"\n if: runner.os == 'Linux' && matrix.config.pkgdown != ''\n run: sudo apt install libharfbuzz-dev libfribidi-dev\n\n # Try to automatically check for system dependencies and install them\n # Note: this might not catch all required system libs and manual action might be needed\n - name: \"[Stage] [Linux] Install linux system dependencies\"\n if: runner.os == 'Linux'\n run: |\n while read -r cmd\n do\n eval sudo $cmd\n done < <(Rscript -e 'writeLines(remotes::system_requirements(\"ubuntu\", \"20.04\"))')\n\n - name: \"[Stage] Install\"\n if: matrix.config.os != 'macOS-latest' || matrix.config.r != 'devel'\n run: Rscript -e \"remotes::install_github('ropensci/tic')\" -e \"print(tic::dsl_load())\" -e \"tic::prepare_all_stages()\" -e \"tic::before_install()\" -e \"tic::install()\"\n\n # macOS devel needs its own stage because we need to work with an option to suppress the usage of binaries\n - name: \"[Stage] Prepare & Install (macOS-devel)\"\n if: matrix.config.os == 'macOS-latest' && matrix.config.r == 'devel'\n run: |\n echo -e 'options(Ncpus = 4, pkgType = \"source\", repos = structure(c(CRAN = \"https://cloud.r-project.org/\")))' > $HOME/.Rprofile\n Rscript -e \"remotes::install_github('ropensci/tic')\" -e \"print(tic::dsl_load())\" -e \"tic::prepare_all_stages()\" -e \"tic::before_install()\" -e \"tic::install()\"\n\n - name: \"[Stage] Script\"\n run: Rscript -e 'tic::script()'\n\n - name: \"[Stage] After Success\"\n if: matrix.config.os == 'macOS-latest' && matrix.config.r == 'release'\n run: Rscript -e \"tic::after_success()\"\n\n - name: \"[Stage] Upload R CMD check artifacts\"\n if: failure()\n uses: actions/upload-artifact@v4\n with:\n name: ${{ runner.os }}-r${{ matrix.config.r }}-results\n path: check\n"
},
{
"path": ".gitignore",
"content": ".Rproj.user\n.Rhistory\n.RData\n.Ruserdata\n\nsrc/*.o\nsrc/*.so\nsrc/*.dll\nsrc/Makevars\nconfig.log\nconfig.status\n\nwindows/\ninst/gdal/\ninst/proj/\n\nnc.shp\nnc.prj\nnc.dbf\nnc.shx\ndocs/\ntests/testthat/Rplots.pdf\n"
},
{
"path": "CONDUCT.md",
"content": "# Contributor Code of Conduct\n\nAs contributors and maintainers of this project, we pledge to respect all people who \ncontribute through reporting issues, posting feature requests, updating documentation,\nsubmitting pull requests or patches, and other activities.\n\nWe are committed to making participation in this project a harassment-free experience for\neveryone, regardless of level of experience, gender, gender identity and expression,\nsexual orientation, disability, personal appearance, body size, race, ethnicity, age, or religion.\n\nExamples of unacceptable behavior by participants include the use of sexual language or\nimagery, derogatory comments or personal attacks, trolling, public or private harassment,\ninsults, or other unprofessional conduct.\n\nProject maintainers have the right and responsibility to remove, edit, or reject comments,\ncommits, code, wiki edits, issues, and other contributions that are not aligned to this \nCode of Conduct. Project maintainers who do not follow the Code of Conduct may be removed \nfrom the project team.\n\nInstances of abusive, harassing, or otherwise unacceptable behavior may be reported by \nopening an issue or contacting one or more of the project maintainers.\n\nThis Code of Conduct is adapted from the Contributor Covenant \n(http:contributor-covenant.org), version 1.0.0, available at \nhttp://contributor-covenant.org/version/1/0/0/\n"
},
{
"path": "DESCRIPTION",
"content": "Package: sf\nVersion: 1.1-1\nTitle: Simple Features for R\nAuthors@R:\n c(person(given = \"Edzer\",\n family = \"Pebesma\",\n role = c(\"aut\", \"cre\"),\n email = \"edzer.pebesma@uni-muenster.de\",\n comment = c(ORCID = \"0000-0001-8049-7069\")),\n person(given = \"Roger\",\n family = \"Bivand\",\n role = \"ctb\",\n comment = c(ORCID = \"0000-0003-2392-6140\")),\n person(given = \"Etienne\",\n family = \"Racine\",\n role = \"ctb\"),\n person(given = \"Michael\",\n family = \"Sumner\",\n role = \"ctb\"),\n person(given = \"Ian\",\n family = \"Cook\",\n role = \"ctb\"),\n person(given = \"Tim\",\n family = \"Keitt\",\n role = \"ctb\"),\n person(given = \"Robin\",\n family = \"Lovelace\",\n role = \"ctb\"),\n person(given = \"Hadley\",\n family = \"Wickham\",\n role = \"ctb\"),\n person(given = \"Jeroen\",\n family = \"Ooms\",\n role = \"ctb\",\n comment = c(ORCID = \"0000-0002-4035-0289\")),\n person(given = \"Kirill\",\n family = \"M\\u00fcller\",\n role = \"ctb\"),\n person(given = \"Thomas Lin\",\n family = \"Pedersen\",\n role = \"ctb\"),\n person(given = \"Dan\",\n family = \"Baston\",\n role = \"ctb\"),\n person(given = \"Dewey\",\n family = \"Dunnington\",\n role = \"ctb\",\n comment = c(ORCID = \"0000-0002-9415-4582\")),\n person(given = \"Alexandre\",\n family = \"Courtiol\",\n role = \"ctb\",\n comment = c(ORCID = \"0000-0003-0637-2959\"))\n\t\t\t )\nDescription: Support for simple feature access, a standardized way to\n encode and analyze spatial vector data. Binds to 'GDAL' \n\t for reading and writing data, to 'GEOS'\n for geometrical operations,\n and to 'PROJ' for projection\n conversions and datum transformations. Uses by default the 's2'\n package for geometry operations on geodetic (long/lat degree)\n\tcoordinates.\nLicense: GPL-2 | MIT + file LICENSE\nURL: https://r-spatial.github.io/sf/, https://github.com/r-spatial/sf\nBugReports: https://github.com/r-spatial/sf/issues\nDepends:\n methods,\n R (>= 4.1.0)\nImports:\n classInt (>= 0.4-1),\n DBI (>= 0.8),\n graphics,\n grDevices,\n grid,\n s2 (>= 1.1.0),\n stats,\n tools,\n units (>= 0.7-0),\n utils\nSuggests:\n blob,\n nanoarrow,\n covr,\n dplyr (>= 1.0.0),\n ggplot2,\n knitr,\n lwgeom (>= 0.2-14),\n maps,\n mapview,\n Matrix,\n microbenchmark,\n odbc,\n pbapply,\n pillar,\n pool,\n raster,\n rlang,\n rmarkdown,\n RPostgres (>= 1.1.0),\n RPostgreSQL,\n RSQLite,\n sp (>= 1.2-4),\n spatstat (>= 2.0-1),\n spatstat.geom, \n spatstat.random, \n spatstat.linnet, \n spatstat.utils,\n stars (>= 0.6-0),\n terra,\n testthat (>= 3.0.0),\n tibble (>= 1.4.1),\n tidyr (>= 1.2.0),\n tidyselect (>= 1.0.0),\n tmap (>= 2.0),\n vctrs,\n wk (>= 0.9.0)\nLinkingTo: \n Rcpp\nVignetteBuilder: \n knitr\nEncoding: UTF-8\nConfig/testthat/edition: 2\nConfig/needs/coverage: XML\nConfig/roxygen2/markdown: TRUE\nConfig/roxygen2/version: 8.0.0\nSystemRequirements: GDAL (>= 2.0.1), GEOS (>= 3.4.0),\n PROJ (>= 4.8.0), sqlite3\nCollate: \n 'RcppExports.R'\n 'init.R'\n 'import-standalone-s3-register.R'\n 'crs.R'\n 'bbox.R'\n 'read.R'\n 'db.R'\n 'sfc.R'\n 'sfg.R'\n 'sf.R'\n 'bind.R'\n 'wkb.R'\n 'wkt.R'\n 'plot.R'\n 'geom-measures.R'\n 'geom-predicates.R'\n 'geom-transformers.R'\n 'transform.R'\n 'proj.R'\n 'sp.R'\n 'grid.R'\n 'arith.R'\n 'tidyverse.R'\n 'tidyverse-vctrs.R'\n 'cast_sfg.R'\n 'cast_sfc.R'\n 'graticule.R'\n 'datasets.R'\n 'aggregate.R'\n 'agr.R'\n 'maps.R'\n 'join.R'\n 'sample.R'\n 'valid.R'\n 'collection_extract.R'\n 'jitter.R'\n 'sgbp.R'\n 'spatstat.R'\n 'stars.R'\n 'crop.R'\n 'gdal_utils.R'\n 'nearest.R'\n 'normalize.R'\n 'sf-package.R'\n 'defunct.R'\n 'z_range.R'\n 'm_range.R'\n 'shift_longitude.R'\n 'make_grid.R'\n 's2.R'\n 'terra.R'\n 'geos-overlayng.R'\n 'break_antimeridian.R'\n"
},
{
"path": "LICENSE",
"content": "YEAR: 2016-2024\nCOPYRIGHT HOLDER: Edzer Pebesma\n"
},
{
"path": "NAMESPACE",
"content": "# Generated by roxygen2: do not edit by hand\n\nS3method(\"$\",bbox)\nS3method(\"$\",crs)\nS3method(\"$\",m_range)\nS3method(\"$\",z_range)\nS3method(\"$<-\",sf)\nS3method(\"[\",sf)\nS3method(\"[\",sfc)\nS3method(\"[<-\",sf)\nS3method(\"[<-\",sfc)\nS3method(\"[[<-\",sf)\nS3method(\"st_agr<-\",sf)\nS3method(\"st_crs<-\",bbox)\nS3method(\"st_crs<-\",sf)\nS3method(\"st_crs<-\",sfc)\nS3method(\"st_geometry<-\",data.frame)\nS3method(\"st_geometry<-\",sf)\nS3method(Ops,crs)\nS3method(Ops,sfc)\nS3method(Ops,sfg)\nS3method(Ops,sgbp)\nS3method(aggregate,sf)\nS3method(as.data.frame,sf)\nS3method(as.data.frame,sfc)\nS3method(as.data.frame,sgbp)\nS3method(as.matrix,sfg)\nS3method(as.matrix,sgbp)\nS3method(c,sfc)\nS3method(c,sfg)\nS3method(cbind,sf)\nS3method(dim,sgbp)\nS3method(duplicated,sf)\nS3method(format,bbox)\nS3method(format,crs)\nS3method(format,sfc)\nS3method(format,sfg)\nS3method(head,sfg)\nS3method(identify,sf)\nS3method(identify,sfc)\nS3method(is.na,bbox)\nS3method(is.na,crs)\nS3method(is.na,m_range)\nS3method(is.na,z_range)\nS3method(is_geometry_column,PqConnection)\nS3method(is_geometry_column,default)\nS3method(merge,sf)\nS3method(plot,sf)\nS3method(plot,sfc_CIRCULARSTRING)\nS3method(plot,sfc_GEOMETRY)\nS3method(plot,sfc_GEOMETRYCOLLECTION)\nS3method(plot,sfc_LINESTRING)\nS3method(plot,sfc_MULTILINESTRING)\nS3method(plot,sfc_MULTIPOINT)\nS3method(plot,sfc_MULTIPOLYGON)\nS3method(plot,sfc_POINT)\nS3method(plot,sfc_POLYGON)\nS3method(plot,sfg)\nS3method(points,sf)\nS3method(points,sfc)\nS3method(print,bbox)\nS3method(print,crs)\nS3method(print,m_range)\nS3method(print,proj_pipelines)\nS3method(print,sf)\nS3method(print,sf_layers)\nS3method(print,sfc)\nS3method(print,sfg)\nS3method(print,sgbp)\nS3method(print,z_range)\nS3method(rbind,sf)\nS3method(rep,sfc)\nS3method(st_agr,character)\nS3method(st_agr,default)\nS3method(st_agr,factor)\nS3method(st_agr,sf)\nS3method(st_area,sf)\nS3method(st_area,sfc)\nS3method(st_area,sfg)\nS3method(st_as_binary,sfc)\nS3method(st_as_binary,sfg)\nS3method(st_as_grob,CIRCULARSTRING)\nS3method(st_as_grob,COMPOUNDCURVE)\nS3method(st_as_grob,CURVEPOLYGON)\nS3method(st_as_grob,GEOMETRYCOLLECTION)\nS3method(st_as_grob,LINESTRING)\nS3method(st_as_grob,MULTILINESTRING)\nS3method(st_as_grob,MULTIPOINT)\nS3method(st_as_grob,MULTIPOLYGON)\nS3method(st_as_grob,MULTISURFACE)\nS3method(st_as_grob,POINT)\nS3method(st_as_grob,POLYGON)\nS3method(st_as_grob,sfc)\nS3method(st_as_grob,sfc_CIRCULARSTRING)\nS3method(st_as_grob,sfc_LINESTRING)\nS3method(st_as_grob,sfc_MULTILINESTRING)\nS3method(st_as_grob,sfc_MULTIPOINT)\nS3method(st_as_grob,sfc_MULTIPOLYGON)\nS3method(st_as_grob,sfc_POINT)\nS3method(st_as_grob,sfc_POLYGON)\nS3method(st_as_s2,sf)\nS3method(st_as_s2,sfc)\nS3method(st_as_sf,SpatVector)\nS3method(st_as_sf,Spatial)\nS3method(st_as_sf,data.frame)\nS3method(st_as_sf,lpp)\nS3method(st_as_sf,map)\nS3method(st_as_sf,owin)\nS3method(st_as_sf,ppp)\nS3method(st_as_sf,ppplist)\nS3method(st_as_sf,psp)\nS3method(st_as_sf,s2_geography)\nS3method(st_as_sf,sf)\nS3method(st_as_sf,sfc)\nS3method(st_as_sfc,SpatialLines)\nS3method(st_as_sfc,SpatialMultiPoints)\nS3method(st_as_sfc,SpatialPixels)\nS3method(st_as_sfc,SpatialPoints)\nS3method(st_as_sfc,SpatialPolygons)\nS3method(st_as_sfc,WKB)\nS3method(st_as_sfc,bbox)\nS3method(st_as_sfc,blob)\nS3method(st_as_sfc,character)\nS3method(st_as_sfc,dimensions)\nS3method(st_as_sfc,factor)\nS3method(st_as_sfc,list)\nS3method(st_as_sfc,map)\nS3method(st_as_sfc,owin)\nS3method(st_as_sfc,pq_geometry)\nS3method(st_as_sfc,psp)\nS3method(st_as_sfc,raw)\nS3method(st_as_sfc,s2_geography)\nS3method(st_as_sfc,sf)\nS3method(st_as_sfc,tess)\nS3method(st_as_text,crs)\nS3method(st_as_text,sfc)\nS3method(st_as_text,sfg)\nS3method(st_bbox,CIRCULARSTRING)\nS3method(st_bbox,COMPOUNDCURVE)\nS3method(st_bbox,CURVEPOLYGON)\nS3method(st_bbox,Extent)\nS3method(st_bbox,GEOMETRYCOLLECTION)\nS3method(st_bbox,LINESTRING)\nS3method(st_bbox,MULTICURVE)\nS3method(st_bbox,MULTILINESTRING)\nS3method(st_bbox,MULTIPOINT)\nS3method(st_bbox,MULTIPOLYGON)\nS3method(st_bbox,MULTISURFACE)\nS3method(st_bbox,POINT)\nS3method(st_bbox,POLYGON)\nS3method(st_bbox,POLYHEDRALSURFACE)\nS3method(st_bbox,Raster)\nS3method(st_bbox,SpatExtent)\nS3method(st_bbox,SpatRaster)\nS3method(st_bbox,SpatVector)\nS3method(st_bbox,Spatial)\nS3method(st_bbox,TIN)\nS3method(st_bbox,TRIANGLE)\nS3method(st_bbox,bbox)\nS3method(st_bbox,numeric)\nS3method(st_bbox,sf)\nS3method(st_bbox,sfc)\nS3method(st_boundary,sf)\nS3method(st_boundary,sfc)\nS3method(st_boundary,sfg)\nS3method(st_break_antimeridian,sf)\nS3method(st_break_antimeridian,sfc)\nS3method(st_buffer,sf)\nS3method(st_buffer,sfc)\nS3method(st_buffer,sfg)\nS3method(st_cast,CIRCULARSTRING)\nS3method(st_cast,COMPOUNDCURVE)\nS3method(st_cast,CURVE)\nS3method(st_cast,GEOMETRYCOLLECTION)\nS3method(st_cast,LINESTRING)\nS3method(st_cast,MULTICURVE)\nS3method(st_cast,MULTILINESTRING)\nS3method(st_cast,MULTIPOINT)\nS3method(st_cast,MULTIPOLYGON)\nS3method(st_cast,MULTISURFACE)\nS3method(st_cast,POINT)\nS3method(st_cast,POLYGON)\nS3method(st_cast,sf)\nS3method(st_cast,sfc)\nS3method(st_cast,sfc_CIRCULARSTRING)\nS3method(st_centroid,sf)\nS3method(st_centroid,sfc)\nS3method(st_centroid,sfg)\nS3method(st_collection_extract,sf)\nS3method(st_collection_extract,sfc)\nS3method(st_collection_extract,sfg)\nS3method(st_concave_hull,sf)\nS3method(st_concave_hull,sfc)\nS3method(st_concave_hull,sfg)\nS3method(st_convex_hull,sf)\nS3method(st_convex_hull,sfc)\nS3method(st_convex_hull,sfg)\nS3method(st_coordinates,sf)\nS3method(st_coordinates,sfc)\nS3method(st_coordinates,sfg)\nS3method(st_crop,sf)\nS3method(st_crop,sfc)\nS3method(st_crs,CRS)\nS3method(st_crs,Raster)\nS3method(st_crs,SpatRaster)\nS3method(st_crs,SpatVector)\nS3method(st_crs,Spatial)\nS3method(st_crs,bbox)\nS3method(st_crs,character)\nS3method(st_crs,crs)\nS3method(st_crs,default)\nS3method(st_crs,numeric)\nS3method(st_crs,sf)\nS3method(st_crs,sfc)\nS3method(st_difference,sf)\nS3method(st_difference,sfc)\nS3method(st_difference,sfg)\nS3method(st_drop_geometry,default)\nS3method(st_drop_geometry,sf)\nS3method(st_exterior_ring,sf)\nS3method(st_exterior_ring,sfc)\nS3method(st_exterior_ring,sfg)\nS3method(st_filter,sf)\nS3method(st_geometry,sf)\nS3method(st_geometry,sfc)\nS3method(st_geometry,sfg)\nS3method(st_inscribed_circle,sf)\nS3method(st_inscribed_circle,sfc)\nS3method(st_inscribed_circle,sfg)\nS3method(st_interpolate_aw,sf)\nS3method(st_intersection,sf)\nS3method(st_intersection,sfc)\nS3method(st_intersection,sfg)\nS3method(st_intersects,sf)\nS3method(st_intersects,sfc)\nS3method(st_intersects,sfg)\nS3method(st_is,sf)\nS3method(st_is,sfc)\nS3method(st_is,sfg)\nS3method(st_is_full,bbox)\nS3method(st_is_full,sf)\nS3method(st_is_full,sfc)\nS3method(st_is_full,sfg)\nS3method(st_is_valid,sf)\nS3method(st_is_valid,sfc)\nS3method(st_is_valid,sfg)\nS3method(st_join,sf)\nS3method(st_line_merge,sf)\nS3method(st_line_merge,sfc)\nS3method(st_line_merge,sfg)\nS3method(st_m_range,CIRCULARSTRING)\nS3method(st_m_range,COMPOUNDCURVE)\nS3method(st_m_range,CURVEPOLYGON)\nS3method(st_m_range,GEOMETRYCOLLECTION)\nS3method(st_m_range,LINESTRING)\nS3method(st_m_range,MULTICURVE)\nS3method(st_m_range,MULTILINESTRING)\nS3method(st_m_range,MULTIPOINT)\nS3method(st_m_range,MULTIPOLYGON)\nS3method(st_m_range,MULTISURFACE)\nS3method(st_m_range,POINT)\nS3method(st_m_range,POLYGON)\nS3method(st_m_range,POLYHEDRALSURFACE)\nS3method(st_m_range,TIN)\nS3method(st_m_range,TRIANGLE)\nS3method(st_m_range,m_range)\nS3method(st_m_range,numeric)\nS3method(st_m_range,sf)\nS3method(st_m_range,sfc)\nS3method(st_make_valid,sf)\nS3method(st_make_valid,sfc)\nS3method(st_make_valid,sfg)\nS3method(st_minimum_bounding_circle,sf)\nS3method(st_minimum_bounding_circle,sfc)\nS3method(st_minimum_bounding_circle,sfg)\nS3method(st_minimum_rotated_rectangle,sf)\nS3method(st_minimum_rotated_rectangle,sfc)\nS3method(st_minimum_rotated_rectangle,sfg)\nS3method(st_nearest_points,sf)\nS3method(st_nearest_points,sfc)\nS3method(st_nearest_points,sfg)\nS3method(st_node,sf)\nS3method(st_node,sfc)\nS3method(st_node,sfg)\nS3method(st_normalize,sf)\nS3method(st_normalize,sfc)\nS3method(st_normalize,sfg)\nS3method(st_point_on_surface,sf)\nS3method(st_point_on_surface,sfc)\nS3method(st_point_on_surface,sfg)\nS3method(st_polygonize,sf)\nS3method(st_polygonize,sfc)\nS3method(st_polygonize,sfg)\nS3method(st_precision,sf)\nS3method(st_precision,sfc)\nS3method(st_read,DBIObject)\nS3method(st_read,Pool)\nS3method(st_read,PostgreSQLConnection)\nS3method(st_read,character)\nS3method(st_read,default)\nS3method(st_reverse,sf)\nS3method(st_reverse,sfc)\nS3method(st_reverse,sfg)\nS3method(st_sample,bbox)\nS3method(st_sample,sf)\nS3method(st_sample,sfc)\nS3method(st_sample,sfg)\nS3method(st_segmentize,sf)\nS3method(st_segmentize,sfc)\nS3method(st_segmentize,sfg)\nS3method(st_set_precision,sf)\nS3method(st_set_precision,sfc)\nS3method(st_shift_longitude,sf)\nS3method(st_shift_longitude,sfc)\nS3method(st_simplify,sf)\nS3method(st_simplify,sfc)\nS3method(st_simplify,sfg)\nS3method(st_snap,sf)\nS3method(st_snap,sfc)\nS3method(st_snap,sfg)\nS3method(st_sym_difference,sf)\nS3method(st_sym_difference,sfc)\nS3method(st_sym_difference,sfg)\nS3method(st_transform,bbox)\nS3method(st_transform,sf)\nS3method(st_transform,sfc)\nS3method(st_transform,sfg)\nS3method(st_triangulate,sf)\nS3method(st_triangulate,sfc)\nS3method(st_triangulate,sfg)\nS3method(st_triangulate_constrained,sf)\nS3method(st_triangulate_constrained,sfc)\nS3method(st_triangulate_constrained,sfg)\nS3method(st_union,sf)\nS3method(st_union,sfc)\nS3method(st_union,sfg)\nS3method(st_voronoi,sf)\nS3method(st_voronoi,sfc)\nS3method(st_voronoi,sfg)\nS3method(st_wrap_dateline,sf)\nS3method(st_wrap_dateline,sfc)\nS3method(st_wrap_dateline,sfg)\nS3method(st_write,data.frame)\nS3method(st_write,sf)\nS3method(st_write,sfc)\nS3method(st_z_range,CIRCULARSTRING)\nS3method(st_z_range,COMPOUNDCURVE)\nS3method(st_z_range,CURVEPOLYGON)\nS3method(st_z_range,GEOMETRYCOLLECTION)\nS3method(st_z_range,LINESTRING)\nS3method(st_z_range,MULTICURVE)\nS3method(st_z_range,MULTILINESTRING)\nS3method(st_z_range,MULTIPOINT)\nS3method(st_z_range,MULTIPOLYGON)\nS3method(st_z_range,MULTISURFACE)\nS3method(st_z_range,POINT)\nS3method(st_z_range,POLYGON)\nS3method(st_z_range,POLYHEDRALSURFACE)\nS3method(st_z_range,TIN)\nS3method(st_z_range,TRIANGLE)\nS3method(st_z_range,numeric)\nS3method(st_z_range,sf)\nS3method(st_z_range,sfc)\nS3method(st_z_range,z_range)\nS3method(st_zm,list)\nS3method(st_zm,matrix)\nS3method(st_zm,sf)\nS3method(st_zm,sfc)\nS3method(st_zm,sfg)\nS3method(str,sfc)\nS3method(summary,sfc)\nS3method(t,sgbp)\nS3method(text,sf)\nS3method(text,sfc)\nS3method(transform,sf)\nS3method(unique,sfc)\nS3method(xtfrm,sfc)\nexport(\"st_agr<-\")\nexport(\"st_crs<-\")\nexport(\"st_geometry<-\")\nexport(\"st_precision<-\")\nexport(.degAxis)\nexport(.get_layout)\nexport(.image_scale)\nexport(.image_scale_factor)\nexport(.stop_geos)\nexport(FULL_bbox_)\nexport(NA_agr_)\nexport(NA_bbox_)\nexport(NA_crs_)\nexport(NA_m_range_)\nexport(NA_z_range_)\nexport(as_Spatial)\nexport(gdal_addo)\nexport(gdal_compressors)\nexport(gdal_create)\nexport(gdal_crs)\nexport(gdal_extract)\nexport(gdal_inv_geotransform)\nexport(gdal_metadata)\nexport(gdal_polygonize)\nexport(gdal_rasterize)\nexport(gdal_read)\nexport(gdal_read_mdim)\nexport(gdal_subdatasets)\nexport(gdal_utils)\nexport(gdal_write)\nexport(gdal_write_mdim)\nexport(get_key_pos)\nexport(plot_sf)\nexport(rawToHex)\nexport(read_sf)\nexport(sf.colors)\nexport(sf_add_proj_units)\nexport(sf_extSoftVersion)\nexport(sf_proj_info)\nexport(sf_proj_network)\nexport(sf_proj_pipelines)\nexport(sf_proj_search_paths)\nexport(sf_project)\nexport(sf_use_s2)\nexport(st_agr)\nexport(st_area)\nexport(st_as_binary)\nexport(st_as_grob)\nexport(st_as_s2)\nexport(st_as_sf)\nexport(st_as_sfc)\nexport(st_as_text)\nexport(st_axis_order)\nexport(st_bbox)\nexport(st_bind_cols)\nexport(st_boundary)\nexport(st_break_antimeridian)\nexport(st_buffer)\nexport(st_can_transform)\nexport(st_cast)\nexport(st_centroid)\nexport(st_collection_extract)\nexport(st_combine)\nexport(st_concave_hull)\nexport(st_contains)\nexport(st_contains_properly)\nexport(st_convex_hull)\nexport(st_coordinates)\nexport(st_covered_by)\nexport(st_covers)\nexport(st_crop)\nexport(st_crosses)\nexport(st_crs)\nexport(st_delete)\nexport(st_difference)\nexport(st_dimension)\nexport(st_disjoint)\nexport(st_distance)\nexport(st_drivers)\nexport(st_drop_geometry)\nexport(st_equals)\nexport(st_equals_exact)\nexport(st_exterior_ring)\nexport(st_filter)\nexport(st_geometry)\nexport(st_geometry_type)\nexport(st_geometrycollection)\nexport(st_graticule)\nexport(st_inscribed_circle)\nexport(st_interpolate_aw)\nexport(st_intersection)\nexport(st_intersects)\nexport(st_is)\nexport(st_is_empty)\nexport(st_is_full)\nexport(st_is_longlat)\nexport(st_is_simple)\nexport(st_is_valid)\nexport(st_is_within_distance)\nexport(st_jitter)\nexport(st_join)\nexport(st_layers)\nexport(st_length)\nexport(st_line_interpolate)\nexport(st_line_merge)\nexport(st_line_project)\nexport(st_line_sample)\nexport(st_linestring)\nexport(st_m_range)\nexport(st_make_grid)\nexport(st_make_valid)\nexport(st_minimum_bounding_circle)\nexport(st_minimum_rotated_rectangle)\nexport(st_multilinestring)\nexport(st_multipoint)\nexport(st_multipolygon)\nexport(st_nearest_feature)\nexport(st_nearest_points)\nexport(st_node)\nexport(st_normalize)\nexport(st_overlaps)\nexport(st_perimeter)\nexport(st_point)\nexport(st_point_on_surface)\nexport(st_polygon)\nexport(st_polygonize)\nexport(st_precision)\nexport(st_read)\nexport(st_read_db)\nexport(st_relate)\nexport(st_reverse)\nexport(st_sample)\nexport(st_segmentize)\nexport(st_set_agr)\nexport(st_set_crs)\nexport(st_set_geometry)\nexport(st_set_precision)\nexport(st_sf)\nexport(st_sfc)\nexport(st_shift_longitude)\nexport(st_simplify)\nexport(st_snap)\nexport(st_sym_difference)\nexport(st_touches)\nexport(st_transform)\nexport(st_triangulate)\nexport(st_triangulate_constrained)\nexport(st_union)\nexport(st_viewport)\nexport(st_voronoi)\nexport(st_within)\nexport(st_wrap_dateline)\nexport(st_write)\nexport(st_write_db)\nexport(st_z_range)\nexport(st_zm)\nexport(write_sf)\nexportMethods(dbDataType)\nexportMethods(dbWriteTable)\nimport(graphics)\nimportClassesFrom(DBI,DBIObject)\nimportFrom(DBI,dbConnect)\nimportFrom(DBI,dbDisconnect)\nimportFrom(DBI,dbExecute)\nimportFrom(DBI,dbGetQuery)\nimportFrom(DBI,dbReadTable)\nimportFrom(DBI,dbSendQuery)\nimportFrom(DBI,dbWriteTable)\nimportFrom(classInt,classIntervals)\nimportFrom(grDevices,cm)\nimportFrom(grDevices,dev.size)\nimportFrom(grDevices,rgb)\nimportFrom(grid,convertHeight)\nimportFrom(grid,convertUnit)\nimportFrom(grid,convertWidth)\nimportFrom(grid,current.viewport)\nimportFrom(grid,gList)\nimportFrom(grid,gpar)\nimportFrom(grid,linesGrob)\nimportFrom(grid,nullGrob)\nimportFrom(grid,pathGrob)\nimportFrom(grid,pointsGrob)\nimportFrom(grid,polylineGrob)\nimportFrom(grid,unit)\nimportFrom(grid,viewport)\nimportFrom(methods,\"slot<-\")\nimportFrom(methods,as)\nimportFrom(methods,new)\nimportFrom(methods,slot)\nimportFrom(methods,slotNames)\nimportFrom(stats,aggregate)\nimportFrom(stats,dist)\nimportFrom(stats,na.omit)\nimportFrom(stats,rbinom)\nimportFrom(stats,runif)\nimportFrom(stats,setNames)\nimportFrom(tools,file_ext)\nimportFrom(tools,file_path_sans_ext)\nimportFrom(units,as_units)\nimportFrom(units,drop_units)\nimportFrom(units,make_unit_label)\nimportFrom(units,set_units)\nimportFrom(utils,compareVersion)\nimportFrom(utils,globalVariables)\nimportFrom(utils,head)\nimportFrom(utils,object.size)\nimportFrom(utils,packageVersion)\nimportFrom(utils,str)\nimportFrom(utils,tail)\nimportMethodsFrom(DBI,dbDataType)\nimportMethodsFrom(DBI,dbExistsTable)\nimportMethodsFrom(DBI,dbWriteTable)\nuseDynLib(sf, .registration=TRUE)\n"
},
{
"path": "NEWS.md",
"content": "# version 1.1-1\n\n* use RAII in functions calling GEOS for handling context, based on how terra does this; #2604\n\n* `st_graticule()` simplifies output lines; #1364\n\n* `dplyr::count()` drops geometries if `.drop_geom = TRUE` is set; #2596\n\n* better handle graticules crossing the antemeridian; #2561\n\n* add the option `by_element = TRUE` to binary geometry predicates, measures and transformers; #2594 and #2595 by @rariariari w. help from Claude\n\n* add `MULTISURFACE` and `CURVEPOLYGON` to vctrs methods; #2589 #2601\n\n* add argument `include_non_intersected` to `st_interpolate_aw()`\n\n* add argument `weights`, for dasymetric mapping, to `st_interpolate_aw()` (experimental)\n\n* replace magrittr pipe `%>%` with base pipe `|>`, and hence require R >= 4.1.0\n\n# version 1.1-0\n\n* `gdal_compressors()` queries GDAL compressor and decompressor capabilities\n\n* `st_cast.sfc()` deals with zero-length objects; #2584\n\n* rewrite/migrate `vctrs` methods for `sf` and `sfc`; #2568, #2584, w. help from @DavisVaughan\n\n* `st_agr()` and `st_agr<-()` better handle multiple geometry columns\n\n* for an `sfc` object `x`, `x[0]` retains the class of `x`; #2568\n\n* When sampling a degenerate (zero length) line, a warning is raised rather than a message; #2575\n\n# version 1.0-24\n\n* `gdal_write()` handles drivers that only have a `CreateCopy()` option; https://github.com/r-spatial/stars/issues/762 \n\n* if `datum` is missing in a call to `st_graticule()`, a graticule by default will try to use the geographic coordinate reference system of arguments `x` or `crs`; when nothing is found there it falls back to `OGC:CRS84` (WGS84).\n\n* the figure margins parameter `mar` can be specified in a call to `plot.sf()`; #2558\n\n* fix class label setting in `[.sf()`; #2557\n\n# version 1.0-23\n\n* allow tests reading blosc compressed Zarr files to fail\n\n* `st_as_sf.data.frame()` sets `z_range` and `m_range` if needed; https://github.com/geoarrow/geoarrow-r/issues/75\n\n# version 1.0-22\n\n* `st_combine()` on `POINT` geometries ignores empty points; #2551\n\n* handle empty points better in `st_point()`, `st_as_sf.data.frame()` and `st_distance()`; https://github.com/r-spatial/s2/issues/289\n\n* for unprojected lines, `st_line_interpolate()` requires distance values with degree units; #2542\n\n* `unique.sfc()` added; #2546\n\n* for geodetic coordinates, `st_perimeter()` uses ellipsoidal computation if `sf_use_s2()` is `FALSE`; #2541\n\n* `st_as_sf.owin()` and `st_as_sfc.owin()` no longer ignore `crs` argument; #2532\n\n* clarify approximation errors in `st_buffer()` and how they differ for the GEOS or S2 backends, with examples by David Kaplan @dmkaplan2000; #2528\n\n# version 1.0-21\n\n* `st_crs(..., parameters = TRUE)` returns base geographic CRS as `gcs_crs`; #2524\n\n* loading `sf` no longer initializes the RNG state; see https://github.com/r-quantities/units/issues/409\n\n* fix `st_sample()` on geodetic coordinates; #2515\n\n* use `compareVersion()` consistently to compare GDAL versions; #2512\n\n# version 1.0-20\n\n* `st_buffer()` on geodetic coordinates with negative buffer distance now automatically switches to using GEOS, while giving a warning; #1987\n\n* `st_interpolate_aw()` fixes bug when a GEOMETRYCOLLECTION contains multiple POLYGON structures; found by @mtennekes\n\n* `st_buffer()` for geodetic coordinates allows `max_dist` and `min_level` \n to be specified by feature; #2488 and https://github.com/r-spatial/s2/pull/264\n\n* `distinct.sf()` allows for comparing exact equality of geometries when `exact = TRUE`; #2484\n\n* `st_minimum_bounding_circle()` returns geometries representing the smallest circle that contains the input; #2473\n\n# version 1.0-19\n\n* fix type checks in C++ GDAL area and length computation functions, anticipating GDAL 3.10.0; #2466, #2468, #2469 by @rsbivand and @rouault\n\n* improve test on empty geometries, which changed in 1.0-18; #2463\n\n* `gdal_utils()` `ogrinfo` has an argument `read_only` which, when `TRUE` (or `options` includes `\"-ro\"`), opens a datasource in read-only mode (#2460; `sf` did this before 1.0-17); by default a datasource is opened in update (read-write) mode (since sf 1.0-17; #2420)\n\n* the `sf` -> `ppp` conversion `as.ppp.sf()` accepts a data.frame of marks instead of just 1 column #2450, by @agila5\n\n* add flag for preservation of point order in `st_voronoi` #1371 for GEOS >= 3.12\n\n# version 1.0-18\n\n* support `POLYGON FULL` simple feature geometry, representing the entire Earth surface, as used by `s2geometry`; see also https://r-spatial.org/r/2024/10/11/polygonfull.html for a longer introduction; #2441\n\n* `st_sfc()` has an argument `oriented` which, when set to `TRUE`, adds an attribute `oriented=TRUE` to an `sfc` object, indicating that this object should not be reoriented in conversion to `s2_geography` (avoiding using the global option `s2_oriented`); `st_as_sfc.bbox()` sets this to `TRUE`; #2441\n\n* fix build failure with GDAL < 3.4.0 #2436\n\n* `st_simplify()` now accepts feature-wise tolerance values when `s2` is switched on #2442\n\n# version 1.0-17\n\n* add `st_transform()` method for `bbox` objects; this uses OGRCoordinateTransformation::TransformBounds(), densifying first and antemeridian proof; #2415\n\n* `st_filter.sf()` correctly scopes `x` and `y` arguments using !! operator; #2416\n\n* `[.sfc` and `[<-.sfc` use matrix/array type subsetting for `sfc` objects that have a `dim` attribute\n\n* add `st_exterior_ring()` to extract exterior rings (remove holes); #2406\n\n* add `text.sf()`, `text.sfc()`, `points.sf()`, `points.sfc()` to annotate base plots at geometry centroids; #2399\n\n* `st_sf()` no longer strips `tbl` or `tbl_df` class labels; #2378\n\n* `st_layers()` returns an object of class `c(\"sf_layers\", \"data.frame\")`, with a dedicated `print` method.\n\n* when `dim` is not `XYZM`, `sf_as_sf.data.frame()` interprets a length 4 `coords` argument to specify the corners of a rectangular polygon; #2357\n\n* `st_interpolate_aw()` gains an `na.rm` argument, for removing features with `NA` attributes before interpolating; #830\n\n* `merge.sf()` no longer renames geometry column; #2334\n\n# version 1.0-16\n\n* `st_join()` no longer renames the geometry column; #2327\n\n* `st_sample()` works when unprojected polygon geometry crosses the antemeridian; #2331\n\n* clean up and modernization of S3 registration of methods and tests; #2285, #2288, #2316, #2341, #2342, by @olivroy\n\n* `[.sfc` works when setting argument `op`; #2320\n\n* `st_sample()` for polygons is sensitive to setting `oriented = TRUE` to prevent wrongly correcting ring directions; #2308\n\n* add support for the GDAL `footprint` utility (requiring GDAL >= 3.8.0) to `gdal_utils`; #2305, by @goergen95\n\n* existing environment variables `PROJ_LIB` and `PROJ_DATA` are (again) ignored on `sf` binary CRAN installations (win + macos), effectively by overwriting them during the R session and restoring them on exit; this does not happen if environment variable `R_SF_USE_PROJ_DATA` is set to `true`. #2298\n\n* add `st_line_project()` to find how far a point is when projected on a line; #2291\n\n* add `st_line_interpolate()` to obtain a point at a certain distance along a line; #2291\n\n# version 1.0-15\n\n* add `st_perimeter()` generic to cover both geographic and projected coordinates; #268, #2279, by @JosiahParry\n\n* add `st_sample()` method for `bbox`, with special provisions for ellipsoidal coordinates; #2283\n\n* documentation clean-up by @olivroy; #2266, #2285\n\n* `st_convex_hull()` uses `s2::s2_convex_hull()` for geodetic coordinates; #2250\n\n* add `directed` argument to `st_line_merge()`; #2264\n\n* `st_union.sfc()` given `x` and `y` works consistently across geodetic and projected objects; #2262\n\n* `st_union.sf()` given `x` and `y` unions pairwise if `by_feature = TRUE`; #2259\n\n* `st_read()` work around issue with GPKG driver if `wkt_filter` is set; #2248\n\n* `st_read()` uses GDAL's stream reading when `use_stream = TRUE`; #2238 by @paleolimbot\n\n* `st_transform()` responds to in-session changes to `sf_proj_network()`; #2166\n\n* `plot.sf()`: `key.width` is sensitive to pointsize graphics parameter `par(\"ps\")`; keys with factor levels suggest a proper size if they won't fit.\n\n* `plot.sf()`: `key.pos` can hold a second value in [0, 1] determining the relative position of the key in the available space \n\n* `[<-.sf` fixes the `agr` attribute when it is broken; #2211\n\n* if the env. variable `ADD_SF_NAMESPACE` is set to `true`, `sf` objects get a new attribute, `.sf_namespace`, which forces loading the `sf` namespace when it has not been loaded so far, e.g. for proper printing or plotting of an `sf` object; #2212 by Mike Mahoney\n\n* `distinct.sf()` is type-safe for `sf` objects with zero rows; #2204\n\n* `summarise.sf()` raises an error if `.by` is given but no `across()` on the geometry; #2207\n\n* `st_write()` matches fields on name first, than on position; this matters for formats that have pre-defined names, such as GPX; #2202 \n\n# version 1.0-14\n\n* fix `plot.sf()` when using a key for multiple factor variables; #2196, #2195\n\n* fix use of `as.numeric_version` in a test, for upcoming change in r-devel\n\n* code tidy-ing: fix many lintr suggestions, thanks to Michael Chirico (#2181 - #2191)\n\n# version 1.0-13\n\n* `gdal_utils()` adds `\"ogrinfo\"` utility (requires GDAL >= 3.7.0); #2160\n\n* `st_as_sf()` catches errors when setting invalid crs values, raised by Jon Skøien\n\n* add `rename_with.sf()` method; #1472\n\n* use GEOS' overlayNG routines for (GEOS) Intersection, Difference, Union and SymDifference; #2143\n\n* added `duplicated.sf()`; #2138, #2140, thanks to @bart1\n\n* `select.sf()` allows selecting the same column twice under different names; #1886\n\n* `st_as_sf.ppplist()` is deprecated; #1926\n\n* `st_cast()` handles empty geometries; #1961\n\n* don't repeat longlat messages in `summarise.sf()`; #1519\n\n* fix random sampling on the sphere; #2133\n\n# version 1.0-12\n\n* update NAMESPACE to `useDynLib(sf, .registration=TRUE)`; #2127 thanks to @eddelbuettel\n\n* fix call in `gdal_addo()`; #2124\n\n* fix issues that came up with older GDAL version, use `GDAL_VERSION_NUM` consistently; #2123 #2121 #2119\n\n# version 1.0-11\n\n* `st_make_grid()` also accepts area units for `cellsize`, for square and hexagonal grids; #1505\n\n* add `st_concave_hull()`, for concave hulls, if GEOS >= 3.11.0; #1964\n\n* add `st_triangulate_constrained()`, for constrained Delaunay triangulation, if GEOS >= 3.10.0; #1964\n\n* clean up the retrieval of length or angle units from WKT representations; https://lists.osgeo.org/pipermail/gdal-dev/2023-March/056994.html\n\n* conversion to GEOS uses the `GEOS_PREC_VALID_OUTPUT` flag, which makes sure that the \"[o]utput is always valid. Collapsed geometry elements (including both polygons and lines) are removed.\"\n\n# version 1.0-10\n\n* `gdal_utils()` has a `config_options` argument to set further GDAL options, just like `st_write()`; #2003\n\n* fix slow writing of logical vectors in `st_write()`; #1409; #1689\n\n* `st_drivers()` has an argument `regex` to filter on driver (long) name; #2090\n\n* drop C++11 as a system requirement\n\n* `c.sfc()` (and, consequently, `dplyr::bind_rows()`) gives an error if components have different CRS; #1884\n\n* data imported from `maps` are associated with the Clark 1866 ellipsoid; #2080\n\n* fix importing legacy `SpatialPolygon` objects without comments; #2063, #2069, https://github.com/rstudio/leaflet/issues/833\n\n* `st_read()` no longer errors on mixes of `XY` and `XYZ` geometries; #2046 #1592\n\n* in `plot.sf()`, when numeric `breaks` are given a legend key is always plotted; #2065\n\n* `st_crs()$axes` returns a `data.frame` with axes properties (name, orientation, conversion factor) when GDAL >= 3.0.0\n\n* clean up unit handling for geometry measures (length, area, distance) and crs; \n\n* `st_crs(x)$ud_unit` returns `NULL` if units are unknown; #2049\n\n* `st_write()` substitutes an `NA` crs with `ENGCRS[\"Undefined Cartesian SRS with unknown unit\"]`; #2049, #2054\n\n* `st_can_transform()` checks whether a transformation between two crs exists; see https://github.com/dieghernan/tidyterra/issues/64; #2049\n\n* the matrix returned by `st_coordinates()` has no row names, to reduce output size\n\n# version 1.0-9\n\n* adjust for changes how R-devel handles `POSIXlt`; #2028\n\n* add `st_break_antimeridian()`; #1983, #1991 by Roger Bivand\n\n* add `Fibonacci` as a spatial sampling type in `st_sample()`\n\n* use the global `options(\"sf_use_s2\")` to determine whether to use s2, rather than a value in a local environment; #1977\n\n* fix utils `mdiminfo` and `mdimtranslate` in `gdal_utils()` \n\n* extend arguments of `gdal_read_mdim()` needed by `stars::read_mdim()` if `stars` >= 0.5-7; add `gdal_write_mdim()`\n\n* add `drop_na()` method for `sf` objects; #1975\n\n# version 1.0-8\n\n* `st_drop_geometry.default()` returns `x` unmodified;\n\n* `sf_project()` accepts 3- or 4-column matrices, containing z and t values;\n\n* optimization for `st_sfc()` by @paleolimbot; #1938, #1925\n\n* `[<-.sfc()` recomputes the bounding box; `st_sfc()` gets parameter `compute_bbox`; #1965\n\n* add new algorithm and drop option to `st_make_valid()` when using GEOS and GEOS >= 3.10.1; #1655\n\n* add `st_minimum_rotated_rectangle()`, available when GEOS >= 3.9.0; #1953\n\n* fix `st_sample()` with `type = \"hexagonal\"` for corner case (n=1), add a `progress` argument for a progress bar; #1945\n\n* add package `pbapply` to Suggests; #1945\n\n* add pdf driver to windows build; #1942\n\n* clarify `pipeline` argument in `st_transform()` when axis order is ambiguous; #1934\n\n* handle argument `xpd` in calls to `plot.sfc_POLYGON()` and `plot.sfc_MULTIPOLYGON()`\n\n* add `pivot_wider()` method, by Henning Teickner; #1915\n\n* add `gdal_addo()` to add or remove overviews from raster images; #1921\n\n* `st_layers()` returns `crs` of each layer in a `crs` list of `crs` objects\n\n* restore `st_graticule()` behaviour to pre-sf 1.0-0; https://github.com/tidyverse/ggplot2/issues/4571\n\n* `gdal_metadata()` sets metadata item names properly\n\n* `st_read()` gains an argument `optional` passed on to `as.data.frame` to avoid changing column names; #1916\n\n* GPX files are autodetected by `st_read()`; #1917\n\n* unnecessary coordinate names are not returned in `st_sample()`, making the output size smaller; #1879\n\n# version 1.0-7\n\n* `st_drop_geometry()` is a generic; #1914\n\n* `st_crs(x)$ud_unit` returns the unit of the coordinate reference system of `x`\n\n* geometric predicates return `sgbp` objects omitting self-intersections etc. by passing `remove_self = TRUE` and unique symmetric relationship by passing `retain_unique = TRUE` (to `...` if needed); this simplifies identifying (and removing) duplicated geometries; duplicates are identified by e.g. by `st_equals(x, retain_unique = TRUE) |> unlist() |> unique()`; #1893\n\n* fix compile issue against GDAL < 2.5.0 introduced in 1.0-6; #1899\n\n# version 1.0-6\n\n* adapt to new `spatstat.random` package; #1892\n\n* `st_geometry<-()` also allows to rename a geometry column in an `sf` object; #1890\n\n* for `sf` objects, the `st_as_sfc()` method is an alias for `st_geometry()`; #1882\n\n* `st_make_grid()` speeded up; #1579 thanks to Krzysztof Dyba\n\n* remove direct and indirect dependencies on `rgeos` and `rgdal`; #1869\n\n* use `stats::dist` rather than GEOS for symmetric point-point Euclidian distance computation; #1874\n\n# version 1.0-5\n\n* package startup message reports status of `sf_use_s2()`; #1782\n\n* `sf_use_s2()` uses `message()` to report a change; #1782\n\n* `st_sample()` using regular sampling for ellipsoidal coordinates \"works\" as if coordinates were Cartesian; #1837\n\n# version 1.0-4\n\n* new function `st_delete()` deletes a data source, or layer(s) within a data source; #1828\n\n* fix memory leak in `WKT1_ESRI` retrieval; #1690\n\n# version 1.0-3\n\n* cope with how GEOS >= 3.10.0 handles illegal geometries (e.g., non-closed rings); #1807\n\n* `crs` objects have a `$srid` method to extract the SRID (as authority \"name:code\"); #1804\n\n* `st_as_grob()` methods for `sfc_*` objects correctly handle empty geometries; #1789 with help from Hiroaki Yutani\n\n* when writing objects with `NA` as CRS to GeoPackage, assign \"Unknown Cartesian CRS\" first - this is in line with using Cartesian geometry operations for objects with `NA` as CRS; #1776\n\n* add coerce method from `sgbp` to `sparseMatrix`; #1750\n\n* fix `st_cast()` for `GEOMETRYCOLLECTIONS` containing empty geometries; #1767\n\n* fix `st_is_valid()` for bogus polygons and projected coordinates; #1666, #1760; #1761\n\n# version 1.0-2\n\n* `st_read()` and `st_write()` using GDAL handle binary attributes (OFTBinary fields) ; #1721\n\n* a `pivot_longer` method is added for `sf` objects (the `data.frame` method works, but raises a warning)\n\n* `rbind.sf` preserves primary geometry column; #1717\n\n* `configure` constrains using `--static` to `Darwin` platform; #1702, #1712, #1713\n\n* old-style `crs` objects created with sf < 0.9-0 generate a message, and will cause a warning in the future.\n\n* when `st_crs()` is called with a WKT2 as text input, its `input` field will be replaced with the CRS name (if it has one).\n\n* GEOS (>= 3.9.0) operations use `GEOSGeom_setPrecision_r` to set precision of geometries; #1535\n\n* `st_read()` with specified `query` ignores argument `layers`, and warns if it is given; #1444\n\n# version 1.0-1\n\n* fix regression in `st_intersection()`: when using s2 attributes were assigned wrongly; #1704\n\n* `crs` (sf) to `CRS` (sp) conversion no longer needs validation by `rgdal`; https://github.com/edzer/sp/issues/107\n\n* retrieve ESRI's WKT version of CRS by `st_crs(id)$WKT1_ESRI`; #1690 \n\n# version 1.0-0\n\n* add `s2` to Imports:\n\n* add Dewey Dunnington to contributors\n\n* `sf_use_s2()` prints a message when using s2 has been switched to on or off.\n\n* use `s2` spherical geometry as default when coordinates are ellipsoidal. This can\n be switched off (defaulting to planar geometry, using GEOS, as in sf < 1.0-0) \n by setting environment variable `_SF_USE_S2` to `false` before package `sf` \n is loaded, or by `sf_use_s2(FALSE)`; #1649\n\n* `st_nearest_feature()` with missing `y` returns nearest features in the remaining set of `x`; https://github.com/r-spatial/s2/issues/111\n\n* `st_write()` gains an argument `config_options` to set GDAL config options; #1618\n\n* fix regression in `sf_project(..., keep = TRUE)`; #1635\n\n# version 0.9-8\n\n* add `st_as_sf()` method for terra's `SpatVector` class; #1567\n\n* `distinct.sf()` works by default on all variables, and keeps active geometry active; #1613\n\n* improve (fix?) polygonize/contour code; #1608\n\n* `sf_proj_network()` reports whether PROJ uses network (CDN) grids, can switch it on or off, and can set the CDN url.\n\n* `st_write()` returns obj, invisibly; #1597\n\n* fix regression in n-ary `st_intersection()`, #1595, introduced at #1549\n\n* `st_inscribed_circle()` computes the maximum inscribed circle for polygons (requires GEOS >= 3.9.0)\n\n* allow to `st_cast()` from COMPOUNDCURVE, MULTISURFACE or CURVEPOLYGON to GEOMETRYCOLLECTION, and back; #1573\n\n* Fixed a bug in `st_as_grob()` when plotting a mix of MULTI and non-MULTI geometries of the same base type\n\n# version 0.9-7\n\n* n-ary `st_intersection()` skips failing geometries, rather than returning an error; #1549\n\n* use `s2_centroid()` for geographical coordinates if `sf_use_s2()` is `TRUE`.\n\n* `st_as_text()` method for `crs` objects can return projjson (if GDAL >= 3.1.0 and PROJ > 6.2.0)\n\n* `st_transform()` no longer warns on conversions like `\"+proj=ob_tran +o_proj=longlat +o_lat_p=45 +o_lon_p=30\"`\n\n* `st_as_wkb()` takes `srid` from `wkt` field of `crs` when `input` field doesn't contain it; #1490\n\n* `plot.sf()` adds `key.pos=0` option to run the logic behind the key without plotting it; #1487\n\n* fix bug in `select.sf()` when selected variables were renamed; #1483\n\n* `st_as_sf.stars(..., merge = TRUE)` now works if CRS is `NA`; #1389\n\n* add (dynamically loaded) `as_wkb()` methods for `sf`, `sfc` and `sfg`, making `st_as_s2()` unnecessary\n\n* `st_as_s2()` transforms non-longlat objects to EPSG:4326 first\n\n# version 0.9-6\n\n* `gdal_utils()` print (GDAL-style) progress bar if `quiet = FALSE` (except for `info` and `mdiminfo`)\n\n* fix `CPL_gdal_warper` for multi bands; https://github.com/r-spatial/stars/issues/320\n\n* `sf_proj_search_paths()` retrieves and sets the proj search path (if GDAL > 3.0.3)\n\n* when loading sf, `sf_use_s2()` is set to `FALSE` unless environment variable `_SF_USE_S2` equals `true` (this changes to `TRUE` in sf 1.0-0)\n\n* resolve GDAL/PROJ version vulnerabilities in CRS-crs conversion; #1479\n\n* `st_sample()` gains an argument, `by_polygon`, to more clevery sample `MULTIPOLYGON` geometries; #1480\n\n* `st_sample()` accepts non-integer sample sizes, with a (suppressable) warning and handles values of sizes that would round to zero; #1480\n\n* `gdal_utils()` adds utils `mdiminfo` and `mdimtranslate` (requires GDAL >= 3.1)\n\n* `st_union()` gains an argument `is_coverage`, which, when set to `TRUE`, leads to much faster unioning in case features form a coverage (polygons don't overlap); #1462 by Don Baston\n\n* fix `gdal_utils(\"translate\")` locking input file; #1452\n\n* `st_make_grid()` no longer selects cells intersecting with `x`; #1447\n\n* use `s2::s2_dwithin_matrix()` in `st_is_within_distance()`; #1367\n\n# version 0.9-5\n\n* Only when package `s2` >= 1.0.1 is available: support for spherical geometry operators (predicates, transformers, measures, nearest point/feature) for geographic coordinates in package `s2` is now by default switched off, and can be switched on by `sf_use_s2(TRUE)`; see https://www.r-spatial.org/r/2020/06/17/s2.html and vignette sf7. It is planned to be switched on by default in sf 1.0-0.\n\n* drop Z and/or M coordinate in `st_as_s2()`, with message\n\n* geometry predicates and transformers gain an ... argument to pass `s2::s2_options()`\n\n* `dplyr::select()` now ensures the geometry column sticks to the back rather than the front of the data frame; #1425\n\n* `dplyr::rename()` now preserves the active geometry column even when it is renamed; #1431\n\n* proj units query adjusted to PROJ 7.1.0 release; #1434\n\n# version 0.9-4\n\n* empty geom generators take care of XYZ etc dim; #1400\n\n* `write_sf()` and `read_sf()` no longer warn when reading tables without geometries\n\n* `st_write()` writes non-spatial tables when given a plain `data.frame` or `tbl_df`; #1345\n\n* the default for `stringsAsFactors` in `st_read` and `st_sf` is `FALSE` for R version >= 4.1.0\n\n* the sf method for `dplyr::select()` supports renaming the geometry column; #1415\n\n# version 0.9-3\n\n* `st_is_valid()` is a generic\n\n* Windows CRAN binaries use GDAL 3.0.4, PROJ 6.3.1 and GEOS 3.8.0, thanks to Jeroen Ooms' rwinlib work; #1275\n\n* `plot.sf()` gains an `extent` argument to set the extent (xlim, ylim) of the plot; `extent` must be an object with an `st_bbox()` method, such as an `sf` or a `stars` object; #1193\n\n# version 0.9-2\n\n* `st_axis_order(TRUE)` gives and error if GDAL has version < 2.5.0\n\n* loading PROJ units `link`, `us_in`, `ind_yd`, `ind_ft`, and `ind_ch` into the udunits database is no longer done at package load time, but when function `sf_add_proj_units()` is called.\n\n* fix line sampling for small densities; #1365\n\n* `sf_project()` handles `crs` objects when PROJ version is below 6 using proj.4 string representations.\n\n* avoid using `isFALSE` in `st_write()`; #1342\n\n* fix regression in `gdal_utils(\"translate\", ...)`; #1339\n\n# version 0.9-1\n\n* fix an invalid read bug in `st_m_range()`; #1332\n\n* `st_crs(4326) == st_crs(\"+proj=longlat +ellps=WGS84 +datum=WGS84 +no_defs\")` returns `TRUE` for GDAL >= 3.0, irrespective authority compliance of axis order; see #1331 and https://github.com/ropensci/scrubr/issues/34\n\n* `sf_project()` has a parameter `authority_compliant` to return coordinates in \"visualisation order\"; when `TRUE` it returns coordinates in authority compliant axis order (e.g. EPSG:4326 latitude longitude); default is `st_axis_order()`.\n\n* fix test for Solaris and certain GDAL/PROJ versions\n\n* fix error reading category table through GDAL; https://github.com/r-spatial/stars/issues/245\n\n# version 0.9-0\n\n* see r-spatial blog post: https://www.r-spatial.org/r/2020/03/17/wkt.html\n\n* modify `crs` objects to reflect our post-proj4string world (#1146; #1225): crs objects contain two fields, `input` with the user input (if any), and `wkt` with a well-known-text (or WKT2) representation of the coordinate reference system. `crs` objects have a `$` method to dynamically retrieve the `epsg` (integer) or `proj4string` representation, using e.g. `x$epsg`.\n\n* support for PostGIS 3 using WKT and the new-style `crs` objects; #1234, #1303, #1308 by @etiennebr\n\n* `st_write_db()` and `st_read_db()` are defunct. Use `st_write` and `st_read` instead.\n\n* `st_write()` uses `append`, replacing (and deprecating) argument `update`; `st_write` fails when a layer already exists and `append` has not been set explicitly to `TRUE` (append) or `FALSE` (overwrite); #1266\n\n* `st_proj_info()` was renamed into `sf_proj_info`; `sf_proj_info` can get and set the PROJ data search path and use of CDN; #1277\n\n* adapt to new `dplyr` version; https://github.com/tidyverse/dplyr/issues/4917\n\n* `st_sample()` is a generic\n\n* write `stars` rasters with wkt info, rather than proj4strings\n\n* when GEOS >= 3.8.0, `st_make_valid` is provided by `sf` rather than by `lwgeom` #989\n\n* allow for single-sided buffers for linear geometries; #1001\n\n* add `st_reverse()` methods to reverse points in a linestring (requires GEOS >= 3.7.0); #1246\n\n* `st_make_grid()` returns grid cells or points that intersect with the target geometry, not its bounding box; #1260\n\n* allow for PROJ >= 7; #1254\n\n* `st_geometry_type()` accepts `by_geometry` argument; #1264\n\n# version 0.8-1\n\n* `st_as_sf.map()` no longer requires `maptools` and `sp`; dropped dependency on maptools.\n\n* work around a bug in 6.0.0 <= PROJ < 6.3.1: replace `+init=epsg:XXXX ...` strings with the `XXXX` EPSG integer, to work around a bug in PROJ; see https://github.com/OSGeo/PROJ/pull/1875 and links therein. If `...` arguments are present, raise a warning that these are ignored. \n\n* `st_as_sf.map()` no longer requires `maptools` and `sp`; drop dependency on maptools.\n\n* conversion between `spatstat` classes `owin`, `ppp` and `psp` and `sf` classes no longer use `maptools`; #1204\n\n* `gdal_utils()` processes open options `-oo` and `-doo` properly; https://github.com/ITSLeeds/geofabric/issues/12\n\n* `st_sample()` directly interfaces `spatstat` sampling methods, e.g. `type = \"Thomas\"` calls `spatstat::rThomas` after converting input arguments (window) and converts returned `ppp` object to `sf`'s `POINT` geometries; #1204 with help from Ege Rubak and Jakub Nowosad\n\n* `sf_project()` gains an option `keep = TRUE` to return `Inf` values for points not projectable; #1228\n\n* support `vctrs` methods for geometry list columns; this makes `unnest` work again (#1172); #1196 by Lionel Henry\n\n* `st_as_sf.pq_geometry()` converts binary geom columns from RPostgres::dbGetQuery; #1195\n\n* `st_cast()` can convert `MULTICURVE` to `MULTILINESTRING`; #1194\n\n* `st_read()` gains a parameter `wkt_filter` for spatially filtering the features to be read; #1192\n\n* `st_area()` and `st_length()` handle `+to_meter` argument in PROJ strings; #1170\n\n* add `st_filter()` generic for filtering on spatial features only; #1148\n\n* a new UBSAN error in `wkb_read()` was resolved; #1154, #1152\n\n* new method `st_shift_longitude()` to re-center data for a Pacific view. #1218\n\n* output of `st_as_text()` with `MULTIPOINT` has nested parentheses around points. E.g., `MULTIPOINT ((0 0), (1 1))` instead of `MULTIPOINT (0 0, 1 1)`; #1219, #1221\n\n# version 0.8-0\n\n* fix tests for PROJ 6.2.0 not accepting +units=\n\n* fixes for tidyr 1.0-0 release; attempt to port `nest.sf()` and `unnest.sf()`; #1068, #1145\n\n* `gdal_utils()` better closes connections after use; #1143\n\n* `st_write()` gains a `drivers` options, to limit the drivers attempted; #1142\n\n* rather than replacing, `st_write()` and `write_sf()` append to an existing layer if `update=TRUE`; #1126\n\n* improve plotting of `POSIXct` and `Date` attributes (`Date` requiring classInt >= 0.4-2)\n\n* `NULL` geometries read by GDAL are returned as empty geometries; #1119\n\n* `gdal_utils('rasterize', ...)` accepts non-existing destinations, defined by e.g. resolution and extent options (see #1116 for an example), and overwrites if needed (see #1136 for an example)\n\n* add Dan Baston as contributor; #1120 and many others\n\n* in addition to `NULL`, `st_sfc()` also converts `NA` values into empty geometries; #1114.\n\n* `st_join()` is a generic\n\n# version 0.7-7\n\n* `plot()` handles `POSIXct` values in legend\n\n* constructor functions like `st_linestring()` check and break on `NA` coordinates; #1101, #1102\n\n# version 0.7-6\n\n* have examples of `st_write` write only to the temporary R session directory\n\n# version 0.7-5\n\n* `as(x, \"Spatial\")` gives a proper error message on empty geometries; #1093\n\n* `st_cast()` takes care of empty polygons; #1094\n\n* `st_nearest_*` functions warn in case they are used with geographic coordinates; #1081\n\n* `st_union()` no longer segfaults on zero row `sf` objects; #1077\n\n* `st_transform()` no longer breaks on zero row `sf` objects; #1075\n\n* when PROJ >= 6.1.0 is available and sf comes with datum files (as is the case with statically linked Windows and OSX CRAN binaries), `PROJ_LIB` is no longer temporarily overwritten, but the PROJ C api is used to set the datum path; #1074, suggested by Jeroen Ooms\n\n* sf compiles against GDAL 3.x and PROJ 6.1.0, using the new `proj.h` interface; #1070\n\n* `st_distance()` returns `NA` for empty geometries, rather than 0; #1055\n\n# version 0.7-4\n\n* add example on how voronoi polygons can be tied back to the points they contain; #1030\n\n* `st_difference(x, y)`, with `x` an `sfc` with zero feature geometries, returns `x`; #1024\n\n* don't reset (base) plot device when `add = TRUE`\n\n* `==` and `!=` return `NA` when one of the operands is an empty geometry; #1013\n\n* `st_intersects()` is a generic\n\n* drop requiring `proj_api.h` in favor of `proj.h`, this enables compatibility to PROJ 6.0.0 and GDAL 2.5.0-dev; #988\n\n* fix regression in binary predicates introduced in #855; #999 reported by Barry Rowlingson\n\n* fix bug in `gdal_utils` util `warper` on certain GDAL/OS combinations; https://github.com/r-spatial/stars/issues/117\n\n* `c.sfc()` ignores the type (class) of empty `sfc` objects when choosing the result type; #985, #982\n\n* rename the default value for `distance` to `\"Euclidean\"`, rather than `\"distance\"` in `st_distance()`\n\n# version 0.7-3\n\n* add argument `exact` to `st_sample()`, defaulting to `FALSE`; #896\n\n* fixed n-ary `st_difference()` for cases where geometries are entirely contained in others; #975, by Jonathan Marshall\n\n* faster `Ops.sfc()`, added `st_normalize()`; #973 by Thomas Lin Pedersen\n\n* new grob constructor for sfc objects; #971 by Thomas Lin Pedersen; add Thomas as contributor\n\n* add `group_split()` and `group_map()` methods for `sf` objects (experimental); #969\n\n* make `st_interpolate_aw()` a generic;\n\n* argument `col` for `plot` of `GEOMETRY` `sfc`'s is `NA` (open) for (multi) polygon geometries\n\n# version 0.7-2\n\n* feature IDs are no longer returned as names on the geometry list column, but optionally returned by `st_read` as attribute column; #812\n\n* when plotting multiple attributes, plot.sf adds a (single, common) key if `key.pos` is set\n\n* precision can be specified in distance units; #901\n\n* support log-scale in color legend by setting `logz` to `TRUE` in `plot.sf`\n\n* `st_intersects()` etc. will prepare `y` when `y` is polygons and `x` is points; #885 by Dan Baston\n\n* `st_write()` (and `write_sf()`) returns its first argument, invisibly; #889\n\n# version 0.7-1\n\n* fix bug that broke n-ary `st_intersection()` on platforms using clang; #867\n\n# version 0.7-0\n\n* adds several interfaces to GDAL functions, meant to be used by package `stars`\n\n* `st_read()` receives a `query` argument that can run queries against OGR datasets; #834, by Barry Rowlingson and Michael Sumner\n\n* `read_sf()` no longer first creates tibbles from `data.frame`s, but creates them directly; #853, db propagation by Etienne Racine\n\n* check difference between compile-time and run-time GEOS versions; #844\n\n* all GEOS routines are (more) robust against memory leaks, by using unique pointers; #822, #845, by Dan Baston\n\n* `st_buffer()` receives the buffer styles `endCapStyle`, `joinStyle` and `mitreLimit`; #833, #842 by Michael Sumner\n\n# version 0.6-4\n\n* `st_area()` is a generic; https://github.com/r-spatial/stars/issues/32\n\n* `st_write()` resolves `~` correctly; #456\n\n* read and write feature IDs as sfc list column names; #812\n\n* `st_centroid()` works for empty geometries, returning an empty point #769\n\n* add `st_nearest_points()`, to obtain the (`LINESTRING` connecting the) two nearest points for pairs of geometries; #788\n\n* add hexagonal tiling to `st_make_grid()`\n\n* add regular and hexagonal sampling to `st_sample()`\n\n* fixes for PROJ 5.0.1; #545\n\n* fixes for GDAL 2.3.0; #759\n\n* `st_sample()` supports regular sampling of `LINESTRING`; #725 by @statnmap \n\n* Support reading and writing of database `Pool` objects; #756\n\n* fix plotting of `sf` objects without attributes; #755\n\n* add reference to the [R Journal article](https://journal.r-project.org/articles/RJ-2018-009/index.html) in CITATION\n\n# version 0.6-3\n\n* move dependency `RPostgreSQL` from Imports: back to Suggests:\n\n* `st_centroid.sf()` and `st_point_on_surface.sf` also warn if attributes are not constant over geometries.\n\n* `summarise()` allows the user to define geometries for summaries; #714, by Kirill Mueller\n\n* `plot.sf()` emits a warning if `col` does not have length 1 or `nrow(x)`, and requires `pal` (rather than `col`) to set a palette for factors.\n\n* `plot.sf()` provides control over legend keys using `key.length` and `key.width`, decrease default key length; #731\n\n* `sgbp` objects receive an `as.data.frame` method; #715\n\n# version 0.6-2\n\n* GDAL read/write supports logical variables; #722\n\n* add `st_crop()` to simplify cropping objects with a rectangular area; #720\n\n* fix bug in `[<-` when columns are added to an `sf` object; #718\n\n* use dynamic registration of S3 methods, similar to how hms does this; #710 by Kirill Mueller\n\n* (partially) address writing GPKG to network drive, writing to temp file first; #628\n\n* add Kirill Mueller as contributor\n\n* `st_make_grid()` is faster; #708, by Dan Baston\n\n* `st_read()` and `st_write()` are generic, with methods for directly reading from and writing to database connections; `st_read_db` and `st_write_db` are deprecated; #558, thanks to Etienne Racine @etiennebr\n\n* Package `RPostgreSQL` moved from Suggests to Imports\n\n* restore compatibility with GDAL 2.0.x versions (which won't have `gdal_utils`); #686\n\n* `read_sf()` can also read tables without geometry; #684, by Andy Teucher\n\n# version 0.6-1\n\n* method `distinct()` works; #669, #672\n\n* `+`, `-`, `*` and `/` for pairs of geometries (`sfg`, `sfc`) return geometric union, difference, intersection and symmetric difference, respectively.\n\n* `st_cast()` from `MULTIPOLYGON` to `MULTILINESTRING` should work properly; #660\n\n* all Rcpp interfaces needed by package `stars` have been moved into `sf`; pkg `stars` is R-only, and only `sf` needs linking to GDAL.\n\n* `gdal_utils()` interfaces the 9 gdal utils using the C++ API\n\n* improve resetting (base) plots; add `reset = FALSE` in a call to `plot` to enable adding to plots that have a legend\n\n* `st_read()` returns a `data.frame` when a table contains no geometries, rather than giving an error; it does emit a warning in this case. See https://stat.ethz.ch/pipermail/r-sig-geo/2018-February/026344.html\n\n* move `pillar` from `Imports:` to `Suggests:`\n\n* update to the new rwinlib distribution of gdal (adds JPG2000); #639\n\n* speed up computation of centroids for largest polygon; #623\n\n* add `st_as_sfc.raw` method\n\n* Bugfix: binary operations (`st_intersection`, `st_difference`, etc) no longer fail when operating on data frames of class `\"tbl_df\"` with common column names; #644\n\n# version 0.6-0\n\n* add `pillar` to Imports: to provide method for printing WKT geometries in tibbles\n\n* `st_as_text`, and subsequently `format` and `print`, use argument `digits` (or `options(digits = n)`) to control the number of digits used for printing coordinates; default is `options(\"digits\")`, which is typically 7.\n\n* `st_is_within_distance` works with geographic coordinates\n\n* `st_cast` from `MULTIPOLYGON` to `MULTILINESTRING` no longer changes the number of features/feature geometries, but conversion from `MULTIPOLYGON` to `LINESTRING` (typically) does; #596\n\n* `st_distance` for long/lat geographic coordinates uses `lwgeom`, accepting all geometry types; argument `dist_fun` is deprecated as a consequence, and distance calculations are different from those in sf versions 0.5-5 or earlier; #593\n\n* add package `lwgeom` to Suggests; `st_area`, `st_length`, `st_distance`, `st_segmentize` for long/lat CRS use package `lwgeom` instead of `geosphere`; #593\n\n* `st_length` returns zero for polygon-type geometries; #593\n\n* if present, add units of attribute to default plot title; #591\n\n* add `unnest` method, which depends on `tidyr` > 0.7-2; #570 PR by @karldw\n\n* add `largest` option to `st_join` to get largest intersection match only; #547, by @tiernanmartin\n\n* change default maximum number of feature to print to 10, controllable by `options(sf_max_print)`; #556\n\n* add `Hausdorff` (and `Frechet` for those with GEOS 3.7.0) as options to `st_distance`; add `par` for densified versions\n\n* add `st_snap`, for snapping geometries to other geometries, within a tolerance\n\n* make `st_wrap_dateline` a generic, with methods for `sf`, `sfc` and `sfg`; #541\n\n* `plot.sf` and `st_as_grob` (used by ggplot2) are robust against misspecified ring directions (holes that have the same direction as the exterior rings), by using `rule = \"evenodd\"`; #540\n\n* functions depending on `liblwgeom` (`st_make_valid`, `st_geohash`, `st_plit`) have been moved to their own package, https://github.com/r-spatial/lwgeom; argument `use_gdal` of `st_transform` has been deprecated, instead one can use `lwgeom::st_transform_proj`; sf no longer tries to link to liblwgeom; #509, #537, #487\n\n* `st_read`, `st_sf` and `st_sfc` gain a parameter `check_ring_dir` (default: `FALSE`) that checks ring directions and corrects to: exterior counter clockwise, holes clockwise, when seen from above.\n\n* get rid of `classInt::classIntervals` warning if number of unique values is smaller than the number of breaks asked for\n\n# version 0.5-5\n\n* have `classInt` in Imports:, to not break other package checks\n\n* add vignettes 5: plotting sf objects and 6: miscellaneous; #324\n\n* add (default) color key to `plot.sf` if single map is plotted, contributed by @hughjonesd; #528 \n\n* `st_as_sfc` can read EWKT; #530\n\n* argument `max.plot` takes its default from `options(sf_max.plot=n)`, if present; #516\n\n* `plot.sf` gets an arguments `pal` to specify a color palette function; #526\n\n* `plot.sf` gets arguments `breaks` and `nbreaks`; add support for `classInt::classIntervals` styles for finding class intervals (using `breaks`)\n\n* add `st_as_sf` methods for `ppp`, `lpp` and `psp` objects from spatstat.\n\n* allow for direct route to proj.4 ignoring GDAL (requiring liblwgeom); #509, #511\n\n* add `print` method for `crs` objects; #517\n\n* `sf_extSoftVersion` reveals whether GDAL was linked to GEOS; #510\n\n* better check input of `st_polygon`; #514\n\n* add `st_node`, similar to `rgeos::gNode`\n\n* support for reading `OFTInteger64List` fields; #508\n\n* sparse geometric binary predicate lists have a class, `sgbp`, and attributes `region.id` and `predicate`; #234, #524\n\n* prevent `st_split` from stopping the R session; #492\n\n* `st_intersection`, `st_union` and so on also print a message when used directly on long/lat coordinates; #496\n\n* add `rep` method for `sfc` objects\n\n* comparing two `crs` objects uses the GDAL function `IsSame`; #180\n\n* add `st_collection_extract`, which, given an object with geometries of type `GEOMETRY` or `GEOMETRYCOLLECTION`, returns an object consisting only of elements of the specified type; by Andy Teucher, #482\n\n* `st_write` exports GeoJSON with UTF-8 encoding on Windows; #444\n\n* move package methods from Imports: to Depends: ; #478\n\n* deal better with precision setting and propagation; #476\n\n* fix bug in `st_layers` in case layers have no geometry; #334\n\n* clarify argument `envelope` in `st_voronoi`; #474\n\n* change aggregate to make it return the same geometry as 'by', padding attributes with NA where needed; #453 \n\n# version 0.5-4\n\n* fix compatibility problems introduced by `tidyr` 0.7-0 using rlang magic\n\n* convert path names to UTF-8 in `st_read`, `st_write` and `st_layers`; #471\n\n* `st_sfc` converts `NULL` values into empty geometries, and correctly identifies empty `POINT`s; #466, #463\n\n* `st_write` abbreviates column names if driver is `ESRI Shapefile`; #464\n\n* add `of_largest_polygon` argument to `st_centroid`, to get the centroid of the largest polygon; #450\n\n* fix use of `st_relate` as join predicate for `st_join`; #454\n\n* fix bug where `st_intersects` with empty second argument would crash; #458\n\n* produce better WKT; #463\n\n* fix bug in `st_cast.sf`; #461, #462\n\n* change `st_read` SRS assignment logic; corrects reading projected geojson with gdal 2.2.0; #449\n\n* `st_intersection` etc. on `tbl` also return `tbl`; #448\n\n* `[.sf` preserves class, e.g. of `tbl`; #448\n\n# version 0.5-3\n\n* support and propagate all Proj.4 +units=xx length units; #446\n\n* allow for arith ops on empty `sfc` objects\n\n* have `st_graticule` return an empty graticule object when argument `datum` is `NA`; \n\n* export `as_Spatial`, to make it easier for packages to convert `sfc` objects without importing `sf`\n\n* `st_distance` gains a parameter `by_element` to obtain pairwise distances; #437\n\n* add the ability to `aggregate` using a simple feature `by` argument; #429\n\n* make the `op` argument to `[.sf` work\n\n* speed up `st_coordinates` for `POINT` geometries; #433\n\n* fix performance regression for `st_bbox`; #418\n\n* correct bug in `st_union`, `st_difference` and `st_sym_difference` introduced in 0.5-2; #431\n\n* inform gdal about the CRS always through the proj4string, never through the epsg; see #424\n\n* properly deal with kilometre units; #424 (fixed by Karl Dunkle Werner)\n\n* add `st_is_within_distance`, only to return a sparse index matrix; #419\n\n* have `st_graticule` work with world2 (0,360); #421, #422, fixed by Ben Best\n\n* `st_graticule` to return graticules in native crs; https://github.com/tidyverse/ggplot2/issues/2200 (WIP)\n\n* `st_graticule` to support data in `NA_crs_`; https://github.com/tidyverse/ggplot2/issues/2199\n\n* fix bug when joining an sf-tibble with a `tibble`; #414\n\n* read gdal `StringList`, `RealList`, and `IntegerList` fields into a list-column; #416\n\n# version 0.5-2\n\n* made ready for rwinlib/gdal2; #408\n\n* make `[.sf` for selections including `NA` values like `x[c(1,NA,2)]`; #403\n\n* add a `[<-` method for `sfc` objects; automatically replaces `NULL` with an empty geometry; #411\n\n* add `st_point_on_surface()` to return a point that is guaranteed to be on the surface (standard compliance)\n\n* `read_sf` returns an sf-tibble, an object of class `c(\"sf\", \"tbl_df\", \"tbl\", \"data.frame\")`\n\n* work around for `dplyr::filter` not dispatching geometry column subsetting to `sf::[.sfc`\n\n* allow `units` object as `dist` argument to `st_buffer`; these must be convertable to `arc_degree` for geographic, and to a length unit for non-geographic data; #399\n\n* prevent gdal from crashing when trying to `st_transform` an empty geometry; #398\n\n* add `st_as_sfc` method for `bbox`, returning the bbox polygon; #377\n\n* strip file name extension from default layer name in `st_write`; #392\n\n* have `st_sf` replace `NULL` values in an `sfc` list-column with the appropriate empty geometry; #372\n\n* allow setting `ndiscr` through `ggplot2::coords_sf` to improve graticule plotting in `geom_sf`; #396\n\n# version 0.5-1\n\n* add spatial indexes to most binary geometry operations; #394 and http://r-spatial.org/r/2017/06/22/spatial-index.html\n\n* drastically reduce memory footprint of `st_intersection` and similar; #394\n\n* support RSQLite 2.0 by providing an `st_as_sfc` method for list columns of class `blob`\n\n* drop dependency on dbplyr\n\n# version 0.5-0\n\n* better handle empty/NULL geometries in shapefiles; #351\n\n* add `unite_.sf` method\n\n* deprecate `FUN` argument to `st_join`; #376\n\n* improve graticule tic label placement in `ggplot2`; #375 and https://github.com/tidyverse/ggplot2/issues/2119\n\n* improve `configure` logic to deal with libraries installed in custom locations; #335\n\n* fix bug where `geom_sf` wouldn't deal with Z and/or M geoms; #373\n\n* return more conveniently typed empty geoms; #372 \n\n* fix subsetting with `[` of `sf` using `drop = TRUE`, #370\n\n* in addition to `m`, allow `rad` units to `st_segmentize` \n\n* add example how to `st_read` GeoJSON from a string; #185\n\n* add `separate_.sf` method\n\n* add `st_split` to split geometries (only available if compiled against liblwgeom), #359\n\n* fix bug reading and writing dates (months 1 off): #358\n\n* [.sf and [.sfc also select on i when i is an `sfg` object, and accept a geometric predicate function with optional arguments; #352\n\n* on reading through GDAL, empty (NULL) geometries no longer result in an error; on creation, they no longer automatically give a `GEOMETRY` object; #351\n\n* on plotting with `ggplot2::geom_sf`, empty geometries no longer break; grid functions return `nullGrob()` for them; #351\n\n* arith operations on empty geometries no longer break or give warnings; #351\n\n* have `st_as_sf.data.frame` by default break on `NA` values in coordinates; #342\n\n* have `st_join` accept further arguments, to be passed on to the `join` function (e.g. a pattern for `st_relate`)\n\n* have WKB reader throw an error on (some) malformed inputs, and check for buffer bounds\n\n# version 0.4-3\n\n* back-port `do_union` argument to dplyr <= 0.5.0, using lazyeval\n\n* all strings returned from OGR/GDAL get encoding set to `UTF-8`, making them work on non-UTF-8 platforms; #5\n\n* `$.crs` retrieves proj4string components, such as `st_crs(4326)$datum` in addition to `epsg` and `proj4string`\n\n* let `st_geohash` return geohash for (average) points (only when sf was linked to liblwgeom)\n\n# version 0.4-2\n\n* `summarise.sf` always returns an `sf` object, also for global (non-grouped) summaries.\n\n* `summarise.sf` gains an argument `do_union` which determines whether to union the geometries for which a summary is given, or to `st_combine` them (not resolving boundaries); #331\n\n* rename argument `union` of `aggregate.sf` into `do_union`, for consistency with `summarise`; #331\n\n* add a `nest_` method for `sf` objects\n\n* `st_relate` gets a `pattern` parameter, same as `rgeos::gRelate`; add examples to get rook and queen neighbour lists using this; #234\n\n* support for direct reading of spatialite and sqlite geometry wkb blobs\n\n* build proper support for `cbind` and `rbind` methods for `sf`, which work (as documented) when _all_ arguments are of class `sf`; `dplyr::bind_cols` or `st_sf(data.frame(sf, df))` work for binding `data.frame`s to an `sf` object.\n\n* `st_segmentize()` and `st_line_sample()` accept units arguments\n\n* document problem reading shapefiles from USB drives on OSX; #252\n\n* improve docs of `st_is_valid` and `st_make_valid`; #296\n\n* coercing `sf` to `data.frame` works better; #298\n\n* `st_line_sample` gains argument `sample` to specify the points t.b. sampled; #299 #300 thanks to @joethorley\n\n* add compatibility to upcoming dplyr 0.6.0; #304 #42\n\n* write GDAL fields by name, not by number, fixing a KML problem #308\n\n* `st_write` gains arguments `delete_layer` and `delete_dsn` to allow overwrite capability #307 #274\n\n* `write_sf` defaults to `delete_layer=TRUE`, silently overwriting layers if they're already present\n\n* compatibility with GDAL 2.2beta0; #303; #309\n\n* replace `st_write_db` with a version that is fast for large datasets (#285), thanks to Josh London\n\n* take out more memory leaking examples in tests\n\n* the `aggregate` method for `sf` objects assumes the `by` argument to be identical to that of `stats::aggregate`\n\n* `st_wrap_dateline` wraps (cuts up) geometries crossing the antimeridian, such that they no longer cross it.\n\n# version 0.4-1\n\n* restore 3.3.0 and c++11 requirement\n\n* `st_read` respects time that is read as UTC\n\n* `st_write` writes time always as UTC, since GDAL does not have a mechanism to define local timezones other than \"unknown\" or \"local\"\n\n* `st_length` works for POINT and MULTIPOINT (returning 0); POLYGON and MULTIPOLYGON are converted to MULTILINESTRING before computing length, thus giving polygon perimeter (#268)\n\n* `st_write` has `update` depend on driver; for databases, the default is `TRUE`, otherwise `FALSE` (it refers to update of the database, and not to overwriting the table in the database, this will by default not succeed); #274\n\n* `st_read` supports reading objects with multiple geometry columns #257 #255\n\n* support writing (exporting) objects with non-standard columns, such as `units` or `POSIXlt` #264\n\n* catch dependencies on GEOS 3.3.5 (hence no 0.4-0 CRAN binary for MacOSX) #260\n\n# version 0.4-0\n\n* have `st_is_valid` catch corrupt geometries too, returning `NA` in that case (requiring GEOS 3.5.0)\n\n* add `st_make_valid`, only available when sf was linked to `liblwgeom`\n\n* add `st_coordinates` method, returning coordinates matrix with indexes\n\n* remove `unlist.sfg` \n\n* add `as.matrix.sfg`; have as.matrix.sfg add indexes to coordinates\n\n* add `st_bind_cols` method\n\n* improve handling features that can't be projected \n\n* support uniform sampling over polygons on the sphere\n\n* add `st_sample`, for sampling points on multipoints, linestrings, or polygons\n\n* add `c` method for `sfc` objects\n\n* import and export `magrittr::%>%`\n\n* support ggplot'ing geometrycollections\n\n* drop C++11 requirement, allowing build for older R versions\n\n* add `st_proj_info`, modelled after `rgdal::projInfo`\n\n* overwriting datasets with `st_write()` is no longer allowed; `update=TRUE` appends to them, permitted the driver supports appending.\n\n* `st_write` gains an argument, `update`, which when `TRUE` will try to append to existing datasets (#204)\n\n* added list of corresponding function for migration from sp, rgdal and rgeos to sf at https://github.com/edzer/sfr/wiki/migrating\n\n* remove deprecated `st_list`\n\n* rename `st_makegrid` to `st_make_grid`, and `st_linemerge` to `st_line_merge`\n* add NEWS.md file (#207)\n\n* faster conversion of `data.frame` into `POINT` `sf` object, using `st_as_sf` (Michael Sumner)\n\n* `rbind` method for `sf` objects keeps coordinate reference system\n\n# version 0.3-4, Feb 6, 2017\n\n* add `st_contains_properly` spatial predicate\n\n* GEOS functions (geometry operations) accept XYZ geometries (and ignore Z)\n\n* make `prepared = TRUE` the default for all geometry binary operations\n\n# version 0.3-2, Feb 4, 2017\n\n* add user interrupt checks in all GEOS geometry operations\n\n* make `st_graticule` do something useful for polar projections\n\n* make `st_graticule` return `NA` labels when labels are useless\n\n* add `merge.sf` methods to merge `sf` object and `data.frame` (#193)\n\n* add `st_join` for table joins based on (user-defined) spatial predicates\n\n* add `dplyr`-style non-spatial joins for `sf` objects (`left_join`, `full_join` etc.) (#193)\n\n* allow for multiple non-gathered variables (#196)\n\n* add missing meridian to `st_graticule` (#198)\n\n# version 0.3-1, Jan 31, 2017\n\n* add `merge` method (#193)\n\n* `st_graticule` for laea (#198)\n\n* allow `st_buffer` with feature-dependent buffer distance (#197)\n\n* have `spread` return an `sf` object (#196)\n\n* clarify `overwrite = TRUE` in write docs\n\n* fix `st_as_sf.map` (#194)\n\n* add `prepared` arg to spatial binary predicates, to speed up large intersections\n\n* add `st_voronoi` interface (requires that lib GEOS >= 3.5.0)\n\n* add `st_as_sf` methods for `map` objects (library maps)\n\n* add RStudio project file\n\n* have `st_bbox` return a `bbox` object which has an `st_crs` method\n\n* rename `st_drop_zm` into `st_zm`, for general more handling of Z and M\n\n* allow for 3D coordinates returned, when `+proj=geocent` (#172; #103)\n\n* fix `NA_integer_` handling in shapefiles I/O (#184)\n\n* add and fix `st_agr` API, to set and get attribute-to-geometry relationships\n\n# version 0.2-8, Jan 5, 2017\n\n"
},
{
"path": "PROPOSAL.md",
"content": "# Simple Features for R\n\nApplicant: [Edzer Pebesma](https://github.com/edzer/), [Institute for Geoinformatics](https://www.uni-muenster.de/Geoinformatics/en/), University of Muenster, Germany; [edzer.pebesma@uni-muenster.de](mailto:edzer.pebesma@uni-muenster.de)\n\nSupporting authors: Edzer Pebesma, Roger Bivand, Michael Sumner, Robert Hijmans, Virgilio Gómez-Rubio\n\n[Simple features](https://en.wikipedia.org/wiki/Simple_Features) is an open ([OGC](https://www.ogc.org/standard/sfa/) and [ISO](https://www.iso.org/standard/40114.html)) interface standard for access and manipulation of spatial vector data (points, lines, polygons). It includes a standard [SQL schema](http://www.opengeospatial.org/standards/sfs) that supports storage, retrieval, query and update of feature collections via a SQL interface. All commonly used databases provide this interface. [GeoJSON](https://geojson.org/) is a standard for encoding simple features in JSON, and is used in JavaScript and MongoDB. Well-known-text ([WKT](https://en.wikipedia.org/wiki/Well-known_text)) is a text representation of simple features used often in linked data; well-known-binary ([WKB] (https://en.wikipedia.org/wiki/Well-known_text)) a standard binary representation used in databases. _Simple Feature Access_ defines coordinate reference systems, and makes it easy to move data from longitude-latitude to projections back and forth in a standardized way. \n\n\n[GDAL](https://gdal.org/) is an open source C++ library for reading and writing both raster and vector data with more than 225 drivers (supported file formats, data base connectors, web service interfaces). GDAL is used by practically all open source geospatial projects and by many industry products (including ESRI's ArcGIS, ERDAS, and FME). It provides coordinate transformations (built on top of PROJ.4) and geometric operations (e.g. polygon intersections, unions, buffers and distance). Standards for coordinate transformations change over time; such changes are typically adopted directly in GDAL/PROJ.4 but do not easily find their way into R-only packages such as `mapproj`.\n\nSince [2005](https://stat.ethz.ch/pipermail/r-sig-geo/2005-April/000378.html), CRAN has package [sp](https://cran.r-project.org/package=sp) which provides classes and methods for spatial (point, line, polygon and raster) data. The approach `sp` takes is similar to how `xts` and `zoo` handle the time index of time series data: objects store spatial geometries separately from associated attribute data, matching by order. Package [spacetime](https://cran.r-project.org/package=spacetime), on CRAN since 2010, extends both `sp` and `xts` to handle data that varies over both space and time.\n\nToday, 221 CRAN packages depend on, import or link to `sp`, 259 when including _Suggests_; when including recursive dependencies these numbers are 376 and 5040. The implementation of `sp` does not follow simple features, but rather the practice used at the time of release, following how ESRI shapefiles are implemented. The cluster of packages around `sp` is shown in Andrie de Vries' [blog on CRAN's network structure](https://blog.revolutionanalytics.com/2015/07/the-network-structure-of-cran.html) in green.\n\nOff-CRAN package [rgdal2](https://github.com/thk686/rgdal2) is an interface to GDAL 2.0, which uses raw pointers to interface features, but does not import any data in R, using GDAL to handle everything. CRAN Package [wkb](https://cran.r-project.org/package=wkb), contributed by Tibco Software, converts between WKB representations of several simple feature classes and corresponding classes in `sp`, and seems to be needed for Tibco software purposes.\n\n\n\n## The problem\n\nThe problems we will solve are:\n\n1. R can currently not represent simple features directly. It can read most simple feature classes in `sp` classes, but uses its own representation for this, and can only write data back without loss of information if it is furnished with ancilliary metadata encoded in a comment attribute to each Polygons object. It does for instance internally not distinguish between `POLYGON` and `MULTIPOLYGON` nor deal with several simple feature classes, including `TIN` and `GEOMETRYCOLLECTION`, nor handle `CURVE` geometries.\n2. The current implementation of lines and vector data in package `sp` is partly ambiguous (both slot `ringDir` or slot `hole` indicate whether a Polygon is a hole but are superceded by the comment attribute), complicated (to which exterior polygon does a hole belong - handled by the comment attribute), and by some considered difficult to work with (S4). The current implementation is hard to maintain because it contains incremental changes from a baseline that predated the industry-standard OGC/ISO ([Simple Feature Interface Specification](https://www.ogc.org/standard/sfa/)).\n3. The lack of support for simple features makes current interfaces to open source libraries (GDAL/OGR and PROJ.4: rgdal, GEOS: rgeos) difficult to understand and maintain, even though they work to specification.\n4. The current implementation has no [scale model](https://libgeos.org/doxygen/classgeos_1_1geom_1_1PrecisionModel.html#details) for coordinates.\n5. It is desirable that other R packages are offered the opportunity to migrate to more up-to-date libraries for coordinate transformations (providing proper support for datum transformation), and to avoid having to make simplifying assumptions (e.g., all spatial data come as longitude/latitude using datum `WGS84`; all web maps use [_web Mercator_](https://en.wikipedia.org/wiki/Web_Mercator)).\n\nWhich users will benefit from solving these problems? It will mainly affect those who use data bases or modern javascript-based web APIs which largely converged on adopting simple features (such as [CartoDB](https://cartodb.com/)), as well as those who need a simpler and more light-weight handling of spatial data in R. It will also reduce the effort for users and developers to understand the way spatial information is represented in R, making it easier to build upon and reuse the R code for this, and lead to a good, sustainable shared R code base.\n\nIn the longer run it will affect users of all packages currently reusing `sp` classes, when we manage to migrate `sp` to exclusively use the simple feature classes for representing vector data. Since the recent [2.0](https://gdal.org/index.html) release of GDAL integrates raster and vector data, having an R package that mirrors its classes makes it possible to implement operations in-database (similar to what `DBI`, `RPostgreSQL` and `dplyr` do), making it possible for R to manipulate spatial data that do not fit in memory.\n\nBig Data analysis with R often proceeds by connecting R to a database that holds the data. All commonly used commercial and open source databases store spatial point, line and polygon data in the form of simple features. Representing simple features in R will simplify big data analysis for spatial data.\n\n## The plan\n\nWe want to solve the problem by carrying out the following steps (M1 refers to month 1):\n\n1. develop an R package that implements simple features in R, that is simple yet gives users access to the complete data, and includes an S3 representation that extends `data.frame` (M1-3)\n2. add to this package a C++ interface to GDAL 2.0, to read and write simple feature data, and to interface other functionality (coordinate transformation, geometry operations) (M3-8)\n3. develop and prototypically implement a migration path for sp to become compliant with simple features (M7-12)\n4. write user-oriented tutorial vignettes showing how to use it with files, data base connections, web API's, leaflet, ggmap, dplyr and so on (M7-10)\n5. write a tutorial vignette for R package writers reusing the package (M10)\n6. Collect and process community feed back (M6-12).\n\nFailure modes and recovery plan:\n\n1. Failure mode: S3 classes are too simple to represent simple\nfeatures class hierarchy. Recovery plan: try (i) using a list column\nwith geometry, and nested lists to represent nested structures; (ii) \nuse a `WKT` character column; (iii) using a `WKB` blob column\n\n2. Migrating `sp` breaks downstream packages. Recovery plan: involve\nRoger Bivand, Barry Rowlingson, Robert Hijmans (`raster`)\nand Tim Keitt (`rgdal`/`rgdal2`) how to proceed; be patient and\nsmooth out problems together with package maintainers.\n\n## How can the ISC help\n\nThe following table contains the cost items.\n\n| Item | Cost |\n| ---- | ---- |\n| employ a student assistant for one year (10 hrs/week) | € 6500 |\n| one week visit of Roger Bivand to the Inst. for Geoinformatics | € 1000 |\n| present the results at UseR! 2016 | € 1500 |\n| Total: | € 9000 (9750 USD) |\n\nThe visit of Roger is anticipated halfway the project; further communications will use skype. The project has a planned duration of 12 months.\n\n## Dissemination\n\nDevelopment will take place on github, information will be shared and reactions and contributions invited through [r-sig-geo](https://stat.ethz.ch/mailman/listinfo/r-sig-geo), as well as [StackOverflow](https://stackoverflow.com/) and [GIS StackExchange](https://gis.stackexchange.com/). The project will use an Apache 2.0 license for maximum dissemination (similar to GDAL, which uses X/MIT). The work will be published in 4 blogs (quarterly), announced on r-sig-geo (3300 subscribers), and intermediary results will be presented at [UseR! 2016](https://www.r-project.org/conferences/useR-2016/). The final result will be published in a paper either submitted to [The R Journal](https://journal.r-project.org/) or to the [Journal of Statistical Software](https://www.jstatsoft.org/index); this paper will be available before publication as a package vignette.\n\n## UseR! slides\n\nUseR! 2016 slides are found [here](https://pebesma.staff.ifgi.de/pebesma_sfr.pdf).\n"
},
{
"path": "R/RcppExports.R",
"content": "# Generated by using Rcpp::compileAttributes() -> do not edit by hand\n# Generator token: 10BE3573-1514-4C36-9D1C-5A225CD40393\n\nCPL_get_bbox <- function(sf, depth = 0L) {\n .Call(`_sf_CPL_get_bbox`, sf, depth)\n}\n\nCPL_gdal_init <- function() {\n invisible(.Call(`_sf_CPL_gdal_init`))\n}\n\nCPL_gdal_cleanup_all <- function() {\n invisible(.Call(`_sf_CPL_gdal_cleanup_all`))\n}\n\nCPL_gdal_version <- function(what = \"RELEASE_NAME\") {\n .Call(`_sf_CPL_gdal_version`, what)\n}\n\nCPL_crs_parameters <- function(crs) {\n .Call(`_sf_CPL_crs_parameters`, crs)\n}\n\nCPL_crs_equivalent <- function(crs1, crs2) {\n .Call(`_sf_CPL_crs_equivalent`, crs1, crs2)\n}\n\nCPL_crs_from_input <- function(input) {\n .Call(`_sf_CPL_crs_from_input`, input)\n}\n\nCPL_roundtrip <- function(sfc) {\n .Call(`_sf_CPL_roundtrip`, sfc)\n}\n\nCPL_circularstring_to_linestring <- function(sfc) {\n .Call(`_sf_CPL_circularstring_to_linestring`, sfc)\n}\n\nCPL_multisurface_to_multipolygon <- function(sfc) {\n .Call(`_sf_CPL_multisurface_to_multipolygon`, sfc)\n}\n\nCPL_compoundcurve_to_linear <- function(sfc) {\n .Call(`_sf_CPL_compoundcurve_to_linear`, sfc)\n}\n\nCPL_curve_to_linestring <- function(sfc) {\n .Call(`_sf_CPL_curve_to_linestring`, sfc)\n}\n\nCPL_can_transform <- function(src, dst) {\n .Call(`_sf_CPL_can_transform`, src, dst)\n}\n\nCPL_transform <- function(sfc, crs, AOI, pipeline, reverse = FALSE, desired_accuracy = -1.0, allow_ballpark = TRUE) {\n .Call(`_sf_CPL_transform`, sfc, crs, AOI, pipeline, reverse, desired_accuracy, allow_ballpark)\n}\n\nCPL_transform_bounds <- function(bb, crs_dst, densify_pts = 21L) {\n .Call(`_sf_CPL_transform_bounds`, bb, crs_dst, densify_pts)\n}\n\nCPL_wrap_dateline <- function(sfc, opt, quiet = TRUE) {\n .Call(`_sf_CPL_wrap_dateline`, sfc, opt, quiet)\n}\n\nCPL_get_gdal_drivers <- function(dummy) {\n .Call(`_sf_CPL_get_gdal_drivers`, dummy)\n}\n\nCPL_sfc_from_wkt <- function(wkt) {\n .Call(`_sf_CPL_sfc_from_wkt`, wkt)\n}\n\nCPL_gdal_with_geos <- function() {\n .Call(`_sf_CPL_gdal_with_geos`)\n}\n\nCPL_axis_order_authority_compliant <- function(authority_compliant) {\n .Call(`_sf_CPL_axis_order_authority_compliant`, authority_compliant)\n}\n\nCPL_compressors <- function() {\n .Call(`_sf_CPL_compressors`)\n}\n\nCPL_area <- function(sfc) {\n .Call(`_sf_CPL_area`, sfc)\n}\n\nCPL_gdal_dimension <- function(sfc, NA_if_empty = TRUE) {\n .Call(`_sf_CPL_gdal_dimension`, sfc, NA_if_empty)\n}\n\nCPL_length <- function(sfc) {\n .Call(`_sf_CPL_length`, sfc)\n}\n\nCPL_gdal_segmentize <- function(sfc, dfMaxLength = 0.0) {\n .Call(`_sf_CPL_gdal_segmentize`, sfc, dfMaxLength)\n}\n\nCPL_gdal_linestring_sample <- function(sfc, distLst) {\n .Call(`_sf_CPL_gdal_linestring_sample`, sfc, distLst)\n}\n\nCPL_get_layers <- function(datasource, options, do_count = FALSE) {\n .Call(`_sf_CPL_get_layers`, datasource, options, do_count)\n}\n\nCPL_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) {\n .Call(`_sf_CPL_read_ogr`, datasource, layer, query, options, quiet, toTypeUser, fid_column_name, drivers, wkt_filter, promote_to_multi, int64_as_string, dsn_exists, dsn_isdb, width)\n}\n\nCPL_read_gdal_stream <- function(stream_xptr, datasource, layer, query, options, quiet, drivers, wkt_filter, dsn_exists, dsn_isdb, fid_column, width) {\n .Call(`_sf_CPL_read_gdal_stream`, stream_xptr, datasource, layer, query, options, quiet, drivers, wkt_filter, dsn_exists, dsn_isdb, fid_column, width)\n}\n\nCPL_gdalinfo <- function(obj, options, oo, co) {\n .Call(`_sf_CPL_gdalinfo`, obj, options, oo, co)\n}\n\nCPL_ogrinfo <- function(obj, options, oo, co, read_only = FALSE) {\n .Call(`_sf_CPL_ogrinfo`, obj, options, oo, co, read_only)\n}\n\nCPL_gdaladdo <- function(obj, method, overviews, bands, oo, co, clean = FALSE, read_only = FALSE) {\n .Call(`_sf_CPL_gdaladdo`, obj, method, overviews, bands, oo, co, clean, read_only)\n}\n\nCPL_gdalwarp <- function(src, dst, options, oo, doo, co, quiet = TRUE, overwrite = FALSE) {\n .Call(`_sf_CPL_gdalwarp`, src, dst, options, oo, doo, co, quiet, overwrite)\n}\n\nCPL_gdalrasterize <- function(src, dst, options, oo, doo, co, overwrite = FALSE, quiet = TRUE) {\n .Call(`_sf_CPL_gdalrasterize`, src, dst, options, oo, doo, co, overwrite, quiet)\n}\n\nCPL_gdaltranslate <- function(src, dst, options, oo, co, quiet = TRUE) {\n .Call(`_sf_CPL_gdaltranslate`, src, dst, options, oo, co, quiet)\n}\n\nCPL_gdalfootprint <- function(src, dst, options, oo, co, quiet = TRUE) {\n .Call(`_sf_CPL_gdalfootprint`, src, dst, options, oo, co, quiet)\n}\n\nCPL_gdalvectortranslate <- function(src, dst, options, oo, doo, co, quiet = TRUE) {\n .Call(`_sf_CPL_gdalvectortranslate`, src, dst, options, oo, doo, co, quiet)\n}\n\nCPL_gdalbuildvrt <- function(src, dst, options, oo, co, quiet = TRUE) {\n .Call(`_sf_CPL_gdalbuildvrt`, src, dst, options, oo, co, quiet)\n}\n\nCPL_gdaldemprocessing <- function(src, dst, options, processing, colorfilename, oo, co, quiet = TRUE) {\n .Call(`_sf_CPL_gdaldemprocessing`, src, dst, options, processing, colorfilename, oo, co, quiet)\n}\n\nCPL_gdalnearblack <- function(src, dst, options, oo, doo, co, quiet = TRUE) {\n .Call(`_sf_CPL_gdalnearblack`, src, dst, options, oo, doo, co, quiet)\n}\n\nCPL_gdalgrid <- function(src, dst, options, oo, co, quiet = TRUE) {\n .Call(`_sf_CPL_gdalgrid`, src, dst, options, oo, co, quiet)\n}\n\nCPL_gdalmdiminfo <- function(obj, options, oo, co) {\n .Call(`_sf_CPL_gdalmdiminfo`, obj, options, oo, co)\n}\n\nCPL_gdalmdimtranslate <- function(src, dst, options, oo, co, quiet = TRUE) {\n .Call(`_sf_CPL_gdalmdimtranslate`, src, dst, options, oo, co, quiet)\n}\n\nCPL_gdal_warper <- function(infile, outfile, options, oo, doo, co, quiet = TRUE) {\n .Call(`_sf_CPL_gdal_warper`, infile, outfile, options, oo, doo, co, quiet)\n}\n\nCPL_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) {\n .Call(`_sf_CPL_write_ogr`, obj, dsn, layer, driver, dco, lco, geom, dim, fids, ConfigOptions, quiet, append, delete_dsn, delete_layer, write_geometries, width)\n}\n\nCPL_delete_ogr <- function(dsn, layer, driver, quiet = TRUE) {\n .Call(`_sf_CPL_delete_ogr`, dsn, layer, driver, quiet)\n}\n\nCPL_geos_binop <- function(sfc0, sfc1, op, par = 0.0, pattern = \"\", prepared = FALSE) {\n .Call(`_sf_CPL_geos_binop`, sfc0, sfc1, op, par, pattern, prepared)\n}\n\nCPL_geos_binop_by_element <- function(sfc0, sfc1, op, par, pattern, prepared) {\n .Call(`_sf_CPL_geos_binop_by_element`, sfc0, sfc1, op, par, pattern, prepared)\n}\n\nCPL_geos_is_valid_reason <- function(sfc) {\n .Call(`_sf_CPL_geos_is_valid_reason`, sfc)\n}\n\nCPL_geos_make_valid <- function(sfc, method, keep_collapsed) {\n .Call(`_sf_CPL_geos_make_valid`, sfc, method, keep_collapsed)\n}\n\nCPL_geos_is_valid <- function(sfc, NA_on_exception = TRUE) {\n .Call(`_sf_CPL_geos_is_valid`, sfc, NA_on_exception)\n}\n\nCPL_geos_is_simple <- function(sfc) {\n .Call(`_sf_CPL_geos_is_simple`, sfc)\n}\n\nCPL_geos_is_empty <- function(sfc) {\n .Call(`_sf_CPL_geos_is_empty`, sfc)\n}\n\nCPL_geos_normalize <- function(sfc) {\n .Call(`_sf_CPL_geos_normalize`, sfc)\n}\n\nCPL_geos_union <- function(sfc, by_feature = FALSE, is_coverage = FALSE) {\n .Call(`_sf_CPL_geos_union`, sfc, by_feature, is_coverage)\n}\n\nCPL_geos_snap <- function(sfc0, sfc1, tolerance) {\n .Call(`_sf_CPL_geos_snap`, sfc0, sfc1, tolerance)\n}\n\nCPL_geos_op <- function(op, sfc, bufferDist, nQuadSegs, dTolerance, preserveTopology, bOnlyEdges = 1L, endCapStyle = 0L, joinStyle = 0L, mitreLimit = 1L, singleside = 0L) {\n .Call(`_sf_CPL_geos_op`, op, sfc, bufferDist, nQuadSegs, dTolerance, preserveTopology, bOnlyEdges, endCapStyle, joinStyle, mitreLimit, singleside)\n}\n\nCPL_geos_voronoi <- function(sfc, env, dTolerance = 0.0, bOnlyEdges = 1L) {\n .Call(`_sf_CPL_geos_voronoi`, sfc, env, dTolerance, bOnlyEdges)\n}\n\nCPL_geos_op2 <- function(op, sfcx, sfcy) {\n .Call(`_sf_CPL_geos_op2`, op, sfcx, sfcy)\n}\n\nCPL_geos_dist_by_element <- function(sfc0, sfc1, which, par) {\n .Call(`_sf_CPL_geos_dist_by_element`, sfc0, sfc1, which, par)\n}\n\nCPL_geos_version <- function(runtime = FALSE, capi = FALSE) {\n .Call(`_sf_CPL_geos_version`, runtime, capi)\n}\n\nCPL_geos_op2_by_element <- function(op, sfcx, sfcy) {\n .Call(`_sf_CPL_geos_op2_by_element`, op, sfcx, sfcy)\n}\n\nCPL_geos_dist <- function(sfc0, sfc1, which, par) {\n .Call(`_sf_CPL_geos_dist`, sfc0, sfc1, which, par)\n}\n\nCPL_geos_nearest_feature <- function(sfc0, sfc1) {\n .Call(`_sf_CPL_geos_nearest_feature`, sfc0, sfc1)\n}\n\nCPL_geos_nearest_points <- function(sfc0, sfc1, pairwise) {\n .Call(`_sf_CPL_geos_nearest_points`, sfc0, sfc1, pairwise)\n}\n\nCPL_transpose_sparse_incidence <- function(m, n) {\n .Call(`_sf_CPL_transpose_sparse_incidence`, m, n)\n}\n\nCPL_nary_difference <- function(sfc) {\n .Call(`_sf_CPL_nary_difference`, sfc)\n}\n\nCPL_nary_intersection <- function(sfc) {\n .Call(`_sf_CPL_nary_intersection`, sfc)\n}\n\nCPL_line_project <- function(lines, points, normalized) {\n .Call(`_sf_CPL_line_project`, lines, points, normalized)\n}\n\nCPL_line_interpolate <- function(lines, dists, normalized) {\n .Call(`_sf_CPL_line_interpolate`, lines, dists, normalized)\n}\n\nCPL_hex_to_raw <- function(cx) {\n .Call(`_sf_CPL_hex_to_raw`, cx)\n}\n\nCPL_raw_to_hex <- function(raw) {\n .Call(`_sf_CPL_raw_to_hex`, raw)\n}\n\nCPL_read_mdim <- function(file, array_names, oo, offset, count, step, proxy = FALSE, debug = FALSE) {\n .Call(`_sf_CPL_read_mdim`, file, array_names, oo, offset, count, step, proxy, debug)\n}\n\nCPL_write_mdim <- function(name, driver, dimensions, variables, wkt, xy, RootGroupOptions, CreationOptions, as_float = TRUE) {\n .Call(`_sf_CPL_write_mdim`, name, driver, dimensions, variables, wkt, xy, RootGroupOptions, CreationOptions, as_float)\n}\n\nopp_sfc <- function(geom, value, mult, crs) {\n .Call(`_sf_opp_sfc`, geom, value, mult, crs)\n}\n\nnormalize_sfc <- function(geom, min, range, crs) {\n .Call(`_sf_normalize_sfc`, geom, min, range, crs)\n}\n\nCPL_polygonize <- function(raster, mask_name, raster_driver, vector_driver, vector_dsn, options, iPixValField, contour_options, use_contours = FALSE, use_integer = TRUE) {\n .Call(`_sf_CPL_polygonize`, raster, mask_name, raster_driver, vector_driver, vector_dsn, options, iPixValField, contour_options, use_contours, use_integer)\n}\n\nCPL_rasterize <- function(raster, raster_driver, sfc, values, options, NA_value) {\n .Call(`_sf_CPL_rasterize`, raster, raster_driver, sfc, values, options, NA_value)\n}\n\nCPL_proj_h <- function(b = FALSE) {\n .Call(`_sf_CPL_proj_h`, b)\n}\n\nCPL_get_pipelines <- function(crs, authority, AOI, Use, grid_availability, accuracy = -1.0, strict_containment = FALSE, axis_order_auth_compl = FALSE) {\n .Call(`_sf_CPL_get_pipelines`, crs, authority, AOI, Use, grid_availability, accuracy, strict_containment, axis_order_auth_compl)\n}\n\nCPL_get_data_dir <- function(from_proj = FALSE) {\n .Call(`_sf_CPL_get_data_dir`, from_proj)\n}\n\nCPL_is_network_enabled <- function(b = FALSE) {\n .Call(`_sf_CPL_is_network_enabled`, b)\n}\n\nCPL_enable_network <- function(url, enable = TRUE) {\n .Call(`_sf_CPL_enable_network`, url, enable)\n}\n\nCPL_set_data_dir <- function(data_dir, with_proj) {\n .Call(`_sf_CPL_set_data_dir`, data_dir, with_proj)\n}\n\nCPL_use_proj4_init_rules <- function(v) {\n .Call(`_sf_CPL_use_proj4_init_rules`, v)\n}\n\nCPL_proj_version <- function(b = FALSE) {\n .Call(`_sf_CPL_proj_version`, b)\n}\n\nCPL_proj_is_valid <- function(proj4string) {\n .Call(`_sf_CPL_proj_is_valid`, proj4string)\n}\n\nCPL_have_datum_files <- function(foo) {\n .Call(`_sf_CPL_have_datum_files`, foo)\n}\n\nCPL_proj_direct <- function(from_to, pts, keep, warn = TRUE, authority_compliant = FALSE) {\n .Call(`_sf_CPL_proj_direct`, from_to, pts, keep, warn, authority_compliant)\n}\n\nCPL_proj_info <- function(type) {\n .Call(`_sf_CPL_proj_info`, type)\n}\n\nCPL_xy2sfc <- function(cc, dim, to_points, which, cc_has_NAs) {\n .Call(`_sf_CPL_xy2sfc`, cc, dim, to_points, which, cc_has_NAs)\n}\n\nsfc_is_null <- function(sfc) {\n .Call(`_sf_sfc_is_null`, sfc)\n}\n\nsfc_unique_sfg_dims_and_types <- function(sfc) {\n .Call(`_sf_sfc_unique_sfg_dims_and_types`, sfc)\n}\n\nsfc_is_empty <- function(sfc) {\n .Call(`_sf_sfc_is_empty`, sfc)\n}\n\nsfc_is_full <- function(sfc) {\n .Call(`_sf_sfc_is_full`, sfc)\n}\n\npoints_cpp <- function(pts, gdim = \"XY\") {\n .Call(`_sf_points_cpp`, pts, gdim)\n}\n\nCPL_signed_area <- function(pts) {\n .Call(`_sf_CPL_signed_area`, pts)\n}\n\nCPL_get_metadata <- function(obj, domain_item, options) {\n .Call(`_sf_CPL_get_metadata`, obj, domain_item, options)\n}\n\nCPL_get_crs <- function(obj, options) {\n .Call(`_sf_CPL_get_crs`, obj, options)\n}\n\nCPL_inv_geotransform <- function(gt_r) {\n .Call(`_sf_CPL_inv_geotransform`, gt_r)\n}\n\nCPL_read_gdal <- function(fname, options, driver, read_data, NA_value, RasterIO_parameters, max_cells) {\n .Call(`_sf_CPL_read_gdal`, fname, options, driver, read_data, NA_value, RasterIO_parameters, max_cells)\n}\n\nCPL_write_gdal <- function(x, fname, driver, options, Type, dims, from, gt, p4s, na_val, scale_offset, create = TRUE, only_create = FALSE) {\n invisible(.Call(`_sf_CPL_write_gdal`, x, fname, driver, options, Type, dims, from, gt, p4s, na_val, scale_offset, create, only_create))\n}\n\nCPL_extract <- function(input, xy, interpolate) {\n .Call(`_sf_CPL_extract`, input, xy, interpolate)\n}\n\nCPL_create <- function(file, nxy, value, wkt, xlim, ylim) {\n invisible(.Call(`_sf_CPL_create`, file, nxy, value, wkt, xlim, ylim))\n}\n\nCPL_read_wkb <- function(wkb_list, EWKB = FALSE, spatialite = FALSE) {\n .Call(`_sf_CPL_read_wkb`, wkb_list, EWKB, spatialite)\n}\n\nCPL_write_wkb <- function(sfc, EWKB = FALSE) {\n .Call(`_sf_CPL_write_wkb`, sfc, EWKB)\n}\n\nCPL_get_z_range <- function(sf, depth) {\n .Call(`_sf_CPL_get_z_range`, sf, depth)\n}\n\nCPL_get_m_range <- function(sf, depth) {\n .Call(`_sf_CPL_get_m_range`, sf, depth)\n}\n\n# Register entry points for exported C++ functions\nmethods::setLoadAction(function(ns) {\n .Call(`_sf_RcppExport_registerCCallable`)\n})\n"
},
{
"path": "R/aggregate.R",
"content": "#' aggregate an \\code{sf} object\n#'\n#' aggregate an \\code{sf} object, possibly union-ing geometries\n#' \n#' @note Does not work using the formula notation involving \\code{~} defined in \\link[stats]{aggregate}.\n#' \n#' @param x object of class \\link{sf}\n#' @param by either a list of grouping vectors with length equal to \\code{nrow(x)} (see \\link[stats]{aggregate}), or an object of class \\code{sf} or \\code{sfc} with geometries that are used to generate groupings, using the binary predicate specified by the argument \\code{join}\n#' @param FUN function passed on to \\link[stats]{aggregate}, in case \\code{ids} was specified and attributes need to be grouped\n#' @param ... arguments passed on to \\code{FUN}\n#' @param do_union logical; should grouped geometries be unioned using \\link{st_union}? See details.\n#' @param simplify logical; see \\link[stats]{aggregate}\n#' @param join logical spatial predicate function to use if \\code{by} is a simple features object or geometry; see \\link{st_join}\n#' @return an \\code{sf} object with aggregated attributes and geometries; additional grouping variables having the names of \\code{names(ids)} or are named \\code{Group.i} for \\code{ids[[i]]}; see \\link[stats]{aggregate}.\n#' @details In case \\code{do_union} is \\code{FALSE}, \\code{aggregate} will simply combine geometries using \\link{c.sfg}. When polygons sharing a boundary are combined, this leads to geometries that are invalid; see \\url{https://github.com/r-spatial/sf/issues/681}.\n#' @aliases aggregate\n#' @examples\n#' m1 = cbind(c(0, 0, 1, 0), c(0, 1, 1, 0))\n#' m2 = cbind(c(0, 1, 1, 0), c(0, 0, 1, 0))\n#' pol = st_sfc(st_polygon(list(m1)), st_polygon(list(m2)))\n#' set.seed(1985)\n#' d = data.frame(matrix(runif(15), ncol = 3))\n#' p = st_as_sf(x = d, coords = 1:2)\n#' plot(pol)\n#' plot(p, add = TRUE)\n#' (p_ag1 = aggregate(p, pol, mean))\n#' plot(p_ag1) # geometry same as pol\n#' # works when x overlaps multiple objects in 'by':\n#' p_buff = st_buffer(p, 0.2)\n#' plot(p_buff, add = TRUE)\n#' (p_ag2 = aggregate(p_buff, pol, mean)) # increased mean of second\n#' # with non-matching features\n#' m3 = cbind(c(0, 0, -0.1, 0), c(0, 0.1, 0.1, 0))\n#' pol = st_sfc(st_polygon(list(m3)), st_polygon(list(m1)), st_polygon(list(m2)))\n#' (p_ag3 = aggregate(p, pol, mean))\n#' plot(p_ag3)\n#' # In case we need to pass an argument to the join function:\n#' (p_ag4 = aggregate(p, pol, mean, \n#' join = function(x, y) st_is_within_distance(x, y, dist = 0.3)))\n#' @export\naggregate.sf = function(x, by, FUN, ..., do_union = TRUE, simplify = TRUE,\n\t\tjoin = st_intersects) {\n\n\tif (inherits(by, \"sf\") || inherits(by, \"sfc\")) {\n\t\tif (inherits(by, \"sfc\"))\n\t\t\tby = st_sf(by)\n\t\ti = join(st_geometry(by), st_geometry(x))\n\t\tst_geometry(x) = NULL\n\t\t# dispatch to stats::aggregate:\n\t\ta = aggregate(x[unlist(i), , drop = FALSE],\n\t\t\tlist(rep(seq_len(nrow(by)), lengths(i))), FUN, ...)\n\t\tnrow_diff = nrow(by) - nrow(a)\n\n\t\tif (is.matrix(a[[2]])) # https://github.com/r-spatial/sf/issues/2375\n\t\t\ta = data.frame(a[1], as.data.frame(a[[2]]))\n\n\t\tif(nrow_diff > 0) {\n\t\t\ta_na = a[rep(NA, nrow(by)),] # 'top-up' missing rows\n\t\t\ta_na[a$Group.1,] = a\n\t\t\ta = a_na\n\t\t}\n\t\ta$Group.1 = NULL # remove\n\t\trow.names(a) = row.names(by)\n\t\tst_set_geometry(a, st_geometry(by))\n\t} else {\n\t\tcrs = st_crs(x)\n\t\tlst = lapply(split(st_geometry(x), by), function(y) do.call(c, y))\n\t\tgeom = do.call(st_sfc, lst[!sapply(lst, is.null)])\n\n\t\tif (do_union)\n\t\t\tgeom = st_union(st_set_precision(geom, st_precision(x)), by_feature = TRUE)\n\n\t\tst_geometry(x) = NULL\n\t\tx = aggregate(x, by, FUN, ..., simplify = simplify)\n\t\tst_geometry(x) = geom # coerces to sf\n\t\tst_crs(x) = crs\n\n\t\t# now set agr:\n\t\tgeoms = which(vapply(x, function(vr) inherits(vr, \"sfc\"), TRUE))\n\t\tagr_names = names(x)[-geoms]\n\t\tagr = rep(\"aggregate\", length(agr_names))\n\t\tnames(agr) = agr_names\n\t\t# which ones are identity variables?\n\t\tn = if (!is.null(names(by)))\n\t\t\tnames(by)\n\t\telse\n\t\t\tpaste0(\"Group.\", seq_along(by))\n\t\tagr[n] = \"identity\"\n\t\tst_set_agr(x, agr)\n\t}\n}\n\n#' Area-weighted interpolation or dasymetric mapping of polygon data\n#'\n#' Area-weighted interpolation or dasymetric mapping of polygon data\n#' @name interpolate_aw\n#' @param x object of class \\code{sf}, for which we want to aggregate attributes\n#' @param to object of class \\code{sf} or \\code{sfc}, with the target geometries\n#' @param extensive logical; if TRUE, the attribute variables are assumed to be spatially extensive (like population) and the sum is preserved, otherwise, spatially intensive (like population density) and the mean is preserved.\n#' @param na.rm logical; if `TRUE` remove features with `NA` attributes from `x` before interpolating\n#' @param ... ignored\n#' @param keep_NA logical; if \\code{TRUE}, return all features in \\code{to}, if \\code{FALSE} return only those with non-NA values (but with \\code{row.names} the index corresponding to the feature in \\code{to})\n#' @param include_non_intersected logical; for the case when `extensive=FALSE`, when set to `TRUE` divide by the target areas (including non-intersected areas), \n#' when `FALSE` divide by the sum of the source areas.\n#' @param weights character; name of column in `to` that indicates (extensive) weights, to be used instead of areas, for redistributing attributes in `x`; currently only works for `extensive=TRUE`.\n#' @details if `extensive` is `TRUE` and `na.rm` is set to `TRUE`, geometries with `NA` are effectively treated as having zero attribute values. Dasymetric mapping is obtained when `weights` are specified.\n#' @examples\n#' # example Area-weighted interpolation:\n#' nc = st_read(system.file(\"shape/nc.shp\", package=\"sf\"))\n#' g = st_make_grid(nc, n = c(10, 5))\n#' a1 = st_interpolate_aw(nc[\"BIR74\"], g, extensive = FALSE)\n#' sum(a1$BIR74) / sum(nc$BIR74) # not close to one: property is assumed spatially intensive\n#' a2 = st_interpolate_aw(nc[\"BIR74\"], g, extensive = TRUE)\n#' # verify mass preservation (pycnophylactic) property:\n#' sum(a2$BIR74) / sum(nc$BIR74)\n#' a1$intensive = a1$BIR74\n#' a1$extensive = a2$BIR74\n#' \\donttest{plot(a1[c(\"intensive\", \"extensive\")], key.pos = 4)}\n#' \n#' # example Dasymetric mapping:\n#' # load nr of addresses per 10 km grid cell, to proxy population -> birth density:\n#' grd.addr = system.file(\"gpkg/grd_addr.gpkg\", package=\"sf\") |> read_sf()\n#' xgrd.addr = grd.addr # copy for plotting\n#' xgrd.addr$ones[grd.addr$ones==0] = 1 # so that logz shows finite values\n#' \\donttest{plot(xgrd.addr, logz=TRUE, main = \"nr of addresses per cell\") # log scale}\n#' nc = st_transform(nc, st_crs(grd.addr))\n#' # avoid \"assumes attributes are constant or uniform over areas\" warnings:\n#' st_agr(nc) = c(BIR74 = \"constant\", BIR79 = \"constant\")\n#' st_agr(grd.addr) = c(ones = \"constant\")\n#' # dasymetric mapping\n#' bir.grd = st_interpolate_aw(nc[c(\"BIR74\",\"BIR79\")], extensive = TRUE, grd.addr, weights = \"ones\")\n#' xbir.grd = bir.grd # copy for plotting\n#' xbir.grd$BIR74[xbir.grd$BIR74 == 0] = 1 # so that logz shows finite values\n#' \\donttest{plot(xbir.grd[\"BIR74\"], logz = TRUE, main = \"redistributed birth counts, 1974-\")}\n#' # verify sums:\n#' apply(as.data.frame(bir.grd)[1:2], 2, sum)\n#' apply(as.data.frame(nc)[c(\"BIR74\", \"BIR79\")], 2, sum)\n#' # compare county-wise:\n#' st_agr(bir.grd) = c(BIR74 = \"constant\")\n#' aw = st_interpolate_aw(bir.grd[\"BIR74\"], st_geometry(nc), extensive = TRUE)\n#' plot(nc$BIR74, aw$BIR74, log = 'xy', xlab = 'county-value', ylab = 'area-w interpolated')\n#' abline(0,1)\n#' @export\nst_interpolate_aw = function(x, to, extensive, ...) UseMethod(\"st_interpolate_aw\")\n\n#' @export\n#' @name interpolate_aw\nst_interpolate_aw.sf = function(x, to, extensive, ..., keep_NA = FALSE, na.rm = FALSE,\n\t\tinclude_non_intersected = FALSE, weights = character(0)) {\n\n\tif (!inherits(to, \"sf\") && !inherits(to, \"sfc\")) {\n\t\tto <- try(st_as_sf(to))\n\t\tif (inherits(to, \"try-error\"))\n\t\t\tstop(\"st_interpolate_aw requires geometries in argument to\")\n\t}\n\tif (isTRUE(na.rm))\n\t\tx = x[! apply(is.na(x), 1, any),]\n\n\tif (length(weights)) {\n\t\tstopifnot(length(weights) == 1, is.character(weights), inherits(to, \"sf\"), weights %in% names(to))\n\t\treturn(dasymetric(x, to[weights], extensive, keep_NA, include_non_intersected))\n\t}\n\n\tif (! all_constant(x))\n\t\twarning(\"st_interpolate_aw assumes attributes are constant or uniform over areas of x\")\n\ti = st_intersection(st_geometry(x), st_geometry(to), dimensions = \"polygon\")\n\tidx = attr(i, \"idx\")\n\n\t# https://stackoverflow.com/questions/57767022/how-do-you-use-st-interpolate-aw-with-polygon-layers-that-legitimately-include-p\n\tgc = which(st_is(i, \"GEOMETRYCOLLECTION\"))\n\t# i[gc] = st_collection_extract(i[gc], \"POLYGON\") ## breaks if there are several POLYGONs in a GC\n\ti[gc] = do.call(c, lapply(i[gc], function(x) st_sfc(st_union(st_collection_extract(x, \"POLYGON\")))))\n\ttwo_d = which(st_dimension(i) == 2)\n\ti[two_d] = st_cast(i[two_d], \"MULTIPOLYGON\")\n\n\tx_st = st_set_geometry(x, NULL)[idx[,1],, drop=FALSE] # create st table, remove geom\n\tif (any(!sapply(x_st, is.numeric)))\n\t\tstop(\"x contains non-numeric column(s)\")\n\tarea_i = try(st_area(i), silent = TRUE)\n\tif (inherits(area_i, \"try-error\"))\n\t\tarea_i <- st_area(st_make_valid(i)) # work-around for https://github.com/r-spatial/sf/issues/1810\n\tx_st$...area_st = unclass(area_i)\n\n\tx_st = if (extensive) {\n\t\t\t# compute area_s:\n\t\t\tx_st$...area_s = unclass(st_area(x))[idx[,1]]\n\t\t\tlapply(x_st, function(v) v * x_st$...area_st / x_st$...area_s)\n\t\t} else {\n\t\t\t# compute target area:\n\t\t\ttarget = if (include_non_intersected)\n\t\t\t\t\t\tsetNames(as.numeric(st_area(to)), seq_len(NROW(to))) # use all of \"to\"\n\t\t\t\t\telse\n\t\t\t\t\t\tsapply(split(area_i, idx[, 2]), sum) # sum \"to\" parts intersecting \"x\"\n\t\t\tdf = data.frame(area = target, idx = as.integer(names(target)))\n\t\t\tx_st$...area_t = merge(data.frame(idx = idx[,2]), df)$area\n\t\t\tlapply(x_st, function(v) v * x_st$...area_st / x_st$...area_t)\n\t\t}\n\tx_st = aggregate(x_st, list(idx[,2]), sum)\n\tdf = if (keep_NA) {\n\t\t\tix = rep(NA_integer_, length(to))\n\t\t\tix[x_st$Group.1] = seq_along(x_st$Group.1)\n\t\t\tst_sf(x_st[ix,], geometry = st_geometry(to))\n\t\t} else\n\t\t\tst_sf(x_st, geometry = st_geometry(to)[x_st$Group.1], row.names = x_st$Group.1)\n\t# clean up:\n\tdf$...area_t = df$...area_st = df$...area_s = df$Group.1 = NULL\n\tst_set_agr(df, \"aggregate\")\n}\n\ndasymetric = function(x, to, extensive, keep_NA, include_non_intersected) {\n\tstopifnot(isTRUE(extensive), !keep_NA, !include_non_intersected) # later...\n\tstopifnot(length(to) == 2)\n\tif (!inherits(to[[2]], \"sfc\"))\n\t\tto = to[2:1] # swap: geom last\n\ti = st_intersection(st_geometry(x), st_geometry(to), dimensions = \"polygon\")\n\tidx = attr(i, \"idx\")\n\tst_geometry(x) = NULL\n\tstopifnot(!(\"...x_s\" %in% names(x))) # avoid overwrite\n\tx = x[idx[,1], , drop=FALSE] # x attributes corresponding to each area of i\n\ti = st_set_geometry(x[idx[,1], , drop = FALSE], i) # add geometry\n\n\t# https://stackoverflow.com/questions/57767022/how-do-you-use-st-interpolate-aw-with-polygon-layers-that-legitimately-include-p\n\t# i[gc] = st_collection_extract(i[gc], \"POLYGON\") ## breaks if there are several POLYGONs in a GC\n\tgc = which(st_is(i, \"GEOMETRYCOLLECTION\"))\n\tif (length(gc)) {\n\t\tg = st_geometry(i)\n\t\tg[gc] = do.call(c, lapply(g[gc,], function(x) st_sfc(st_union(st_collection_extract(x, \"POLYGON\")))))\n\t\tst_geometry(i) = g\n\t}\n\ttwo_d = which(st_dimension(i) == 2)\n\tif (any(two_d)) {\n\t\tg = st_geometry(i)\n\t\tg[two_d] = st_cast(g[two_d], \"MULTIPOLYGON\")\n\t\tst_geometry(i) = g\n\t}\n\n\tx$...x_st = st_interpolate_aw(to, i, extensive = extensive)[[1]] # distribute weights over the intersection geometries\n\t# split according to source regions:\n\t# first copy over idx[,2], as split() will rearrange records\n\tx$...idx2 = idx[,2]\n\tspl = split(x, idx[,1])\n\t# reconstruct idx2:\n\tidx2 = do.call(c, lapply(spl, function(x) x$...idx2))\n\t# for each of the source regions, compute weighted sum\n\tspl = lapply(spl, function(u) {\n\t\t\tw = if ((s <- sum(u$...x_st)) == 0)\n\t\t\t\t\tNA_real_\n\t\t\t\telse\n\t\t\t\t\tu$...x_st / s\n\t\t\tu$...x_st = u$...idx2 = NULL # remove\n\t\t\tas.data.frame(lapply(u, function(v) v * w))\n\t\t})\n\tx = do.call(rbind, spl)\n\t# sum over the target regions:\n\t# x = aggregate(x, list(idx[,2]), sum)\n\tx = aggregate(x, list(idx2), sum)\n\tdf = if (keep_NA) {\n\t\t\tix = rep(NA_integer_, length(to))\n\t\t\tix[x$Group.1] = seq_along(x$Group.1)\n\t\t\tst_sf(x[ix,], geometry = st_geometry(to))\n\t\t} else\n\t\t\tst_sf(x, geometry = st_geometry(to)[x$Group.1], row.names = x$Group.1)\n\t# clean up:\n\tdf$Group.1 = NULL\n\tst_set_agr(df, \"aggregate\")\n}\n"
},
{
"path": "R/agr.R",
"content": "agr_levels = c(\"constant\", \"aggregate\", \"identity\")\n\n#' @name st_agr\n#' @details\n#' \\code{NA_agr_} is the \\code{agr} object with a missing value.\n#' @export\nNA_agr_ = factor(NA, levels = agr_levels)\n\n#' get or set relation_to_geometry attribute of an \\code{sf} object\n#'\n#' get or set relation_to_geometry attribute of an \\code{sf} object\n#' @name st_agr\n#' @param x object of class \\code{sf}\n#' @param ... ignored\n#' @export\nst_agr = function(x, ...) UseMethod(\"st_agr\")\n\n#' @export\nst_agr.sf = function(x, ...) {\n\tsfc_s = sapply(x, inherits, \"sfc\")\n\tnm = names(x)[!sfc_s]\n\tret = attr(x, \"agr\")[nm]\n\tif (is.null(names(ret)) || all(is.na(names(ret))))\n\t\tstructure(rep(NA_agr_, length(nm)), names = nm)\n\telse\n\t\tret\n}\n\n#' @export\nst_agr.character = function(x, ...) {\n\tstructure(factor(x, levels = agr_levels), names = names(x))\n}\n\n#' @export\nst_agr.factor = function(x, ...) {\n\tstopifnot(all(levels(x) == agr_levels))\n\tx\n}\n\n#' @export\nst_agr.default = function(x = NA_character_, ...) {\n\tif (is.data.frame(x) && !is.null(attr(x, \"agr\")))\n\t\tx = attr(x, \"agr\")\n\tstructure(st_agr(as.character(x)), names = names(x))\n}\n\n#' @name st_agr\n#' @param value character, or factor with appropriate levels; if named, names should correspond to the non-geometry list-column columns of \\code{x}\n#' @export\n`st_agr<-` = function(x, value) UseMethod(\"st_agr<-\")\n\n#' @export\n`st_agr<-.sf` = function(x, value) {\n\tstopifnot(is.character(value) || is.factor(value))\n\tsfc_s = sapply(x, inherits, \"sfc\")\n\t# nv = setdiff(names(x), attr(x, \"sf_column\"))\n\tnv = names(x)[!sfc_s]\n\tif (length(value) == 0)\n\t\tattr(x, \"agr\") = setNames(NA_agr_[0], character())\n\telse if (! is.null(names(value)) && length(value) == 1) { \n\t\t# as in: st_agr(x) = c(Group.1 = \"identity\"): replace one particular named\n\t\tif (!is.null(attr(x, \"agr\")))\n\t\t\tattr(x, \"agr\")[names(value)] = st_agr(value)\n\t\telse\n\t\t\tattr(x, \"agr\") = st_agr(value)\n\t} else {\n\t\tvalue = rep(st_agr(value), length.out = length(nv))\n\t\tif (! is.null(names(value)))\n\t\t\tvalue = value[match(nv, names(value))]\n\t\telse\n\t\t\tnames(value) = nv\n\t\tattr(x, \"agr\") <- value\n\t}\n \t#print(paste(\"vars: \", paste(nv, collapse=\",\"), \"value(s):\", paste(value, collapse = \",\")))\n \t#print(rlang::trace_back())\n#\ta = st_agr(x)\n#\tabsent = setdiff(names(x), c(na.omit(names(a)), attr(x, \"sf_column\")))\n#\tif (length(absent)) { # repair:\n#\t\ta[absent] = NA_agr_\n#\t\tnames(a[absent]) = absent\n#\t\tattr(x, \"agr\") = a[nv]\n#\t}\n\tx\n}\n\n#' @name st_agr\n#' @export\nst_set_agr = function(x, value) { \n\tif (!missing(value))\n\t\tst_agr(x) = value\n\telse { # needs repair?\n\t\tvalue = st_agr(x)\n\t\tif (any(is.na(names(value))) && length(value) == length(x) - 1) {\n\t\t\tnames(value) = setdiff(names(x), attr(x, \"sf_column\"))\n\t\t\tst_agr(x) = value\n\t\t}\n\t}\n\tx\n}\n\nsummarize_agr = function(x) {\n\tsu = summary(st_agr(x))\n\tsu = su[su > 0]\n\tpaste0(names(su), \" (\", su, \")\", collapse = \", \")\n}\n\nall_constant = function(x) {\n\tx = attr(x, \"agr\")\n\t!anyNA(x) && all(x %in% c(\"identity\", \"constant\"))\n}\n"
},
{
"path": "R/arith.R",
"content": "#' Arithmetic operators for simple feature geometries\n#' @name Ops\n#'\n#' @param e1 object of class \\code{sfg} or \\code{sfc}\n#' @param e2 numeric, or object of class \\code{sfg}; in case \\code{e1} is of class \\code{sfc} also an object of class \\code{sfc} is allowed\n#'\n#' @details in case \\code{e2} is numeric, +, -, *, /, %% and %/% add, subtract, multiply, divide, modulo, or integer-divide by \\code{e2}. In case \\code{e2} is an n x n matrix, * matrix-multiplies and / multiplies by its inverse. If \\code{e2} is an \\code{sfg} object, |, /, & and %/% result in the geometric union, difference, intersection and symmetric difference respectively, and \\code{==} and \\code{!=} return geometric (in)equality, using \\link{st_equals}. If `e2` is an `sfg` or `sfc` object, for operations `+` and `-` it has to have `POINT` geometries.\n#'\n#' If \\code{e1} is of class \\code{sfc}, and \\code{e2} is a length 2 numeric, then it is considered a two-dimensional point (and if needed repeated as such) only for operations \\code{+} and \\code{-}, in other cases the individual numbers are repeated; see commented examples.\n#'\n#' @details\n#' It has been reported (https://github.com/r-spatial/sf/issues/2067) that\n#' certain ATLAS versions result in invalid polygons, where the final point\n#' in a ring is no longer equal to the first point. In that case, setting\n#' the precisions with \\link{st_set_precision} may help.\n#' @return object of class \\code{sfg}\n#' @export\n#'\n#' @examples\n#' st_point(c(1,2,3)) + 4\n#' st_point(c(1,2,3)) * 3 + 4\n#' m = matrix(0, 2, 2)\n#' diag(m) = c(1, 3)\n#' # affine:\n#' st_point(c(1,2)) * m + c(2,5)\n#' # world in 0-360 range:\n#' if (require(maps, quietly = TRUE)) {\n#' w = st_as_sf(map('world', plot = FALSE, fill = TRUE))\n#' w2 = (st_geometry(w) + c(360,90)) %% c(360) - c(0,90)\n#' w3 = st_wrap_dateline(st_set_crs(w2 - c(180,0), 4326)) + c(180,0)\n#' plot(st_set_crs(w3, 4326), axes = TRUE)\n#' }\n#' (mp <- st_point(c(1,2)) + st_point(c(3,4))) # MULTIPOINT (1 2, 3 4)\n#' mp - st_point(c(3,4)) # POINT (1 2)\n#' opar = par(mfrow = c(2,2), mar = c(0, 0, 1, 0))\n#' a = st_buffer(st_point(c(0,0)), 2)\n#' b = a + c(2, 0)\n#' p = function(m) { plot(c(a,b)); plot(eval(parse(text=m)), col=grey(.9), add = TRUE); title(m) }\n#' o = lapply(c('a | b', 'a / b', 'a & b', 'a %/% b'), p)\n#' par(opar)\n#' sfc = st_sfc(st_point(0:1), st_point(2:3))\n#' sfc + c(2,3) # added to EACH geometry\n#' sfc * c(2,3) # first geometry multiplied by 2, second by 3\nOps.sfg <- function(e1, e2) {\n\n\tif (nargs() == 1) {\n\t\tswitch (.Generic,\n\t\t\t\"-\" = return(e1 * -1.0),\n\t\t\t\"+\" = return(e1),\n\t\t\tstop(paste(\"unary\", .Generic, 'not defined for \"sfg\" objects'))\n\t\t)\n\t}\n\n\tprd <- switch(.Generic, \"*\" = TRUE, \"/\" = TRUE, FALSE)\n\tpm <- switch(.Generic, \"+\" = , \"-\" = TRUE, FALSE)\n\tmod <- switch(.Generic, \"%%\" = TRUE, \"%/%\" = TRUE, FALSE)\n\tset <- switch(.Generic, \"&\" = TRUE, \"|\" = TRUE, FALSE)\n\tlgcl <- switch(.Generic, \"==\" = TRUE, \"!=\" = TRUE, FALSE)\n\n\tif (!(prd || pm || mod || set || lgcl))\n\t\tstop(paste(\"operation\", .Generic, \"not supported for sfg objects\"))\n\n\te1_empty = st_is_empty(e1)\n\te2_empty = inherits(e2, \"sfg\") && st_is_empty(e2)\n\tif (lgcl && (e1_empty || e2_empty))\n\t\treturn(NA)\n\n\tif (e1_empty && (.Generic %in% c(\"*\", \"+\", \"-\", \"%%\")))\n\t\treturn(e1)\n\n\tif (inherits(e2, \"sfg\")) {\n\t\te2 = switch(.Generic,\n\t\t\t\"|\" = st_union(e1, e2),\n\t\t\t\"/\" = st_difference(e1, e2),\n\t\t\t\"&\" = st_intersection(e1, e2),\n\t\t\t\"%/%\" = st_sym_difference(e1, e2),\n\t\t\t\"==\" = length(st_equals(e1, e2)[[1]]) != 0,\n\t\t\t\"!=\" = length(st_equals(e1, e2)[[1]]) == 0,\n\t\t\tunclass(e2))\n\t\tif (inherits(e2, \"sfg\") || is.logical(e2))\n\t\t\treturn(e2)\n\t}\n\n\tdims = nchar(class(e1)[1])\n\tVec = rep(0, dims)\n\tMat = matrix(0, dims, dims)\n\tdiag(Mat) = 1\n\tif (pm || mod) {\n\t\tif (length(e2) == 1)\n\t\t\tVec = rep(e2, length.out = dims)\n\t\telse\n\t\t\tVec = e2\n\t\tif (.Generic == \"-\")\n\t\t\tVec = -Vec\n\t} else if (prd) {\n\t\tif (length(e2) == 1 || length(e2) == dims)\n\t\t\tdiag(Mat) = e2\n\t\telse\n\t\t\tMat = e2\n\t\tif (.Generic == \"/\")\n\t\t\tMat = solve(Mat) # inverse\n\t}\n\n\tif_pt = function(x, y) { if(inherits(x, \"POINT\")) as.vector(y) else y }\n\tfn = if (prd)\n\t\t\tfunction(x, Mat, Vec) structure(if_pt(x, x %*% Mat), class = class(x))\n\t\telse if (pm)\n\t\t\tfunction(x, Mat, Vec) structure(if_pt(x, unclass(x) + conform(Vec, x)), class = class(x))\n\t\telse # mod:\n\t\t\tfunction(x, Mat, Vec) structure(if_pt(x, unclass(x) %% conform(Vec, x)), class = class(x))\n\n\tif (is.list(e1))\n\t\trapply(e1, fn, how = \"replace\", Mat = Mat, Vec = Vec)\n\telse\n\t\tfn(e1, Mat, Vec)\n}\n\nconform = function(vec, m) {\n\tif (is.matrix(m))\n\t\tt(matrix(vec, ncol(m), nrow(m)))\n\telse\n\t\tvec\n}\n\n#' @export\n#' @name Ops\n#' @examples\n#' nc = st_transform(st_read(system.file(\"gpkg/nc.gpkg\", package=\"sf\")), 32119) # nc state plane, m\n#' b = st_buffer(st_centroid(st_union(nc)), units::set_units(50, km)) # shoot a hole in nc:\n#' plot(st_geometry(nc) / b, col = grey(.9))\nOps.sfc <- function(e1, e2) {\n\n\tif (length(e1) == 0) # empty set\n\t\treturn(e1)\n\n\tif (is.numeric(e2) && !is.matrix(e2) && length(e2) <= 2 && .Generic %in% c(\"+\", \"-\")) {\n\t\tif (.Generic == \"-\")\n\t\t\te2 <- -e2\n\t\treturn(opp_sfc(e1, as.numeric(e2), 0L, NA_crs_))\n\t} else if (.Generic %in% c(\"*\", \"/\") && is.numeric(e2) && (length(e2) == 1 || (is_only_pos_diag(e2)))) {\n\t\tif (is.matrix(e2)) e2 <- diag(e2)\n\t\tif (.Generic == \"/\")\n\t\t\te2 <- 1 / e2\n\t\treturn(opp_sfc(e1, as.numeric(e2), 1L, NA_crs_))\n\t}\n\tif ((is.matrix(e2) && ncol(e2) == 2) || (is.numeric(e2) && length(e2) == 2))\n\t\te1 = st_zm(e1) # drop z and/or m\n\n\tif (!is.list(e2) && ((.Generic %in% c(\"+\", \"-\") && length(e2) == 2) || is.matrix(e2)))\n\t\te2 = list(e2)\n\n\tret = switch(\n\t\t.Generic,\n\t\t\"&\" = mapply(function(x, y) { x & y }, e1, e2, SIMPLIFY = FALSE),\n\t\t\"|\" = mapply(function(x, y) { x | y }, e1, e2, SIMPLIFY = FALSE),\n\t\t\"%/%\" = mapply(function(x, y) { x %/% y}, e1, e2, SIMPLIFY = FALSE),\n\t\t\"/\" = mapply(function(x, y) { x / y }, e1, e2, SIMPLIFY = FALSE),\n\t\t\"!=\" = mapply(function(x, y) { x != y }, e1, e2, SIMPLIFY = TRUE),\n\t\t\"==\" = mapply(function(x, y) { x == y }, e1, e2, SIMPLIFY = TRUE),\n\t\t\"*\" = mapply(function(x, y) { x * y }, e1, e2, SIMPLIFY = FALSE),\n\t\t\"+\" = mapply(function(x, y) { x + y }, e1, e2, SIMPLIFY = FALSE),\n\t\t\"-\" = mapply(function(x, y) { x - y }, e1, e2, SIMPLIFY = FALSE),\n\t\t\"%%\" = mapply(function(x, y) { x %% y }, e1, e2, SIMPLIFY = FALSE),\n\t\tstop(paste(\"operation\", .Generic, \"not supported\")))\n\n\tif (!(.Generic %in% c(\"!=\", \"==\"))) {\n\t\tcrs = if (.Generic %in% c(\"&\", \"|\", \"%/%\", \"/\") && inherits(e2, c(\"sfc\", \"sfg\"))) # retain:\n\t\t\tst_crs(e1)\n\t\telse # geometry got displaced:\n\t\t\tNA_crs_\n\t\tst_sfc(ret, crs = crs, precision = attr(e1, \"precision\"), recompute_bbox = TRUE) # also check_ring_dir, if polygons? #2377\n\t} else\n\t\tret\n}\n\nis_only_pos_diag <- function(x) {\n\tis.matrix(x) && all(`diag<-`(x, 0) == 0) && all(diag(x) >= 0) # nocov\n}\n"
},
{
"path": "R/bbox.R",
"content": "\n#' @name st_bbox\n#' @param x object of class \\code{bbox}\n#' @export\nis.na.bbox = function(x) identical(x, NA_bbox_)\n\nbb_wrap = function(bb) {\n\tstopifnot(is.numeric(bb), length(bb) == 4)\n\tstructure(as.double(bb), names = c(\"xmin\", \"ymin\", \"xmax\", \"ymax\"), class = \"bbox\")\n}\n\nbbox.Set = function(obj, ...) {\n\tsel = !sfc_is_empty(obj)\n\tif (! any(sel))\n\t\tNA_bbox_\n\telse\n\t\tbb_wrap(CPL_get_bbox(unclass(obj)[sel], 0))\n}\nbbox.Mtrx = function(obj, ...) {\n\tif (length(obj) == 0)\n\t\tNA_bbox_\n\telse\n\t\tbb_wrap(CPL_get_bbox(list(obj), 1)) # note the list()\n}\nbbox.MtrxSet = function(obj, ...) {\n\tif (length(obj) == 0)\n\t\tNA_bbox_\n\telse\n\t\tbb_wrap(CPL_get_bbox(obj, 1))\n}\nbbox.MtrxSetSet = function(obj, ...) {\n\tif (length(obj) == 0)\n\t\tNA_bbox_\n\telse\n\t\tbb_wrap(CPL_get_bbox(obj, 2))\n}\nbbox.MtrxSetSetSet = function(obj, ...) {\n\tif (length(obj) == 0)\n\t\tNA_bbox_\n\telse\n\t\tbb_wrap(CPL_get_bbox(obj, 3))\n}\n\n#' Return bounding of a simple feature or simple feature set\n#'\n#' Return bounding of a simple feature or simple feature set\n#' @param obj object to compute the bounding box from\n#' @param ... for format.bbox, passed on to \\link[base]{format} to format individual numbers\n#' @export\n#' @return a numeric vector of length four, with \\code{xmin}, \\code{ymin}, \\code{xmax}\n#' and \\code{ymax} values; if \\code{obj} is of class \\code{sf}, \\code{sfc}, \\code{Spatial} or \\code{Raster}, the object\n#' returned has a class \\code{bbox}, an attribute \\code{crs} and a method to print the\n#' bbox and an \\code{st_crs} method to retrieve the coordinate reference system\n#' corresponding to \\code{obj} (and hence the bounding box). \\link{st_as_sfc} has a\n#' methods for \\code{bbox} objects to generate a polygon around the four bounding box points.\n#' @name st_bbox\n#' @examples\n#' a = st_sf(a = 1:2, geom = st_sfc(st_point(0:1), st_point(1:2)), crs = 4326)\n#' st_bbox(a)\n#' st_as_sfc(st_bbox(a))\nst_bbox = function(obj, ...) UseMethod(\"st_bbox\")\n\n#' @export\n#' @name st_bbox\nst_bbox.POINT = function(obj, ...) bb_wrap(c(obj[1L], obj[2L], obj[1L], obj[2L]))\n#' @export\n#' @name st_bbox\nst_bbox.MULTIPOINT = bbox.Mtrx\n#' @export\n#' @name st_bbox\nst_bbox.LINESTRING = bbox.Mtrx\n#' @export\n#' @name st_bbox\nst_bbox.POLYGON = function(obj, ...) if (st_is_full(obj)) FULL_bbox_ else bbox.MtrxSet(obj)\n#' @export\n#' @name st_bbox\nst_bbox.MULTILINESTRING = bbox.MtrxSet\n#' @export\n#' @name st_bbox\nst_bbox.MULTIPOLYGON = bbox.MtrxSetSet\n\nbbox_list = function(obj, ...) {\n\ts = vapply(obj, st_bbox, c(0.,0.,0.,0.)) # dispatch on class\n\tif (length(s) == 0 || all(is.na(s[1L,])))\n\t\tNA_bbox_\n\telse\n\t\tbb_wrap(c(min(s[1L,], na.rm = TRUE), min(s[2L,], na.rm = TRUE),\n\t\t max(s[3L,], na.rm = TRUE), max(s[4L,], na.rm = TRUE)))\n}\n\n#' @name st_bbox\n#' @export\nst_bbox.GEOMETRYCOLLECTION = bbox_list\n\n#' @name st_bbox\n#' @export\nst_bbox.MULTISURFACE = bbox_list\n\n#' @name st_bbox\n#' @export\nst_bbox.MULTICURVE = bbox_list\n\n#' @name st_bbox\n#' @export\nst_bbox.CURVEPOLYGON = bbox_list\n\n#' @name st_bbox\n#' @export\nst_bbox.COMPOUNDCURVE = bbox_list\n\n#' @name st_bbox\n#' @export\nst_bbox.POLYHEDRALSURFACE = bbox.MtrxSetSet\n\n#' @name st_bbox\n#' @export\nst_bbox.TIN = bbox.MtrxSetSet\n\n#' @name st_bbox\n#' @export\nst_bbox.TRIANGLE = bbox.MtrxSet\n\n#' @name st_bbox\n#' @export\nst_bbox.CIRCULARSTRING = function(obj, ...) {\n\t# this is of course wrong:\n\tst_bbox(st_cast(obj, \"LINESTRING\"))\n}\n\n#' @export\nprint.bbox = function(x, ...) {\n\tx = structure(x, crs = NULL, class = NULL)\n\tprint(set_units(x, attr(x, \"units\"), mode = \"standard\"), ...)\n}\n\ncompute_bbox = function(obj) {\n\tswitch(class(obj)[1],\n\t\tsfc_POINT = bb_wrap(bbox.Set(obj)),\n\t\tsfc_MULTIPOINT = bb_wrap(bbox.MtrxSet(obj)),\n\t\tsfc_LINESTRING = bb_wrap(bbox.MtrxSet(obj)),\n\t\tsfc_POLYGON = if (any(st_is_full(obj))) FULL_bbox_ else bb_wrap(bbox.MtrxSetSet(obj)),\n\t\tsfc_MULTILINESTRING = bb_wrap(bbox.MtrxSetSet(obj)),\n\t\tsfc_MULTIPOLYGON = bb_wrap(bbox.MtrxSetSetSet(obj)),\n\t\tbbox_list(obj)\n\t)\n}\n\n#' @name st_bbox\n#' @export\nst_bbox.sfc = function(obj, ...) structure(attr(obj, \"bbox\"), crs = st_crs(obj))\n\n#' @name st_bbox\n#' @export\nst_bbox.sf = function(obj, ...) st_bbox(st_geometry(obj))\n\n#' @name st_bbox\n#' @export\nst_bbox.Spatial = function(obj, ...) {\n\tif (!requireNamespace(\"sp\", quietly = TRUE))\n\t\tstop(\"package sp required, please install it first\")\n\tbb = sp::bbox(obj)\n\tstructure(bb_wrap(c(bb[1,1],bb[2,1],bb[1,2],bb[2,2])),\n\t\tcrs = st_crs(slot(obj, \"proj4string\")))\n}\n\n#' @name st_bbox\n#' @export\nst_bbox.Raster = function(obj, ...) {\n\tif (!requireNamespace(\"sp\", quietly = TRUE))\n\t\tstop(\"package sp required, please install it first\")\n\tif (!requireNamespace(\"raster\", quietly = TRUE))\n\t\tstop(\"package raster required, please install it first\")\n\tbb = sp::bbox(obj)\n\tstructure(bb_wrap(c(bb[1,1],bb[2,1],bb[1,2],bb[2,2])),\n\t\tcrs = st_crs(sp::proj4string(obj)))\n}\n\n#' @name st_bbox\n#' @export\nst_bbox.Extent = function(obj, ..., crs = NA_crs_) {\n\tif (!requireNamespace(\"raster\", quietly = TRUE))\n\t\tstop(\"package raster required, please install it first\")\n\tstructure(bb_wrap(c(obj@xmin, obj@ymin, obj@xmax, obj@ymax)), crs = st_crs(crs))\n}\n\n#' @name st_bbox\n#' @param crs object of class \\code{crs}, or argument to \\link{st_crs}, specifying the CRS of this bounding box.\n#' @examples\n#' st_bbox(c(xmin = 16.1, xmax = 16.6, ymax = 48.6, ymin = 47.9), crs = st_crs(4326))\n#' @export\nst_bbox.numeric = function(obj, ..., crs = NA_crs_) {\n\tstructure(bb_wrap(obj[c(\"xmin\", \"ymin\", \"xmax\", \"ymax\")]), crs = st_crs(crs))\n}\n\n#' @export\nst_bbox.bbox = function(obj, ...) obj\n\n\n#' @export\n\"$.bbox\" = function(x, name) {\n\tswitch(name,\n\t\txrange =,\n\t\txlim = x[c(\"xmin\", \"xmax\")],\n\t\tyrange =,\n\t\tylim = x[c(\"ymin\", \"ymax\")],\n\t\txmin = x[\"xmin\"],\n\t\tymin = x[\"ymin\"],\n\t\txmax = x[\"xmax\"],\n\t\tymax = x[\"ymax\"],\n\t\tstop(\"unsupported name\")\n\t)\n}\n\n#' @name st_bbox\n#' @details \\code{NA_bbox_} represents the missing value for a \\code{bbox} object\n#' @export\nNA_bbox_ = structure(rep(NA_real_, 4),\n\tnames = c(\"xmin\", \"ymin\", \"xmax\", \"ymax\"),\n\tcrs = NA_crs_,\n\tclass = \"bbox\")\n\n#' @name st_bbox\n#' @details \\code{NA_bbox_} represents the missing value for a \\code{bbox} object\n#' @export\nFULL_bbox_ = structure(c(-180.,-90.,180.,90.),\n\tnames = c(\"xmin\", \"ymin\", \"xmax\", \"ymax\"),\n\tcrs = NA_crs_,\n\tclass = \"bbox\")\n\n#' @name st_bbox\n#' @export\nformat.bbox = function(x, ...) {\n\tp1 = paste0(\"(\",paste0(c(format(x[1], ...), format(x[2], ...)), collapse=\",\"),\")\")\n\tp2 = paste0(\"(\",paste0(c(format(x[3], ...), format(x[4], ...)), collapse=\",\"),\")\")\n\tpaste0(\"(\",p1,\",\",p2,\")\")\n}\n"
},
{
"path": "R/bind.R",
"content": "chk_equal_crs = function(dots) {\n\tif (length(dots) > 1L) {\n\t\tcrs0 = st_crs(dots[[1]])\n\t\tvapply(dots[-1L], function(x) {\n\t\t\t\tif (st_crs(x) != crs0) \n\t\t\t\t\tstop(\"arguments have different crs\", call. = FALSE)\n\t\t\t\tTRUE\n\t\t\t}, TRUE)\n\t}\n\tNULL\n}\n\n#' Bind rows (features) of sf objects\n#'\n#' Bind rows (features) of sf objects\n#' @param ... objects to bind; note that for the rbind and cbind methods, all objects have to be of class \\code{sf}; see \\link{dotsMethods}\n#' @param deparse.level integer; see \\link{rbind}\n#' @name bind\n#' @details both \\code{rbind} and \\code{cbind} have non-standard method dispatch (see \\link[base]{cbind}): the \\code{rbind} or \\code{cbind} method for \\code{sf} objects is only called when all arguments to be binded are of class \\code{sf}.\n#' @export\n#' @examples\n#' crs = st_crs(3857)\n#' a = st_sf(a=1, geom = st_sfc(st_point(0:1)), crs = crs)\n#' b = st_sf(a=1, geom = st_sfc(st_linestring(matrix(1:4,2))), crs = crs)\n#' c = st_sf(a=4, geom = st_sfc(st_multilinestring(list(matrix(1:4,2)))), crs = crs)\n#' rbind(a,b,c)\n#' rbind(a,b)\n#' rbind(a,b)\n#' rbind(b,c)\nrbind.sf = function(..., deparse.level = 1) {\n\tdots = list(...)\n\tdots = dots[!sapply(dots, is.null)]\n\tnr = sapply(dots, NROW)\n\tsf_column = if (any(nr > 0))\n\t\t\tattr(dots[[ which(nr > 0)[1] ]], \"sf_column\")\n\t\telse\n\t\t\tNULL\n\tchk_equal_crs(dots)\n\tret = st_sf(rbind.data.frame(...), crs = st_crs(dots[[1]]), sf_column_name = sf_column)\n\tst_geometry(ret) = st_sfc(st_geometry(ret)) # might need to reclass to GEOMETRY\n\tbb = do.call(rbind, lapply(dots, st_bbox))\n\tbb = bb_wrap(c(min(bb[,1L], na.rm = TRUE), min(bb[,2L], na.rm = TRUE),\n\t\t max(bb[,3L], na.rm = TRUE), max(bb[,4L], na.rm = TRUE)))\n\tattr(ret[[ attr(ret, \"sf_column\") ]], \"bbox\") = bb\n\tret\n}\n\n#' Bind columns (variables) of sf objects\n#'\n#' Bind columns (variables) of sf objects\n#' @name bind\n#' @param sf_column_name character; specifies active geometry; passed on to \\link{st_sf}\n#' @return \\code{cbind} called with multiple \\code{sf} objects warns about multiple geometry columns present when the geometry column to use is not specified by using argument \\code{sf_column_name}; see also \\link{st_sf}.\n#' @export\n#' @details If you need to \\code{cbind} e.g. a \\code{data.frame} to an \\code{sf}, use \\link{data.frame} directly and use \\link{st_sf} on its result, or use \\link[dplyr:bind]{bind_cols}; see examples.\n#' @examples\n#' cbind(a,b,c) # warns\n#' if (require(dplyr, quietly = TRUE))\n#' dplyr::bind_cols(a,b)\n#' c = st_sf(a=4, geomc = st_sfc(st_multilinestring(list(matrix(1:4,2)))), crs = crs)\n#' cbind(a,b,c, sf_column_name = \"geomc\")\n#' df = data.frame(x=3)\n#' st_sf(data.frame(c, df))\n#' if (require(dplyr, quietly = TRUE))\n#' dplyr::bind_cols(c, df)\ncbind.sf = function(..., deparse.level = 1, sf_column_name = NULL) {\n\t# TODO: handle st_agr?\n\tst_sf(data.frame(...), sf_column_name = sf_column_name)\n}\n\n#' @name bind\n#' @export\n#' @details \\code{st_bind_cols} is deprecated; use \\code{cbind} instead.\nst_bind_cols = function(...) {\n\t# nocov start\n\t.Deprecated(\"cbind\",\n\t\t\t\tmsg = paste0(\"Use 'cbind' instead when all arguments\",\n\t\t\t\t \" to be binded are of class sf.\\n\",\n\t\t\t\t \"If you need to cbind a data.frame to an sf,\",\n\t\t\t\t \" use 'st_sf' or 'dplyr::bind_cols' (see the examples).\"))\n\tcbind.sf(...)\n\t# nocov end\n}\n"
},
{
"path": "R/break_antimeridian.R",
"content": "\n#' Break antimeridian for plotting not centred on Greenwich\n#'\n#' Longitudes can be broken at the antimeridian of a target central longitude \n#' to permit plotting of (usually world) line or polygon objects centred \n#' on the chosen central longitude. The method may only be used with \n#' non-projected, geographical coordinates and linestring or polygon objects.\n#' s2 is turned off internally to permit the use of a rectangular bounding \n#' box. If the input geometries go outside `[-180, 180]` degrees longitude,\n#' the protruding geometries will also be split using the same \\code{tol=} \n#' values; in this case empty geometries will be dropped first.\n#'\n#' @param x object of class `sf` or `sfc`\n#' @param lon_0 target central longitude (degrees)\n#' @param tol half of break width (degrees, default 0.0001)\n#' @param ... ignored here\n#' @export\n#' @name st_break_antimeridian\n#' @examples\n#' \\donttest{\n#' if (require(\"maps\", quietly=TRUE)) {\n#' opar = par(mfrow=c(3, 2))\n#' wld = st_as_sf(map(fill=FALSE, interior=FALSE, plot=FALSE), fill=FALSE)\n#' for (lon_0 in c(-170, -90, -10, 10, 90, 170)) {\n#' br = st_break_antimeridian(wld, lon_0 = lon_0)\n#' tr = st_transform(br, paste0(\"+proj=natearth +lon_0=\", lon_0))\n#' plot(st_geometry(tr), main=lon_0)\n#' }\n#' par(opar)\n#' }\n#' }\nst_break_antimeridian = function(x, lon_0=0, tol=0.0001, ...) {\n\tll = st_is_longlat(x)\n\tif (!isTRUE(ll))\n\t\tstop(\"'st_break_antimeridian' requires non-projected geographic coordinates\",\n\t\t\t call. = FALSE)\n\n\tUseMethod(\"st_break_antimeridian\")\n}\n\n#' @export\n#' @name st_break_antimeridian\nst_break_antimeridian.sf = function(x, lon_0=0, tol=0.0001, ...) {\n\ttype = st_geometry_type(x)\n if (length(grep(\"CURVE\", type[grep(\"LINESTRING|POLYGON\", type)],\n invert=TRUE)) == 0L) stop(\"'st_break_antimeridian' requires linestring or polygon objects\", call. = FALSE)\n\tbb0 = st_bbox(x)\n low = bb0[1] < -(180+tol)\n\thigh = bb0[3] > (180+tol)\n if (low || high) {\n\t warning(\"st_break_antimeridian: longitude coordinates outside [-180, 180]\")\n#\t x_c = st_geometry(x)\n# g = ((x_c + c(360, 90)) %% c(360) - c(0, 90)) - c(180, 0)\n#\t st_crs(g) <- st_crs(x)\n# st_geometry(x) = g\n x <- st_within_pm180(x, tol=tol)\n bb0 = st_bbox(x)\n }\n if (lon_0 < 0) {\n\t am = lon_0 + 180\n am_w = am - tol\n\t am_e = am + tol\n if (am_w > 180) am_w = am_w - 360\n } else {\n\t am = lon_0 - 180\n am_w = am - tol\n\t am_e = am + tol\n if (am_w < -180) am_w = am_w + 360\n\t}\n if (lon_0 == 0) {\n\t bb1 = bb0\n bb1[1] = am_e\n\t bb1[3] = am_w\n bb1 = st_as_sfc(bb1)\n } else {\n bb1w = bb1e = bb0\n\t bb1w[3] = am_w # antimeridian of target minus fuzz\n\t bb1e[1] = am_e # plus fuzz\n\t bb1 = c(st_as_sfc(bb1w), st_as_sfc(bb1e))\n\t}\n s2_status = sf_use_s2()\n\tsf_use_s2(FALSE) # avoid s2 because we need a planar bounding box\n\ton.exit(sf_use_s2(s2_status))\n\tres = st_intersection(x, bb1)\n\tst_crs(res) = st_crs(x)\n res\n}\n#' @export\n#' @name st_break_antimeridian\nst_break_antimeridian.sfc = function(x, lon_0=0, tol=0.0001, ...) {\n# cannot reduce sf to sfc because the length of the returned object is\n# not restricted to the row count of the input object\n st_geometry(st_break_antimeridian(st_as_sf(x), lon_0=lon_0, tol=tol))\n}\n\nst_within_pm180 <- function(x, tol=0.0001) {\n\tstopifnot(inherits(x, \"sf\"))\n xempt = st_is_empty(x)\n\tif (any(xempt)) x = x[!xempt,]\n xcrs = st_crs(x)\n xnames = names(x)\n\txnames = xnames[grep(attr(x, \"sf_column\"), xnames, invert=TRUE)]\n\tx$st_within_pm180_ID = as.character(seq_len(nrow(x)))\n s2_status = sf_use_s2()\n\tsf_use_s2(FALSE) # avoid s2 because we need a planar bounding box\n\tbb0 = st_bbox(x)\n low = bb0[1] < -(180+tol)\n\thigh = bb0[3] > (180+tol)\n bb1w = bb1e = bb0\n\tif (low) {\n\t am = -180\n am_w = am - tol\n\t am_e = am + tol\n if (am_w > 180) am_w = am_w - 360\n\t bb1w[3] = am_w # 180 minus fuzz\n\t bb1e[1] = am_e # 180 plus fuzz\n xw = st_intersection(x, st_as_sfc(bb1w))\n\t xe = st_intersection(x, st_as_sfc(bb1e))\n gw = st_geometry(xw)\n gw = gw + c(360, 0)\n\t st_crs(gw) <- xcrs\n\t st_geometry(xw) <- gw\n\t o = rbind(xw, xe)\n\t x = aggregate(o, list(o$st_within_pm180_ID), head, 1)\n\t x = x[, xnames]\n\t st_crs(x) = xcrs\n\t}\n\tbb0 = st_bbox(x)\n bb1w = bb1e = bb0\n\tif (high) {\n\t am = 180\n am_w = am - tol\n\t am_e = am + tol\n if (am_w < -180) am_w = am_w + 360\n\t bb1w[3] = am_w # 180 minus fuzz\n\t bb1e[1] = am_e # 180 plus fuzz\n xw = st_intersection(x, st_as_sfc(bb1w))\n\t xe = st_intersection(x, st_as_sfc(bb1e))\n ge = st_geometry(xe)\n ge = ge - c(360, 0)\n\t st_crs(ge) <- xcrs\n\t st_geometry(xe) <- ge\n\t o = rbind(xw, xe)\n\t x = aggregate(o, list(o$st_within_pm180_ID), head, 1)\n\t x = x[, xnames]\n\t st_crs(x) = xcrs\n\t}\n\tsf_use_s2(s2_status)\n\tst_crs(x) = xcrs\n x\n\n}\n"
},
{
"path": "R/cast_sfc.R",
"content": "#' Cast geometry to another type: either simplify, or cast explicitly\n#'\n#' Cast geometry to another type: either simplify, or cast explicitly\n#'\n#' @param x object of class \\code{sfg}, \\code{sfc} or \\code{sf}\n#' @param to character; target type, if missing, simplification is tried; when \\code{x} is of type \\code{sfg} (i.e., a single geometry) then \\code{to} needs to be specified.\n#' @return object of class \\code{to} if successful, or unmodified object if unsuccessful. If information gets lost while type casting, a warning is raised.\n#' @examples\n#' s = st_multipoint(rbind(c(1,0)))\n#' st_cast(s, \"POINT\")\n#' @export\nst_cast <- function(x, to, ...) UseMethod(\"st_cast\")\n\n# see this figure:\n# https://cloud.githubusercontent.com/assets/520851/21387553/5f1edcaa-c778-11e6-92d0-2d735e4c8e40.png\n# columns start counting at 0:\n\nwhich_sfc_col = function(cls) {\n\tstopifnot(!missing(cls))\n\tswitch(cls,\n\t\tPOINT = 0,\n\t\tLINESTRING = 1,\n\t\tMULTIPOINT = 1,\n\t\tMULTILINESTRING = 2,\n\t\tPOLYGON = 2,\n\t\tMULTIPOLYGON = 3,\n\t\tMULTICURVE = 3,\n\t\tGEOMETRYCOLLECTION = 4,\n\t\tCOMPOUNDCURVE = 4,\n\t\tMULTISURFACE = 4,\n\t\tCURVEPOLYGON = 4,\n\t\tGEOMETRY = 5,\n\t\tstop(paste(\"st_cast for\", cls, \"not supported\"))\n\t)\n}\n\n# does this geometry type need closed polygons?\nneed_close = function(cls) {\n\tswitch(cls,\n\t\tPOLYGON = TRUE,\n\t\tMULTIPOLYGON = TRUE,\n\t\tFALSE\n\t)\n}\n\n# add y's attributes to x, return x\nadd_attributes = function(x, y) {\n\tattributes(x) = attributes(y)\n\tx\n}\n\nclose_polygon_or_multipolygon = function(x, to) {\n\tto_col = which_sfc_col(to)\n\tclose_mat = function(m) {\n\t\tif (any(m[1,] != m[nrow(m),]))\n\t\t\tm = rbind(m, m[1,])\n\t\tif (nrow(m) < 4)\n\t\t\tstop(\"polygons require at least 4 points\")\n\t\tunclass(m)\n\t}\n\tadd_attributes(\n\t\tif (to_col == 2)\n\t\t\tlapply(x, function(y) add_attributes(lapply(y, close_mat), y))\n\t\telse if (to_col == 3)\n\t\t\tlapply(x, function(y) add_attributes(lapply(y, function(z) lapply(z, close_mat)), y))\n\t\telse\n\t\t\tstop(\"invalid to_col value\")\n\t, x)\n}\n\n# change the class of sfc x, and all its sfg list elements\n# (vertical cast)\nreclass = function(x, to, must_close) {\n\tl = if (length(x)) {\n\t\tfull_cls = c(class(x[[1]])[1], to, \"sfg\")\n\t\tif (must_close)\n\t\t\tx = close_polygon_or_multipolygon(x, to)\n\t\tlapply(x, function(g) structure(g, class = full_cls))\n\t} else\n\t\tlist()\n\tattributes(l) = attributes(x)\n\tstructure(l, class = c(paste0(\"sfc_\", to), \"sfc\"))\n}\n\n# how long is each geometry in the sfc?\nget_lengths = function(x) {\n\tswitch(class(x)[1],\n\t\tsfc_POINT = rep(1, length(x)),\n\t\tsfc_MULTIPOINT = vapply(x, nrow, 0L),\n\t\tsfc_LINESTRING = vapply(x, nrow, 0L),\n\t\tlengths(x) # list\n\t)\n}\n\n#' Coerce geometry to MULTI* geometry\n#'\n#' Mixes of POINTS and MULTIPOINTS, LINESTRING and MULTILINESTRING,\n#' POLYGON and MULTIPOLYGON are returned as MULTIPOINTS, MULTILINESTRING and MULTIPOLYGONS respectively\n#' @param x list of geometries or simple features\n#' @details Geometries that are already MULTI* are left unchanged.\n#' Features that can't be cast to a single MULTI* geometry are return as a\n#' GEOMETRYCOLLECTION\nst_cast_sfc_default = function(x) {\n\n\tif (length(x) == 0)\n\t\treturn(x)\n\n\tif (!identical(unique(vapply(x, function(w) class(w)[3L], \"\")), \"sfg\"))\n\t\tstop(\"list item(s) not of class sfg\") # sanity check\n\n\ta <- attributes(x)\n\tids = NULL\n\tcls = unique(vapply(x, function(x) class(x)[2L], \"\"))\n\tif (length(cls) > 1) {\n\t\tif (all(cls %in% c(\"POINT\", \"MULTIPOINT\"))) {\n\t\t\tx <- lapply(x, function(x) if (inherits(x, \"POINT\")) POINT2MULTIPOINT(x) else x)\n\t\t\tclass(x) <- c(\"sfc_MULTIPOINT\", \"sfc\")\n\t\t} else if (all(cls %in% c(\"LINESTRING\", \"MULTILINESTRING\"))) {\n\t\t\tx <- lapply(x, function(x) if (inherits(x, \"LINESTRING\")) LINESTRING2MULTILINESTRING(x) else x)\n\t\t\tclass(x) <- c(\"sfc_MULTILINESTRING\", \"sfc\")\n\t\t} else if (all(cls %in% c(\"POLYGON\", \"MULTIPOLYGON\"))) {\n\t\t\tx <- lapply(x, function(x) if (inherits(x, \"POLYGON\")) POLYGON2MULTIPOLYGON(x) else x)\n\t\t\tclass(x) <- c(\"sfc_MULTIPOLYGON\", \"sfc\")\n\t\t}\n\t} else if (cls == \"GEOMETRYCOLLECTION\" && all(lengths(x))) { # https://github.com/r-spatial/sf/issues/1767\n\t\tids = get_lengths(x)\n\t\tx <- do.call(st_sfc, unlist(x, recursive = FALSE))\n\t}\n\tattributes(x) <- a\n\tstructure(st_sfc(x), ids = ids)\n}\n\ncopy_sfc_attributes_from = function(x, ret) {\n\tstructure(ret, precision = attr(x, \"precision\"),\n\t\tbbox = attr(x, \"bbox\"), crs = attr(x, \"crs\"), n_empty = attr(x, \"n_empty\"), \n\t\tz_range = attr(x, \"z_range\"), m_range = attr(x, \"m_range\"))\n}\n\nempty_sfg <- function(to) {\n\tswitch(to,\n\t\t GEOMETRYCOLLECTION = st_geometrycollection(),\n\t\t MULTIPOLYGON = st_multipolygon(),\n\t\t POLYGON = st_polygon(),\n\t\t MULTILINESTRING = st_multilinestring(),\n\t\t LINESTRING = st_linestring(),\n\t\t MULTIPOINT = st_multipoint(),\n\t\t POINT = st_point()\n\t )\n}\n\nis_exotic = function(x) {\n\tstopifnot(length(x) > 0)\n\tif (inherits(x, c(\"sfc_MULTICURVE\", \"sfc_COMPOUNDCURVE\", \"sfc_CURVEPOLYGON\", \"sfc_MULTISURFACE\"))) # for which GEOS has no st_is_empty()\n\t\tTRUE\n\telse if (inherits(x, \"sfc_GEOMETRY\")) {\n\t\tcls = sapply(x, class)\n\t\tany(cls[2,] %in% c(\"MULTICURVE\", \"COMPOUNDCURVE\", \"CURVEPOLYGON\", \"MULTISURFACE\"))\n\t} else\n\t\tFALSE\n}\n\n#' @name st_cast\n#' @param ids integer vector, denoting how geometries should be grouped (default: no grouping)\n#' @param group_or_split logical; if TRUE, group or split geometries; if FALSE, carry out a 1-1 per-geometry conversion.\n#' @param ... ignored\n#' @export\n#' @return In case \\code{to} is missing, \\code{st_cast.sfc} will coerce combinations of \"POINT\" and \"MULTIPOINT\", \"LINESTRING\" and \"MULTILINESTRING\", \"POLYGON\" and \"MULTIPOLYGON\" into their \"MULTI...\" form, or in case all geometries are \"GEOMETRYCOLLECTION\" will return a list of all the contents of the \"GEOMETRYCOLLECTION\" objects, or else do nothing. In case \\code{to} is specified, if \\code{to} is \"GEOMETRY\", geometries are not converted, else, \\code{st_cast} will try to coerce all elements into \\code{to}; \\code{ids} may be specified to group e.g. \"POINT\" objects into a \"MULTIPOINT\", if not specified no grouping takes place. If e.g. a \"sfc_MULTIPOINT\" is cast to a \"sfc_POINT\", the objects are split, so no information gets lost, unless \\code{group_or_split} is \\code{FALSE}.\n#' @details When converting a GEOMETRYCOLLECTION to COMPOUNDCURVE, MULTISURFACE or CURVEPOLYGON, the user is responsible for the validity of the resulting object: no checks are being carried out by the software.\n#' \n#' When converting mixed, GEOMETRY sets, it may help to first convert to the MULTI-type, see examples\n#' @examples\n#' # https://github.com/r-spatial/sf/issues/1930:\n#' pt1 <- st_point(c(0,1))\n#' pt23 <- st_multipoint(matrix(c(1,2,3,4), ncol = 2, byrow = TRUE))\n#' d <- st_sf(geom = st_sfc(pt1, pt23))\n#' st_cast(d, \"POINT\") # will not convert the entire MULTIPOINT, and warns\n#' st_cast(d, \"MULTIPOINT\") |> st_cast(\"POINT\")\nst_cast.sfc = function(x, to, ..., ids = seq_along(x), group_or_split = TRUE) {\n\n\tif (missing(to))\n\t\treturn(st_cast_sfc_default(x))\n\n\tif (length(x) == 0) # empty set\n\t\treturn(structure(x, class = c(paste0(\"sfc_\", to), \"sfc\")))\n\n\te = rep(FALSE, length(x))\n\tif (!is_exotic(x)) { # for which GEOS has no st_is_empty()\n\t\te = st_is_empty(x)\n\t\tif (all(e)) {\n\t\t\tx[e] = empty_sfg(to)\n\t\t\treturn(x) # RETURNS\n\t\t}\n\t}\n\tif (any(e))\n\t\tx = x[!e]\n\tfrom_cls = substr(class(x)[1], 5, 100)\n\tfrom_col = which_sfc_col(from_cls)\n\tto_col = which_sfc_col(to)\n\tret = if (from_cls == to)\n\t\tx # returns x: do nothing\n\telse if (to == \"GEOMETRY\") # we can always do that:\n\t\tstructure(x, class = c(\"sfc_GEOMETRY\", \"sfc\"))\n\telse if (from_cls == \"GEOMETRY\" || !group_or_split)\n\t\tst_sfc(lapply(x, st_cast, to = to), crs = st_crs(x), precision = st_precision(x))\n\telse if (from_col == to_col) # \"vertical\" conversion: only reclass, possibly close polygons\n\t\treclass(x, to, need_close(to))\n\telse if (abs(from_col - to_col) > 1) {\n\t\tif (to == \"POINT\")\n\t\t\tst_cast(st_cast(x, \"MULTIPOINT\"), \"POINT\")\n\t\telse if (to == \"MULTIPOINT\") {\n\t\t\tret = lapply(x, function(y) structure(as.matrix(y), class = c(class(y)[1], to, \"sfg\")))\n\t\t\tret = copy_sfc_attributes_from(x, ret)\n\t\t\treclass(ret, to, FALSE)\n\t\t} else\n\t\t\t#st_cast(st_cast(x, \"MULTILINESTRING\"), to)\n\t\t\tstop(\"use smaller steps for st_cast; first cast to MULTILINESTRING or POLYGON?\")\n\t} else if (from_col < to_col) { # \"horizontal\", to the right: group\n\t\tret = if (from_col == 0)\n\t\t\t\tlapply(unname(split(x, ids)), function(y) structure(do.call(rbind, y), \n\t\t\t\t\tclass = class(x[[1]])))\n\t\t\telse\n\t\t\t\tlapply(unname(split(x, ids)), function(y) structure(y, class = class(x[[1]])))\n\t\tret = copy_sfc_attributes_from(x, ret)\n\t\treclass(ret, to, need_close(to))\n\t} else if (from_col == 3 && to == \"MULTILINESTRING\") {\n\t\tif (from_cls == \"MULTICURVE\") {\n\t\t\tret = lapply(x, st_cast, to = \"MULTILINESTRING\")\n\t\t} else {\n\t\t\tret = lapply(x, unlist, recursive = FALSE) # unlist one level deeper; one MULTIPOLYGON -> one MULTILINESTRING\n\t\t\tif (length(ret))\n\t\t\t\tclass(ret[[1]]) = class(x[[1]]) # got dropped\n\t\t}\n\t\tret = copy_sfc_attributes_from(x, ret)\n\t\tstructure(reclass(ret, to, FALSE))\n\t} else { # \"horizontal\", to the left: split\n\t\tret = if (from_col == 1) # LINESTRING or MULTIPOINT to POINT\n\t\t\t\tunlist(lapply(x, function(m) lapply(seq_len(nrow(m)), function(i) m[i,])), recursive = FALSE)\n\t\t\telse {\n\t\t\t\tif (to_col == 0 && from_cls == \"POLYGON\") # POLYGON -> POINT\n\t\t\t\t\tlapply(x, function(y) do.call(rbind, y))\n\t\t\t\telse\n\t\t\t\t\tunlist(x, recursive = FALSE)\n\t\t\t}\n\t\tret = lapply(ret, function(y) structure(y, class = class(x[[1]]))) # will be reset by reclass()\n\t\tret = copy_sfc_attributes_from(x, ret)\n\t\t# EJP: FIXME:\n\t\tstructure(reclass(ret, to, need_close(to)), ids = get_lengths(x))\n\t}\n\tif (any(e)) {\n\t\tcrs = st_crs(x)\n\t\tx = vector(\"list\", length = length(e))\n\t\tx[e] = list(empty_sfg(to))\n\t\tx[!e] = ret\n\t\tst_set_crs(do.call(st_sfc, x), crs)\n\t} else\n\t\tret\n}\n\n#' @name st_cast\n#' @param warn logical; if \\code{TRUE}, warn if attributes are assigned to sub-geometries\n#' @param do_split logical; if \\code{TRUE}, allow splitting of geometries in sub-geometries\n#' @export\n#' @details the \\code{st_cast} method for \\code{sf} objects can only split geometries, e.g. cast \\code{MULTIPOINT} into multiple \\code{POINT} features. In case of splitting, attributes are repeated and a warning is issued when non-constant attributes are assigned to sub-geometries. To merge feature geometries and attribute values, use \\link[sf:aggregate.sf]{aggregate} or \\link[sf:tidyverse]{summarise}.\nst_cast.sf = function(x, to, ..., warn = TRUE, do_split = TRUE) {\n\tgeom = st_cast(st_geometry(x), to, group_or_split = do_split)\n\tagr = st_agr(x)\n\tall_const = all_constant(x)\n\tsf_column = attr(x, \"sf_column\") # keep name\n\tst_geometry(x) = NULL\n\t# class(x) = setdiff(class(x), \"sf\")\n\tids = attr(geom, \"ids\") # e.g. 3 2 4\n\tif (!is.null(ids)) { # split:\n\t\tif (warn && ! all_const)\n\t\t\twarning(\"repeating attributes for all sub-geometries for which they may not be constant\")\n\t\treps = rep(seq_len(length(ids)), ids) # 1 1 1 2 2 3 3 3 3 etc\n\t\tagr[agr == \"identity\"] = \"constant\" # since we splitted\n\t\tx = x[reps,, drop = FALSE]\n\t\tstopifnot(nrow(x) == length(geom))\n\t}\n\tattr(geom, \"ids\") = NULL # remove\n\tx[[sf_column]] = geom\n\tst_geometry(x) = sf_column\n\tst_agr(x) = agr\n\tx\n}\n\n#' @name st_cast\n#' @export\nst_cast.sfc_CIRCULARSTRING <- function(x, to, ...) {\n\tif (isTRUE(st_is_longlat(x)))\n\t\tmessage_longlat(\"st_cast\")\n\tstopifnot(to == \"LINESTRING\")\n\tst_sfc(CPL_circularstring_to_linestring(st_sfc(x)), crs = st_crs(x)) # should add attributes?\n}\n\n#' test equality between the geometry type and a class or set of classes\n#'\n#' test equality between the geometry type and a class or set of classes\n#' @param x object of class \\code{sf}, \\code{sfc} or \\code{sfg}\n#' @param type character; class, or set of classes, to test against\n#' @examples\n#' st_is(st_point(0:1), \"POINT\")\n#' sfc = st_sfc(st_point(0:1), st_linestring(matrix(1:6,,2)))\n#' st_is(sfc, \"POINT\")\n#' st_is(sfc, \"POLYGON\")\n#' st_is(sfc, \"LINESTRING\")\n#' st_is(st_sf(a = 1:2, sfc), \"LINESTRING\")\n#' st_is(sfc, c(\"POINT\", \"LINESTRING\"))\n#' @export\nst_is = function(x, type) UseMethod(\"st_is\")\n\n#' @export\nst_is.sf = function(x, type)\n\tst_is(st_geometry(x), type)\n\n#' @export\nst_is.sfc = function(x, type)\n\tvapply(x, inherits, type, FUN.VALUE = logical(1))\n\n#' @export\nst_is.sfg = function(x, type)\n\tinherits(x, type)\n"
},
{
"path": "R/cast_sfg.R",
"content": "## utility functions, patterns that are either used elsewhere or can be \n## replaced by other changes \n## \n## worker functions from the internals of c.sfg\n## to unclass the underlying coordinates\nPaste0 <- function(lst) lapply(lst, unclass)\n##\n## drop the tail coordinate of a polygon ring\nTail1 <- function(lst) lapply(lst, head, -1)\n\nClosePol <- function(mtrx) { \n\tstopifnot(is.matrix(mtrx))\n\tif (!all(mtrx[1,] == mtrx[nrow(mtrx),])) \n\t\tmtrx = rbind(mtrx, mtrx[1,]) \n\tif (nrow(mtrx) < 4)\n\t\tstop(\"polygons require at least 4 points\")\n\tmtrx\n}\n\n## multi-polygon and polygon constructor, allow unclosed (but don't apply auto-closing)\n## note use of local constructor below, not the sf-API one\n#st_multipolygon_close <- function(x = list(), dim = \"XYZ\") {\n#\tMtrxSetSet(x, dim, type = \"MULTIPOLYGON\", needClosed = FALSE)\n#}\n\n#st_polygon_close <- function(x = list(), dim = \"XYZ\") {\n#\tMtrxSet(x, dim, type = \"POLYGON\", needClosed = FALSE)\n#}\n\n# TODO\n# FIXME: warn on multi-part loss only if there are multiple parts\n# disallow auto-polygon-closure for two-point inputs: st_cast(st_linestring(cbind(0, 1:2)), \"POLYGON\")\n# -> that should give an error\n# check discussions, holes become lines, those lines become overlapping islands, or does polygonize auto-detect nesting\n## and assign holes to islands as sp-comments did?\n# test on holes\n# warnings on these individual tests as here, or on detection of loss higher up?\n# geometrycollection conversions?\n# check comments and warnings are consistent in each case below\n\n#' @name st_cast\n#' @export\n#' @examples \n#' # example(st_read)\n#' nc = st_read(system.file(\"shape/nc.shp\", package=\"sf\"))\n#' mpl <- st_geometry(nc)[[4]]\n#' #st_cast(x) ## error 'argument \"to\" is missing, with no default'\n#' cast_all <- function(xg) {\n#' lapply(c(\"MULTIPOLYGON\", \"MULTILINESTRING\", \"MULTIPOINT\", \"POLYGON\", \"LINESTRING\", \"POINT\"), \n#' function(x) st_cast(xg, x))\n#' }\n#' st_sfc(cast_all(mpl))\n#' ## no closing coordinates should remain for multipoint\n#' any(duplicated(unclass(st_cast(mpl, \"MULTIPOINT\")))) ## should be FALSE\n#' ## number of duplicated coordinates in the linestrings should equal the number of polygon rings \n#' ## (... in this case, won't always be true)\n#' sum(duplicated(do.call(rbind, unclass(st_cast(mpl, \"MULTILINESTRING\"))))\n#' ) == sum(unlist(lapply(mpl, length))) ## should be TRUE\n#' \n#' p1 <- structure(c(0, 1, 3, 2, 1, 0, 0, 0, 2, 4, 4, 0), .Dim = c(6L, 2L))\n#' p2 <- structure(c(1, 1, 2, 1, 1, 2, 2, 1), .Dim = c(4L, 2L))\n#' st_polygon(list(p1, p2))\nst_cast.MULTIPOLYGON <- function(x, to, ...) {\n\tswitch(to, \n\t\tMULTIPOLYGON = x, \n\t\tMULTILINESTRING = st_multilinestring( unlist(Paste0(x), recursive = FALSE, use.names = FALSE)), \n\t\tMULTIPOINT = st_multipoint(do.call(rbind, Tail1(unlist(Paste0(x), recursive = FALSE, use.names = FALSE)))), \n ## loss, drop to first part\n\t\tPOLYGON = {\n\t\t \tif (length(x) > 1)\n\t\t\t\twarning(\"polygon from first part only\")\n\t\t\tst_polygon(x[[1L]])\n\t\t}, \n\t\tLINESTRING = {warning(\"line from first ring only\"); st_linestring(x[[1L]][[1L]])}, \n\t\t## loss, drop to first coordinate of first ring of first part\n\t\tPOINT = {warning(\"point from first coordinate only\"); st_point(x[[1L]][[1L]][1L, , drop = TRUE])},\n\t\tGEOMETRYCOLLECTION = st_geometrycollection(list(x))\n\t)\n}\n\n#' @name st_cast\n#' @export\n#' @examples \n#' mls <- st_cast(st_geometry(nc)[[4]], \"MULTILINESTRING\")\n#' st_sfc(cast_all(mls))\nst_cast.MULTILINESTRING <- function(x, to, ...) {\n\tswitch(to, \n\t\tMULTIPOLYGON = st_multipolygon(list(lapply(x, ClosePol))), \n\t\tMULTILINESTRING = x, \n\t\tMULTIPOINT = st_multipoint(do.call(rbind, Paste0(x))), \n\t\t## loss, drop to first line\n\t\t#POLYGON = {warning(\"keeping first linestring only\"); st_polygon(x[1L])}, \n\t\tPOLYGON = st_polygon(lapply(x, ClosePol)),\n\t\tLINESTRING = {\n\t\t\tif (length(x) > 1)\n\t\t\t\twarning(\"keeping first linestring only\")\n\t\t\tst_linestring(x[[1L]])\n\t\t},\n\t\t## loss, drop to first coordinate of first line \n\t\tPOINT = {\n\t\t\twarning(\"keeping first coordinate only\")\n\t\t\tst_point(x[[1L]][1L, , drop = TRUE])\n\t\t},\n\t\tGEOMETRYCOLLECTION = st_geometrycollection(list(x))\n\t)\n}\n\n#' @name st_cast\n#' @export\n#' @examples\n#' mpt <- st_cast(st_geometry(nc)[[4]], \"MULTIPOINT\")\n#' st_sfc(cast_all(mpt))\nst_cast.MULTIPOINT <- function(x, to, ...) {\n switch(to, \n ## DANGER: polygon, linestring forms unlikely to be valid\n MULTIPOLYGON = st_multipolygon(list(list(ClosePol(unclass(x))))), \n MULTILINESTRING = st_multilinestring(list(unclass(x))), \n MULTIPOINT = x, \n POLYGON = st_polygon(list(unclass(ClosePol(x)))), \n LINESTRING = st_linestring(unclass(x)),\n ## loss, drop to first coordinate\n POINT = {\n if (st_is_empty(x)) {\n row <- NA_integer_\n } else {\n\t warning(\"point from first coordinate only\")\n row <- 1L\n }\n st_point(unclass(x)[row, , drop = TRUE])\n },\n\t\t GEOMETRYCOLLECTION = st_geometrycollection(list(x))\n )\n}\n\n#' @name st_cast\n#' @export\n#' @examples\n#' pl <- st_cast(st_geometry(nc)[[4]], \"POLYGON\")\n#' st_sfc(cast_all(pl))\nst_cast.POLYGON <- function(x, to, ...) {\n switch(to, \n MULTIPOLYGON = {\n\t\t\t if (length(x))\n\t\t\t\tx = list(lapply(Paste0(x), ClosePol))\n\t\t\t st_multipolygon(x)\n\t\t },\n MULTILINESTRING = st_multilinestring(unclass(x)), \n MULTIPOINT = st_multipoint(Tail1(unclass(x))[[1L]]), \n POLYGON = x, \n LINESTRING = st_linestring(unclass(x)[[1L]]),\n POINT = {warning(\"point from first coordinate only\"); st_point(unclass(x)[[1L]][1L, , drop = TRUE])},\n\t\t GEOMETRYCOLLECTION = st_geometrycollection(list(x))\n )\n}\n\n#' @name st_cast\n#' @export\n#' @examples\n#' ls <- st_cast(st_geometry(nc)[[4]], \"LINESTRING\")\n#' st_sfc(cast_all(ls))\nst_cast.LINESTRING <- function(x, to, ...) {\n switch(to, \n MULTIPOLYGON = st_multipolygon(list(list(ClosePol(unclass(x))))), \n MULTILINESTRING = st_multilinestring(list(unclass(x))), \n MULTIPOINT = st_multipoint(unclass(x)), \n POLYGON = st_polygon(list(unclass(ClosePol(x)))), \n LINESTRING = x,\n POINT = {warning(\"point from first coordinate only\"); st_point(unclass(x)[1L, , drop = TRUE])},\n\t\t GEOMETRYCOLLECTION = st_geometrycollection(list(x))\n )\n}\n\n#' @name st_cast\n#' @export\n#' @examples\n#' pt <- st_cast(st_geometry(nc)[[4]], \"POINT\")\n#' ## st_sfc(cast_all(pt)) ## Error: cannot create MULTIPOLYGON from POINT \n#' st_sfc(lapply(c(\"POINT\", \"MULTIPOINT\"), function(x) st_cast(pt, x)))\nst_cast.POINT <- function(x, to, ...) {\n switch(to, \n MULTIPOLYGON = stop(\"cannot create MULTIPOLYGON from POINT\"), \n MULTILINESTRING = stop(\"cannot create MULTILINESTRING from POINT\"), \n MULTIPOINT = st_multipoint(matrix(unclass(x), nrow = 1L)), \n POLYGON = stop(\"cannot create POLYGON from POINT\"), \n LINESTRING = stop(\"cannot create LINESTRING from POINT\"),\n POINT = x,\n\t\t GEOMETRYCOLLECTION = st_geometrycollection(list(x))\n )\n}\n\n#' @name st_cast\n#' @export\nst_cast.GEOMETRYCOLLECTION <- function(x, to, ...) {\n switch(to, \n \tGEOMETRYCOLLECTION = x,\n \t{\n\t\tif (length(x) > 1)\n\t\t\twarning(\"only first part of geometrycollection is retained\")\n\t\tst_cast(x[[1]], to, ...)\n\t}\n )\n}\n\n#' @name st_cast\n#' @export\nst_cast.CIRCULARSTRING <- function(x, to, ...) {\n\tif (to != \"LINESTRING\")\n\t\tstop(\"CIRCULARSTRING can only be converted into LINESTRING\")\n\tCPL_circularstring_to_linestring(structure(list(x), crs = NA_crs_, precision = 0.0, \n\t\tclass = c(\"sfc_CIRCULARSTRING\", \"sfc\")))[[1]]\n}\n\n#' @name st_cast\n#' @export\nst_cast.MULTISURFACE <- function(x, to, ...) {\n\tif (! missing(to) && to != \"MULTIPOLYGON\")\n\t\tstop(\"MULTISURFACE can only be converted into MULTIPOLYGON\")\n\tCPL_multisurface_to_multipolygon(structure(list(x), crs = NA_crs_, precision = 0.0, \n\t\tclass = c(\"sfc_MULTISURFACE\", \"sfc\")))[[1]]\n}\n\n#' @name st_cast\n#' @export\nst_cast.COMPOUNDCURVE <- function(x, to, ...) {\n\tif (! missing(to) && to != \"LINESTRING\")\n\t\tstop(\"to should be missing or LINESTRING\")\n\tCPL_compoundcurve_to_linear(structure(list(x), crs = NA_crs_, precision = 0.0, \n\t\tclass = c(\"sfc_COMPOUNDCURVE\", \"sfc\")))[[1]]\n}\n\n#' @name st_cast\n#' @export\nst_cast.MULTICURVE <- function(x, to, ...) {\n\tif (! missing(to) && to != \"MULTILINESTRING\")\n\t\tstop(\"to should be missing or MULTILINESTRING\")\n\tst_multilinestring(lapply(x, st_cast, to = \"LINESTRING\"))\n}\n\n\n#' @name st_cast\n#' @export\nst_cast.CURVE <- function(x, to, ...) { # nocov start\n\tif (! missing(to) && to != \"LINESTRING\")\n\t\tstop(\"CURVE can only be converted into LINESTRING\")\n\tCPL_curve_to_linestring(structure(list(x), crs = NA_crs_, precision = 0.0, \n\t\tclass = c(\"sfc_CURVE\", \"sfc\")))[[1]]\n} # nocov end\n\n# st_cast.class <- function(x, to) {\n# switch(to, \n# MULTIPOLYGON = x, \n# MULTILINESTRING = x, \n# MULTIPOINT = x, \n# POLYGON = x, \n# LINESTRING = x,\n# POINT = x\n# )\n# }\n\n"
},
{
"path": "R/collection_extract.R",
"content": "#' Given an object with geometries of type \\code{GEOMETRY} or \\code{GEOMETRYCOLLECTION},\n#' return an object consisting only of elements of the specified type.\n#'\n#' Similar to ST_CollectionExtract in PostGIS. If there are no sub-geometries\n#' of the specified type, an empty geometry is returned.\n#'\n#' @param x an object of class \\code{sf}, \\code{sfc} or \\code{sfg} that has\n#' mixed geometry (\\code{GEOMETRY} or \\code{GEOMETRYCOLLECTION}).\n#' @param type character; one of \"POLYGON\", \"POINT\", \"LINESTRING\"\n#' @param warn logical; if \\code{TRUE}, warn if attributes are assigned to\n#' sub-geometries when casting (see \\code{\\link{st_cast}})\n#'\n#' @return An object having the same class as \\code{x}, with geometries\n#' consisting only of elements of the specified type.\n#' For \\code{sfg} objects, an \\code{sfg} object is returned if there is only\n#' one geometry of the specified type, otherwise the geometries are combined\n#' into an \\code{sfc} object of the relevant type. If any subgeometries in the\n#' input are MULTI, then all of the subgeometries in the output will be MULTI.\n#'\n#' @export\n#'\n#' @examples\n#' pt <- st_point(c(1, 0))\n#' ls <- st_linestring(matrix(c(4, 3, 0, 0), ncol = 2))\n#' poly1 <- st_polygon(list(matrix(c(5.5, 7, 7, 6, 5.5, 0, 0, -0.5, -0.5, 0), ncol = 2)))\n#' poly2 <- st_polygon(list(matrix(c(6.6, 8, 8, 7, 6.6, 1, 1, 1.5, 1.5, 1), ncol = 2)))\n#' multipoly <- st_multipolygon(list(poly1, poly2))\n#'\n#' i <- st_geometrycollection(list(pt, ls, poly1, poly2))\n#' j <- st_geometrycollection(list(pt, ls, poly1, poly2, multipoly))\n#'\n#' st_collection_extract(i, \"POLYGON\")\n#' st_collection_extract(i, \"POINT\")\n#' st_collection_extract(i, \"LINESTRING\")\n#'\n#' ## A GEOMETRYCOLLECTION\n#' aa <- rbind(st_sf(a=1, geom = st_sfc(i)),\n#' \t\t\tst_sf(a=2, geom = st_sfc(j)))\n#'\n#' ## With sf objects\n#' st_collection_extract(aa, \"POLYGON\")\n#' st_collection_extract(aa, \"LINESTRING\")\n#' st_collection_extract(aa, \"POINT\")\n#'\n#' ## With sfc objects\n#' st_collection_extract(st_geometry(aa), \"POLYGON\")\n#' st_collection_extract(st_geometry(aa), \"LINESTRING\")\n#' st_collection_extract(st_geometry(aa), \"POINT\")\n#'\n#' ## A GEOMETRY of single types\n#' bb <- rbind(\n#' \tst_sf(a = 1, geom = st_sfc(pt)),\n#' \tst_sf(a = 2, geom = st_sfc(ls)),\n#' \tst_sf(a = 3, geom = st_sfc(poly1)),\n#' \tst_sf(a = 4, geom = st_sfc(multipoly))\n#' )\n#'\n#' st_collection_extract(bb, \"POLYGON\")\n#'\n#' ## A GEOMETRY of mixed single types and GEOMETRYCOLLECTIONS\n#' cc <- rbind(aa, bb)\n#'\n#' st_collection_extract(cc, \"POLYGON\")\n#'\nst_collection_extract = function(x, type = c(\"POLYGON\", \"POINT\", \"LINESTRING\"), warn = FALSE) {\n\tUseMethod(\"st_collection_extract\")\n}\n\n#' @name st_collection_extract\n#'\n#' @export\nst_collection_extract.sfg = function(x, type = c(\"POLYGON\", \"POINT\", \"LINESTRING\"), warn = FALSE) {\n\ttype = match.arg(type)\n\ttypes = c(type, paste0(\"MULTI\", type))\n\n\tif (inherits(x, types)) {\n\t\twarning(\"x is already of type \", type, \".\")\n\t\treturn(x)\n\t}\n\n\tif (!inherits(x, \"GEOMETRYCOLLECTION\")) {\n\t\tstop(\"x is of singular geometry type that is different to supplied type: \", type) # nocov\n\t}\n\n\t# Find the geometries of the specified type and extract into a list\n\tmatches = vapply(x, st_is, types, FUN.VALUE = logical(1))\n\tx_types = x[which(matches)]\n\tif (length(x_types) == 0L) {\n\t\t## return an empty sfg of the specified type\n\t\twarning(\"x contains no geometries of specified type\")\n\t\treturn(typed_empty(paste0(\"sfc_\", type)))\n\t} else if (length(x_types) == 1L) {\n\t\t# Get the contents of the first (only) list element which is an sfg\n\t\treturn(x_types[[1]])\n\t} else {\n\t\t# turn list into an sfc, and cast it to single type. Will be multi\n\t\t# if any are multi\n\t\treturn(st_cast(st_sfc(x_types), warn = warn))\n\t}\n}\n\n#' @name st_collection_extract\n#'\n#' @export\nst_collection_extract.sfc = function(x, type = c(\"POLYGON\", \"POINT\", \"LINESTRING\"), warn = FALSE) {\n\ttype = match.arg(type)\n\ttypes = c(type, paste0(\"MULTI\", type))\n\n\tif (length(x) == 0)\n\t\treturn(x)\n\n\t# Check it's not already what user is asking for\n\tif (inherits(st_geometry(x), paste0(\"sfc_\", types))) {\n\t\twarning(\"x is already of type \", type, \".\") # nocov\n\t\treturn(x) # nocov\n\t}\n\n\tif (!inherits(st_geometry(x), c(\"sfc_GEOMETRY\", \"sfc_GEOMETRYCOLLECTION\"))) {\n\t\tstop(\"x is of singular geometry type that is different to supplied type: \", type)\n\t}\n\n\t# Cast to GEOMETRYCOLLECTION if is GEOMETRY)\n\tif (inherits(st_geometry(x), \"sfc_GEOMETRY\")) {\n\t\tx = st_cast(x, \"GEOMETRYCOLLECTION\")\n\t}\n\n\t## Cast GEOMETRYCOLLECTION into all components\n\tgc_casted = st_cast(x, warn = warn)\n\n\t## Keep only components that match input type\n\tif (inherits(gc_casted, \"sf\")) {\n\t\tgc_types = gc_casted[st_is(gc_casted, types), ]\n\t} else {\n\t\tgc_types = gc_casted[st_is(gc_casted, types)]\n\t}\n\n\t## Cast to specified (MULTI) type\n\n\tif (length(st_geometry(gc_types)) == 0L) {\n\t\twarning(\"x contains no geometries of specified type\")\n\t\treturn(gc_types)\n\t}\n\n\tst_cast(gc_types, warn = warn)\n}\n\n#' @name st_collection_extract\n#'\n#' @export\nst_collection_extract.sf = st_collection_extract.sfc\n"
},
{
"path": "R/crop.R",
"content": "\n#' crop an sf object to a specific rectangle\n#' @param x object of class \\code{sf} or \\code{sfc}\n#' @param y numeric vector with named elements \\code{xmin}, \\code{ymin}, \\code{xmax} and \\code{ymax}, or object of class \\code{bbox}, or object for which there is an \\link{st_bbox} method to convert it to a \\code{bbox} object\n#' @param ... ignored\n#' @details\n#' setting arguments \\code{xmin}, \\code{ymin}, \\code{xmax} and \\code{ymax} implies that argument \\code{y} gets ignored.\n#' @export\n#' @examples\n#' box = c(xmin = 0, ymin = 0, xmax = 1, ymax = 1)\n#' pol = st_sfc(st_buffer(st_point(c(.5, .5)), .6))\n#' pol_sf = st_sf(a=1, geom=pol)\n#' plot(st_crop(pol, box))\n#' plot(st_crop(pol_sf, st_bbox(box)))\n#' # alternative:\n#' plot(st_crop(pol, xmin = 0, ymin = 0, xmax = 1, ymax = 1))\n#' @export\nst_crop = function(x, y, ...) UseMethod(\"st_crop\")\n\n#' @export\n#' @name st_crop\n#' @param xmin minimum x extent of cropping area\n#' @param ymin minimum y extent of cropping area\n#' @param xmax maximum x extent of cropping area\n#' @param ymax maximum y extent of cropping area\nst_crop.sfc = function(x, y, ..., xmin, ymin, xmax, ymax) {\n\tif (!missing(xmin) && !missing(ymin) && !missing(xmax) && !missing(ymax))\n\t\ty = c(xmin = xmin, ymin = ymin, xmax = xmax, ymax = ymax)\n\tif (! inherits(y, \"bbox\"))\n\t\ty = st_bbox(y)\n\tif (is.na(st_crs(y)))\n\t\ty = structure(y, crs = st_crs(x))\n\tst_intersection(x, st_as_sfc(y))\n}\n\n#' @export\n#' @name st_crop\nst_crop.sf = function(x, y, ...) {\n\tst_crop.sfc(x, y, ...)\n}\n"
},
{
"path": "R/crs.R",
"content": "# alternative, but more limiting from sp/R/CRS-methods.R, https://github.com/edzer/sp/pull/31 @hughjonesd\n# (no longer used)\n#identicalCRS1 = function(x, y) {\n# args_x <- strsplit(x, \" +\")[[1]]\n# args_y <- strsplit(y, \" +\")[[1]]\n# setequal(args_x, args_y)\n#}\n\n# this function establishes whether two crs objects are semantically identical. This is\n# the case when: (1) they are completely identical (including NA), or (2) GDAL considers\n# them equivalent\n#' @export\nOps.crs <- function(e1, e2) {\n\tif (nargs() == 1)\n\t\tstop(paste(\"unary\", .Generic, \"not defined for \\\"crs\\\" objects\"), call. = FALSE)\n\n\tcmp <- switch(.Generic, \"==\" =, \"!=\" = TRUE, FALSE)\n\tif (!cmp)\n\t\tstop(paste(\"operation\", .Generic, \"not supported for crs objects\"), call. = FALSE)\n\tif (.Generic == \"!=\")\n\t\t!(e1 == e2)\n\telse { # \"==\": check semantic equality\n\t\tif (isTRUE(all.equal(e1, e2))) # includes both are NA_crs_\n\t\t\tTRUE\n\t\telse if (is.na(e1) || is.na(e2)) # only one of them is NA_crs_\n\t\t\tFALSE\n\t\telse\n\t\t\tisTRUE(try(CPL_crs_equivalent(e1, e2), silent = TRUE)) # use GDAL's srs1->IsSame(srs2)\n\t}\n}\n\n#' Retrieve coordinate reference system from object\n#'\n#' Retrieve coordinate reference system from sf or sfc object\n#' @name st_crs\n#' @param x numeric, character, or object of class \\link{sf} or \\link{sfc}\n#' @param ... ignored\n#' @export\n#' @return If \\code{x} is numeric, return \\code{crs} object for EPSG:\\code{x};\n#' if \\code{x} is character, return \\code{crs} object for \\code{x};\n#' if \\code{x} is of class \\code{sf} or \\code{sfc}, return its \\code{crs} object.\n#' @details The *crs functions create, get, set or replace the \\code{crs} attribute\n#' of a simple feature geometry list-column. This attribute is of class \\code{crs},\n#' and is a list consisting of \\code{input} (user input, e.g. \"EPSG:4326\" or \"WGS84\"\n#' or a proj4string), and \\code{wkt}, an automatically generated wkt2 representation of the crs.\n#' If \\code{x} is identical to the wkt2 representation, and the CRS has a name, this name\n#' is used for the \\code{input} field.\n#'\n#' Comparison of two objects of class \\code{crs} uses the GDAL function\n#' \\code{OGRSpatialReference::IsSame}.\n#' @return Object of class \\code{crs}, which is a list with elements \\code{input} (length-1 character)\n#' and \\code{wkt} (length-1 character).\n#' Elements may be \\code{NA} valued; if all elements are \\code{NA} the CRS is missing valued, and coordinates are\n#' assumed to relate to an arbitrary Cartesian coordinate system.\nst_crs = function(x, ...) UseMethod(\"st_crs\")\n\n#' @name st_crs\n#' @export\nst_crs.sf = function(x, ...) st_crs(st_geometry(x), ...)\n\n#' @name st_crs\n#' @export\nst_crs.numeric = function(x, ...) {\n\tif (!is.finite(x))\n\t\tNA_crs_\n\telse\n \tmake_crs(paste0(\"EPSG:\", x))\n}\n\n\n#' @name st_crs\n#' @export\nst_crs.character = function(x, ...) {\n\tif (is.na(x))\n\t\tNA_crs_\n\telse {\n\t\tcrs = make_crs(x)\n\t\tif (is.na(crs))\n\t\t\tstop(paste(\"invalid crs:\", x))\n\t\t# if we input wkt2, and CRS has a name, use it:\n\t\tif (identical(x, crs$wkt) && !identical(crs$Name, \"unknown\"))\n\t\t\tcrs$input = crs$Name\n\t\tcrs\n\t}\n}\n\nfix_crs = function(x) {\n\tif (all(c(\"epsg\", \"proj4string\") %in% names(x))) {\n\t\tmessage(\"old-style crs object detected; please recreate object with a recent sf::st_crs()\")\n\t\tx = unclass(x)\n\t\tif (!is.na(x$epsg))\n\t\t\tst_crs(x$epsg)\n\t\telse\n\t\t\tst_crs(x$proj4string)\n\t} else\n\t\tx\n}\n\n\n#' @name st_crs\n#' @param parameters logical; \\code{FALSE} by default; only for the `st_crs.sfc()` method: if \\code{TRUE} return a classed list of coordinate reference system parameters, with named elements \\code{SemiMajor}, \\code{InvFlattening}, \\code{units_gdal}, \\code{IsVertical}, \\code{WktPretty}, \\code{Wkt}, \\code{Name}, \\code{proj4string}, \\code{epsg}, \\code{yx}, \\code{ProjJson}, \\code{WKT1_ESRI}, \\code{srid} (in authority:code form), \\code{axes} (a data.frame with columns \\code{name} and \\code{orientation}), \\code{gcs_crs} with the WKT of the base geographic coordinate system, \\code{ud_unit}. The list has class \\code{crs_parameters}.\n#' @export\nst_crs.sfc = function(x, ..., parameters = FALSE) {\n\tcrs = fix_crs(attr(x, \"crs\"))\n\tif (isTRUE(parameters)) {\n\t\tp = crs_parameters(crs)\n\t\tp$ud_unit = crs_ud_unit(crs)\n\t\tp\n\t} else\n\t\tcrs\n}\n\n#' @name st_crs\n#' @export\nst_crs.bbox = function(x, ...) {\n\tcrs = attr(x, \"crs\")\n\tif (is.null(crs))\n\t\tNA_crs_\n\telse\n\t\tcrs\n}\n\n#' @name st_crs\n#' @export\nst_crs.CRS = function(x, ...) {\n\tif (is.null(comment(x)) || CPL_proj_version() < \"6.0.0\" || \n\t\t\tCPL_gdal_version() < \"3.0.0\")\n\t\tst_crs(x@projargs)\n\telse {\n\t\tret = st_crs(comment(x))\n\t\tname = ret$Name\n\t\tret$input = if (name == \"unknown\")\n\t\t\t\tx@projargs\n\t\t\telse\n\t\t\t\tname\n\t\tret\n\t}\n}\n\n#' @name st_crs\n#' @export\nst_crs.crs = function(x, ...) x\n\n#' @export\nst_crs.default = function(x, ...) NA_crs_\n\n#' Set or replace coordinate reference system from object\n#'\n#' Set or replace retrieve coordinate reference system from object\n#' @name st_crs\n#' @param value one of (i) character: a string accepted by GDAL, (ii) integer, a valid EPSG value (numeric), or (iii) an object of class \\code{crs}.\n#' @details In case a coordinate reference system is replaced, no transformation takes\n#' place and a warning is raised to stress this.\n#'\n#' @export\n`st_crs<-` = function(x, value) UseMethod(\"st_crs<-\")\n\n#' @name st_crs\n#' @examples\n#' sfc = st_sfc(st_point(c(0,0)), st_point(c(1,1)))\n#' sf = st_sf(a = 1:2, geom = sfc)\n#' st_crs(sf) = 4326\n#' st_geometry(sf)\n#' @export\n`st_crs<-.sf` = function(x, value) {\n\tst_crs(x[[ attr(x, \"sf_column\") ]]) = value\n\tx\n}\n\n# return crs object from crs, integer, or character string\nmake_crs = function(x) {\n\n\tif (inherits(x, \"CRS\")) {\n\t\tx = if (is.null(comment(x)) || (CPL_proj_version() < \"6.0.0\" || \n CPL_gdal_version() < \"3.0.0\"))\n\n\t\t\t\tx@projargs\n\t\t\telse\n\t\t\t\tcomment(x) # WKT2\n\t}\n\tif (is.numeric(x) && !is.na(x))\n\t\tx = paste0(\"EPSG:\", x)\n\t# return:\n\tif (is.na(x))\n\t\tNA_crs_\n\telse if (inherits(x, \"crs\"))\n\t\tx\n\telse if (is.character(x)) {\n\t\tif (grepl(\"+init=epsg:\", x) &&\n\t\t\t\tcompareVersion(sf_extSoftVersion()[[\"proj.4\"]], \"6.0.0\") >= 0 &&\n\t\t\t\tcompareVersion(sf_extSoftVersion()[[\"proj.4\"]], \"6.3.1\") < 0) { # nocov start FIXME:\n\t\t\tx = strsplit(x, \" \")[[1]]\n\t\t\tif (length(x) > 1)\n\t\t\t\twarning(paste(\"the following proj4string elements are ignored:\",\n\t\t\t\t\tpaste(x[-1], collapse = \" \"), \"; remove the +init=epsg:XXXX to undo this\"))\n\t\t\tx = paste0(\"EPSG:\", as.integer(substr(x[1], 12, 20))) # nocov end\n\t\t}\n\t\tCPL_crs_from_input(x)\n\t} else\n\t\tstop(paste(\"cannot create a crs from an object of class\", class(x)), call. = FALSE)\n}\n\n#' @name st_crs\n#' @examples\n#' sfc = st_sfc(st_point(c(0,0)), st_point(c(1,1)))\n#' st_crs(sfc) = 4326\n#' sfc\n#' @export\n`st_crs<-.sfc` = function(x, value) {\n\n\tif (is.null(attr(x, \"crs\")))\n\t\tstart_crs = NA_crs_\n\telse\n\t\tstart_crs = st_crs(x)\n\n\tend_crs = make_crs(value)\n\n\tif (!is.na(start_crs) && !is.na(end_crs) && start_crs != end_crs)\n\t\twarning(\"st_crs<- : replacing crs does not reproject data; use st_transform for that\", call. = FALSE)\n\n\tif (is.na(end_crs) && !is.na(start_crs) && isTRUE(st_is_longlat(start_crs)) && any(st_is_full(x)))\n\t\tstop(\"To set the crs to NA, first remove the full polygons; see: st_is_full()\")\n\n\tstructure(x, crs = end_crs)\n}\n\n#' @export\n`st_crs<-.bbox` = function(x, value) {\n\tstructure(x, crs = make_crs(value))\n}\n\n\n#' @name st_crs\n#' @examples\n#' sfc = st_sfc(st_point(c(0,0)), st_point(c(1,1)))\n#' sfc |> st_set_crs(4326) |> st_transform(3857)\n#' @export\nst_set_crs = function(x, value) {\n\tst_crs(x) = value\n\tx\n}\n\n#' Assert whether simple feature coordinates are longlat degrees\n#'\n#' Assert whether simple feature coordinates are longlat degrees\n#' @param x object of class \\link{sf} or \\link{sfc}, or otherwise an object of a class that has an \\link{st_crs} method returning a \\code{crs} object\n#' @return `TRUE` if `x` has geographic coordinates, `FALSE` if it has projected coordinates, or `NA` if \\code{is.na(st_crs(x))}.\n#' @export\nst_is_longlat = function(x) {\n\tcrs = st_crs(x)\n\tif (is.na(crs))\n\t\tNA\n\telse {\n\t\tret = crs_parameters(crs)$IsGeographic\n\t\tif (ret && inherits(x, c(\"sf\", \"sfc\", \"stars\")) && !is.null(attr(x, \"bbox\"))) {\n\t\t\tbb = st_bbox(x)\n\t\t\t# check for potentially meaningless value range:\n\t\t\teps = sqrt(.Machine$double.eps)\n\t\t\tif (all(!is.na(unclass(bb))) &&\n\t\t\t\t\t(bb[\"xmin\"] < (-180-eps) || bb[\"xmax\"] > (360+eps) || bb[\"ymin\"] < (-90-eps) || bb[\"ymax\"] > (90+eps)))\n\t\t\t\twarning(\"bounding box has potentially an invalid value range for longlat data\")\n\t\t}\n\t\tret\n\t}\n}\n\n# a = \"b\" => a is the proj.4 unit (try: cs2cs -lu); \"b\" is the udunits2 unit\nudunits_from_proj = list(\n# PROJ.4 UDUNITS\n\t`km` = as_units(\"km\"),\n\t`m` = as_units(\"m\"),\n\t`dm` = as_units(\"dm\"),\n\t`cm` = as_units(\"cm\"),\n\t`mm` = as_units(\"mm\"),\n\t`kmi` = as_units(\"nautical_mile\"),\n\t`in` = as_units(\"in\"),\n\t`ft` = as_units(\"ft\"),\n\t`yd` = as_units(\"yd\"),\n\t`mi` = as_units(\"mi\"),\n\t`fath` = as_units(\"fathom\"),\n\t`ch` = as_units(\"chain\"),\n\t`link` = as_units(\"link\", check_is_valid = FALSE), # not (yet) existing; set in .onLoad()\n \t`us-in` = as_units(\"us_in\", check_is_valid = FALSE),\n\t`us-ft` = as_units(\"US_survey_foot\"),\n\t`us-yd` = as_units(\"US_survey_yard\"),\n\t`us-ch` = as_units(\"chain\"),\n\t`us-mi` = as_units(\"US_survey_mile\"),\n\t`ind-yd` = as_units(\"ind_yd\", check_is_valid = FALSE),\n\t`ind-ft` = as_units(\"ind_ft\", check_is_valid = FALSE),\n\t`ind-ch` = as_units(\"ind_ch\", check_is_valid = FALSE),\n\t`kilometre` = as_units(\"km\"),\n\t`metre` = as_units(\"m\"),\n\t`decimetre` = as_units(\"dm\"),\n\t`centimetre` = as_units(\"cm\"),\n\t`millimetre` = as_units(\"mm\"),\n\t`nautical mile` = as_units(\"nautical_mile\"),\n\t`Statute mile` = as_units(\"mi\"),\n \t`US survey inch` = as_units(\"us_in\", check_is_valid = FALSE),\n\t`US survey foot` = as_units(\"US_survey_foot\"),\n\t`US survey yard` = as_units(\"US_survey_yard\"),\n\t`US survey chain` = as_units(\"chain\"),\n\t`US survey mile` = as_units(\"US_survey_mile\"),\n\t`Indian yard (1937)` = as_units(\"ind_yd\", check_is_valid = FALSE),\n\t`Indian foot (1937)` = as_units(\"ind_ft\", check_is_valid = FALSE),\n\t`Indian chain` = as_units(\"ind_ch\", check_is_valid = FALSE)\n)\n\ncrs_ud_unit = function(x) {\n\tstopifnot(inherits(x, \"crs\"))\n\tif (is.na(x))\n\t\treturn(NULL)\n\n\tx = crs_parameters(x)\n\tif (!is.null(x$units_gdal)) {\n\t\tu = udunits_from_proj[[x$units_gdal]]\n\t\tif (is.null(u)) {\n\t\t\tu = try(as_units(x$units_gdal), silent = TRUE)\n\t\t\tif (inherits(u, \"try-error\"))\n\t\t\t\tu = NULL\n\t\t}\n\t\tu\n\t} else\n\t\tNULL #2049\n}\n\ncrs_parameters = function(x) {\n\tstopifnot(inherits(x, \"crs\"))\n\tif (is.na(x))\n\t\tlist()\n\telse {\n\t\tret = CPL_crs_parameters(x)\n\t\tunits(ret$SemiMajor) = as_units(\"m\")\n\t\tunits(ret$SemiMinor) = as_units(\"m\")\n\t\tret\n\t}\n}\n\nepsg = function(x) {\n\tif (is.na(x))\n\t\tNA_integer_\n\telse if (grepl(\"^EPSG:\", x[[\"input\"]]))\n\t# else if (startsWith(x[[\"input\"]], \"EPSG:\"))\n\t\tas.integer(gsub(\"^EPSG:(\\\\d+)\\\\b.*$\", \"\\\\1\", x[[\"input\"]]))\n\telse\n\t\tcrs_parameters(x)[[\"epsg\"]]\n}\n\nproj4string = function(x) {\n\tif (is.na(x))\n\t\tNA_character_\n\telse\n\t\tcrs_parameters(x)[[\"proj4string\"]]\n}\n\n\n#' @name st_as_text\n#' @param projjson logical; if TRUE, return projjson form (requires GDAL 3.1 and PROJ 6.2), else return well-known-text form\n#' @param pretty logical; if TRUE, print human-readable well-known-text representation of a coordinate reference system\n#' @export\nst_as_text.crs = function(x, ..., projjson = FALSE, pretty = FALSE) {\n\tif (is.na(x))\n\t\tNA_character_\n\telse if (projjson) {\n\t\tif (compareVersion(sf_extSoftVersion()[\"GDAL\"], \"3.1.0\") == -1 || compareVersion(sf_extSoftVersion()[\"proj.4\"], \"6.2.0\") == -1)\n\t\t\tstop(\"ProjJson requires GDAL >= 3.1.0 and PROJ >= 6.2.0\")\n\t\tcrs_parameters(x)$ProjJson\n\t} else { # wkt:\n\t\tif (pretty)\n\t\t\tcrs_parameters(x)$WktPretty\n\t\telse\n\t\t\tcrs_parameters(x)$Wkt\n\t}\n}\n\n\n#' @name st_crs\n#' @details\n#' \\code{NA_crs_} is the \\code{crs} object with missing values for \\code{input} and \\code{wkt}.\n#' @export\nNA_crs_ = structure(\n\tlist(input = NA_character_,\n\t\twkt = NA_character_),\n\tclass = \"crs\")\n\n#' @name st_crs\n#' @export\n#' @method is.na crs\nis.na.crs = function(x) {\n\tidentical(x, NA_crs_)\n}\n\n#' @name st_crs\n#' @param name element name\n#' @export\n#' @examples\n#' st_crs(\"EPSG:3857\")$input\n#' st_crs(3857)$proj4string\n#' @details the `$` method for `crs` objects retrieves named elements\n#' using the GDAL interface; named elements include\n#' `SemiMajor`, `SemiMinor`, `InvFlattening`, `IsGeographic`,\n#' `units_gdal`, `IsVertical`, `WktPretty`, `Wkt`,\n#' `Name`, `proj4string`, `epsg`, `yx`, \n#' `ud_unit`, and `axes` (this may be subject to changes in future GDAL versions).\n#'\n#' Note that not all valid CRS have a corresponding `proj4string`. \n#'\n#' `ud_unit` returns a valid \\link[units]{units} object or `NULL` if units are missing.\n#' @export\n`$.crs` = function(x, name) {\n\n\tif (!is.null(x[[\"proj4string\"]])) { # old-style object:\n\t\twarning(\"CRS uses proj4string, which is deprecated.\")\n\t\tx = st_crs(x[[\"proj4string\"]]) # FIXME: should this be only for some transition period? Add test?\n\t}\n\tif (name == \"ud_unit\")\n\t\tcrs_ud_unit(x)\n\telse if (is.na(x))\n\t\tNA_character_\n\telse if (is.numeric(name) || name %in% names(x))\n\t\tx[[name]]\n\telse {\n\t\tp = crs_parameters(x)\n\t\tif (name %in% names(p))\n\t\t\tp[[name]]\n\t\telse {\n\t\t\ttryNum = function(x) { n = suppressWarnings(as.numeric(x)); if (is.na(n)) x else n }\n\t\t\tp4s = strsplit(p$proj4string, \" \")[[1]]\n\t\t\tp4s2 = strsplit(p4s, \"=\")\n\t\t\tvals = lapply(p4s2, function(x) if (length(x) == 1) TRUE else tryNum(x[2]))\n\t\t\tnames(vals) = substring(sapply(p4s2, function(x) x[1]), 2)\n\t\t\tvals[[name]]\n\t\t}\n\t}\n}\n\n#' @export\nprint.crs = function(x, ...) {\n cat(\"Coordinate Reference System:\")\n if (is.na(x)) {\n cat(\" NA\\n\")\n } else {\n cat(\"\\n\")\n if (is.na(x$input))\n cat(\" No user input\\n\")\n else\n cat(\" User input:\", x$input, \"\\n\")\n\n\t# print wkt:\n if (!is.na(x$wkt))\n cat(\" wkt:\\n\", x$wkt, \"\\n\", sep = \"\")\n }\n}\n\n#' @name st_crs\n#' @export\n#' @details format.crs returns NA if the crs is missing valued, or else\n#' the name of a crs if it is different from \"unknown\", or\n#' else the user input if it was set, or else its \"proj4string\" representation;\nformat.crs = function(x, ...) {\n\tif (is.na(x))\n\t\tNA_character_\n\telse {\n\t\tp = crs_parameters(x)\n\t\tif (p$Name == \"unknown\") {\n\t\t\tif (x$input == \"unknown\")\n\t\t\t\tx$proj4string\n\t\t\telse\n\t\t\t\tx$input\n\t\t} else\n\t\t\tx$Name\n\t}\n}\n\n\n#' @export\nst_crs.Raster = function(x, ...) {\n\tcrsobj <- raster::crs(x)\n\tst_crs(crsobj) # nocov\n}\n\n#' @export\nst_crs.Spatial = function(x, ...) {\n\tif (! requireNamespace(\"sp\", quietly = TRUE))\n\t\tstop(\"package sp required, please install it first\")\n\tst_crs(x@proj4string) # nocov\n}\n\n#' @name st_crs\n#' @param authority_compliant logical; specify whether axis order should be\n#' handled compliant to the authority; if omitted, the current value is printed.\n#' @details\n#' \\code{st_axis_order} can be used to get and set the axis order: \\code{TRUE}\n#' indicates axes order according to the authority\n#' (e.g. EPSG:4326 defining coordinates to be latitude,longitude pairs), \\code{FALSE}\n#' indicates the usual GIS (display) order (longitude,latitude). This can be useful\n#' when data are read, or have to be written, with coordinates in authority compliant order.\n#' The return value is the current state of this (\\code{FALSE}, by default).\n#' @return \\code{st_axis_order} returns the (logical) current value if called without\n#' argument, or (invisibly) the previous value if it is being set.\n#' @export\n#' @examples\n#' pt = st_sfc(st_point(c(0, 60)), crs = 4326)\n#' # st_axis_order() only has effect in GDAL >= 2.5.0:\n#' st_axis_order() # query default: FALSE means interpret pt as (longitude latitude)\n#' st_transform(pt, 3857)[[1]]\n#' old_value = FALSE\n#' if (compareVersion(sf_extSoftVersion()[\"GDAL\"], \"2.5.0\") >= 0)\n#' (old_value = st_axis_order(TRUE))\n#' # now interpret pt as (latitude longitude), as EPSG:4326 prescribes:\n#' st_axis_order() # query current value\n#' st_transform(pt, 3857)[[1]]\n#' st_axis_order(old_value) # set back to old value\nst_axis_order = function(authority_compliant = logical(0)) {\n\tret = CPL_axis_order_authority_compliant(authority_compliant)\n\tif (length(authority_compliant))\n\t\tinvisible(ret)\n\telse\n\t\tret\n}\n"
},
{
"path": "R/datasets.R",
"content": "#' North Carolina SIDS data\n#'\n#' Sudden Infant Death Syndrome (SIDS) sample data for North Carolina counties,\n#' two time periods (1974-78 and 1979-84). The details of the columns can be\n#' found in a [spdep package vignette](https://r-spatial.github.io/spdep/articles/sids.html). \n#' Please note that, though this is basically the same as \\code{nc.sids} dataset in spData\n#' package, \\code{nc} only contains a subset of variables. The differences are\n#' also discussed on the vignette.\n#' @format A `sf` object \n#' @name nc\n#' @docType data\n#' @seealso \\url{https://r-spatial.github.io/spdep/articles/sids.html}\n#' @examples\n#' \\donttest{\n#' nc <- st_read(system.file(\"shape/nc.shp\", package=\"sf\"))\n#' }\nNULL\n"
},
{
"path": "R/db.R",
"content": "#' Read PostGIS table directly, using DBI and binary conversion\n#'\n#' Read PostGIS table directly through DBI and RPostgreSQL interface, converting\n#' Well-Know Binary geometries to sfc\n#' @param query SQL query to select records; see details\n#' @param EWKB logical; is the WKB of type EWKB? if missing, defaults to\n#' \\code{TRUE}\n#' @param as_tibble logical; should the returned table be of class tibble or data.frame?\n#' @details if \\code{table} is not given but \\code{query} is, the spatial\n#' reference system (crs) of the table queried is only available in case it\n#' has been stored into each geometry record (e.g., by PostGIS, when using\n#' EWKB)\n#' @examples\n#' \\dontrun{\n#' library(RPostgreSQL)\n#' try(conn <- dbConnect(PostgreSQL(), dbname = \"postgis\"))\n#' if (exists(\"conn\") && !inherits(conn, \"try-error\")) {\n#' x = st_read(conn, \"meuse\", query = \"select * from meuse limit 3;\")\n#' x = st_read(conn, table = \"public.meuse\")\n#' print(st_crs(x)) # SRID resolved by the database, not by GDAL!\n#' dbDisconnect(conn)\n#' }\n#' }\n#' @name st_read\n#' @details The function will automatically find the `geometry` type columns for\n#' drivers that support it. For the other drivers, it will try to cast all the\n#' character columns, which can be slow for very wide tables.\n#' @export\nst_read.DBIObject = function(dsn = NULL,\n layer = NULL,\n query = NULL,\n EWKB = TRUE,\n quiet = TRUE,\n as_tibble = FALSE,\n geometry_column = NULL,\n ...) {\n if (is.null(dsn))\n stop(\"no connection provided\") # nocov\n\n if (as_tibble && !requireNamespace(\"tibble\", quietly = TRUE)) {\n stop(\"package tibble not available: install first?\") # nocov\n }\n\n # check that ellipsis contains only what is needed\n expe <- setdiff(names(list(...)), names(formals(st_sf)))\n if(length(expe) > 0) {\n # error, these arguments would be passed to st_sf\n suggest <- NULL\n if(\"table\" %in% expe){\n suggest <- c(suggest, \"\\nMaybe you should use `layer` rather than `table` ?\")\n }\n pref <- if(length(expe) > 1) \"\\t *\" else \"\"\n stop(\n \"Unused arguments: \",\n if(length(expe) > 1) \"\\n\" else \"\",\n paste(pref, expe, \"=\", list(...)[expe], collapse = \"\\n\", sep = \" \"),\n suggest,\n \"\\nCheck arguments for `st_sf()` for details.\",\n call. = FALSE\n )\n }\n\n # filter expected warnings (for RPostgreSQL driver)\n filter_warning <- function(expr, regexp) {\n wlist <- NULL\n warning_handler <- function(w) {\n wlist <<- c(wlist, list(w))\n invokeRestart(\"muffleWarning\")\n }\n msg <- function(x) x$message\n out <- withCallingHandlers(expr, warning = warning_handler)\n if(!all(grepl(regexp, wlist))) {\n lapply(vapply(wlist, msg, character(1)), warning, call. = FALSE) # nocov\n }\n return(out)\n }\n\n # Check layer and query conflict\n if (!is.null(layer)) {\n if (!is.null(query)) {\n warning(\"You provided both `layer` and `query` arguments,\",\n \" will only use `layer`.\", call. = FALSE)\n }\n # capture warnings from RPostgreSQL package\n if (inherits(dsn, \"PostgreSQLConnection\")) {\n tbl <- filter_warning(dbReadTable(dsn, layer), \"unrecognized PostgreSQL field type geometry\")\n } else {\n tbl <- dbReadTable(dsn, layer)\n }\n } else if(is.null(query)) {\n stop(\"Provide either a `layer` or a `query`\", call. = FALSE)\n } else {\n # capture warnings from RPostgreSQL package\n if (inherits(dsn, \"PostgreSQLConnection\")) {\n filter_warning(tbl <- dbGetQuery(dsn, query), \"unrecognized PostgreSQL field type geometry\")\n } else {\n tbl <- dbGetQuery(dsn, query)\n }\n }\n\n if (is.null(tbl)) {\n stop(\"Query `\", query, \"` returned no results.\", call. = FALSE) #nocov\n }\n\n if (is.null(geometry_column)) {\n # scan table for simple features column\n geometry_column = is_geometry_column(dsn, tbl)\n tbl[geometry_column] <- lapply(tbl[geometry_column], try_postgis_as_sfc, EWKB = EWKB, conn = dsn)\n } else {\n if (!all(geometry_column %in% names(tbl))) {\n # prepare error message\n nm <- names(tbl)\n prefix <- \"\"\n new_line <- \"\"\n if(length(nm) > 1) {\n prefix <- \" *\"\n new_line <- \"\\n\"\n }\n stop(\"Could not find `geometry_column` (\\\"\", paste(geometry_column, collapse = \"\\\", \\\"\"), \"\\\") \",\n \"in column names. Available names are:\",\n new_line,\n paste(prefix, nm, collapse = \"\\n\", sep = \" \"),\n call. = FALSE)\n }\n tbl[geometry_column] <- lapply(tbl[geometry_column], postgis_as_sfc, EWKB = EWKB, conn = dsn)\n }\n\n # if there are no simple features geometries, return a data frame\n if (! any(vapply(tbl, inherits, logical(1), \"sfc\"))) {\n\t\t# try reading blob columns:\n \tblob_columns = vapply(tbl, inherits, logical(1), \"blob\")\n\t\tsuccess = FALSE\n\t\tfor (i in which(blob_columns)) {\n\t\t\ttry(sfc <- st_as_sfc(tbl[[i]]), silent = TRUE)\n\t\t\tif (!inherits(sfc, \"try-error\")) {\n\t\t\t\ttbl[[i]] = sfc\n\t\t\t\tsuccess = TRUE\n\t\t\t}\n\t\t}\n \tif (! success) {\n \twarning(\"Could not find a simple features geometry column. Will return a `data.frame`.\")\n \treturn(tbl)\n\t\t}\n }\n\n x <- st_sf(tbl, ...)\n\n if (!quiet) print(x, n = 0) # nocov\n\n if (as_tibble) {\n x <- tibble::new_tibble(x, nrow = nrow(x), class = \"sf\")\n }\n return(x)\n}\n\n#' @export\nst_read.Pool = function(dsn = NULL, layer = NULL, ...) {\n\tif (! requireNamespace(\"pool\", quietly = TRUE)) # nocov start\n\t\tstop(\"package pool required, please install it first\")\n\tdsn = pool::poolCheckout(dsn)\n\ton.exit(pool::poolReturn(dsn))\n\tst_read(dsn, layer = layer, ...) # nocov end\n}\n\n\n#' @export\nst_read.PostgreSQLConnection <- function(...) {\n st_read.DBIObject(...)\n}\n\npostgis_as_sfc <- function(x, EWKB, conn) {\n\tgeom <- st_as_sfc(as_wkb_(x), EWKB = EWKB)\n\tsrid <- attr(geom, \"srid\")\n\tif (!is.null(srid)) {\n\t\tst_crs(geom) = db_find_srid(conn, srid = srid, validate = FALSE)\n\t\tattr(geom, \"srid\") = NULL\n\t\twarning(\"Could not find database srid (\", srid, \") locally; using the remote database definition.\")\n\t}\n\treturn(geom)\n}\n\ntry_postgis_as_sfc <- function(x, EWKB, conn) {\n tryCatch(postgis_as_sfc(x, EWKB, conn), error = function(...) return(x))\n}\n\nschema_table <- function(conn, table, public = \"public\") {\n\tif (!is.character(table))\n\t\tstop(\"table must be a character vector\", call. = FALSE)\n\n\tif (length(table) == 1L)\n\t\ttable = c(public, table)\n\telse if (length(table) > 2)\n\t\tstop(\"table cannot be longer than 2 (schema, table)\", call. = FALSE)\n\n\tif (anyNA(table))\n\t\tstop(\"table and schema cannot be NA\", call. = FALSE)\n\n\treturn(table)\n}\n\nas_wkb_ <- function(x) {\n\tstructure(x, class = \"WKB\")\n}\n\nget_possibly_new_srid <- function(conn, crs) {\n\n\tdb_crs <- db_find_srid(conn, crs)\n\tif(!is.na(db_crs)) {\n\t\treturn(db_crs)\n\t}\n\n\tdb_crs <- db_find_srtext(conn, crs)\n\tif (!is.na(db_crs)) {\n\t\treturn(db_crs)\n\t}\n\n\tdb_insert_crs(conn, crs)\n}\n\n# Find srid in a database by using the srid\n# @param conn Dababase connection (e.g. `DBI`)\n# @param srid An integer descriing the srid to fetch\n# @param validate if TRUE, then the crs_local is used to validate the remote crs.\n# Use validate = FALSE when searching for an srid unavailable locally, or when\n# the wkt is unknown locally.\n# @returns a `crs`\ndb_find_srid = function(conn, crs_local = st_crs(srid), srid = epsg(crs_local), validate = TRUE) {\n if (validate && is.na(crs_local)) return(st_crs(NA))\n\tif (is.na(srid)) {\n\t\treturn(st_crs(NA))\n\t}\n\n query <- paste0(\"select srtext from spatial_ref_sys where srid = \", srid)\n db_crs <- dbGetQuery(conn, query)\n if (nrow(db_crs) < 1) {\n \treturn(st_crs(NA))\n }\n if (nrow(db_crs) > 1) {\n \t# TODO: pretty print db_spatial_ref\n \tstop(\"SRID should be unique, but the database returned \", nrow(db_crs), \" matching crs. \\n\",\n \t\t db_crs, call. = FALSE) # nocov\n }\n crs_found <- st_crs(db_crs[[\"srtext\"]])\n crs_found[[\"input\"]] <- build_epsg(srid)\n if(validate && crs_found != crs_local && !is.na(crs_local)) {\n \t# TODO: pretty print db_spatial_ref\n warning(\"Local crs different from database crs. You can inspect the \",\n \"database crs using `dbReadtable(conn, \\\"spatial_ref_sys\\\")` \",\n \"and compare it to `st_crs(\", srid,\")`.\") # nocov\n }\n crs_found\n}\n\n# Find database projection using srtext (wkt)\ndb_find_srtext = function(conn, crs_local = st_crs(wkt), wkt = st_as_text(crs_local)) {\n\tif (is.na(crs_local)) return(st_crs(NA))\n\tif (is.na(wkt)) {\n\t\treturn(st_crs(NA))\n\t}\n\n\tquery <- paste0(\"select * from spatial_ref_sys where srtext = '\", wkt, \"'\")\n\tdb_spatial_ref <- DBI::dbGetQuery(conn, query)\n\tif (nrow(db_spatial_ref) < 1) {\n\t\t# need to relax comparison\n\n\t\t# read table, and find equivalent projections using ==\n\t\tquery <- \"select * from spatial_ref_sys where srtext is not null and srtext != ''\"\n\t\tdb_spatial_ref <- DBI::dbGetQuery(conn, query)\n\t\tdb_crs <- lapply(db_spatial_ref[[\"srtext\"]], function(string) try(st_crs(string)))\n\t\treject <- vapply(db_crs, function(x) inherits(x, \"try-error\"), logical(1))\n\t\teq <- vapply(db_crs[!reject], function(x) crs_local == x, logical(1))\n\t\tdb_spatial_ref <- db_spatial_ref[eq, ]\n\t}\n\n\tif (nrow(db_spatial_ref) > 1) { # nocov start\n\t\t# Use the first match, but warn the user.\n\t\t# Only show first 10 matches\n\t\tdb_spatial_ref <- db_spatial_ref[seq_len(min(nrow(db_spatial_ref), 10)), ]\n\t\t# TODO: make it a warning -- check classes so they can be grabbed in dbWriteTable.DBI\n\t\tmessage(\"Found multiple matching projections, will use srid = \",\n\t\t\t\tdb_spatial_ref[[\"srid\"]][[1]],\n\t\t\t\t\".\\nOther database srid matching the projection WKT description: \",\n\t\t\t\tpaste(db_spatial_ref[[\"srid\"]][-1], collapse = \", \"), \"\\n\",\n\t\t\t\t\"You can suppress this warning by setting the projection to `st_crs(\",\n\t\t\t\tdb_spatial_ref[[\"srid\"]][[1]], \")`.\")\n\t\tdb_spatial_ref <- db_spatial_ref[1, ]\n\t} # nocov end\n\n\tif (nrow(db_spatial_ref) < 1) {\n\t\treturn(st_crs(NA))\n\t} else {\n\t\tcrs_found <- make_empty_crs(db_spatial_ref[[\"srid\"]], db_spatial_ref[[\"srtext\"]])\n\t}\n\n\tif(crs_found != crs_local) { # nocov start\n\t\twarning(\"Local crs different from database crs. You can inspect the \",\n\t\t\t\t\"database crs using `dbReadtable(conn, \\\"spatial_ref_sys\\\")` \",\n\t\t\t\t\"and compare it to `st_crs(\\\"\", wkt,\"\\\")`.\")\n\t} # nocov end\n\tcrs_found\n}\n\nmake_empty_crs <- function(epsg = NA, text = NA, wkt = NA) {\n\tif(!is.na(epsg)) {\n\t\tepsg <- build_epsg(epsg)[1]\n\t}\n\tif(is.na(wkt)) {\n\t\twkt = st_as_text(st_crs(text))\n\t}\n\tstructure(\n\t\tlist(\n\t\t\tinput = epsg,\n\t\t\twkt = wkt),\n\t\tclass = \"crs\")\n}\n\nbuild_epsg <- function(auth_srid, auth_name = \"EPSG\") {\n\tpaste0(auth_name, \":\", auth_srid)\n}\n\ndb_insert_crs <- function(conn,\n\t\t\t\t\t\t crs,\n\t\t\t\t\t\t srid = epsg(crs),\n\t\t\t\t\t\t auth_name = \"sf\",\n\t\t\t\t\t\t auth_srid = srid,\n\t\t\t\t\t\t wkt = st_as_text(crs),\n\t\t\t\t\t\t proj4text = proj4string(crs),\n\t\t\t\t\t\t update = FALSE,\n\t\t\t\t\t\t verbose = TRUE) {\n\t# fail fast ----------------------------------------------\n\t# We also try to provide all error messages at once\n\terror_msg <- NULL\n\tif (update) {\n\t\tif (is.na(srid)) {\n\t\t\terror_msg <- c(error_msg, paste0(\n\t\t\t \t\"You need to provide an `srid` to update a projection, but the `srid` is NA.\",\n\t\t\t \t\"\\n Either: \\n * provide an `srid` or \\n * use `update = FALSE` to receive an srid\",\n\t\t\t \tcollapse = \"\"\n\t\t\t ))\n\t\t}\n\t}\n\tif (is.na(wkt)) {\n\t\terror_msg <- c(error_msg,\n\t\t\t\t\t \"You need to provide a `wkt` to update the database `spatial_ref_sys`.\")\n\t}\n\tif (!is.null(error_msg)) {\n\t\tn_errors <- length(error_msg)\n\t\tif (n_errors > 1) {\n\t\t\terror_msg <- c(paste0(\"We found \", n_errors, \" errors:\\n\"), error_msg)\n\t\t}\n\t\tstop(paste(error_msg, collapse = \"\\n\"), call. = FALSE)\n\t}\n\t# end tests ---------------------------------------\n\n\tif (is.na(srid)) {\n srid <- get_new_postgis_srid(conn)\n\t}\n\tif (is.na(auth_srid)) {\n auth_srid <- auth_srid\n\t}\n\tcrs <- make_empty_crs(epsg = srid, text = wkt)\n\n\tq <- function(x) paste0(\"'\", x, \"'\")\n\tif (update) {\n\t\tquery <- paste(\"UPDATE spatial_ref_sys SET\",\n\t\t\t\t\t \"auth_name =\", q(auth_name), \", \",\n\t\t\t\t\t \"auth_srid =\", auth_srid, \", \",\n\t\t\t\t\t \"srtext =\", q(wkt), \", \",\n\t\t\t\t\t \"proj4text =\", q(proj4string(crs)),\n\t\t\t\t\t \"WHERE srid =\", srid, \";\")\n\t} else {\n\t\tquery <- paste(\"INSERT INTO spatial_ref_sys (srid, auth_name, auth_srid, srtext, proj4text)\",\n \"VALUES (\",\n paste(\n \tsrid,\n \tq(auth_name),\n \tauth_srid,\n \tq(wkt),\n \tq(proj4string(crs)), sep = \", \"),\n \");\")\n }\n tryCatch(dbExecute(conn, query),\n error = function(err) {\n if(grepl(\"permission denied\", err)) { # nocov start\n stop(\"Write permission denied on table `spatial_ref_sys` because:\",\n \"\\n * Local crs is not in the database; \",\n \"\\n * Write permission on table `spatial_ref_sys` is denied.\",\n \"\\nEither: \",\n \"\\n * Change the crs locally using `st_transform()` on your `sf` object;\",\n \"\\n * Set the crs to NA using `st_set_crs({your_sf}, NA)`.\",\n \"\\n * Grant write access on `spatial_sys_ref`.\",\n \"\\n * Ask the database administrator to add your projection with :\",\n \t \"\\n ``` sql\\n\", query, \"\\n ```\",\n \t call. = FALSE)\n }\n stop(err) # nocov end\n })\n if (verbose) {\n \tmessage(\"Inserted local crs: `\", wkt, \"` in database as srid:\", srid, \".\")\n }\n return(crs)\n}\n\ndb_check_user_permission <- function(conn, table, permission, strict = FALSE) {\n\tq <- paste0(\"select has_table_privilege('\", table, \"', '\", permission, \"') as has\")\n\tcan <- try(dbReadTable(conn, q)[[\"has\"]])\n\tif (inherits(can, \"try-error\")){\n\t\tif (strict) {\n\t\t\treturn(FALSE)\n\t\t}\n\t\t# we don't know if the user has the permission, but we'll let it pass since\n\t\t# the check isn't strict that way we can see what happens when the permission\n\t\t# is actually needed\n\t\treturn(TRUE)\n\t}\n\treturn(can)\n}\n\ndelete_postgis_crs <- function(conn, crs) {\n if (is.na(epsg(crs))) stop(\"Missing SRID\")\n wkt <- st_as_text(crs)\n query <- paste0(\"DELETE FROM spatial_ref_sys \",\n \"WHERE srid = '\", epsg(crs), \"' \",\n \"AND srtext = '\", wkt, \"' \",\n \"AND proj4text = '\", proj4string(crs), \"';\")\n dbExecute(conn, query)\n}\n\nget_new_postgis_srid <- function(conn) {\n query = paste0(\"select srid + 1 as srid from spatial_ref_sys order by srid desc limit 1;\")\n dbGetQuery(conn, query)[[\"srid\"]]\n}\n\n# for RPostgreSQL\n\n#' Write `sf` object to Database\n#' @inheritParams RPostgreSQL::postgresqlWriteTable\n#' @md\n#' @rdname dbWriteTable\n#' @importMethodsFrom DBI dbWriteTable\n#' @export\nsetMethod(\"dbWriteTable\", c(\"PostgreSQLConnection\", \"character\", \"sf\"),\n function(conn, name, value, ..., row.names = FALSE, overwrite = FALSE,\n append = FALSE, field.types = NULL, binary = TRUE) {\n if (is.null(field.types)) field.types <- dbDataType(conn, value)\n tryCatch({\n dbWriteTable(conn, name, to_postgis(conn, value, binary),..., row.names = row.names,\n overwrite = overwrite, append = append,\n field.types = field.types)\n }, warning=function(w) {\n stop(conditionMessage(w), call. = FALSE)\n })\n }\n)\n\n#' Write `sf` object to Database\n#' @inheritParams DBI::dbWriteTable\n#' @param conn DBIObject\n#' @param binary Send geometries serialized as Well-Known Binary (WKB);\n#' if `FALSE`, uses Well-Known Text (WKT). Defaults to `TRUE` (WKB).\n#' @param row.names Add a `row.name` column, or a vector of length `nrow(obj)`\n#' containing row.names; default `FALSE`.\n#' @param overwrite Will try to `drop` table before writing; default `FALSE`.\n#' @param append Append rows to existing table; default `FALSE`.\n#' @param field.types default `NULL`. Allows to override type conversion from R\n#' to PostgreSQL. See `dbDataType()` for details.\n#' @md\n#' @rdname dbWriteTable\n#' @importMethodsFrom DBI dbWriteTable dbExistsTable\n#' @export\nsetMethod(\"dbWriteTable\", c(\"DBIObject\", \"character\", \"sf\"),\n\t\t function(conn, name, value, ..., row.names = FALSE, overwrite = FALSE,\n\t\t \t\t append = FALSE, field.types = NULL, binary = TRUE) {\n\t\t \tif (is.null(field.types)) field.types <- dbDataType(conn, value)\n\n\t\t \t# DBI cannot set field types with append, but if the table does not exist,\n\t\t \t# we need to set the field type.\n\t\t \tif (append) {\n\t\t \t\tif (!dbExistsTable(conn, name)) {\n\t\t \t\t\tappend <- FALSE\n\t\t \t\t} else {\n\t\t \t\t\tfield.types <- NULL\n\t\t \t\t}\n\t\t \t}\n\t\t \t\n\t\t \tdbWriteTable(conn, name, to_postgis(conn, value, binary),..., row.names = row.names,\n\t\t \t\t\t\t overwrite = overwrite, append = append,\n\t\t \t\t\t\t field.types = field.types)\n\t\t }\n)\n\nto_postgis <- function(conn, x, binary) {\n\tgeom_col <- vapply(x, inherits, TRUE, what = \"sfc\")\n\tx[geom_col] <- lapply(x[geom_col], sync_crs, conn = conn)\n\tif (binary) {\n\t\tx[geom_col] <- lapply(x[geom_col], db_binary)\n\t} else {\n\t\tx[geom_col] <- lapply(x[geom_col], st_as_text, EWKT = TRUE)\n\t}\n\tx <- as.data.frame(x)\n\tclean_columns(x, factorsAsCharacter = TRUE)\n}\n\n# Version of st_as_binary that allows locally invalid srids\ndb_binary <- function(x) {\n\tst_as_binary(x, EWKB = TRUE, hex = TRUE, pureR = FALSE, srid = epsg(st_crs(x)))\n}\n\nsync_crs <- function(conn, geom) {\n crs <- st_crs(geom)\n srid <- epsg(crs)\n if (is.na(crs) || is.na(srid)) {\n if (is.na(st_as_text(crs)))\n crs <- st_crs(NA)\n else {\n crs <- get_possibly_new_srid(conn, crs)\n }\n }\n st_set_crs(geom, crs)\n}\n\n#' Determine database type for R vector\n#'\n#' @export\n#' @rdname dbDataType\n#' @importMethodsFrom DBI dbDataType\nsetMethod(\"dbDataType\", c(\"PostgreSQLConnection\", \"sf\"), function(dbObj, obj) {\n\tdtyp <- vapply(obj, RPostgreSQL::dbDataType, character(1), dbObj = dbObj)\n\tgtyp <- vapply(obj, inherits, TRUE, what = \"sfc\")\n\tdtyp[gtyp] <- \"geometry\"\n\t# explicit cast for units\n\tgtyp <- vapply(obj, inherits, TRUE, what = \"units\")\n\tdtyp[gtyp] <- \"numeric\"\n\treturn(dtyp)\n})\n\n#' Determine database type for R vector\n#'\n#' @export\n#' @rdname dbDataType\n#' @importClassesFrom DBI DBIObject\n#' @importMethodsFrom DBI dbDataType\n#' @param dbObj DBIObject driver or connection.\n#' @param obj Object to convert\nsetMethod(\"dbDataType\", c(\"DBIObject\", \"sf\"), function(dbObj, obj) {\n dtyp <- vapply(obj, DBI::dbDataType, character(1), dbObj = dbObj)\n gtyp <- vapply(obj, inherits, TRUE, what = \"sfc\")\n dtyp[gtyp] <- \"geometry\"\n # explicit cast for units\n gtyp <- vapply(obj, inherits, TRUE, what = \"units\")\n dtyp[gtyp] <- \"numeric\"\n return(dtyp)\n})\n\n#' Check if the columns could be of a coercable type for sf\n#'\n#' @param con database connection\n#' @param x inherits data.frame\n#' @param classes classes inherited\nis_geometry_column <- function(con, x, classes = \"\") UseMethod(\"is_geometry_column\")\n\n#' @export\nis_geometry_column.PqConnection <- function(con, x, classes = c(\"pq_geometry\")) {\n vapply(x, inherits, logical(1), classes)\n}\n\n#' @export\nis_geometry_column.default <- function(con, x, classes = c(\"character\")) {\n # try all character columns (in conjunction with try_postgis_as_sfc)\n vapply(x, function(x) inherits(x, classes) && !all(is.na(x)),\n \t FUN.VALUE = logical(1))\n}\n\n# https://github.com/r-spatial/sf/issues/1195 :\n# RPostgres::dbGetQuery returns geometry columns of class pq_geometry:\n#' @name st_as_sfc\n#' @export\nst_as_sfc.pq_geometry <- function(x, ..., EWKB = TRUE, spatialite = FALSE,\n\t\tpureR = FALSE, crs = NA_crs_) { # nocov start\n st_as_sfc.WKB(x, ..., EWKB = EWKB, spatiallite = spatialite, pureR = pureR, crs = crs)\n} # nocov end\n"
},
{
"path": "R/defunct.R",
"content": "#' @title Deprecated functions in `sf`\n#' @name sf-defunct\n#' @description\n#' These functions are provided for compatibility with older version of `sf`.\n#' They will eventually be completely removed.\n#' \n#' * Use [st_read()] instead of `st_read_db()`.\n#' * Use [st_write()] instead_of `st_write_db()`\n#' @param conn open database connection\n#' @param table table name\n#' @param geom_column deprecated. Geometry column name\n#' @details The `geom_column` argument is deprecated. The function will\n#' automatically find the `geometry` type columns. For the `RPostgreSQL` drivers\n#' it will try to cast all the character columns, which can be long for very wide\n#' tables.\n#' @inheritParams st_read\n#' @export\n#' @keywords internal\nst_read_db <- function(conn = NULL, table = NULL, query = NULL,\n\t\t\t\t\t geom_column = NULL, EWKB = TRUE, ...) {\n\t.Defunct(\"st_read\")\n}\n\n#' @rdname sf-defunct\n#' @inheritParams DBI::dbWriteTable\n#' @export\nst_write_db <- function(conn = NULL, obj, table = deparse(substitute(obj)), ...,\n\t\t\t\t\t\tdrop = FALSE, append = FALSE) {\n\t.Defunct(\"st_write\")\n}\n"
},
{
"path": "R/gdal_utils.R",
"content": "# nocov start\nresampling_method = function(option = \"near\") {\n\tif (length(option) != 1)\n\t\tstop(\"warper options should have length 1\")\n\tswitch(option,\n\t\tnear = 0,\n\t\tbilinear = 1,\n\t\tcubic = 2,\n\t\tcubicspline = 3,\n\t\tlanczos = 4,\n\t\taverage = 5,\n\t\tmode = 6,\n\t\tmax = 8,\n\t\tmin = 9,\n\t\tmed = 10,\n\t\tq1 = 11,\n\t\tq3 = 12,\n\t\tsum = 13,\n\t\tstop(paste(\"unknown option:\", options))\n\t)\n}\n# nocov end\n\n#' Native interface to gdal utils\n#' @name gdal_utils\n#' @param util character; one of \\code{info}, \\code{warp}, \\code{rasterize}, \\code{translate}, \\code{vectortranslate} (for ogr2ogr), \\code{buildvrt}, \\code{demprocessing}, \\code{nearblack}, \\code{grid}, \\code{mdiminfo} and \\code{mdimtranslate} (the last two requiring GDAL 3.1), \\code{ogrinfo} (requiring GDAL 3.7), \\code{footprint} (requiring GDAL 3.8)\n#' @param source character; name of input layer(s); for \\code{warp}, \\code{buidvrt} or \\code{mdimtranslate} this can be more than one\n#' @param destination character; name of output layer\n#' @param options character; options for the utility\n#' @param config_options named character vector with GDAL config options, like \\code{c(option1=value1, option2=value2)}\n#' @param quiet logical; if \\code{TRUE}, suppress printing the output for \\code{info} and \\code{mdiminfo}, and suppress printing progress\n#' @param processing character; processing options for \\code{demprocessing}\n#' @param colorfilename character; name of color file for \\code{demprocessing} (mandatory if \\code{processing=\"color-relief\"})\n#' @param read_only logical; only for `ogrinfo`: if `TRUE`, source is opened in read-only mode\n#' @return \\code{info} returns a character vector with the raster metadata; all other utils return (invisibly) a logical indicating success (i.e., \\code{TRUE}); in case of failure, an error is raised.\n#' @export\n#' @seealso \\link{gdal_addo} for adding overlays to a raster file; \\link{st_layers} to query geometry type(s) and crs from layers in a (vector) data source\n#' @examples\n#'\n#' if (compareVersion(sf_extSoftVersion()[\"GDAL\"], \"2.1.0\") == 1) {\n#' # info utils can be used to list information about a raster\n#' # dataset. More info: https://gdal.org/programs/gdalinfo.html\n#' in_file <- system.file(\"tif/geomatrix.tif\", package = \"sf\")\n#' gdal_utils(\"info\", in_file, options = c(\"-mm\", \"-proj4\"))\n#'\n#' # vectortranslate utils can be used to convert simple features data between\n#' # file formats. More info: https://gdal.org/programs/ogr2ogr.html\n#' in_file <- system.file(\"shape/storms_xyz.shp\", package=\"sf\")\n#' out_file <- paste0(tempfile(), \".gpkg\")\n#' gdal_utils(\n#' util = \"vectortranslate\",\n#' source = in_file,\n#' destination = out_file, # output format must be specified for GDAL < 2.3\n#' options = c(\"-f\", \"GPKG\")\n#' )\n#' # The parameters can be specified as c(\"name\") or c(\"name\", \"value\"). The\n#' # vectortranslate utils can perform also various operations during the\n#' # conversion process. For example, we can reproject the features during the\n#' # translation.\n#' gdal_utils(\n#' util = \"vectortranslate\",\n#' source = in_file,\n#' destination = out_file,\n#' options = c(\n#' \"-f\", \"GPKG\", # output file format for GDAL < 2.3\n#' \"-s_srs\", \"EPSG:4326\", # input file SRS\n#' \"-t_srs\", \"EPSG:2264\", # output file SRS\n#' \"-overwrite\"\n#' )\n#' )\n#' st_read(out_file)\n#' # The parameter s_srs had to be specified because, in this case, the in_file\n#' # has no associated SRS.\n#' st_read(in_file)\n#' }\ngdal_utils = function(util = \"info\", source, destination, options = character(0),\n\t\tquiet = !(util %in% c(\"info\", \"gdalinfo\", \"ogrinfo\", \"vectorinfo\", \n\t\t\t\t\t\t\t \"mdiminfo\")) || (\"-multi\" %in% options),\n\t\tprocessing = character(0), colorfilename = character(0),\n\t\tconfig_options = character(0), read_only = FALSE) {\n\n\tstopifnot(is.character(options), is.character(config_options))\n\tif (!quiet && \"-multi\" %in% options)\n\t\tstop(\"with -multi quiet should be set to FALSE\")\n#\tif (\"-co\" %in% options)\n#\t\toptions[\"-co\" == options] = \"-oo\"\n\tif (\"-oo\" %in% options) { # -oo indicating opening options\n\t\tooi = which(\"-oo\" == options)\n\t\too = options[ooi + 1]\n\t\toptions = options[-c(ooi, ooi+1)]\n\t} else\n\t\too = character(0)\n\tif (\"-doo\" %in% options) { # -oo indicating destination opening options\n\t\tooi = which(\"-doo\" == options)\n\t\tdoo = options[ooi + 1]\n\t\toptions = options[-c(ooi, ooi+1)]\n\t} else\n\t\tdoo = character(0)\n\n\tif (\"-doo\" %in% options) # -oo indicating opening options\n\t\tstop(\"-doo options not (yet) supported; consider raising an issue\") # nocov\n\n\tquiet = as.logical(quiet)\n\n\tret = switch(util,\n\t\t\tgdalinfo =, info = CPL_gdalinfo(if (missing(source)) character(0) else source, options, oo, config_options),\n\t\t\tvectorinfo =, ogrinfo = CPL_ogrinfo(if (missing(source)) character(0) else source, options, oo, config_options, \n\t\t\t\t\t\t\t\t\t\t\t\tisTRUE(read_only) || \"-ro\" %in% options),\n\t\t\twarp = CPL_gdalwarp(source, destination, options, oo, doo, config_options, quiet, \"-overwrite\" %in% options),\n\t\t\twarper = CPL_gdal_warper(source, destination, as.integer(resampling_method(options)),\n\t\t\t\too, doo, config_options, quiet), # nocov\n\t\t\trasterize = { # nocov start\n\t\t\t\toverwrite = any(options %in% c(\"-of\", \"-a_nodata\", \"-init\", \"-a_srs\", \"-co\",\n\t\t\t\t\t\t\"-te\", \"-tr\", \"-tap\", \"-ts\", \"-ot\")) # https://gdal.org/programs/gdal_rasterize.html\n\t\t\t\tCPL_gdalrasterize(source, destination, options, oo, doo, config_options, overwrite, quiet)\n\t\t\t}, # nocov end\n\t\t\tfootprint = CPL_gdalfootprint(source, destination, options, oo, config_options, quiet),\n\t\t\ttranslate = CPL_gdaltranslate(source, destination, options, oo, config_options, quiet),\n\t\t\tvectortranslate = CPL_gdalvectortranslate(source, destination, options, oo, doo, config_options, quiet),\n\t\t\tbuildvrt = CPL_gdalbuildvrt(if (missing(source)) character(0) else source, destination, options, oo, config_options, quiet),\n\t\t\tdemprocessing = CPL_gdaldemprocessing(source, destination, options, processing, colorfilename, oo, config_options, quiet),\n\t\t\tnearblack = CPL_gdalnearblack(source, destination, options, oo, config_options, doo, quiet),\n\t\t\tgrid = CPL_gdalgrid(source, destination, options, oo, config_options, quiet),\n\t\t\tmdiminfo = CPL_gdalmdiminfo(source, options, oo, config_options),\n\t\t\tmdimtranslate = CPL_gdalmdimtranslate(source, destination, options, oo, config_options, quiet),\n\t\t\tstop(paste(\"unknown util value for gdal_utils:\", util))\n\t\t)\n\n\tif (util %in% c(\"info\", \"gdalinfo\", \"ogrinfo\", \"vectorinfo\", \"mdiminfo\")) {\n\t\tif (! quiet)\n\t\t\tcat(ret)\n\t\tinvisible(ret)\n\t} else { # ret indicates error:\n\t\tif (ret)\n\t\t\tstop(paste0(\"gdal_utils \", util, \": an error occured\"))\n\t\tinvisible(! ret) # success\n\t}\n}\n"
},
{
"path": "R/geom-measures.R",
"content": "# unary, interfaced through GEOS:\n\n#' Dimension, simplicity, validity or is_empty queries on simple feature geometries\n#' @name geos_query\n#' @param x object of class \\code{sf}, \\code{sfc} or \\code{sfg}\n#' @param NA_if_empty logical; if TRUE, return NA for empty geometries\n#' @return st_dimension returns a numeric vector with 0 for points, 1 for lines, 2 for surfaces, and, if \\code{NA_if_empty} is \\code{TRUE}, \\code{NA} for empty geometries.\n#' @export\n#' @examples\n#' x = st_sfc(\n#' \tst_point(0:1),\n#' \tst_linestring(rbind(c(0,0),c(1,1))),\n#' \tst_polygon(list(rbind(c(0,0),c(1,0),c(0,1),c(0,0)))),\n#' \tst_multipoint(),\n#' \tst_linestring(),\n#' \tst_geometrycollection())\n#' st_dimension(x)\n#' st_dimension(x, FALSE)\nst_dimension = function(x, NA_if_empty = TRUE)\n\tCPL_gdal_dimension(st_geometry(x), NA_if_empty)\n\n#' @name geos_measures\n#' @export\n#' @return If the coordinate reference system of \\code{x} was set, these functions return values with unit of measurement; see \\link[units]{set_units}.\n#'\n#' st_area returns the area of each feature geometry, computed in the coordinate reference system used. In case \\code{x} has geodetic coordinates (unprojected), then if `sf_use_s2()` is `FALSE` \\link[lwgeom:geod]{st_geod_area} is used for area calculation, if it is `TRUE` then \\link[s2:s2_is_collection]{s2_area} is used: the former assumes an ellipsoidal shape, the latter a spherical shape of the Earth. In case of projected data, areas are computed in flat space. The argument `...` can be used to specify `radius` to \\link[s2:s2_is_collection]{s2_area}, to modify the Earth radius.\n#' @examples\n#' b0 = st_polygon(list(rbind(c(-1,-1), c(1,-1), c(1,1), c(-1,1), c(-1,-1))))\n#' b1 = b0 + 2\n#' b2 = b0 + c(-0.2, 2)\n#' x = st_sfc(b0, b1, b2)\n#' st_area(x)\nst_area = function(x, ...) UseMethod(\"st_area\")\n\n#' @name geos_measures\n#' @export\nst_area.sfc = function(x, ...) {\n\tif (isTRUE(st_is_longlat(x))) {\n\t\tif (sf_use_s2())\n\t\t\tunits::set_units(s2::s2_area(x, ...), \"m^2\", mode = \"standard\")\n\t\telse {\n\t\t\tif (! requireNamespace(\"lwgeom\", quietly = TRUE))\n\t\t\t\tstop(\"package lwgeom required, please install it first\")\n\t\t\tlwgeom::st_geod_area(x)\n\t\t}\n\t} else {\n\t\ta = CPL_area(x) # ignores units: units of coordinates\n\t\tif (!is.null(u <- st_crs(x)$ud_unit))\n\t\t\tunits(a) = u^2 # coord units\n\t\tif (!is.null(to_m <- st_crs(x)$to_meter) && !is.na(to_m) && !inherits(a, \"units\"))\n\t\t\ta = set_units(a * to_m^2, \"m^2\", mode = \"standard\")\n\t\ta\n\t}\n}\n\n#' @export\nst_area.sf = function(x, ...) st_area(st_geometry(x), ...)\n\n#' @export\nst_area.sfg = function(x, ...) st_area(st_geometry(x), ...)\n\n#' @name geos_measures\n#' @export\n#' @return st_length returns the length of a \\code{LINESTRING} or \\code{MULTILINESTRING} geometry, using the coordinate reference system. \\code{POINT}, \\code{MULTIPOINT}, \\code{POLYGON} or \\code{MULTIPOLYGON} geometries return zero.\n#' If coordinates are geodetic (i.e., long/lat), great circle calculations are carried out on a sphere (if `sf_use_s2()` is `TRUE`), or a geodesic line is computed on an ellipsoid (if `sf_use_s2()` is `FALSE`). For all other non-geodetic, projected coordinate systems, length calculations are planar, Euclidean distance calculations in the units of the coordinate system.\n#' @seealso \\link{st_dimension}, \\link{st_cast} to convert geometry types\n#'\n#' @examples\n#' line = st_sfc(st_linestring(rbind(c(30,30), c(40,40))), crs = 4326)\n#' st_length(line)\n#'\n#' outer = matrix(c(0,0,10,0,10,10,0,10,0,0),ncol=2, byrow=TRUE)\n#' hole1 = matrix(c(1,1,1,2,2,2,2,1,1,1),ncol=2, byrow=TRUE)\n#' hole2 = matrix(c(5,5,5,6,6,6,6,5,5,5),ncol=2, byrow=TRUE)\n#'\n#' poly = st_polygon(list(outer, hole1, hole2))\n#' mpoly = st_multipolygon(list(\n#' \tlist(outer, hole1, hole2),\n#' \tlist(outer + 12, hole1 + 12)\n#' ))\n#'\n#' st_length(st_sfc(poly, mpoly))\nst_length = function(x, ...) {\n\tx = st_geometry(x)\n\n\tif (isTRUE(st_is_longlat(x))) {\n\t\tif (sf_use_s2())\n\t\t\tset_units(s2::s2_length(x, ...), \"m\", mode = \"standard\")\n\t\telse {\n\t\t\tif (! requireNamespace(\"lwgeom\", quietly = TRUE))\n\t\t\t\tstop(\"package lwgeom required, please install it first\")\n\t\t\tlwgeom::st_geod_length(x)\n\t\t}\n\t} else {\n\t\tret = CPL_length(x)\n\t\tret[is.nan(ret)] = NA\n\t\tif (!is.null(u <- st_crs(x)$ud_unit))\n\t\t\tunits(ret) = u\n\t\tif (!is.null(to_m <- st_crs(x)$to_meter) && !is.na(to_m) && !inherits(ret, \"units\"))\n\t\t\tret = set_units(ret * to_m, \"m\", mode = \"standard\")\n\t\tret\n\t}\n}\n\nmessage_longlat = function(caller) {\n\tm = paste(\"although coordinates are longitude/latitude,\", caller, \"assumes that they are planar\")\n\tm = strwrap(m, width = getOption(\"width\"))\n\tmessage(paste0(m, collapse = \"\\n\"))\n}\n\n\n#' @name geos_measures\n#' @export\n#' @examples\n#' if (requireNamespace(\"lwgeom\", quietly = TRUE)) {\n#' st_perimeter(poly)\n#' st_perimeter(mpoly)\n#' }\nst_perimeter = function(x, ...) {\n\tx = st_geometry(x)\n\tif (sf_use_s2() && isTRUE(st_is_longlat(x))) { # for spherical geometries we use s2 \n\t\tif (!requireNamespace(\"s2\", quietly = TRUE))\n\t\t\tstop(\"package s2 required to calculate the perimeter of spherical geometries\")\n\t\t# ensure units are set to meters \n\t\tunits::set_units(\n\t\t\ts2::s2_perimeter(x, ...), \n\t\t\t\"m\", \n\t\t\tmode = \"standard\"\n\t\t)\n\t} else { # non-spherical geometries use lwgeom:\n\t\tif (isTRUE(st_is_longlat(x)))\n\t\t\tunits::set_units(st_length(st_boundary(x)), \"m\", mode = \"standard\")\n\t\telse { \n\t\t\tif (!requireNamespace(\"lwgeom\", quietly = TRUE))\n\t\t\t\tstop(\"package lwgeom required, please install it first\")\n\t\t\t# note that units are handled appropriately by lwgeom\n\t\t\tlwgeom::st_perimeter_lwgeom(x)\n\t\t}\n\t}\n}\n\n#' Compute geometric measurements\n#'\n#' Compute Euclidean or great circle distance between pairs of geometries; compute, the area or the length of a set of geometries.\n#' @name geos_measures\n#' @param x object of class \\code{sf}, \\code{sfc} or \\code{sfg}\n#' @param y object of class \\code{sf}, \\code{sfc} or \\code{sfg}, defaults to \\code{x}\n#' @param ... passed on to \\link[s2]{s2_distance}, \\link[s2]{s2_distance_matrix}, or \\link[s2]{s2_perimeter}\n#' @param dist_fun deprecated\n#' @param by_element logical; if \\code{TRUE}, return a vector with distance between the first elements of \\code{x} and \\code{y}, the second, etc; an error is raised if \\code{x} and \\code{y} are not the same length. If \\code{FALSE}, return the dense matrix with all pairwise distances.\n#' @param which character; for Cartesian coordinates only: one of \\code{Euclidean}, \\code{Hausdorff} or \\code{Frechet}; for geodetic coordinates, great circle distances are computed; see details\n#' @param par for \\code{which} equal to \\code{Hausdorff} or \\code{Frechet}, optionally use a value between 0 and 1 to densify the geometry\n#' @param tolerance ignored if \\code{st_is_longlat(x)} is \\code{FALSE}; otherwise, if set to a positive value, the first distance smaller than \\code{tolerance} will be returned, and true distance may be smaller; this may speed up computation. In meters, or a \\code{units} object convertible to meters.\n#' @return If \\code{by_element} is \\code{FALSE} \\code{st_distance} returns a dense numeric matrix of dimension length(x) by length(y); otherwise it returns a numeric vector the same length as \\code{x} and \\code{y} with an error raised if the lengths of \\code{x} and \\code{y} are unequal. Distances involving empty geometries are \\code{NA}.\n#' @details great circle distance calculations use by default spherical distances (\\link[s2]{s2_distance} or \\link[s2]{s2_distance_matrix}); if \\code{sf_use_s2()} is \\code{FALSE}, ellipsoidal distances are computed using \\link[lwgeom]{st_geod_distance} which uses function \\code{geod_inverse} from GeographicLib (part of PROJ); see Karney, Charles FF, 2013, Algorithms for geodesics, Journal of Geodesy 87(1), 43--55\n#' @examples\n#' p = st_sfc(st_point(c(0,0)), st_point(c(0,1)), st_point(c(0,2)))\n#' st_distance(p, p)\n#' st_distance(p, p, by_element = TRUE)\n#' @export\nst_distance = function(x, y, ..., dist_fun, by_element = FALSE, \n\t\twhich = ifelse(isTRUE(st_is_longlat(x)), \"Great Circle\", \"Euclidean\"), \n\t\tpar = 0.0, tolerance = 0.0) {\n\n\tmissing_y = FALSE\n\tif (missing(y)) {\n\t\ty = x\n\t\tmissing_y = TRUE\n\t} else\n\t\tstopifnot(st_crs(x) == st_crs(y))\n\n\tif (! missing(dist_fun))\n\t\tstop(\"dist_fun is deprecated: lwgeom is used for distance calculation\")\n\n\tx = st_geometry(x)\n\ty = st_geometry(y)\n\tif (by_element)\n\t\tstopifnot(!missing_y, length(x) == length(y))\n\n\tif (isTRUE(st_is_longlat(x)) && which == \"Great Circle\") {\n\t\tif (sf_use_s2()) {\n\t\t\tret = if (by_element)\n\t\t\t\t\ts2::s2_distance(x, y, ...)\n\t\t\t\telse\n\t\t\t\t\ts2::s2_distance_matrix(x, y, ...)\n\t\t\tset_units(ret, \"m\", mode = \"standard\")\n\t\t} else { # lwgeom:\n\t\t\tif (which != \"Great Circle\")\n\t\t\t\tstop(\"for non-great circle distances, data should be projected; see st_transform()\")\n\t\t\tunits(tolerance) = as_units(\"m\")\n\t\t\tif (by_element) {\n\t\t\t\tcrs = st_crs(x)\n\t\t\t\tdist_ll = function(x, y, tolerance)\n\t\t\t\t\tlwgeom::st_geod_distance(st_sfc(x, crs = crs), st_sfc(y, crs = crs),\n\t\t\t\t\t\ttolerance = tolerance)\n\t\t\t\td = mapply(dist_ll, x, y, tolerance = tolerance)\n\t\t\t\tunits(d) = units(st_crs(x)$SemiMajor)\n\t\t\t\td\n\t\t\t} else\n\t\t\t\tlwgeom::st_geod_distance(x, y, tolerance)\n\t\t}\n\t} else {\n\t\td = if (by_element) {\n\t\t\t\tif (inherits(x, \"sfc_POINT\") && inherits(y, \"sfc_POINT\") && which == \"Euclidean\") {\n\t\t\t\t\txc = st_coordinates(x)\n\t\t\t\t\tyc = st_coordinates(y)\n\t\t\t\t\tsqrt((xc[,1] - yc[,1])^2 + (xc[,2] - yc[,2])^2)\n\t\t\t\t} else\n\t\t\t\t CPL_geos_dist_by_element(x, y, which, par)\n\t\t\t} else {\n\t\t\t\tif (missing_y && inherits(x, \"sfc_POINT\") && which == \"Euclidean\") {\n\t\t\t\t\tm = as.matrix(stats::dist(cc <- st_coordinates(x)))\n\t\t\t\t\te = is.na(cc[,1])\n\t\t\t\t\tdiag(m)[e] = NA_real_\n\t\t\t\t\tm\n\t\t\t\t} else\n\t\t\t\t\tCPL_geos_dist(x, y, which, par)\n\t\t\t}\n\t\tif (!is.null(u <- st_crs(x)$ud_unit))\n\t\t\tunits(d) = u\n\t\td\n\t}\n}\n\ncheck_lengths = function (dots) {\n\tlengths <- vapply(dots, length, integer(1))\n\tnon_constant_lengths <- unique(lengths[lengths != 1])\n\tif (length(non_constant_lengths) == 0) {\n\t\t1\n\t}\n\telse if (length(non_constant_lengths) == 1) {\n\t\tnon_constant_lengths\n\t}\n\telse {\n\t\tlengths_label <- paste0(non_constant_lengths, collapse = \", \")\n\t\tstop(sprintf(\"Incompatible lengths: %s\", lengths_label), \n\t\t\tcall. = FALSE)\n\t}\n}\n\nrecycle_common = function (dots) {\n\tfinal_length <- check_lengths(dots)\n\tlapply(dots, rep_len, final_length)\n}\n\n\n#' Project point on linestring, interpolate along a linestring\n#'\n#' Project point on linestring, interpolate along a linestring\n#' @param line object of class `sfc` with `LINESTRING` geometry\n#' @param point object of class `sfc` with `POINT` geometry\n#' @param normalized logical; if `TRUE`, use or return distance normalised to 0-1\n#' @name st_line_project_point\n#' @returns `st_line_project` returns the distance(s) of point(s) along line(s), when projected on the line(s)\n#' @export\n#' @details\n#' arguments `line`, `point` and `dist` are recycled to common length when needed\n#' @examples\n#' st_line_project(st_as_sfc(\"LINESTRING (0 0, 10 10)\"), st_as_sfc(c(\"POINT (0 0)\", \"POINT (5 5)\")))\n#' st_line_project(st_as_sfc(\"LINESTRING (0 0, 10 10)\"), st_as_sfc(\"POINT (5 5)\"), TRUE)\nst_line_project = function(line, point, normalized = FALSE) {\n\tstopifnot(inherits(line, \"sfc\"), inherits(point, \"sfc\"),\n\t\tall(st_dimension(line) == 1), all(st_dimension(point) == 0),\n\t\tis.logical(normalized), length(normalized) == 1,\n\t\tst_crs(line) == st_crs(point))\n\tline = st_cast(line, \"LINESTRING\")\n\tpoint = st_cast(point, \"POINT\")\n\tif (isTRUE(st_is_longlat(line)))\n\t\tmessage_longlat(\"st_project_point\")\n\trecycled = recycle_common(list(line, point))\n\tCPL_line_project(recycled[[1]], recycled[[2]], normalized)\n}\n"
},
{
"path": "R/geom-predicates.R",
"content": "#' @name geos_query\n#' @export\n#' @return st_is_simple returns a logical vector, indicating for each geometry whether it is simple (e.g., not self-intersecting)\n#' @examples\n#' ls = st_linestring(rbind(c(0,0), c(1,1), c(1,0), c(0,1)))\n#' st_is_simple(st_sfc(ls, st_point(c(0,0))))\nst_is_simple = function(x) {\n\tx = st_geometry(x)\n\tnot_full = !sfc_is_full(x)\n\tret = rep(TRUE, length(x))\n\tret[not_full] = CPL_geos_is_simple(x[not_full])\n\tret\n}\n\n#' @name geos_query\n#' @export\n#' @return st_is_empty returns for each geometry whether it is empty\n#' @examples\n#' ls = st_linestring(rbind(c(0,0), c(1,1), c(1,0), c(0,1)))\n#' st_is_empty(st_sfc(ls, st_point(), st_linestring()))\nst_is_empty = function(x) sfc_is_empty(st_geometry(x)) \n # used to call\n # CPL_geos_is_empty(st_geometry(x))\n # but this avoids a R -> WKB -> GEOS conversion\n\nis_symmetric = function(operation, pattern) {\n\tif (!is.na(pattern)) {\n\t\tm = matrix(sapply(1:9, function(i) substr(pattern, i, i)), 3, 3)\n\t\tisTRUE(all(m == t(m)))\n\t} else\n\t\tisTRUE(operation %in% c(\"intersects\", \"touches\", \"overlaps\", \"disjoint\", \"equals\"))\n}\n\n# binary, interfaced through GEOS or S2:\n\n# [1] X \"s2_contains_matrix\" X \"s2_covered_by_matrix\"\n# [3] X \"s2_covers_matrix\" X \"s2_disjoint_matrix\"\n# [5] X \"s2_distance_matrix\" X \"s2_dwithin_matrix\"\n# [7] X \"s2_equals_matrix\" X \"s2_intersects_matrix\"\n# [9] \"s2_max_distance_matrix\" \"s2_may_intersect_matrix\"\n#[11] X \"s2_touches_matrix\" X \"s2_within_matrix\"\n\n# returning matrix, distance or relation string -- the work horse is:\nst_geos_binop = function(op, x, y, par = 0.0, pattern = NA_character_,\n\t\tsparse = TRUE, prepared = FALSE, model = \"closed\", ...,\n\t\tremove_self = FALSE, retain_unique = FALSE,\n\t\tby_element = FALSE) {\n\n\tlonglat = inherits(x, \"s2geography\") || isTRUE(st_is_longlat(x))\n\tif (by_element) {\n\t\tif (missing(y))\n\t\t\tstop(\"y is required when by_element = TRUE\")\n\t\tif (inherits(x, c(\"sf\", \"sfc\")) && inherits(y, c(\"sf\", \"sfc\")))\n\t\t\tstopifnot(st_crs(x) == st_crs(y))\n\t\tx = st_geometry(x)\n\t\ty = st_geometry(y)\n\t\tstopifnot(length(x) == length(y))\n\t\tif (longlat && sf_use_s2() && op %in% c(\"intersects\", \"contains\", \"within\",\n\t\t\t\t\"covers\", \"covered_by\", \"disjoint\", \"equals\", \"touches\")) {\n\t\t\tfn = get(paste0(\"s2_\", op), envir = getNamespace(\"s2\"))\n\t\t\tfn(x, y, s2::s2_options(model = model, ...))\n\t\t} else {\n\t\t\tif (longlat && !(op %in% c(\"equals\", \"equals_exact\")))\n\t\t\t\tmessage_longlat(paste0(\"st_\", op))\n\t\t\tCPL_geos_binop_by_element(x, y, op, par, pattern, prepared)[[1]]\n\t\t}\n\t} else {\n\t\tif (missing(y))\n\t\t\ty = x\n\t\telse if (inherits(x, c(\"sf\", \"sfc\")) && inherits(y, c(\"sf\", \"sfc\")))\n\t\t\tstopifnot(st_crs(x) == st_crs(y))\n\t\tif (longlat && sf_use_s2() && op %in% c(\"intersects\", \"contains\", \"within\",\n\t\t\t\t\"covers\", \"covered_by\", \"disjoint\", \"equals\", \"touches\")) {\n\t\t\tfn = get(paste0(\"s2_\", op, \"_matrix\"), envir = getNamespace(\"s2\")) # get op function\n\t\t\tlst = fn(x, y, s2::s2_options(model = model, ...)) # call function\n\t\t\tid = if (is.null(row.names(x)))\n\t\t\t\t\tas.character(seq_along(lst))\n\t\t\t\telse\n\t\t\t\t\trow.names(x)\n\t\t\tsgbp(lst, predicate = op, region.id = id, ncol = length(st_geometry(y)), sparse,\n\t\t\t\tremove_self = remove_self, retain_unique = retain_unique)\n\t\t} else {\n\t\t\tif (longlat && !(op %in% c(\"equals\", \"equals_exact\")))\n\t\t\t\tmessage_longlat(paste0(\"st_\", op))\n\t\t\tif (prepared && is_symmetric(op, pattern) &&\n\t\t\t\t\tlength(dx <- st_dimension(x)) && length(dy <- st_dimension(y)) &&\n\t\t\t\t\tisTRUE(all(dx == 0)) && isTRUE(all(dy == 2))) {\n\t\t\t\tt(st_geos_binop(op, y, x, par = par, pattern = pattern, sparse = sparse, \n\t\t\t\t\tprepared = prepared, remove_self = remove_self, retain_unique = retain_unique,\n\t\t\t\t\t...))\n\t\t\t} else {\n\t\t\t\tret = CPL_geos_binop(st_geometry(x), st_geometry(y), op, par, pattern, prepared)\n\t\t\t\tif (length(ret) == 0 || is.null(dim(ret[[1]]))) {\n\t\t\t\t\tid = if (is.null(row.names(x)))\n\t\t\t\t\t\t\tas.character(seq_along(ret))\n\t\t\t\t\t\telse\n\t\t\t\t\t\t\trow.names(x)\n\t\t\t\t\tsgbp(ret, predicate = op, region.id = id, ncol = length(st_geometry(y)), sparse,\n\t\t\t\t\t\tremove_self = remove_self, retain_unique = retain_unique)\n\t\t\t\t} else # CPL_geos_binop returned a matrix, e.g. from op = \"relate\"\n\t\t\t\t\tret[[1]]\n\t\t\t}\n\t\t}\n\t}\n}\n#' Compute DE9-IM relation between pairs of geometries, or match it to a given pattern\n#' @param x object of class \\code{sf}, \\code{sfc} or \\code{sfg}\n#' @param y object of class \\code{sf}, \\code{sfc} or \\code{sfg}\n#' @param pattern character; define the pattern to match to, see details.\n#' @param sparse logical; should a sparse matrix be returned (`TRUE`) or a dense matrix?\n#' @param ... may be used to specify `by_element=TRUE` to return a vector with element-wise relations or matches\n#' @return In case \\code{pattern} is not given, \\code{st_relate} returns a dense \\code{character} matrix; element `[i,j]` has nine characters, referring to the DE9-IM relationship between `x[i]` and `y[j]`, encoded as IxIy,IxBy,IxEy,BxIy,BxBy,BxEy,ExIy,ExBy,ExEy where I refers to interior, B to boundary, and E to exterior, and e.g. BxIy the dimensionality of the intersection of the the boundary of `x[i]` and the interior of `y[j]`, which is one of: 0, 1, 2, or F; digits denoting dimensionality of intersection, F denoting no intersection. When \\code{pattern} is given, a dense logical matrix or sparse index list returned with matches to the given pattern; see \\link{st_intersects} for a description of the returned matrix or list. See also \\url{https://en.wikipedia.org/wiki/DE-9IM} for further explanation.\n#' @export\n#' @examples\n#' p1 = st_point(c(0,0))\n#' p2 = st_point(c(2,2))\n#' pol1 = st_polygon(list(rbind(c(0,0),c(1,0),c(1,1),c(0,1),c(0,0)))) - 0.5\n#' pol2 = pol1 + 1\n#' pol3 = pol1 + 2\n#' st_relate(st_sfc(p1, p2), st_sfc(pol1, pol2, pol3))\n#' sfc = st_sfc(st_point(c(0,0)), st_point(c(3,3)))\n#' grd = st_make_grid(sfc, n = c(3,3))\n#' st_intersects(grd)\n#' st_relate(grd, pattern = \"****1****\") # sides, not corners, internals\n#' st_relate(grd, pattern = \"****0****\") # only corners touch\n#' st_rook = function(a, b = a) st_relate(a, b, pattern = \"F***1****\")\n#' st_rook(grd)\n#' # queen neighbours, see \\url{https://github.com/r-spatial/sf/issues/234#issuecomment-300511129}\n#' st_queen <- function(a, b = a) st_relate(a, b, pattern = \"F***T****\")\nst_relate = function(x, y, pattern = NA_character_, sparse = !is.na(pattern), ...) {\n\tif (!is.na(pattern)) {\n\t\tstopifnot(is.character(pattern), length(pattern) == 1, nchar(pattern) == 9)\n\t\tst_geos_binop(\"relate_pattern\", x, y, pattern = pattern, sparse = sparse, ...)\n\t} else\n\t\tst_geos_binop(\"relate\", x, y, sparse = FALSE, ...)\n}\n\n#' Geometric binary predicates on pairs of simple feature geometry sets\n#'\n#' Geometric binary predicates on pairs of simple feature geometry sets\n#' @name geos_binary_pred\n#' @param x object of class \\code{sf}, \\code{sfc} or \\code{sfg}\n#' @param y object of class \\code{sf}, \\code{sfc} or \\code{sfg}; if missing, \\code{x} is used\n#' @param sparse logical; should a sparse index list be returned (`TRUE`) or a dense logical matrix? See below.\n#' @inheritDotParams s2::s2_options\n#' @param prepared logical; prepare geometry for `x`, before looping over `y`? See Details.\n#' @param by_element logical; if `TRUE`, return logical vector with x-y pair-wise predicate values\n#' @details If \\code{prepared} is \\code{TRUE}, and \\code{x} contains POINT geometries and \\code{y} contains polygons, then the polygon geometries are prepared, rather than the points.\n#' @return If \\code{sparse=FALSE}, \\code{st_predicate} (with \\code{predicate} e.g. \"intersects\") returns a dense logical matrix with element \\code{i,j} equal to \\code{TRUE} when \\code{predicate(x[i], y[j])} (e.g., when geometry of feature i and j intersect); if \\code{sparse=TRUE}, an object of class \\code{\\link{sgbp}} is returned, which is a sparse list representation of the same matrix, with list element \\code{i} an integer vector with all indices \\code{j} for which \\code{predicate(x[i],y[j])} is \\code{TRUE} (and hence a zero-length integer vector if none of them is \\code{TRUE}). From the dense matrix, one can find out if one or more elements intersect by \\code{apply(mat, 1, any)}, and from the sparse list by \\code{lengths(lst) > 0}, see examples below. If `by_element=TRUE`, return a vector of pair-wise predicate values.\n#' @details For most predicates, a spatial index is built on argument \\code{x}; see \\url{https://r-spatial.org/r/2017/06/22/spatial-index.html}.\n#' Specifically, \\code{st_intersects}, \\code{st_disjoint}, \\code{st_touches} \\code{st_crosses}, \\code{st_within}, \\code{st_contains}, \\code{st_contains_properly}, \\code{st_overlaps}, \\code{st_equals}, \\code{st_covers} and \\code{st_covered_by} all build spatial indexes for more efficient geometry calculations. \\code{st_relate}, \\code{st_equals_exact}, and do not; \\code{st_is_within_distance} uses a spatial index for geographic coordinates when \\code{sf_use_s2()} is true.\n#'\n#' If \\code{y} is missing, `st_predicate(x, x)` is effectively called, and a square matrix is returned with diagonal elements `st_predicate(x[i], x[i])`.\n#'\n#' Sparse geometry binary predicate (\\code{\\link{sgbp}}) lists have the following attributes: \\code{region.id} with the \\code{row.names} of \\code{x} (if any, else \\code{1:n}), \\code{ncol} with the number of features in \\code{y}, and \\code{predicate} with the name of the predicate used.\n#'\n#' @note For intersection on pairs of simple feature geometries, use\n#' the function \\code{\\link{st_intersection}} instead of \\code{st_intersects}.\n#'\n#' @examples\n#' pts = st_sfc(st_point(c(.5,.5)), st_point(c(1.5, 1.5)), st_point(c(2.5, 2.5)))\n#' pol = st_polygon(list(rbind(c(0,0), c(2,0), c(2,2), c(0,2), c(0,0))))\n#' (lst = st_intersects(pts, pol))\n#' (mat = st_intersects(pts, pol, sparse = FALSE))\n#' # which points fall inside a polygon?\n#' apply(mat, 1, any)\n#' lengths(lst) > 0\n#' # which points fall inside the first polygon?\n#' st_intersects(pol, pts)[[1]]\n#' # remove duplicate geometries:\n#' p1 = st_point(0:1)\n#' p2 = st_point(2:1)\n#' p = st_sf(a = letters[1:8], geom = st_sfc(p1, p1, p2, p1, p1, p2, p2, p1))\n#' st_equals(p)\n#' st_equals(p, remove_self = TRUE)\n#' (u = st_equals(p, retain_unique = TRUE))\n#' # retain the records with unique geometries:\n#' p[-unlist(u),]\n#' @export\nst_intersects\t= function(x, y, sparse = TRUE, ..., by_element = FALSE) UseMethod(\"st_intersects\")\n\n#' @export\nst_intersects.sfc = function(x, y, sparse = TRUE, prepared = TRUE, ...)\n\tst_geos_binop(\"intersects\", x, y, sparse = sparse, prepared = prepared, ...)\n\n#' @export\nst_intersects.sf = function(x, y, sparse = TRUE, prepared = TRUE, ...)\n\tst_geos_binop(\"intersects\", x, y, sparse = sparse, prepared = prepared, ...)\n\n#' @export\nst_intersects.sfg = function(x, y, sparse = TRUE, prepared = TRUE, ...)\n\tst_geos_binop(\"intersects\", x, y, sparse = sparse, prepared = prepared, ...)\n\n\n#' @name geos_binary_pred\n#' @export\nst_disjoint\t\t= function(x, y = x, sparse = TRUE, prepared = TRUE, ...) {\n\t# st_geos_binop(\"disjoint\", x, y, sparse = sparse, prepared = prepared) -> didn't use STRtree\n\tint = st_geos_binop(\"intersects\", x, y, sparse = sparse, prepared = prepared, ...)\n\t# disjoint = !intersects :\n\tif (sparse)\n\t\tsgbp(lapply(int, function(g) setdiff(seq_along(st_geometry(y)), g)),\n\t\t\tpredicate = \"disjoint\",\n\t\t\tncol = attr(int, \"ncol\"),\n\t\t\tregion.id = attr(int, \"region.id\"))\n\telse\n\t\t!int\n}\n\n#' @name geos_binary_pred\n#' @export\nst_touches\t\t= function(x, y, sparse = TRUE, prepared = TRUE, ...)\n\tst_geos_binop(\"touches\", x, y, sparse = sparse, prepared = prepared, ...)\n\n#' @name geos_binary_pred\n#' @export\nst_crosses\t\t= function(x, y, sparse = TRUE, prepared = TRUE, ...)\n\tst_geos_binop(\"crosses\", x, y, sparse = sparse, prepared = prepared, ...)\n\n#' @name geos_binary_pred\n#' @export\nst_within\t= function(x, y, sparse = TRUE, prepared = TRUE, ...)\n\tst_geos_binop(\"within\", x, y, sparse = sparse, prepared = prepared, ...)\n\n#' @name geos_binary_pred\n#' @param model character; polygon/polyline model; one of\n#' \"open\", \"semi-open\" or \"closed\"; see Details.\n#' @details for \\code{model}, see https://github.com/r-spatial/s2/issues/32\n#' @export\nst_contains\t= function(x, y, sparse = TRUE, prepared = TRUE, ..., model = \"open\")\n\tst_geos_binop(\"contains\", x, y, sparse = sparse, prepared = prepared, ..., model = model)\n\n#' @name geos_binary_pred\n#' @export\n#' @details `st_contains_properly(A,B)` is true if A intersects B's interior, but not its edges or exterior; A contains A, but A does not properly contain A.\n#'\n#' See also \\link{st_relate} and \\url{https://en.wikipedia.org/wiki/DE-9IM} for a more detailed description of the underlying algorithms.\nst_contains_properly = function(x, y, sparse = TRUE, prepared = TRUE, ...) {\n\tif (! prepared)\n\t\tstop(\"non-prepared geometries not supported for st_contains_properly\")\n\tst_geos_binop(\"contains_properly\", x, y, sparse = sparse, prepared = TRUE, ...)\n}\n\n#' @name geos_binary_pred\n#' @export\nst_overlaps\t\t= function(x, y, sparse = TRUE, prepared = TRUE, ...)\n\tst_geos_binop(\"overlaps\", x, y, sparse = sparse, prepared = prepared, ...)\n\n#' @name geos_binary_pred\n#' @param retain_unique logical; if `TRUE` (and `y` is missing) return only indexes of points larger than the current index; this can be used to select unique geometries, see examples. This argument can be used for all geometry predicates; see also \\link{distinct.sf} to find records where geometries AND attributes are distinct.\n#' @param remove_self logical; if `TRUE` (and `y` is missing) return only indexes of geometries different from the current index; this can be used to omit self-intersections; see examples. This argument can be used for all geometry predicates\n#' @export\nst_equals\t\t= function(x, y, sparse = TRUE, prepared = FALSE, ..., \n\t\t\t\t\t\t\tretain_unique = FALSE, remove_self = FALSE) {\n\tif (prepared)\n\t\tstop(\"prepared geometries not supported for st_equals\")\n\tst_geos_binop(\"equals\", x, y, sparse = sparse, ..., \n\t\t\t\t retain_unique = retain_unique, remove_self = remove_self)\n}\n\n#' @name geos_binary_pred\n#' @export\nst_covers = function(x, y, sparse = TRUE, prepared = TRUE, ..., model = \"closed\")\n\tst_geos_binop(\"covers\", x, y, sparse = sparse, prepared = prepared, ..., model = model)\n\n\n#' @name geos_binary_pred\n#' @export\nst_covered_by = function(x, y = x, sparse = TRUE, prepared = TRUE, ..., model = \"closed\")\n\tst_geos_binop(\"covered_by\", x, y, sparse = sparse, prepared = prepared, ...)\n\n\n#' @name geos_binary_pred\n#' @export\n#' @param par numeric; parameter used for \"equals_exact\" (margin);\n#' @details \\code{st_equals_exact} returns true for two geometries of the same type and their vertices corresponding by index are equal up to a specified tolerance.\nst_equals_exact = function(x, y, par, sparse = TRUE, prepared = FALSE, ...) {\n\tif (prepared)\n\t\tstop(\"prepared geometries not supported for st_equals_exact\")\n\tst_geos_binop(\"equals_exact\", x, y, par = par, sparse = sparse, ...)\n}\n\n#' @name geos_binary_pred\n#' @export\n#' @param dist distance threshold; geometry indexes with distances smaller or equal to this value are returned; numeric value or units value having distance units.\nst_is_within_distance = function(x, y = x, dist, sparse = TRUE, ..., remove_self = FALSE) {\n\n\tret = if (isTRUE(st_is_longlat(x))) {\n\t\t\tunits(dist) = as_units(\"m\") # might convert\n\t\t\tr = if (sf_use_s2()) {\n\t\t\t\t\tif (inherits(dist, \"units\"))\n\t\t\t\t\t\tdist = drop_units(dist)\n\t\t\t\t\ts2::s2_dwithin_matrix(x, y, dist, ...)\n\t\t\t\t} else {\n\t\t\t\t\tif (!requireNamespace(\"lwgeom\", quietly = TRUE) || \n\t\t\t\t\t\t\tutils::packageVersion(\"lwgeom\") <= \"0.1-2\")\n\t\t\t\t\t\tstop(\"lwgeom > 0.1-2 required: install first?\")\n\t\t\t\t\tlwgeom::st_geod_distance(x, y, tolerance = dist, sparse = TRUE)\n\t\t\t\t}\n\t\t\tsgbp(r, predicate = \"is_within_distance\", region.id = seq_along(x), \n\t\t\t\tremove_self = remove_self, ncol = length(st_geometry(y)))\n\t\t} else {\n\t\t\tif (!is.null(st_crs(x)$ud_unit))\n\t\t\t\tunits(dist) = st_crs(x)$ud_unit # might convert\n\t\t\tst_geos_binop(\"is_within_distance\", x, y, par = dist, sparse = sparse, remove_self = remove_self, ...)\n\t\t}\n\tif (!sparse)\n\t\tas.matrix(ret)\n\telse\n\t\tret\n}\n"
},
{
"path": "R/geom-transformers.R",
"content": "\n# unary, returning geometries\n\n#' Geometric unary operations on simple feature geometry sets\n#'\n#' Geometric unary operations on simple feature geometries. These are all generics, with methods for \\code{sfg}, \\code{sfc} and \\code{sf} objects, returning an object of the same class. All operations work on a per-feature basis, ignoring all other features.\n#' @name geos_unary\n#' @param x object of class \\code{sfg}, \\code{sfc} or \\code{sf}\n#' @param dist numeric or object of class `units`; buffer distance(s) for all, or for each of the elements in \\code{x}. \n#' In case \\code{x} has geodetic coordinates (lon/lat) and `sf_use_s2()` is `TRUE`, a numeric \n#' `dist` is taken as distance in meters and a `units` object in `dist` is converted to meters.\n#' In case \\code{x} has geodetic coordinates (lon/lat) and `sf_use_s2()` is `FALSE`, a numeric \n#' `dist` is taken as degrees, and a `units` object in `dist` is converted to `arc_degree` (and warnings are issued).\n#' In case \\code{x} does not have geodetic coordinates (projected) then\n#' numeric `dist` is assumed to have the units of the coordinates, and a `units` `dist` is converted to those if `st_crs(x)` is not `NA`.\n#' @param nQuadSegs integer; number of segments per quadrant (fourth of a circle), for all or per-feature; see details\n#' @param endCapStyle character; style of line ends, one of 'ROUND', 'FLAT', 'SQUARE'; see details\n#' @param joinStyle character; style of line joins, one of 'ROUND', 'MITRE', 'BEVEL'; see details\n#' @param mitreLimit numeric; limit of extension for a join if \\code{joinStyle} 'MITRE' is used (default 1.0, minimum 0.0); see details\n#' @param singleSide logical; if \\code{TRUE}, single-sided buffers are returned for linear geometries,\n#' in which case negative \\code{dist} values give buffers on the right-hand side, positive on the left; see details\n#' @param ... in `st_buffer` passed on to [s2::s2_buffer_cells()], otherwise ignored\n#' @return an object of the same class of \\code{x}, with manipulated geometry.\n#' @export\n#' @details \\code{st_buffer} computes a buffer around this geometry/each geometry. Depending on the spatial\n#' coordinate system, a different engine (GEOS or S2) can be used, which have different function\n#' arguments. The \\code{nQuadSegs}, \\code{endCapsStyle}, \\code{joinStyle}, \\code{mitreLimit} and\n#' \\code{singleSide} parameters only work if the GEOS engine is used (i.e. projected coordinates or\n#' when \\code{sf_use_s2()} is set to \\code{FALSE}). See \\href{https://postgis.net/docs/ST_Buffer.html}{postgis.net/docs/ST_Buffer.html}\n#' for details. The \\code{max_cells} and \\code{min_level} parameters ([s2::s2_buffer_cells()]) work with the S2\n#' engine (i.e. geographic coordinates) and can be used to change the buffer shape (e.g. smoothing). \n#' The S2 engine returns a polygon _around_ a number of S2 cells that\n#' contain the buffer, and hence will always have an area larger than the\n#' true buffer, depending on `max_cells`, and will be non-smooth when sufficiently zoomed in. \n#' The GEOS engine will return line segments between points\n#' on the circle, and so will always be _smaller_ than the true\n#' buffer, and be smooth, depending on the number of segments `nQuadSegs`.\n#' A negative `dist` value for geodetic coordinates using S2 does not give a proper (geodetic) buffer.\n#' \n#' @examples\n#'\n#' ## st_buffer, style options (taken from rgeos gBuffer)\n#' l1 = st_as_sfc(\"LINESTRING(0 0,1 5,4 5,5 2,8 2,9 4,4 6.5)\")\n#' op = par(mfrow=c(2,3))\n#' plot(st_buffer(l1, dist = 1, endCapStyle=\"ROUND\"), reset = FALSE, main = \"endCapStyle: ROUND\")\n#' plot(l1,col='blue',add=TRUE)\n#' plot(st_buffer(l1, dist = 1, endCapStyle=\"FLAT\"), reset = FALSE, main = \"endCapStyle: FLAT\")\n#' plot(l1,col='blue',add=TRUE)\n#' plot(st_buffer(l1, dist = 1, endCapStyle=\"SQUARE\"), reset = FALSE, main = \"endCapStyle: SQUARE\")\n#' plot(l1,col='blue',add=TRUE)\n#' plot(st_buffer(l1, dist = 1, nQuadSegs=1), reset = FALSE, main = \"nQuadSegs: 1\")\n#' plot(l1,col='blue',add=TRUE)\n#' plot(st_buffer(l1, dist = 1, nQuadSegs=2), reset = FALSE, main = \"nQuadSegs: 2\")\n#' plot(l1,col='blue',add=TRUE)\n#' plot(st_buffer(l1, dist = 1, nQuadSegs= 5), reset = FALSE, main = \"nQuadSegs: 5\")\n#' plot(l1,col='blue',add=TRUE)\n#' par(op)\n#'\n#'\n#' l2 = st_as_sfc(\"LINESTRING(0 0,1 5,3 2)\")\n#' op = par(mfrow = c(2, 3))\n#' plot(st_buffer(l2, dist = 1, joinStyle=\"ROUND\"), reset = FALSE, main = \"joinStyle: ROUND\")\n#' plot(l2, col = 'blue', add = TRUE)\n#' plot(st_buffer(l2, dist = 1, joinStyle=\"MITRE\"), reset = FALSE, main = \"joinStyle: MITRE\")\n#' plot(l2, col= 'blue', add = TRUE)\n#' plot(st_buffer(l2, dist = 1, joinStyle=\"BEVEL\"), reset = FALSE, main = \"joinStyle: BEVEL\")\n#' plot(l2, col= 'blue', add=TRUE)\n#' plot(st_buffer(l2, dist = 1, joinStyle=\"MITRE\" , mitreLimit=0.5), reset = FALSE,\n#' main = \"mitreLimit: 0.5\")\n#' plot(l2, col = 'blue', add = TRUE)\n#' plot(st_buffer(l2, dist = 1, joinStyle=\"MITRE\",mitreLimit=1), reset = FALSE,\n#' main = \"mitreLimit: 1\")\n#' plot(l2, col = 'blue', add = TRUE)\n#' plot(st_buffer(l2, dist = 1, joinStyle=\"MITRE\",mitreLimit=3), reset = FALSE,\n#' main = \"mitreLimit: 3\")\n#' plot(l2, col = 'blue', add = TRUE)\n#' par(op)\n#'\n#' # compare approximation errors depending on S2 or GEOS backend:\n#' # geographic coordinates, uses S2:\n#' x = st_buffer(st_as_sf(data.frame(lon=0,lat=0), coords=c(\"lon\",\"lat\"),crs='OGC:CRS84'), \n#' units::as_units(1,\"km\"))\n#' y = units::set_units(st_area(x), \"km^2\")\n#' # error: postive, default maxcells = 1000\n#' (units::drop_units(y)-pi)/pi\n#' x = st_buffer(st_as_sf(data.frame(lon=0,lat=0), coords=c(\"lon\",\"lat\"),crs='OGC:CRS84'), \n#' units::as_units(1,\"km\"), max_cells=1e5)\n#' y = units::set_units(st_area(x), \"km^2\")\n#' # error: positive but smaller:\n#' (units::drop_units(y)-pi)/pi\n#' \n#' # no CRS set: assumes Cartesian (projected) coordinates\n#' x = st_buffer(st_as_sf(data.frame(lon=0,lat=0), coords=c(\"lon\",\"lat\")), 1)\n#' y = st_area(x)\n#' # error: negative, nQuadSegs default at 30\n#' ((y)-pi)/pi\n#' x = st_buffer(st_as_sf(data.frame(lon=0,lat=0), coords=c(\"lon\",\"lat\")), 1, nQuadSegs = 100)\n#' y = st_area(x)\n#' # error: negative but smaller:\n#' ((y)-pi)/pi\nst_buffer = function(x, dist, nQuadSegs = 30,\n\t\t\t\t\t endCapStyle = \"ROUND\", joinStyle = \"ROUND\", mitreLimit = 1.0, singleSide = FALSE, ...)\n\tUseMethod(\"st_buffer\")\n\n#' @export\nst_buffer.sfg = function(x, dist, nQuadSegs = 30,\n\t\t\t\t\t\t endCapStyle = \"ROUND\", joinStyle = \"ROUND\", mitreLimit = 1.0, singleSide = FALSE, ...)\n\tget_first_sfg(st_buffer(st_sfc(x), dist, nQuadSegs = nQuadSegs, endCapStyle = endCapStyle,\n\t\tjoinStyle = joinStyle, mitreLimit = mitreLimit, singleSide = singleSide, ...))\n\n.process_style_opts = function(endCapStyle, joinStyle, mitreLimit, singleSide) {\n\tstyls = list(with_styles = FALSE, endCapStyle = NA, joinStyle = NA, mitreLimit = NA)\n\tif (endCapStyle == \"ROUND\" && joinStyle == \"ROUND\" && mitreLimit == 1\n\t\t\t&& all(singleSide == FALSE))\n\t\treturn(styls)\n\tecs = match(endCapStyle, c(\"ROUND\", \"FLAT\", \"SQUARE\"))\n\tjs = match(joinStyle, c(\"ROUND\", \"MITRE\", \"BEVEL\"))\n\tif (is.na(mitreLimit) || !mitreLimit > 0) stop(\"mitreLimit must be > 0\")\n\tif (is.na(ecs)) stop(\"endCapStyle must be 'ROUND', 'FLAT', or 'SQUARE'\")\n\tif (is.na(js)) stop(\"joinStyle must be 'ROUND', 'MITRE', or 'BEVEL'\")\n\tif (anyNA(singleSide)) stop(\"singleSide should be TRUE or FALSE\")\n\tstyls$with_styles = TRUE\n\tstyls$endCapStyle = ecs\n\tstyls$joinStyle = js\n\tstyls$mitreLimit = mitreLimit\n\tstyls\n}\n#' @export\nst_buffer.sfc = function(x, dist, nQuadSegs = 30,\n\t\t\t\t\t\t endCapStyle = \"ROUND\", joinStyle = \"ROUND\", mitreLimit = 1.0,\n\t\t\t\t\t\t singleSide = FALSE, ...) {\n\tlonglat = isTRUE(st_is_longlat(x))\n\tdist_n = dist\n\tif (inherits(dist_n, \"units\"))\n\t\tdist_n = drop_units(dist_n)\n\tif (longlat && sf_use_s2() && all(dist_n >= 0.0)) {\n#\t\tif (!missing(nQuadSegs) || !missing(endCapStyle) || !missing(joinStyle) ||\n#\t\t\t\t!missing(mitreLimit) || !missing(singleSide))\n#\t\t\twarning(\"all buffer style parameters are ignored; set st_use_s2(FALSE) first to use them\")\n\t\tif (inherits(dist, \"units\")) {\n\t\t\tif (!inherits(try(units(dist) <- as_units(\"rad\"), silent = TRUE), \"try-error\"))\n\t\t\t\treturn(st_as_sfc(s2::s2_buffer_cells(x, dist, radius = 1, ...),\n\t\t\t\t\tcrs = st_crs(x)))\n\t\t\tunits(dist) = as_units(\"m\") # make sure has dimension length, possibly convert\n\t\t\tdist = drop_units(dist)\n\t\t}\n\t\tst_as_sfc(s2::s2_buffer_cells(x, dist, ...), crs = st_crs(x))\n\t} else {\n\t\tif (longlat) {\n\t\t\twarning(\"st_buffer does not correctly buffer longitude/latitude data\")\n\t\t\tif (inherits(dist, \"units\"))\n\t\t\t\tunits(dist) = as_units(\"arc_degrees\")\n\t\t\telse\n\t\t\t\tmessage(\"dist is assumed to be in decimal degrees (arc_degrees).\")\n\t\t} else if (inherits(dist, \"units\")) {\n\t\t\tif (is.na(st_crs(x)))\n\t\t\t\tstop(\"x does not have a crs set: can't convert units\")\n\t\t\tif (is.null(st_crs(x)$units))\n\t\t\t\tstop(\"x has a crs without units: can't convert units\")\n\t\t\tif (!is.null(st_crs(x)$ud_unit))\n\t\t\t\tunits(dist) = st_crs(x)$ud_unit\n\t\t}\n\t\tdist = rep(dist, length.out = length(x))\n\t\tnQ = rep(nQuadSegs, length.out = length(x))\n\t\tstyles = .process_style_opts(endCapStyle, joinStyle, mitreLimit, singleSide)\n\t\tif (styles$with_styles) {\n\t\t\tendCapStyle = rep(styles$endCapStyle, length.out = length(x))\n\t\t\tjoinStyle = rep(styles$joinStyle, length.out = length(x))\n\t\t\tmitreLimit = rep(styles$mitreLimit, length.out = length(x))\n\t\t\tsingleSide = rep(as.logical(singleSide), length.out = length(x))\n\t\t\tif (any(endCapStyle == 2) && any(st_geometry_type(x) == \"POINT\" | st_geometry_type(x) == \"MULTIPOINT\"))\n\t\t\t\tstop(\"Flat capstyle is incompatible with POINT/MULTIPOINT geometries\") # nocov\n\t\t\tif (inherits(dist, \"units\"))\n\t\t\t\tdist = drop_units(dist)\n\t\t\tif (any(dist < 0) && any(st_dimension(x) < 1))\n\t\t\t\tstop(\"Negative dist values may only be used with 1-D or 2-D geometries\") # nocov\n\n\t\t\tst_sfc(CPL_geos_op(\"buffer_with_style\", x, dist, nQ, numeric(0), logical(0),\n\t\t\t\tendCapStyle = endCapStyle, joinStyle = joinStyle, mitreLimit = mitreLimit,\n\t\t\t\tsingleside = singleSide))\n\t\t} else\n\t\t\tst_sfc(CPL_geos_op(\"buffer\", x, dist, nQ, numeric(0), logical(0)))\n\t}\n}\n\n#' @export\nst_buffer.sf = function(x, dist, nQuadSegs = 30,\n\t\t\t\t\t\tendCapStyle = \"ROUND\", joinStyle = \"ROUND\", mitreLimit = 1.0,\n\t\t\t\t\t\tsingleSide = FALSE, ...) {\n\tst_set_geometry(x, st_buffer(st_geometry(x), dist, nQuadSegs,\n\t\t\t\t\t\t\t endCapStyle = endCapStyle, joinStyle = joinStyle, mitreLimit = mitreLimit,\n\t\t\t\t\t\t\t singleSide = singleSide, ...))\n}\n\n#' @name geos_unary\n#' @export\n#' @details \\code{st_boundary} returns the boundary of a geometry\nst_boundary = function(x)\n\tUseMethod(\"st_boundary\")\n\n#' @export\nst_boundary.sfg = function(x)\n\tget_first_sfg(st_boundary(st_sfc(x)))\n\n#' @export\nst_boundary.sfc = function(x)\n\tst_sfc(CPL_geos_op(\"boundary\", x, numeric(0), integer(0), numeric(0), logical(0)))\n\n#' @export\nst_boundary.sf = function(x) {\n\tst_set_geometry(x, st_boundary(st_geometry(x)))\n}\n\n#' @name geos_unary\n#' @export\n#' @details \\code{st_convex_hull} creates the convex hull of a set of points\n#' @seealso \\link[grDevices]{chull} for a more efficient algorithm for calculating the convex hull\n#' @examples\n#' nc = st_read(system.file(\"shape/nc.shp\", package=\"sf\"))\n#' nc_g = st_geometry(nc)\n#' plot(st_convex_hull(nc_g))\n#' plot(nc_g, border = grey(.5), add = TRUE)\n#' pt = st_combine(st_sfc(st_point(c(0,80)), st_point(c(120,80)), st_point(c(240,80))))\n#' st_convex_hull(pt) # R2\n#' st_convex_hull(st_set_crs(pt, 'OGC:CRS84')) # S2\nst_convex_hull = function(x)\n\tUseMethod(\"st_convex_hull\")\n\n#' @export\nst_convex_hull.sfg = function(x)\n\tget_first_sfg(st_convex_hull(st_sfc(x)))\n\n#' @export\nst_convex_hull.sfc = function(x) {\n\tif (isTRUE(st_is_longlat(x)) && sf_use_s2())\n\t\tst_as_sfc(s2::s2_convex_hull(x), crs = st_crs(x))\n\telse\n\t\tst_sfc(CPL_geos_op(\"convex_hull\", x, numeric(0), integer(0), numeric(0), logical(0)))\n}\n\n#' @export\nst_convex_hull.sf = function(x) {\n\tst_set_geometry(x, st_convex_hull(st_geometry(x)))\n}\n\n#' @name geos_unary\n#' @export\n#' @details \\code{st_concave_hull} creates the concave hull of a geometry\n#' @param ratio numeric; fraction convex: 1 returns the convex hulls, 0 maximally concave hulls\n#' @param allow_holes logical; if \\code{TRUE}, the resulting concave hull may have holes\n#' @examples\n#' set.seed(131)\n#' if (compareVersion(sf_extSoftVersion()[[\"GEOS\"]], \"3.11.0\") > -1) {\n#' pts = cbind(runif(100), runif(100))\n#' m = st_multipoint(pts)\n#' co = sf:::st_concave_hull(m, 0.3)\n#' coh = sf:::st_concave_hull(m, 0.3, allow_holes = TRUE)\n#' plot(co, col = 'grey')\n#' plot(coh, add = TRUE, border = 'red')\n#' plot(m, add = TRUE)\n#' }\nst_concave_hull = function(x, ratio, ..., allow_holes)\n\tUseMethod(\"st_concave_hull\")\n\n#' @export\nst_concave_hull.sfg = function(x, ratio, ..., allow_holes = FALSE)\n\tget_first_sfg(st_concave_hull(st_sfc(x), ratio, allow_holes))\n\n#' @export\nst_concave_hull.sfc = function(x, ratio, ..., allow_holes = FALSE) {\n\tstopifnot(!missing(ratio), ratio >= 0, ratio <= 1.0, is.logical(allow_holes), !is.na(allow_holes))\n\tst_sfc(CPL_geos_op(\"concave_hull\", x, ratio, integer(0), numeric(0), allow_holes))\n}\n\n#' @export\nst_concave_hull.sf = function(x, ratio, ..., allow_holes = FALSE) {\n\tst_set_geometry(x, st_concave_hull(st_geometry(x), ratio, allow_holes))\n}\n\n#' @name geos_unary\n#' @export\n#' @details \\code{st_simplify} simplifies lines by removing vertices. \n#' @param preserveTopology logical; carry out topology preserving\n#' simplification? May be specified for each, or for all feature geometries.\n#' Note that topology is preserved only for single feature geometries, not for\n#' sets of them. If not specified (i.e. the default), then it is internally\n#' set equal to \\code{FALSE} when the input data is specified with projected\n#' coordinates or \\code{sf_use_s2()} returns \\code{FALSE}. Ignored in all the\n#' other cases (with a warning when set equal to \\code{FALSE}) since the\n#' function implicitly calls \\code{s2::s2_simplify} which always preserve\n#' topological relationships (per single feature).\n#' @param dTolerance numeric; tolerance parameter, specified for all or for each\n#' feature geometry. If you run \\code{st_simplify}, the input data is\n#' specified with long-lat coordinates and \\code{sf_use_s2()} returns\n#' \\code{TRUE}, then the value of \\code{dTolerance} must be specified in\n#' meters.\n#' @examples\n#'\n#' # st_simplify examples:\n#' op = par(mfrow = c(2, 3), mar = rep(0, 4))\n#' plot(nc_g[1])\n#' plot(st_simplify(nc_g[1], dTolerance = 1e3)) # 1000m\n#' plot(st_simplify(nc_g[1], dTolerance = 5e3)) # 5000m\n#' nc_g_planar = st_transform(nc_g, 2264) # planar coordinates, US foot\n#' plot(nc_g_planar[1])\n#' plot(st_simplify(nc_g_planar[1], dTolerance = 1e3)) # 1000 foot\n#' plot(st_simplify(nc_g_planar[1], dTolerance = 5e3)) # 5000 foot\n#' par(op)\n#'\nst_simplify = function(x, preserveTopology, dTolerance = 0.0)\n\tUseMethod(\"st_simplify\")\n\n#' @export\nst_simplify.sfg = function(x, preserveTopology, dTolerance = 0.0)\n\tget_first_sfg(st_simplify(st_sfc(x), preserveTopology, dTolerance = dTolerance))\n\n#' @export\nst_simplify.sfc = function(x, preserveTopology, dTolerance = 0.0) {\n\tll = isTRUE(st_is_longlat(x))\n\tif (ll && sf_use_s2()) {\n\t\tif (!missing(preserveTopology) && isFALSE(preserveTopology))\n\t\t\twarning(\"argument preserveTopology cannot be set to FALSE when working with ellipsoidal coordinates since the algorithm behind st_simplify always preserves topological relationships\")\n\t\tif (length(dTolerance) == 1) {\n\t\t\tst_as_sfc(s2::s2_simplify(x, dTolerance), crs = st_crs(x))\n\t\t} else {\n\t\t\tsimplify <- function(x, dTolerance) st_as_sfc(s2::s2_simplify(x, dTolerance))\n\t\t\tst_as_sfc(mapply(simplify, x, dTolerance), crs = st_crs(x))\n\t\t}\n\t} else {\n\t\tif (missing(preserveTopology)) {\n\t\t\tpreserveTopology = FALSE\n\t\t}\n\t\tstopifnot(mode(preserveTopology) == 'logical')\n\t\tif (ll)\n\t\t\twarning(\"st_simplify does not correctly simplify longitude/latitude data, dTolerance needs to be in decimal degrees\")\n\n\t\tst_sfc(CPL_geos_op(\"simplify\", x, numeric(0), integer(0),\n\t\t\tpreserveTopology = rep(preserveTopology, length.out = length(x)),\n\t\t\tdTolerance = rep(dTolerance, length.out = length(x))))\n\t}\n}\n\n#' @export\nst_simplify.sf = function(x, preserveTopology, dTolerance = 0.0) {\n\tst_set_geometry(x, st_simplify(st_geometry(x), preserveTopology, dTolerance))\n}\n\n#' @name geos_unary\n#' @export\n#' @param bOnlyEdges logical; if \\code{TRUE}, return lines, else return polygons\n#' @details \\code{st_triangulate} triangulates set of points (not constrained). \\code{st_triangulate} requires GEOS version 3.4 or above\nst_triangulate = function(x, dTolerance = 0.0, bOnlyEdges = FALSE)\n\tUseMethod(\"st_triangulate\")\n\n#' @export\nst_triangulate.sfg = function(x, dTolerance = 0.0, bOnlyEdges = FALSE)\n\tget_first_sfg(st_triangulate(st_sfc(x), dTolerance, bOnlyEdges = bOnlyEdges))\n\n#' @export\nst_triangulate.sfc = function(x, dTolerance = 0.0, bOnlyEdges = FALSE) {\n\tif (compareVersion(CPL_geos_version(), \"3.4.0\") > -1) { # >= ; see https://github.com/r-spatial/sf/issues/1653\n\t\tif (isTRUE(st_is_longlat(x)))\n\t\t\twarning(\"st_triangulate does not correctly triangulate longitude/latitude data\")\n\t\tst_sfc(CPL_geos_op(\"triangulate\", x, numeric(0), integer(0),\n\t\t\tdTolerance = rep(as.double(dTolerance), length.out = length(x)), logical(0),\n\t\t\tbOnlyEdges = as.integer(bOnlyEdges)))\n\t} else\n\t\tstop(\"for triangulate, GEOS version 3.4.0 or higher is required\")\n}\n\n#' @export\nst_triangulate.sf = function(x, dTolerance = 0.0, bOnlyEdges = FALSE) {\n\tst_set_geometry(x, st_triangulate(st_geometry(x), dTolerance, bOnlyEdges))\n}\n\n#' @name geos_unary\n#' @export\n#' @details \\code{st_triangulate_constrained} returns the constrained delaunay triangulation of polygons; requires GEOS version 3.10 or above\n#' @examples\n#' if (compareVersion(sf_extSoftVersion()[[\"GEOS\"]], \"3.10.0\") > -1) {\n#' pts = rbind(c(0,0), c(1,0), c(1,1), c(.5,.5), c(0,1), c(0,0))\n#' po = st_polygon(list(pts))\n#' co = st_triangulate_constrained(po)\n#' tr = st_triangulate(po)\n#' plot(po, col = NA, border = 'grey', lwd = 15)\n#' plot(tr, border = 'green', col = NA, lwd = 5, add = TRUE)\n#' plot(co, border = 'red', col = 'NA', add = TRUE)\n#' }\nst_triangulate_constrained = function(x)\n\tUseMethod(\"st_triangulate_constrained\")\n\n#' @export\nst_triangulate_constrained.sfg = function(x)\n\tget_first_sfg(st_triangulate_constrained(st_sfc(x)))\n\n#' @export\nst_triangulate_constrained.sfc = function(x) {\n\tif (compareVersion(CPL_geos_version(), \"3.10.0\") > -1) { # >= ; see https://github.com/r-spatial/sf/issues/1653\n\t\tif (isTRUE(st_is_longlat(x)))\n\t\t\twarning(\"st_triangulate does not correctly triangulate longitude/latitude data\")\n\t\tst_sfc(CPL_geos_op(\"triangulate_constrained\", x, numeric(0), integer(0), numeric(0), logical(0)))\n\t} else\n\t\tstop(\"for triangulate_constrained, GEOS version 3.10.0 or higher is required\")\n}\n\n#' @export\nst_triangulate_constrained.sf = function(x) {\n\tst_set_geometry(x, st_triangulate_constrained(st_geometry(x)))\n}\n\n#' @name geos_unary\n#' @export\n#' @details \\code{st_inscribed_circle} returns the maximum inscribed circle for polygon geometries. \n#' For \\code{st_inscribed_circle}, if \\code{nQuadSegs} is 0 a 2-point LINESTRING is returned with the\n#' center point and a boundary point of every circle, otherwise a circle (buffer) is returned where\n#' \\code{nQuadSegs} controls the number of points per quadrant to approximate the circle.\n#' \\code{st_inscribed_circle} requires GEOS version 3.9 or above\n#' @examples\n#' if (compareVersion(sf_extSoftVersion()[[\"GEOS\"]], \"3.9.0\") > -1) {\n#' nc_t = st_transform(nc, 'EPSG:2264')\n#' x = st_inscribed_circle(st_geometry(nc_t))\n#' plot(st_geometry(nc_t), asp = 1, col = grey(.9))\n#' plot(x, add = TRUE, col = '#ff9999')\n#' }\nst_inscribed_circle = function(x, dTolerance, ...)\n\tUseMethod(\"st_inscribed_circle\")\n\n#' @export\nst_inscribed_circle.sfg = function(x, dTolerance, ...) {\n\tget_first_sfg(st_inscribed_circle(st_sfc(x), dTolerance, ...))\n}\n\n#' @export\nst_inscribed_circle.sfc = function(x, dTolerance = sqrt(st_area(st_set_crs(x, NA_crs_)))/1000, ..., nQuadSegs = 30) {\n\tif (compareVersion(CPL_geos_version(), \"3.9.0\") > -1) { # >=\n\t\tif (isTRUE(st_is_longlat(x)))\n\t\t\twarning(\"st_inscribed_circle does not work correctly for longitude/latitude data\")\n\t\tnQ = rep(nQuadSegs, length.out = length(x))\n\t\tret = st_sfc(CPL_geos_op(\"inscribed_circle\", x, nQ, integer(0),\n\t\t\tdTolerance = rep(as.double(dTolerance), length.out = length(x)), logical(0),\n\t\t\tbOnlyEdges = as.integer(FALSE)))\n\t\tif (any(nQuadSegs > 0)) {\n\t\t\tpts = st_cast(ret, \"POINT\")\n\t\t\tidx = seq(1, length(pts) * 2, by = 2)\n\t\t\tret = st_buffer(pts[idx], st_length(st_set_crs(ret, NA_crs_)), nQuadSegs = nQuadSegs)\n\t\t} \n\t\tret\n\t} else\n\t\tstop(\"for st_inscribed_circle, GEOS version 3.9.0 or higher is required\")\n}\n\n#' @export\nst_inscribed_circle.sf = function(x, dTolerance, ...) {\n\tst_set_geometry(x, st_inscribed_circle(st_geometry(x), dTolerance), ...)\n}\n\n#' @name geos_unary\n#' @details \\code{st_minimum_rotated_rectangle} returns the minimum\n#' rotated rectangular POLYGON which encloses the input geometry. The\n#' rectangle has width equal to the minimum diameter, and a longer\n#' length. If the convex hill of the input is degenerate (a line or\n#' point) a linestring or point is returned.\n#' @export\nst_minimum_rotated_rectangle = function(x, ...)\n\tUseMethod(\"st_minimum_rotated_rectangle\")\n\n#' @export\nst_minimum_rotated_rectangle.sfg = function(x, ...) {\n\tget_first_sfg(st_minimum_rotated_rectangle(st_sfc(x), ...))\n}\n\n#' @export\nst_minimum_rotated_rectangle.sfc = function(x, ...) {\n\tif (compareVersion(CPL_geos_version(), \"3.9.0\") > -1) { # >=\n\t\tif (isTRUE(st_is_longlat(x)))\n\t\t\twarning(\"st_minimum_rotated_rectangle does not work correctly for longitude/latitude data\")\n\t\tst_sfc(CPL_geos_op(\"minimum_rotated_rectangle\", x, 0L, integer(0),\n\t\t\tdTolerance = 0., logical(0), bOnlyEdges = as.integer(FALSE)))\n\t} else\n\t\tstop(\"for st_minimum_rotated_rectangle, GEOS version 3.9.0 or higher is required\")\n}\n\n#' @export\nst_minimum_rotated_rectangle.sf = function(x, dTolerance, ...) {\n\tst_set_geometry(x, st_minimum_rotated_rectangle(st_geometry(x)), ...)\n}\n\n#' @name geos_unary\n#' @details \\code{st_minimum_bounding_circle} \n#' returns a geometry which represents the \"minimum bounding circle\",\n#' the smallest circle that contains the input.\n#' @export\nst_minimum_bounding_circle = function(x, ...)\n\tUseMethod(\"st_minimum_bounding_circle\")\n\n#' @export\nst_minimum_bounding_circle.sfg = function(x, ...) {\n\tget_first_sfg(st_minimum_bounding_circle(st_sfc(x), ...))\n}\n\n#' @export\nst_minimum_bounding_circle.sfc = function(x, ...) {\n\tif (compareVersion(CPL_geos_version(), \"3.8.0\") > -1) { # >=\n\t\tif (isTRUE(st_is_longlat(x)))\n\t\t\twarning(\"st_minimum_rotated_rectangle does not work correctly for longitude/latitude data\")\n\t\tst_sfc(CPL_geos_op(\"bounding_circle\", x, 0L, integer(0),\n\t\t\tdTolerance = 0., logical(0), bOnlyEdges = as.integer(FALSE)))\n\t} else\n\t\tstop(\"for st_minimum_bounding_circle, GEOS version 3.8.0 or higher is required\")\n}\n\n#' @export\nst_minimum_bounding_circle.sf = function(x, ...) {\n\tst_set_geometry(x, st_minimum_bounding_circle(st_geometry(x)), ...)\n}\n\n#' @name geos_unary\n#' @export\n#' @param envelope object of class \\code{sfc} or \\code{sfg} containing a \\code{POLYGON} with the envelope for a voronoi diagram; this only takes effect when it is larger than the default envelope, chosen when \\code{envelope} is an empty polygon\n#' @param point_order logical; preserve point order if TRUE and GEOS version >= 3.12; overrides bOnlyEdges\n#' @details \\code{st_voronoi} creates voronoi tessellation. \\code{st_voronoi} requires GEOS version 3.5 or above\n#' @examples\n#' set.seed(1)\n#' x = st_multipoint(matrix(runif(10),,2))\n#' box = st_polygon(list(rbind(c(0,0),c(1,0),c(1,1),c(0,1),c(0,0))))\n#' if (compareVersion(sf_extSoftVersion()[[\"GEOS\"]], \"3.5.0\") > -1) {\n#' v = st_sfc(st_voronoi(x, st_sfc(box)))\n#' plot(v, col = 0, border = 1, axes = TRUE)\n#' plot(box, add = TRUE, col = 0, border = 1) # a larger box is returned, as documented\n#' plot(x, add = TRUE, col = 'red', cex=2, pch=16)\n#' plot(st_intersection(st_cast(v), box)) # clip to smaller box\n#' plot(x, add = TRUE, col = 'red', cex=2, pch=16)\n#' # matching Voronoi polygons to data points:\n#' # https://github.com/r-spatial/sf/issues/1030\n#' # generate 50 random unif points:\n#' n = 100\n#' pts = st_as_sf(data.frame(matrix(runif(n), , 2), id = 1:(n/2)), coords = c(\"X1\", \"X2\"))\n#' # compute Voronoi polygons:\n#' pols = st_collection_extract(st_voronoi(do.call(c, st_geometry(pts))))\n#' # match them to points:\n#' pts_pol = st_intersects(pts, pols)\n#' pts$pols = pols[unlist(pts_pol)] # re-order\n#' if (isTRUE(try(compareVersion(sf_extSoftVersion()[\"GEOS\"], \"3.12.0\") > -1,\n#' silent = TRUE))) {\n#' pols_po = st_collection_extract(st_voronoi(do.call(c, st_geometry(pts)),\n#' point_order = TRUE)) # GEOS >= 3.12 can preserve order of inputs\n#' pts_pol_po = st_intersects(pts, pols_po)\n#' print(all(unlist(pts_pol_po) == 1:(n/2)))\n#' }\n#' plot(pts[\"id\"], pch = 16) # ID is color\n#' plot(st_set_geometry(pts, \"pols\")[\"id\"], xlim = c(0,1), ylim = c(0,1), reset = FALSE)\n#' plot(st_geometry(pts), add = TRUE)\n#' layout(matrix(1)) # reset plot layout\n#' }\nst_voronoi = function(x, envelope, dTolerance = 0.0, bOnlyEdges = FALSE, point_order = FALSE)\n\tUseMethod(\"st_voronoi\")\n\n#' @export\nst_voronoi.sfg = function(x, envelope = st_polygon(), dTolerance = 0.0, bOnlyEdges = FALSE, point_order = FALSE)\n\tget_first_sfg(st_voronoi(st_sfc(x), st_sfc(envelope), dTolerance, bOnlyEdges = bOnlyEdges, point_order = point_order))\n\n#' @export\nst_voronoi.sfc = function(x, envelope = st_polygon(), dTolerance = 0.0, bOnlyEdges = FALSE, point_order = FALSE) {\n\tif (compareVersion(CPL_geos_version(), \"3.5.0\") > -1) {\n\t\tif (isTRUE(st_is_longlat(x)))\n\t\t\twarning(\"st_voronoi does not correctly triangulate longitude/latitude data\")\n\t\tif (point_order) {\n\t\t\tif (compareVersion(CPL_geos_version(), \"3.12.0\") > -1)\n\t\t\t\tbOnlyEdges = 2L # GEOS enum GEOS_VORONOI_PRESERVE_ORDER\n\t\t\telse\n\t\t\t\twarning(\"Point order retention not supported for GEOS \", CPL_geos_version())\n\t\t}\n\t\tst_sfc(CPL_geos_voronoi(x, st_sfc(envelope), dTolerance = dTolerance,\n\t\t\tbOnlyEdges = as.integer(bOnlyEdges)))\n\t} else\n\t\tstop(\"for voronoi, GEOS version 3.5.0 or higher is required\")\n}\n\n#' @export\nst_voronoi.sf = function(x, envelope = st_polygon(), dTolerance = 0.0, bOnlyEdges = FALSE, point_order = FALSE) {\n\tst_set_geometry(x, st_voronoi(st_geometry(x), st_sfc(envelope), dTolerance, bOnlyEdges = bOnlyEdges, point_order = point_order))\n}\n\n#' @name geos_unary\n#' @details \\code{st_polygonize} creates a polygon from lines that form a closed ring. In case of \\code{st_polygonize}, \\code{x} must be an object of class \\code{LINESTRING} or \\code{MULTILINESTRING}, or an \\code{sfc} geometry list-column object containing these\n#' @export\n#' @examples\n#' mls = st_multilinestring(list(matrix(c(0,0,0,1,1,1,0,0),,2,byrow=TRUE)))\n#' st_polygonize(st_sfc(mls))\nst_polygonize = function(x)\n\tUseMethod(\"st_polygonize\")\n\n#' @export\nst_polygonize.sfg = function(x)\n\tget_first_sfg(st_polygonize(st_sfc(x)))\n\n#' @export\nst_polygonize.sfc = function(x) {\n\tstopifnot(inherits(x, \"sfc_LINESTRING\") || inherits(x, \"sfc_MULTILINESTRING\"))\n\tst_sfc(CPL_geos_op(\"polygonize\", x, numeric(0), integer(0), numeric(0), logical(0)))\n}\n\n#' @export\nst_polygonize.sf = function(x) {\n\tst_set_geometry(x, st_polygonize(st_geometry(x)))\n}\n\n#' @name geos_unary\n#' @export\n#' @param directed logical; if \\code{TRUE}, lines with opposite directions will not be merged\n#' @details \\code{st_line_merge} merges lines. In case of \\code{st_line_merge}, \\code{x} must be an object of class \\code{MULTILINESTRING}, or an \\code{sfc} geometry list-column object containing these\n#' @examples\n#' mls = st_multilinestring(list(rbind(c(0,0), c(1,1)), rbind(c(2,0), c(1,1))))\n#' st_line_merge(st_sfc(mls))\nst_line_merge = function(x, ..., directed = FALSE)\n\tUseMethod(\"st_line_merge\")\n\n#' @export\nst_line_merge.sfg = function(x, ..., directed = FALSE)\n\tget_first_sfg(st_line_merge(st_sfc(x), directed = directed, ...))\n\n#' @export\nst_line_merge.sfc = function(x, ..., directed = FALSE) {\n\tstopifnot(inherits(x, \"sfc_MULTILINESTRING\"))\n\tif (directed)\n\t\tst_sfc(CPL_geos_op(\"linemergedirected\", x, numeric(0), integer(0), numeric(0), logical(0)))\n\telse\n\t\tst_sfc(CPL_geos_op(\"linemerge\", x, numeric(0), integer(0), numeric(0), logical(0)))\n}\n\n#' @export\nst_line_merge.sf = function(x, ..., directed = FALSE) {\n\tst_set_geometry(x, st_line_merge(st_geometry(x), directed = directed, ...))\n}\n\n#' @name geos_unary\n#' @param of_largest_polygon logical; for \\code{st_centroid}: if \\code{TRUE}, return centroid of the largest (sub)polygon of a \\code{MULTIPOLYGON} rather than of the whole \\code{MULTIPOLYGON}\n#' @export\n#' @details \\code{st_centroid} gives the centroid of a geometry\n#' @examples\n#' plot(nc_g, axes = TRUE)\n#' plot(st_centroid(nc_g), add = TRUE, pch = 3, col = 'red')\n#' mp = st_combine(st_buffer(st_sfc(lapply(1:3, function(x) st_point(c(x,x)))), 0.2 * 1:3))\n#' plot(mp)\n#' plot(st_centroid(mp), add = TRUE, col = 'red') # centroid of combined geometry\n#' plot(st_centroid(mp, of_largest_polygon = TRUE), add = TRUE, col = 'blue', pch = 3)\nst_centroid = function(x, ..., of_largest_polygon = FALSE)\n\tUseMethod(\"st_centroid\")\n\n#' @export\nst_centroid.sfg = function(x, ..., of_largest_polygon = FALSE)\n\tget_first_sfg(st_centroid(st_sfc(x), of_largest_polygon = of_largest_polygon))\n\nlargest_ring = function(x) {\n\tpols = st_cast(x, \"POLYGON\", warn = FALSE)\n\tstopifnot(! is.null(attr(pols, \"ids\")))\n\tareas = st_area(pols)\n\tspl = split(areas, rep(seq_along(x), attr(pols, \"ids\"))) # group by x\n\tl = c(0, head(cumsum(lengths(spl)), -1)) # 0-based indexes of first rings of a MULTIPOLYGON\n\ti = l + sapply(spl, which.max) # add relative index of largest ring\n\tst_sfc(pols[i], crs = st_crs(x))\n}\n\n#' @export\nst_centroid.sfc = function(x, ..., of_largest_polygon = FALSE) {\n\tif (of_largest_polygon) {\n\t\tmulti = which(sapply(x, inherits, what = \"MULTIPOLYGON\") & lengths(x) > 1)\n\t\tif (length(multi))\n\t\t\tx[multi] = largest_ring(x[multi])\n\t}\n\tlonglat = isTRUE(st_is_longlat(x))\n\tif (longlat && sf_use_s2())\n\t\tst_as_sfc(s2::s2_centroid(x), crs = st_crs(x))\n\telse { \n\t\tif (longlat)\n\t\t\twarning(\"st_centroid does not give correct centroids for longitude/latitude data\")\n\t\tst_sfc(CPL_geos_op(\"centroid\", x, numeric(0), integer(0), numeric(0), logical(0)))\n\t}\n}\n\n#' @export\nst_centroid.sf = function(x, ..., of_largest_polygon = FALSE) {\n\tif (any(st_dimension(x) > 0) && !all_constant(x))\n\t\twarning(\"st_centroid assumes attributes are constant over geometries\", call. = FALSE)\n\tret = st_set_geometry(x,\n\t\tst_centroid(st_geometry(x), of_largest_polygon = of_largest_polygon))\n\tagr = st_agr(ret)\n\tagr[ agr == \"identity\" ] = \"constant\"\n\tst_set_agr(ret, agr)\n}\n\n\n#' @name geos_unary\n#' @export\n#' @details \\code{st_point_on_surface} returns a point guaranteed to be on the (multi)surface.\n#' @examples\n#' plot(nc_g, axes = TRUE)\n#' plot(st_point_on_surface(nc_g), add = TRUE, pch = 3, col = 'red')\nst_point_on_surface = function(x)\n\tUseMethod(\"st_point_on_surface\")\n\n#' @export\nst_point_on_surface.sfg = function(x)\n\tget_first_sfg(st_point_on_surface(st_sfc(x)))\n\n#' @export\nst_point_on_surface.sfc = function(x) {\n\tif (isTRUE(st_is_longlat(x)))\n\t\twarning(\"st_point_on_surface may not give correct results for longitude/latitude data\")\n\tst_sfc(CPL_geos_op(\"point_on_surface\", x, numeric(0), integer(0), numeric(0), logical(0)))\n}\n\n#' @export\nst_point_on_surface.sf = function(x) {\n\tif (any(st_dimension(x) > 0) && !all_constant(x))\n\t\twarning(\"st_point_on_surface assumes attributes are constant over geometries\", call. = FALSE)\n\tst_set_geometry(x, st_point_on_surface(st_geometry(x)))\n}\n\n#' @name geos_unary\n#' @export\n#' @details \\code{st_reverse} reverses the nodes in a line\n#' @examples\n#' if (compareVersion(sf_extSoftVersion()[[\"GEOS\"]], \"3.7.0\") > -1) {\n#' st_reverse(st_linestring(rbind(c(1,1), c(2,2), c(3,3))))\n#' }\n#nocov start\nst_reverse = function(x)\n\tUseMethod(\"st_reverse\")\n\n#' @export\nst_reverse.sfg = function(x)\n\tget_first_sfg(st_reverse(st_sfc(x)))\n\n#' @export\nst_reverse.sfc = function(x) {\n\tst_sfc(CPL_geos_op(\"reverse\", x, numeric(0), integer(0), numeric(0), logical(0)))\n}\n\n#' @export\nst_reverse.sf = function(x) {\n\tst_set_geometry(x, st_reverse(st_geometry(x)))\n}\n#nocov end\n\n#' @name geos_unary\n#' @export\n#' @details \\code{st_node} adds nodes to linear geometries at intersections without a node, and only works on individual linear geometries\n#' @examples\n#' (l = st_linestring(rbind(c(0,0), c(1,1), c(0,1), c(1,0), c(0,0))))\n#' st_polygonize(st_node(l))\n#' st_node(st_multilinestring(list(rbind(c(0,0), c(1,1), c(0,1), c(1,0), c(0,0)))))\nst_node = function(x) UseMethod(\"st_node\")\n\n#' @export\nst_node.sfg = function(x)\n\tget_first_sfg(st_node(st_sfc(x)))\n\n#' @export\nst_node.sfc = function(x) {\n\tdims = st_dimension(x)\n\tif (!all(is.na(dims) || dims == 1))\n\t\tstop(\"st_node: all geometries should be linear\")\n\tif (isTRUE(st_is_longlat(x)))\n\t\twarning(\"st_node may not give correct results for longitude/latitude data\")\n\tst_sfc(CPL_geos_op(\"node\", x, numeric(0), integer(0), numeric(0), logical(0)))\n}\n\n#' @export\nst_node.sf = function(x) {\n\tst_set_geometry(x, st_node(st_geometry(x)))\n}\n\n#' @name geos_unary\n#' @details \\code{st_segmentize} adds points to straight lines\n#' @export\n#' @param dfMaxLength maximum length of a line segment. If \\code{x} has geographical coordinates (long/lat), \\code{dfMaxLength} is either a numeric expressed in meter, or an object of class \\code{units} with length units \\code{rad} or \\code{degree}; segmentation in the long/lat case takes place along the great circle, using \\link[lwgeom:geod]{st_geod_segmentize}.\n#' @examples\n#' sf = st_sf(a=1, geom=st_sfc(st_linestring(rbind(c(0,0),c(1,1)))), crs = 4326)\n#' if (require(lwgeom, quietly = TRUE)) {\n#' seg = st_segmentize(sf, units::set_units(100, km))\n#' seg = st_segmentize(sf, units::set_units(0.01, rad))\n#' nrow(seg$geom[[1]])\n#' }\nst_segmentize\t= function(x, dfMaxLength, ...)\n\tUseMethod(\"st_segmentize\")\n\n#' @export\nst_segmentize.sfg = function(x, dfMaxLength, ...)\n\tget_first_sfg(st_segmentize(st_sfc(x), dfMaxLength, ...))\n\n#' @export\nst_segmentize.sfc\t= function(x, dfMaxLength, ...) {\n\tif (isTRUE(st_is_longlat(x))) {\n\t\tif (! requireNamespace(\"lwgeom\", quietly = TRUE))\n\t\t\tstop(\"package lwgeom required, please install it first\")\n\t\tif (! inherits(dfMaxLength, \"units\"))\n\t\t\tunits(dfMaxLength) = as_units(\"m\")\n\t\tlwgeom::st_geod_segmentize(x, dfMaxLength) # takes care of rad or degree units\n\t} else {\n\t\tif (! is.na(st_crs(x)) && inherits(dfMaxLength, \"units\"))\n\t\t\tunits(dfMaxLength) = units(st_crs(x)$SemiMajor) # might convert\n\t\tst_sfc(CPL_gdal_segmentize(x, dfMaxLength), crs = st_crs(x))\n\t}\n}\n\n#' @export\nst_segmentize.sf = function(x, dfMaxLength, ...) {\n\tst_set_geometry(x, st_segmentize(st_geometry(x), dfMaxLength, ...))\n}\n\n#' Combine or union feature geometries\n#'\n#' Combine several feature geometries into one, without unioning or resolving internal boundaries\n#' @name geos_combine\n#' @param x object of class \\code{sf}, \\code{sfc} or \\code{sfg}\n#' @return \\code{st_combine} returns a single, combined geometry, with no resolved boundaries; returned geometries may well be invalid.\n#' @export\n#' @details \\code{st_combine} combines geometries without resolving borders, using \\link{c.sfg} (analogous to \\link[base]{c} for ordinary vectors).\n#' @examples\n#' nc = st_read(system.file(\"shape/nc.shp\", package=\"sf\"))\n#' st_combine(nc)\nst_combine = function(x)\n\tst_sfc(do.call(c, st_geometry(x)), crs = st_crs(x)) # flatten/merge\n\n# x: object of class sf\n# y: object of class sf or sfc\n# geoms: result from geos_op2: list of non-empty geometries with the intersection/union/difference/sym_difference\n# which has an idx attribute pointing to what is x, what is y\ngeos_op2_df = function(x, y, geoms) {\n\tidx = attr(geoms, \"idx\")\n\tattr(geoms, \"idx\") = NULL\n\tall_constant_x = all_constant_y = TRUE\n\tall_constant_x = all_constant(x)\n\tdf = x[idx[,1],,drop = FALSE]\n\tst_geometry(df) = NULL\n\tif (inherits(y, \"sf\")) {\n\t\tall_constant_y = all_constant(y)\n\t\tst_geometry(y) = NULL\n\t\tdf = data.frame(df, y[idx[,2], , drop = FALSE])\n\t}\n\tif (! (all_constant_x && all_constant_y))\n\t\twarning(\"attribute variables are assumed to be spatially constant throughout all geometries\",\n\t\t\tcall. = FALSE)\n\tif (inherits(x, \"tbl_df\")) {\n\t\tif (!requireNamespace(\"tibble\", quietly = TRUE))\n\t\t\tstop(\"package tibble required: install first?\")\n\t\tdf = tibble::new_tibble(df, nrow = nrow(df), class = \"sf\")\n\t}\n\tdf[[ attr(x, \"sf_column\") ]] = geoms\n\tst_sf(df, sf_column_name = attr(x, \"sf_column\"))\n}\n\n# after checking identical crs,\n# call geos_op2 function op on x and y:\n# DE-9IM compliant should use model = \"closed\", more robust seems:\ngeos_op2_geom = function(op, x, y, ..., by_element = FALSE, model = \"semi-open\") {\n\tstopifnot(st_crs(x) == st_crs(y))\n\tx = st_geometry(x)\n\ty = st_geometry(y)\n\tlonglat = isTRUE(st_is_longlat(x))\n\tif (by_element) {\n\t\tstopifnot(length(x) == length(y))\n\t\tif (longlat && sf_use_s2()) {\n\t\t\tfn = switch(op, intersection = s2::s2_intersection,\n\t\t\t\tdifference = s2::s2_difference,\n\t\t\t\tsym_difference = s2::s2_sym_difference,\n\t\t\t\tunion = s2::s2_union, stop(\"invalid operator\"))\n\t\t\tst_as_sfc(fn(x, y, s2::s2_options(model = model, ...)), crs = st_crs(x))\n\t\t} else {\n\t\t\tif (longlat)\n\t\t\t\tmessage_longlat(paste0(\"st_\", op))\n\t\t\tst_sfc(CPL_geos_op2_by_element(op, x, y), crs = st_crs(x))\n\t\t}\n\t} else {\n\t\tif (longlat && sf_use_s2()) {\n\t\t\tfn = switch(op, intersection = s2::s2_intersection,\n\t\t\t\tdifference = s2::s2_difference,\n\t\t\t\tsym_difference = s2::s2_sym_difference,\n\t\t\t\tunion = s2::s2_union, stop(\"invalid operator\"))\n\t\t\t# to be optimized -- this doesn't index on y:\n\t\t\tlst = structure(unlist(lapply(y, function(yy) fn(x, yy, s2::s2_options(model = model, ...))),\n\t\t\t\trecursive = FALSE), class = \"s2_geography\")\n\t\t\te = s2::s2_is_empty(lst)\n\t\t\tidx = cbind(rep(seq_along(x), length(y)), rep(seq_along(y), each = length(x)))\n\t\t\tlst = st_as_sfc(lst, crs = st_crs(x))\n\t\t\tstructure(lst[!e], idx = idx[!e,,drop = FALSE])\n\t\t} else {\n\t\t\tif (longlat)\n\t\t\t\tmessage_longlat(paste0(\"st_\", op))\n\t\t\tst_sfc(CPL_geos_op2(op, x, y), crs = st_crs(x))\n\t\t}\n\t}\n}\n\n# return first sfg, or empty geometry in case of zero features\nget_first_sfg = function(x) {\n\tif (length(x) == 0)\n\t\tst_geometrycollection()\n\telse\n\t\tx[[1]]\n}\n\n#' Geometric operations on pairs of simple feature geometry sets\n#'\n#' Perform geometric set operations with simple feature geometry collections\n#' @name geos_binary_ops\n#' @param x object of class \\code{sf}, \\code{sfc} or \\code{sfg}\n#' @param y object of class \\code{sf}, \\code{sfc} or \\code{sfg}\n#' @param ... arguments passed on to \\link[s2]{s2_options}\n#' @param by_element logical; if `TRUE`, return pair-wise computed geometries, rather than set-wise; can be used for all binary operations\n#' @export\n#' @return The intersection, difference or symmetric difference between two sets of geometries.\n#' The returned object has the same class as that of the first argument (\\code{x}) with the non-empty geometries resulting from applying the operation to all geometry pairs in \\code{x} and \\code{y}. In case \\code{x} is of class \\code{sf}, the matching attributes of the original object(s) are added. The \\code{sfc} geometry list-column returned carries an attribute \\code{idx}, which is an \\code{n}-by-2 matrix with every row the index of the corresponding entries of \\code{x} and \\code{y}, respectively.\n#' @details When using GEOS and not using s2, a spatial index is built on argument \\code{x}; see \\url{https://r-spatial.org/r/2017/06/22/spatial-index.html}. The reference for the STR tree algorithm is: Leutenegger, Scott T., Mario A. Lopez, and Jeffrey Edgington. \"STR: A simple and efficient algorithm for R-tree packing.\" Data Engineering, 1997. Proceedings. 13th international conference on. IEEE, 1997. For the pdf, search Google Scholar.\n#' @seealso \\link{st_union} for the union of simple features collections; \\link{intersect} and \\link{setdiff} for the base R set operations.\n#' @export\n#' @note To find whether pairs of simple feature geometries intersect, use\n#' the function \\code{\\link{st_intersects}} instead of \\code{st_intersection}.\n#'\n#' When using GEOS and not using s2 polygons contain their boundary. When using s2 this is determined by the \\code{model} defaults of \\link[s2]{s2_options}, which can be overridden via the ... argument, e.g. \\code{model = \"closed\"} to force DE-9IM compliant behaviour of polygons (and reproduce GEOS results).\n#' @examples\n#' set.seed(131)\n#' library(sf)\n#' m = rbind(c(0,0), c(1,0), c(1,1), c(0,1), c(0,0))\n#' p = st_polygon(list(m))\n#' n = 100\n#' l = vector(\"list\", n)\n#' for (i in 1:n)\n#' l[[i]] = p + 10 * runif(2)\n#' s = st_sfc(l)\n#' plot(s, col = sf.colors(categorical = TRUE, alpha = .5))\n#' title(\"overlapping squares\")\n#' d = st_difference(s) # sequential differences: s1, s2-s1, s3-s2-s1, ...\n#' plot(d, col = sf.colors(categorical = TRUE, alpha = .5))\n#' title(\"non-overlapping differences\")\n#' i = st_intersection(s) # all intersections\n#' plot(i, col = sf.colors(categorical = TRUE, alpha = .5))\n#' title(\"non-overlapping intersections\")\n#' summary(lengths(st_overlaps(s, s))) # includes self-counts!\n#' summary(lengths(st_overlaps(d, d)))\n#' summary(lengths(st_overlaps(i, i)))\n#' sf = st_sf(s)\n#' i = st_intersection(sf) # all intersections\n#' plot(i[\"n.overlaps\"])\n#' summary(i$n.overlaps - lengths(i$origins))\nst_intersection = function(x, y, ..., by_element = FALSE) UseMethod(\"st_intersection\")\n\n#' @export\nst_intersection.sfg = function(x, y, ...)\n\tget_first_sfg(geos_op2_geom(\"intersection\", x, y, ...))\n\n#' @name geos_binary_ops\n#' @export\n#' @details When called with missing \\code{y}, the \\code{sfc} method for \\code{st_intersection} returns all non-empty intersections of the geometries of \\code{x}; an attribute \\code{idx} contains a list-column with the indexes of contributing geometries.\nst_intersection.sfc = function(x, y, ...) {\n\tif (missing(y)) {\n\t\tif (isTRUE(st_is_longlat(x)))\n\t\t\tmessage_longlat(\"st_intersection\")\n\t\tret = CPL_nary_intersection(x)\n\t\tstructure(st_sfc(ret), idx = attr(ret, \"idx\"))\n\t} else\n\t\tgeos_op2_geom(\"intersection\", x, y, ...)\n}\n\n#' @name geos_binary_ops\n#' @export\n#' @details when called with a missing \\code{y}, the \\code{sf} method for \\code{st_intersection} returns an \\code{sf} object with attributes taken from the contributing feature with lowest index; two fields are added: \\code{n.overlaps} with the number of overlapping features in \\code{x}, and a list-column \\code{origins} with indexes of all overlapping features.\nst_intersection.sf = function(x, y, ...) {\n\tif (missing(y)) {\n\t\tgeom = st_intersection(st_geometry(x), ...)\n\t\tidx = attr(geom, \"idx\")\n\t\ti = sapply(idx, function(i) i[1])\n\t\tsf_column = attr(x, \"sf_column\")\n\t\tst_geometry(x) = NULL\n\t\tx = x[i, , drop = FALSE]\n\t\tx$n.overlaps = lengths(idx)\n\t\tx$origins = idx\n\t\tx[[ sf_column ]] = structure(geom, idx = NULL)\n\t\tst_sf(x)\n\t} else\n\t\tgeos_op2_df(x, y, geos_op2_geom(\"intersection\", x, y, ...))\n}\n\n#' @name geos_binary_ops\n#' @export\n#' @examples\n#' # A helper function that erases all of y from x:\n#' st_erase = function(x, y) st_difference(x, st_union(st_combine(y)))\nst_difference = function(x, y, ...) UseMethod(\"st_difference\")\n\n#' @export\nst_difference.sfg = function(x, y, ...)\n\tget_first_sfg(geos_op2_geom(\"difference\", x, y, ...))\n\n#' @name geos_binary_ops\n#' @export\n#' @details When \\code{st_difference} is called with a single argument,\n#' overlapping areas are erased from geometries that are indexed at greater\n#' numbers in the argument to \\code{x}; geometries that are empty\n#' or contained fully inside geometries with higher priority are removed entirely.\n#' The \\code{st_difference.sfc} method with a single argument returns an object with\n#' an \\code{\"idx\"} attribute with the original index for returned geometries.\nst_difference.sfc = function(x, y, ...) {\n\tif (missing(y)) {\n\t\tif (isTRUE(st_is_longlat(x)))\n\t\t\tmessage_longlat(\"st_difference\")\n\t\tret = CPL_nary_difference(x)\n\t\tstructure(st_sfc(ret), ret = attr(ret, \"idx\"))\n\t} else\n\t\tgeos_op2_geom(\"difference\", x, y, ...)\n}\n\n#' @export\nst_difference.sf = function(x, y, ...) {\n\tif (missing(y)) {\n\t\tgeom = st_difference(st_geometry(x))\n\t\tsf_column = attr(x, \"sf_column\")\n\t\tst_geometry(x) = NULL\n\t\tx = x[attr(geom, \"idx\"), , drop=FALSE]\n\t\tx[[ sf_column ]] = structure(geom, idx = NULL)\n\t\tst_sf(x)\n\t} else\n\t\tgeos_op2_df(x, y, geos_op2_geom(\"difference\", x, y, ...))\n}\n\n#' @name geos_binary_ops\n#' @export\nst_sym_difference = function(x, y, ...) UseMethod(\"st_sym_difference\")\n\n#' @export\nst_sym_difference.sfg = function(x, y, ...)\n\tget_first_sfg(geos_op2_geom(\"sym_difference\", x, y, ...))\n\n#' @export\nst_sym_difference.sfc = function(x, y, ...)\n\tgeos_op2_geom(\"sym_difference\", x, y, ...)\n\n#' @export\nst_sym_difference.sf = function(x, y, ...)\n\tgeos_op2_df(x, y, geos_op2_geom(\"sym_difference\", x, y, ...))\n\n#' @name geos_binary_ops\n#' @param tolerance tolerance values used for \\code{st_snap}; numeric value or object of class \\code{units}; may have tolerance values for each feature in \\code{x}\n#' @details \\code{st_snap} snaps the vertices and segments of a geometry to another geometry's vertices. If \\code{y} contains more than one geometry, its geometries are merged into a collection before snapping to that collection.\n#'\n#' (from the GEOS docs:) \"A snap distance tolerance is used to control where snapping is performed. Snapping one geometry to another can improve robustness for overlay operations by eliminating nearly-coincident edges (which cause problems during noding and intersection calculation). Too much snapping can result in invalid topology being created, so the number and location of snapped vertices is decided using heuristics to determine when it is safe to snap. This can result in some potential snaps being omitted, however.\"\n#' @examples\n#' poly = st_polygon(list(cbind(c(0, 0, 1, 1, 0), c(0, 1, 1, 0, 0))))\n#' lines = st_multilinestring(list(\n#' cbind(c(0, 1), c(1, 1.05)),\n#' cbind(c(0, 1), c(0, -.05)),\n#' cbind(c(1, .95, 1), c(1.05, .5, -.05))\n#' ))\n#' snapped = st_snap(poly, lines, tolerance=.1)\n#' plot(snapped, col='red')\n#' plot(poly, border='green', add=TRUE)\n#' plot(lines, lwd=2, col='blue', add=TRUE)\n#' @export\nst_snap = function(x, y, tolerance) UseMethod(\"st_snap\")\n\n#' @export\nst_snap.sfg = function(x, y, tolerance)\n\tget_first_sfg(st_snap(st_sfc(x), y, tolerance))\n\n#' @export\nst_snap.sfc = function(x, y, tolerance) {\n\tif (isTRUE(st_is_longlat(x)))\n\t\tstop(\"st_snap for longitude/latitude data not supported; use st_transform first?\")\n\telse if (inherits(tolerance, \"units\") && !is.null(st_crs(x)$ud_unit))\n\t\tunits(tolerance) = st_crs(x)$ud_unit # coordinate units\n\ttolerance = rep(tolerance, length.out = length(x))\n\tst_sfc(CPL_geos_snap(st_geometry(x), st_geometry(y), as.double(tolerance)))\n}\n\n#' @export\nst_snap.sf = function(x, y, tolerance)\n\tst_set_geometry(x, st_snap(st_geometry(x), st_geometry(y), tolerance))\n\n#' @name geos_combine\n#' @export\n#' @param by_feature logical; if `TRUE`, union each feature if \\code{y} is missing or else each pair of features; if `FALSE` return a single feature that is the geometric union of the set of features in \\code{x} if \\code{y} is missing, or else the unions of each of the elements of the Cartesian product of both sets\n#' @param is_coverage logical; if `TRUE`, use an optimized algorithm for features that form a polygonal coverage (have no overlaps)\n#' @param y object of class \\code{sf}, \\code{sfc} or \\code{sfg} (optional)\n#' @param ... ignored\n#' @seealso \\link{st_intersection}, \\link{st_difference}, \\link{st_sym_difference}\n#' @return If \\code{y} is missing, \\code{st_union(x)} returns a single geometry with resolved boundaries, else the geometries for all unioned pairs of `x[i]` and `y[j]`.\n#' @details\n#' If \\code{st_union} is called with a single argument, \\code{x}, (with \\code{y} missing) and \\code{by_feature} is \\code{FALSE} all geometries are unioned together and an \\code{sfg} or single-geometry \\code{sfc} object is returned.\n#' If \\code{by_feature} is \\code{TRUE} each feature geometry is unioned individually.\n#' This can for instance be used to resolve internal boundaries after polygons were combined using \\code{st_combine}. \n#' If \\code{y} is provided, all elements of \\code{x} and \\code{y} are unioned, pairwise if \\code{by_feature} is TRUE, or else as the Cartesian product of both sets. \n#'\n#' Unioning a set of overlapping polygons has the effect of merging the areas (i.e. the same effect as iteratively unioning all individual polygons together).\n#' Unioning a set of LineStrings has the effect of fully noding and dissolving the input linework. In this context \"fully noded\" means that there will be a node or endpoint in the output for every endpoint or line segment crossing in the input.\n#' \"Dissolved\" means that any duplicate (e.g. coincident) line segments or portions of line segments will be reduced to a single line segment in the output.\tUnioning a set of Points has the effect of merging all identical points (producing a set with no duplicates).\n#' @examples\n#' plot(st_union(nc))\nst_union = function(x, y, ..., by_feature = FALSE, is_coverage = FALSE) UseMethod(\"st_union\")\n\n#' @export\nst_union.sfg = function(x, y, ..., by_feature = FALSE, is_coverage = FALSE) {\n\tout = if (missing(y)) # unary union, possibly by_feature:\n\t\tst_sfc(CPL_geos_union(st_geometry(x), by_feature, is_coverage))\n\telse\n\t\tst_union(st_geometry(x), st_geometry(y))\n\tget_first_sfg(out)\n}\n\n#' @export\nst_union.sfc = function(x, y, ..., by_feature = isTRUE(list(...)$by_element), is_coverage = FALSE) {\n\tll = isTRUE(st_is_longlat(x))\n\tif (missing(y)) { # unary union, possibly by_feature:\n\t\tif (ll && sf_use_s2()) { \n\t\t\tif (! by_feature) { # see https://github.com/r-spatial/s2/issues/97 :\n\t\t\t\tif (is_coverage)\n\t\t\t\t\tst_as_sfc(s2::s2_coverage_union_agg(x, ...), crs = st_crs(x))\n\t\t\t\telse\n\t\t\t\t\tst_as_sfc(s2::s2_union_agg(x, ...), crs = st_crs(x)) \n\t\t\t} else\n\t\t\t\tst_as_sfc(s2::s2_union(x, ...), crs = st_crs(x)) \n\t\t} else {\n\t\t\tif (ll)\n\t\t\t\tmessage_longlat(\"st_union\")\n\t\t\tst_sfc(CPL_geos_union(x, by_feature, is_coverage))\n\t\t}\n\t} else {\n\t\ty = st_geometry(y)\n\t\tstopifnot(st_crs(x) == st_crs(y))\n\t\tif (is_coverage)\n\t\t\tmessage(\"in st_union(), is_coverage is ignored when y is given\")\n\t\tif (by_feature)\n\t\t\tstopifnot(length(x) == length(y))\n\t\tif (ll && sf_use_s2()) {\n\t\t\tif (by_feature)\n\t\t\t\tst_as_sfc(s2::s2_union(x, y, ...), crs = st_crs(x)) \n\t\t\telse {\n\t\t\t\ti = rep(seq_along(x), each = length(y))\n\t\t\t\tj = rep(seq_along(y), length(x))\n\t\t\t\tst_as_sfc(s2::s2_union(x[i], y[j], ...), crs = st_crs(x), precision = st_precision(x)) \n\t\t\t}\n\t\t} else {\n\t\t\tif (ll)\n\t\t\t\tmessage_longlat(\"st_union\")\n\t\t\tif (by_feature) # old-style: in case by_element is not specified\n\t\t\t\tgeos_op2_geom(\"union\", x, y, by_element = TRUE, ...)\n\t\t\telse\n\t\t\t\tgeos_op2_geom(\"union\", x, y, ...) # handles by_element\n\t\t}\n\t}\n}\n\n#' @export\nst_union.sf = function(x, y, ..., by_feature = FALSE, is_coverage = FALSE) {\n\tif (missing(y)) { # unary union, possibly by_feature:\n\t\tgeom = st_union(st_geometry(x), ..., by_feature = by_feature, is_coverage = is_coverage)\n\t\tif (by_feature)\n\t\t\tst_set_geometry(x, geom)\n\t\telse\n\t\t\tgeom\n\t} else {\n\t\tif (by_feature) {\n\t\t\tdf = cbind(st_drop_geometry(x), st_drop_geometry(y))\n\t\t\tst_set_geometry(df, st_union(st_geometry(x), st_geometry(y), is_coverage = is_coverage))\n\t\t} else\n\t\t\tgeos_op2_df(x, y, geos_op2_geom(\"union\", x, y, ...))\n\t}\n}\n\n#' Sample points on a linear geometry\n#' @param x object of class \\code{sf}, \\code{sfc} or \\code{sfg}\n#' @param n integer; number of points to choose per geometry; if missing, n will be computed as \\code{round(density * st_length(geom))}.\n#' @param density numeric; density (points per distance unit) of the sampling, possibly a vector of length equal to the number of features (otherwise recycled); \\code{density} may be of class \\code{units}.\n#' @param type character; indicate the sampling type, either \"regular\" or \"random\"\n#' @param sample numeric; a vector of numbers between 0 and 1 indicating the points to sample - if defined sample overrules n, density and type.\n#' @export\n#' @examples\n#' ls = st_sfc(st_linestring(rbind(c(0,0),c(0,1))),\n#' \tst_linestring(rbind(c(0,0),c(10,0))))\n#' st_line_sample(ls, density = 1)\n#' ls = st_sfc(st_linestring(rbind(c(0,0),c(0,1))),\n#'\t st_linestring(rbind(c(0,0),c(.1,0))), crs = 4326)\n#' try(st_line_sample(ls, density = 1/1000)) # error\n#' st_line_sample(st_transform(ls, 3857), n = 5) # five points for each line\n#' st_line_sample(st_transform(ls, 3857), n = c(1, 3)) # one and three points\n#' st_line_sample(st_transform(ls, 3857), density = 1/1000) # one per km\n#' st_line_sample(st_transform(ls, 3857), density = c(1/1000, 1/10000)) # one per km, one per 10 km\n#' st_line_sample(st_transform(ls, 3857), density = units::set_units(1, 1/km)) # one per km\n#' # five equidistant points including start and end:\n#' st_line_sample(st_transform(ls, 3857), sample = c(0, 0.25, 0.5, 0.75, 1))\nst_line_sample = function(x, n, density, type = \"regular\", sample = NULL) {\n\tif (isTRUE(st_is_longlat(x)))\n\t\tstop(\"st_line_sample for longitude/latitude not supported; use st_segmentize?\")\n\tl = st_length(x)\n\tdistList = if (is.null(sample)) {\n\t\tn = if (missing(n)) {\n\t\t\tif (!is.null(st_crs(x)$ud_unit) && inherits(density, \"units\"))\n\t\t\t\tunits(density) = 1/st_crs(x)$ud_unit # coordinate units\n\t\t\tround(rep(density, length.out = length(l)) * l)\n\t\t} else\n\t\t\trep(n, length.out = length(l))\n\t\tregular = function(n) { (seq_len(n) - 0.5)/n }\n\t\trandom = function(n) { sort(runif(n)) }\n\t\tfn = switch(type,\n\t\t\t\t\tregular = regular,\n\t\t\t\t\trandom = random,\n\t\t\t\t\tstop(\"unknown type\"))\n\t\tlapply(seq_along(n), function(i) fn(n[i]) * l[i])\n\t} else\n\t\tlapply(seq_along(l), function(i) sample * l[i])\n\n\tx = st_geometry(x)\n\tstopifnot(inherits(x, \"sfc_LINESTRING\"))\n\tst_sfc(CPL_gdal_linestring_sample(x, distList), crs = st_crs(x))\n}\n\n#' Internal functions\n#' @keywords internal\n#' @param msg error message\n#' @export\n.stop_geos = function(msg) { #nocov start\n\ton.exit(stop(msg))\n\tlst = strsplit(msg, \" at \")[[1]]\n\tpts = scan(text = lst[[length(lst)]], quiet = TRUE)\n\tif (length(pts) == 2 && is.numeric(pts))\n \t\tassign(\".geos_error\", st_point(pts), envir=.sf_cache)\n} #nocov end\n\n#' @param dist numeric or units, vector with distance value(s), in units of the coordinates\n#' @name st_line_project_point\n#' @returns `st_line_interpolate` returns the point(s) at dist(s), when measured along (interpolated on) the line(s)\n#' @export\n#' @examples \n#' st_line_interpolate(st_as_sfc(\"LINESTRING (0 0, 1 1)\"), 1)\n#' st_line_interpolate(st_as_sfc(\"LINESTRING (0 0, 1 1)\"), 1, TRUE)\n#' # https://github.com/r-spatial/sf/issues/2542; use for geographic coordinates:\n#' l1 <- st_as_sfc(\"LINESTRING (10.1 50.1, 10.2 50.2)\", crs = 'OGC:CRS84')\n#' dists = units::set_units(seq(0, sqrt(2)/10, length.out = 5), degrees)\n#' st_line_interpolate(l1, dists)\nst_line_interpolate = function(line, dist, normalized = FALSE) {\n\tstopifnot(inherits(line, \"sfc\"), all(st_dimension(line) == 1), \n\t\tis.logical(normalized), length(normalized) == 1,\n\t\tis.numeric(dist))\n\tif (isTRUE(st_is_longlat(line))) {\n\t\tmessage_longlat(\"st_project_point\")\n\t\tif (inherits(dist, \"units\"))\n\t\t\tdist = units::set_units(dist, \"degree\", mode = \"standard\")\n\t\telse\n\t\t\tstop(\"for interpolating geographic coordinates, dist should have units degree; see examples\")\n\t}\n\tline = st_cast(line, \"LINESTRING\")\n\trecycled = recycle_common(list(line, dist))\n\tst_sfc(CPL_line_interpolate(recycled[[1]], recycled[[2]], normalized), \n\t\t crs = st_crs(line))\n}\n\n#' @export\n#' @name geos_unary\n#' @details \\code{st_exterior_ring} returns the exterior rings of polygons, removing all holes.\nst_exterior_ring = function(x, ...) UseMethod(\"st_exterior_ring\")\n\n#' @export\nst_exterior_ring.sf = function(x, ...)\n\tst_set_geometry(x, st_exterior_ring(st_geometry(x)))\n\n#' @export\nst_exterior_ring.sfg = function(x, ...)\n\tst_exterior_ring(st_sfc(x))[[1]]\n\n#' @export\nst_exterior_ring.sfc = function(x, ...) {\n\tstopifnot(all(st_dimension(x, NA_if_empty = FALSE) == 2))\n\texterior_sfg = function(x) {\n\t\tif (inherits(x, \"MULTIPOLYGON\"))\n\t\t\tst_multipolygon(lapply(st_cast(st_sfc(x), \"POLYGON\"), exterior_sfg))\n\t\telse if (inherits(x, \"POLYGON\"))\n\t\t\tst_polygon(x[1])\n\t\telse\n\t\t\tstop(paste(\"no exterior_ring method for objects of class\", class(x)[1]))\n\t}\n\tst_as_sfc(lapply(x, exterior_sfg), crs = st_crs(x))\n}\n"
},
{
"path": "R/geos-overlayng.R",
"content": "# nocov start\nis_overlayng <- function() {\n\tpl1 = st_polygon(list(matrix(c(0, 0, 2, 0, 1, 1, 0 ,0), byrow = TRUE, ncol=2)))\n\tpl2 = st_polygon(list(matrix(c(0, 0.5, 2, 0.5, 1, 1.5, 0, 0.5), byrow = TRUE, ncol = 2)))\n\tpl3 = st_polygon(list(matrix(c(0, 1.25, 2, 1.25, 1, 2.5, 0, 1.25), byrow = TRUE, ncol = 2)))\n\tin1 = st_sfc(list(pl1, pl2, pl3))\n\tcorrect_geom = st_sfc(list(\n\t\tst_polygon(list(matrix(c(0, 2, 1, 0, 0, 0, 1, 0), ncol = 2))),\n\t\tst_polygon(list(matrix(c(0, 1, 2, 1.5, 1, 0.5, 0, 0.5, 1.5, 0.5, 0.5, 1, 0.5, 0.5), ncol = 2))),\n\t\tst_polygon(list(matrix(c(0, 1, 2, 1.25, 1, 0.75, 0, 1.25, 2.5, 1.25, 1.25, 1.5, 1.25, 1.25), ncol = 2)))))\n\tout1 = st_difference(in1)\n\tisTRUE(all.equal(out1[[2]][[1]], correct_geom[[2]][[1]]))\n}\n# nocov end\n"
},
{
"path": "R/graticule.R",
"content": "st_datum = function(x) {\n\tstopifnot(inherits(x, c(\"crs\", \"sf\", \"sfc\")))\n\tif (inherits(x, \"crs\"))\n\t\tx = st_sfc(st_point(), crs = x)\n\tx = st_geometry(x) # in case inherits(x, \"sf\")\n\tdatum = st_crs(st_crs(x, parameters = TRUE)$gcs_crs)\n\tif (is.na(datum))\n\t\tst_crs('OGC:CRS84') # + message or warning?\n\telse\n\t\tdatum\n}\n\n#' Compute graticules and their parameters\n#'\n#' Compute graticules and their parameters\n#'\n#' @section Use of graticules:\n#' In cartographic visualization, the use of graticules is not advised, unless\n#' the graphical output will be used for measurement or navigation, or the\n#' direction of North is important for the interpretation of the content, or\n#' the content is intended to display distortions and artifacts created by\n#' projection. Unnecessary use of graticules only adds visual clutter but\n#' little relevant information. Use of coastlines, administrative boundaries\n#' or place names permits most viewers of the output to orient themselves\n#' better than a graticule.\n#'\n#' @export\n#' @param x object of class \\code{sf}, \\code{sfc} or \\code{sfg} or numeric vector with bounding box given as (minx, miny, maxx, maxy).\n#' @param crs object of class \\code{crs}, with the display coordinate reference system\n#' @param datum either an object of class \\code{crs} with the coordinate reference system for the graticules, or \\code{NULL} in which case a grid in the coordinate system of \\code{x} is drawn, or \\code{NA}, in which case an empty \\code{sf} object is returned. If missing and \\code{x} has a crs with a datum, the geographic coordinate system (datum) of \\code{x} is taken.\n#' @param lon numeric; values in degrees East for the meridians, associated with \\code{datum}\n#' @param lat numeric; values in degrees North for the parallels, associated with \\code{datum}\n#' @param ndiscr integer; number of points to discretize a parallel or meridian\n#' @param margin numeric; small number to trim a longlat bounding box that touches or\n#' crosses +/-180 long or +/-90 latitude.\n#' @param ... ignored\n#' @return an object of class \\code{sf} with additional attributes describing the type\n#' (E: meridian, N: parallel) degree value, label, start and end coordinates and angle;\n#' see example.\n#' @examples\n#' library(sf)\n#' if (require(maps, quietly = TRUE)) {\n#'\n#' usa = st_as_sf(map('usa', plot = FALSE, fill = TRUE))\n#' laea = st_crs(\"+proj=laea +lat_0=30 +lon_0=-95\") # Lambert equal area\n#' usa <- st_transform(usa, laea)\n#'\n#' bb = st_bbox(usa)\n#' bbox = st_linestring(rbind(c( bb[1],bb[2]),c( bb[3],bb[2]),\n#' c( bb[3],bb[4]),c( bb[1],bb[4]),c( bb[1],bb[2])))\n#'\n#' g = st_graticule(usa)\n#' plot(usa, xlim = 1.2 * c(-2450853.4, 2186391.9), reset = FALSE)\n#' plot(g[1], add = TRUE, col = 'grey')\n#' plot(bbox, add = TRUE)\n#' points(g$x_start, g$y_start, col = 'red')\n#' points(g$x_end, g$y_end, col = 'blue')\n#'\n#' invisible(lapply(seq_len(nrow(g)), function(i) {\n#'\tif (g$type[i] == \"N\" && g$x_start[i] - min(g$x_start) < 1000)\n#'\t\ttext(g$x_start[i], g$y_start[i], labels = parse(text = g$degree_label[i]), \n#'\t\t\tsrt = g$angle_start[i], pos = 2, cex = .7)\n#'\tif (g$type[i] == \"E\" && g$y_start[i] - min(g$y_start) < 1000)\n#'\t\ttext(g$x_start[i], g$y_start[i], labels = parse(text = g$degree_label[i]), \n#'\t\t\tsrt = g$angle_start[i] - 90, pos = 1, cex = .7)\n#'\tif (g$type[i] == \"N\" && g$x_end[i] - max(g$x_end) > -1000)\n#'\t\ttext(g$x_end[i], g$y_end[i], labels = parse(text = g$degree_label[i]), \n#'\t\t\tsrt = g$angle_end[i], pos = 4, cex = .7)\n#'\tif (g$type[i] == \"E\" && g$y_end[i] - max(g$y_end) > -1000)\n#'\t\ttext(g$x_end[i], g$y_end[i], labels = parse(text = g$degree_label[i]), \n#'\t\t\tsrt = g$angle_end[i] - 90, pos = 3, cex = .7)\n#' }))\n#' plot(usa, graticule = st_crs(4326), axes = TRUE, lon = seq(-60,-130,by=-10))\n#' }\nst_graticule = function(x = c(-180, -90, 180, 90), crs = st_crs(x),\n\tdatum = st_crs('OGC:CRS84'), ..., lon = NULL, lat = NULL, ndiscr = 100,\n\tmargin = 0.001)\n{\n\ts2 = sf_use_s2()\n\ton.exit(suppressMessages(sf_use_s2(s2)))\n\tsuppressMessages(sf_use_s2(FALSE))\n\n\tif (missing(x)) {\n\t\tcrs = datum\n\t\tif (is.null(lon))\n\t\t\tlon = seq(-180, 180, by = 20)\n\t\tif (is.null(lat))\n\t\t\tlat = seq(-80, 80, by = 20)\n\t} else if (missing(datum)) {\n\t\tdatum = if (inherits(x, c(\"sf\", \"sfc\")))\n\t\t\t\tst_datum(x)\n\t\t\telse\n\t\t\t\tst_datum(crs)\n\t}\n\n\tif (is.null(crs))\n\t\tcrs = NA_crs_\n\n\tif (is.null(datum))\n\t\tdatum = crs\n\n\tif (is.na(datum))\n\t\treturn(st_graticule()[0,]) # empty set, but with all variables\n\n\t# Get the bounding box of the plotting space, in crs\n\tbb = if (inherits(x, \"sf\") || inherits(x, \"sfc\") || inherits(x, \"sfg\"))\n\t\tst_bbox(x)\n\telse\n\t\tx\n\tstopifnot(is.numeric(bb), length(bb) == 4)\n\n\tif (isTRUE(st_is_longlat(crs)))\n\t\tbb = trim_bb(bb, margin)\n\n\tls1 = st_linestring(rbind(c(bb[1],bb[2]), c(bb[3],bb[2]), c(bb[3],bb[4]),\n\t\tc(bb[1],bb[4]), c(bb[1],bb[2])))\n\tls2 = st_linestring(rbind(c(bb[1],bb[2]), c(bb[3],bb[4]), c(bb[1],bb[4]),\n\t\tc(bb[3],bb[2]), c(bb[1],bb[2])))\n\tbox = st_sfc(ls1, ls2)\n\n\t# without crs, we segmentize in planar coordinates --\n\t# segmentizing along great circles doesn't give parallels:\n\tbox = st_segmentize(box, st_length(box)[1] / ndiscr)\n\n\t# and only now set the crs:\n\tst_crs(box) = crs\n\n\t# Now, in case we're not already in longlat, we convert to longlat:\n\tbox_ll = if (! is.na(crs))\n\t\tst_transform(box, datum, partial = TRUE)\n\telse {\n\t\tdatum = NA_crs_ # nocov - remove when geom_sf is on CRAN\n\t\tbox # nocov\n\t}\n\n\t# as in https://github.com/r-spatial/sf/issues/198 :\n\t# recreate, and ignore bbox_ll:\n\tif (any(!is.finite(st_bbox(box_ll)))) { # nocov start -- checked manually\n\t\tx = st_transform(st_graticule(datum = datum, ndiscr = ndiscr), crs)\n\t\tx$degree_label = NA_character_\n\t\treturn(x)\n\t} # nocov end\n\n\tbb = st_bbox(box_ll)\n\tif (is.null(lon)) {\n\t\tlon = if (bb[3] <= 180 && bb[1] < -170 && bb[3] > 170) # global, -180,180:\n\t\t\tseq(-180, 180, by = 60)\n\t\telse\n\t\t\tpretty(bb[c(1,3)], n = 6)\n\t}\n\tif (is.null(lat))\n\t\tlat = pretty(bb[c(2,4)], n = 6)\n\n\t# sanity:\n\tif (isTRUE(st_is_longlat(datum))) {\n\t\tlon = if (min(lon) >= -15 && max(lon) > 195) # +- 4%\n\t\t\tlon[lon >= 0 & lon <= 360] # assume 0,360\n\t\telse\n\t\t\tlon[lon >= -180 & lon <= 180]\n\t\tlat = lat[lat > -90 & lat < 90]\n\t}\n\n\t# widen bb if pretty() created values outside the box_ll:\n\tbb = c(min(bb[1], min(lon)), min(bb[2],min(lat)), max(bb[3], max(lon)), max(bb[4], max(lat)))\n\n\tlong_list <- vector(mode=\"list\", length=length(lon))\n\tfor (i in seq_along(long_list))\n\t\tlong_list[[i]] <- st_linestring(cbind(rep(lon[i], ndiscr), seq(bb[2], bb[4], length.out=ndiscr)))\n\n\tlat_list <- vector(mode=\"list\", length=length(lat))\n\tfor (i in seq_along(lat_list))\n\t\tlat_list[[i]] <- st_linestring(cbind(seq(bb[1], bb[3], length.out=ndiscr), rep(lat[i], ndiscr)))\n\n\tdf = data.frame(degree = c(lon, lat))\n\tdf$type = c(rep(\"E\", length(lon)), rep(\"N\", length(lat)))\n\tdf$degree_label = if (is.na(crs) || !isTRUE(st_is_longlat(datum)))\n\t\t\tc(format(lon), format(lat))\n\t\telse\n\t\t\tc(degreeLabelsEW(lon), degreeLabelsNS(lat))\n\n\tgeom = st_sfc(c(long_list, lat_list), crs = datum)\n\n\t# Now we're moving the straight lines back to curves in crs:\n\tif (!is.na(crs))\n\t\tgeom = st_transform(geom, crs)\n\n\tst_geometry(df) = geom\n\tst_agr(df) = \"constant\"\n\n\tif (! missing(x)) # cut out box:\n\t\tdf = suppressMessages(st_intersection(df, st_polygonize(box[1])))\n\n\tdf = st_line_merge(st_cast(df, \"MULTILINESTRING\"))\n\tdf = st_cast(st_cast(df, \"MULTILINESTRING\"), \"LINESTRING\", warn = FALSE)\n\tgraticule_attributes(df)\n}\n\ngraticule_attributes = function(df) {\n\tobject = st_geometry(df)\n\n\tif (nrow(df) == 0)\n\t\treturn(df)\n\n\txy = matrix(NA, nrow = length(object), ncol = 4)\n\tfor (i in seq_along(object)) {\n\t\tpts = unclass(object[[i]])\n\t\txy[i, 1:2] = pts[1,] # start\n\t\txy[i, 3:4] = pts[nrow(pts),] # end\n\t}\n\tdf$x_start = xy[,1]\n\tdf$y_start = xy[,2]\n\tdf$x_end = xy[,3]\n\tdf$y_end = xy[,4]\n\tdxdy = do.call(rbind, lapply(object, function(x) { apply(x[1:2,], 2, diff) } ))\n\tdf$angle_start = apply(dxdy, 1, function(x) atan2(x[2], x[1])*180/pi)\n\tdxdy = do.call(rbind, lapply(object,\n\t\tfunction(x) { n = nrow(x); apply(x[(n-1):n,], 2, diff) } ))\n\tdf$angle_end = apply(dxdy, 1, function(x) atan2(x[2], x[1])*180/pi)\n\tbb = st_bbox(df)\n\tselE = df$type == \"E\" & df$y_start < min(df$y_start) + 0.001 * (bb[3] - bb[1])\n\tselN = df$type == \"N\" & df$x_start < min(df$x_start) + 0.001 * (bb[4] - bb[2])\n\tdf$plot12 = selE | selN\n\tdf\n}\n\n# make sure lat stays slightly inside [-90,90], and lon inside [-180,180] or [0,360]\ntrim_bb = function(bb = c(-180, -90, 180, 90), margin) {\n\tstopifnot(margin > 0, margin <= 1.0)\n\tfr = 1.0 - margin\n\tif (min(bb[c(1,3)]) >= -1. && max(bb[c(1,3)]) > 181.) { # 0-360 span:\n\t\tbb[1] = max(bb[1], 0.)\n\t\tbb[3] = min(bb[3], 360. * fr)\n\t} else {\n\t\tbb[1] = max(bb[1], -180. * fr)\n\t\tbb[3] = min(bb[3], 180. * fr)\n\t}\n\tbb[2] = max(bb[2], -90. * fr)\n\tbb[4] = min(bb[4], 90. * fr)\n\tbb\n}\n\n# copied from sp:\ndegreeLabelsNS = function(x) {\n\tpos = sign(x) + 2\n\tdir = c(\"*S\", \"\", \"*N\")\n\tpaste0('\"', format(abs(x), digits = 10), '\"', \"*degree\", dir[pos])\n}\n\ndegreeLabelsEW = function(x) {\n\tx <- ifelse(x > 180, x - 360, x)\n\tpos = sign(x) + 2\n\tif (any(x == -180))\n\t\tpos[x == -180] = 2\n\tif (any(x == 180))\n\t\tpos[x == 180] = 2\n\tdir = c(\"*W\", \"\", \"*E\")\n\tpaste0('\"', format(abs(x), digits = 10), '\"', \"*degree\", dir[pos])\n}\n"
},
{
"path": "R/grid.R",
"content": "#' Convert sf* object to a grob\n#'\n#' Convert sf* object to an grid graphics object (grob)\n#' @param x object to be converted into an object class \\code{grob}\n#' @param ... passed on to the xxxGrob function, e.g. \\code{gp = gpar(col = 'red')}\n#' @export\nst_as_grob = function(x, ...) UseMethod(\"st_as_grob\")\n\n#' @export\nst_as_grob.POINT = function(x, pch = 1, size = unit(1, \"char\"), default.units = \"native\", name = NULL, gp = gpar(), vp = NULL, ...) {\n\tif (anyNA(x))\n\t\tnullGrob()\n\telse\n\t\tpointsGrob(x[1], x[2], pch = pch, size = size, default.units = default.units, name = name, gp = gp, vp = vp)\n}\n\n#' @export\nst_as_grob.MULTIPOINT = function(x, pch = 1, size = unit(1, \"char\"), default.units = \"native\", name = NULL, gp = gpar(), vp = NULL, ...) {\n\tif (nrow(x) == 0)\n\t\tnullGrob()\n\telse\n\t\tpointsGrob(x[,1], x[,2], pch = pch, size = size, default.units = default.units, name = name, gp = gp, vp = vp)\n}\n\n#' @export\nst_as_grob.LINESTRING = function(x, arrow = NULL, default.units = \"native\", name = NULL, gp = gpar(), vp = NULL, ...) {\n\tif (nrow(x) == 0)\n\t\tnullGrob()\n\telse\n\t\tlinesGrob(x[,1], x[,2], arrow = NULL, default.units = default.units, name = name, gp = gp, vp = vp)\n}\n\n#' @export\nst_as_grob.CIRCULARSTRING = function(x, y, ...) {\n\tst_as_grob(st_cast(x, \"LINESTRING\"), ...)\n}\n\n#' @export\nst_as_grob.MULTILINESTRING = function(x, arrow = NULL, default.units = \"native\", name = NULL, gp = gpar(), vp = NULL, ...) {\n\tif (length(x) == 0)\n\t\tnullGrob()\n\telse {\n\t\tget_x = function(x) unlist(sapply(x, function(y) y[,1]))\n\t\tget_y = function(x) unlist(sapply(x, function(y) y[,2]))\n\t\tpolylineGrob(get_x(x), get_y(x), id.lengths = vapply(x, nrow, 0L), arrow = NULL,\n\t\t\tdefault.units = default.units, name = name, gp = gp, vp = vp)\n\t}\n}\n\n#' @export\nst_as_grob.POLYGON = function(x, default.units = \"native\", rule = \"evenodd\", name = NULL, gp = gpar(), vp = NULL, ...) {\n\tif (length(x) == 0)\n\t\tnullGrob()\n\telse {\n\t\tget_x = function(x) unlist(sapply(x, function(y) y[,1]))\n\t\tget_y = function(x) unlist(sapply(x, function(y) y[,2]))\n\t\tpathGrob(get_x(x), get_y(x), id.lengths = vapply(x, nrow, 0L), default.units = default.units, rule = rule, name = name, gp = gp, vp = vp)\n\t}\n}\n\n#' @export\nst_as_grob.MULTIPOLYGON = function(x, default.units = \"native\", rule = \"evenodd\", name = NULL, gp = gpar(), vp = NULL, ...) {\n\tif (length(x) == 0)\n\t\tnullGrob()\n\telse {\n\t\tget_x = function(x) unlist(sapply(x, function(y) sapply(y, function(z) z[,1])))\n\t\tget_y = function(x) unlist(sapply(x, function(y) sapply(y, function(z) z[,2])))\n\t\tget_l = function(x) unlist(sapply(x, function(y) vapply(y, nrow, 0L)))\n\t\tpathGrob(get_x(x), get_y(x), id.lengths = get_l(x), default.units = default.units, rule = rule, name = name, gp = gp, vp = vp)\n\t}\n}\n\n#' @export\nst_as_grob.GEOMETRYCOLLECTION = function(x, ...) {\n\tif (length(x) == 0)\n\t\tnullGrob()\n\telse\n\t\tdo.call(grid::grobTree, lapply(x, st_as_grob, ...))\n}\n\n#' @export\nst_as_grob.MULTISURFACE = st_as_grob.GEOMETRYCOLLECTION\n\n#' @export\nst_as_grob.CURVEPOLYGON = st_as_grob.GEOMETRYCOLLECTION\n\n#' @export\nst_as_grob.COMPOUNDCURVE = st_as_grob.GEOMETRYCOLLECTION\n\n\n#' Create viewport from sf, sfc or sfg object\n#'\n#' Create viewport from sf, sfc or sfg object\n#' @param x object of class sf, sfc or sfg object\n#' @param bbox the bounding box used for aspect ratio\n#' @param asp numeric; target aspect ratio (y/x), see Details\n#' @param ... parameters passed on to \\link[grid]{viewport}\n#' @details parameters \\code{width}, \\code{height}, \\code{xscale} and \\code{yscale} are set such that aspect ratio is honoured and plot size is maximized in the current viewport; others can be passed as \\code{...}\n#' @return The output of the call to \\link[grid]{viewport}\n#' @details If \\code{asp} is missing, it is taken as 1, except when \\code{isTRUE(st_is_longlat(x))}, in which case it is set to \\code{1.0 /cos(y)}, with \\code{y} the middle of the latitude bounding box.\n#' @examples\n#' library(grid)\n#' nc = st_read(system.file(\"shape/nc.shp\", package=\"sf\"))\n#' grid.newpage()\n#' pushViewport(viewport(width = 0.8, height = 0.8))\n#' pushViewport(st_viewport(nc))\n#' invisible(lapply(st_geometry(nc), function(x) grid.draw(st_as_grob(x, gp = gpar(fill = 'red')))))\n#' @export\nst_viewport = function(x, ..., bbox = st_bbox(x), asp) {\n\txscale = bbox[c(1,3)]\n\tyscale = bbox[c(2,4)]\n\n\t# from rgdal2/R/graphics.R:\n\tcurrent.viewport.size = function(units = \"inches\") {\n \tvp = current.viewport()\n\t\tvi = convertHeight(vp$height, units, valueOnly = TRUE)\n\t\twi = convertWidth(vp$width, units, valueOnly = TRUE)\n \tc(width = wi, height = vi)\n\t}\n\tcurrent.viewport.aspect = function() {\n \tsz = current.viewport.size()\n \tsz[2] / sz[1]\n\t}\n\tvp.asp = current.viewport.aspect()\n\tif (missing(asp))\n\t\tasp = if (isTRUE(st_is_longlat(x)))\n\t\t\t1.0 / cos((mean(yscale) * pi)/180)\n\t\telse\n\t\t\t1.0\n\n \tobj.asp = asp * diff(yscale) / diff(xscale)\n\theight = obj.asp / vp.asp\n \twidth = 1\n \twidth = width / max(width, height)\n \theight = height / max(width, height)\n\tviewport(width = unit(width, \"npc\"), height = unit(height, \"npc\"),\n \t\txscale = unit(xscale, \"native\"), yscale = unit(yscale, \"native\"), ...)\n}\n\n#' @export\nst_as_grob.sfc_POINT <- function(x, pch = 1, size = unit(1, \"char\"), default.units = \"native\", name = NULL, gp = gpar(), vp = NULL, ...) {\n\tif (any(is_e <- st_is_empty(x))) {\n\t\tgp = gp[!is_e]\n\t\tx = x[!is_e]\n\t}\n\tif (length(x)) {\n\t\tx <- matrix(unlist(x, use.names = FALSE), ncol = length(x))\n\t\tpointsGrob(x[1, ], x[2, ], pch = pch, size = size,\n\t\t\t\t default.units = default.units, name = name, gp = gp, vp = vp)\n\t} else\n\t\tnullGrob()\n}\n#' @export\n#' @importFrom grid gpar\nst_as_grob.sfc_MULTIPOINT <- function(x, pch = 1, size = unit(1, \"char\"), default.units = \"native\", name = NULL, gp = gpar(), vp = NULL, ...) {\n\tif (any(is_e <- st_is_empty(x))) {\n\t\tgp = gp[!is_e]\n\t\tx = x[!is_e]\n\t}\n\tif (length(x)) {\n\t\tx <- unclass(x)\n\t\tn_points <- vapply(x, nrow, integer(1))\n\t\tgp <- expand_gp(gp, n_points)\n\t\tif (length(pch) != 1) pch <- rep(rep(pch, length.out = length(x)), n_points)\n\t\tif (length(size) != 1) size <- rep(rep(size, length.out = length(x)), n_points)\n\t\tx <- do.call(rbind, x)\n\t\tpointsGrob(x[, 1], x[, 2], pch = pch, size = size, \n\t\t\t\t default.units = default.units, name = name, gp = gp, vp = vp)\n\t} else\n\t\tnullGrob()\n}\n#' @export\nst_as_grob.sfc_LINESTRING <- function(x, arrow = NULL, default.units = \"native\", name = NULL, gp = gpar(), vp = NULL, ...) {\n\tif (any(is_e <- st_is_empty(x))) {\n\t\tgp = gp[!is_e]\n\t\tx = x[!is_e]\n\t}\n\tif (length(x)) {\n\t\tx <- unclass(x)\n\t\tn_points <- vapply(x, nrow, integer(1))\n\t\tx <- do.call(rbind, x)\n\t\tpolylineGrob(x[, 1], x[, 2], id.lengths = n_points, arrow = arrow, \n\t\t\t\t\t default.units = default.units, name = name, gp = gp, vp = vp)\n\t} else\n\t\tnullGrob()\n}\n#' @export\nst_as_grob.sfc_MULTILINESTRING <- function(x, arrow = NULL, default.units = \"native\", name = NULL, gp = gpar(), vp = NULL, ...) {\n\tif (any(is_e <- st_is_empty(x))) {\n\t\tgp = gp[!is_e]\n\t\tx = x[!is_e]\n\t}\n\tif (length(x)) {\n\t\tx <- unclass(x)\n\t\tn_lines <- vapply(x, length, integer(1))\n\t\tgp <- expand_gp(gp, n_lines)\n\t\tif (!is.null(arrow) && length(arrow) != 1) arrow <- rep(rep(arrow, length.out = length(x)), n_lines)\n\t\tx <- unlist(x, recursive = FALSE)\n\t\tn_points <- vapply(x, nrow, integer(1))\n\t\tx <- do.call(rbind, x)\n\t\tpolylineGrob(x[, 1], x[, 2], id.lengths = n_points, arrow = arrow, \n\t\t\t\t\t default.units = default.units, name = name, gp = gp, vp = vp)\n\t} else\n\t\tnullGrob()\n}\n#' @export\nst_as_grob.sfc_POLYGON <- function(x, rule = \"evenodd\", default.units = \"native\", name = NULL, gp = gpar(), vp = NULL, ...) {\n\tif (utils::packageVersion(\"grid\") < \"3.6\") {\n\t\treturn(scalar_grobs(x, rule = rule, default.units = default.units, name = name, gp = gp, vp = vp, ...)) # nocov\n\t}\n\tif (any(is_e <- st_is_empty(x))) {\n\t\tgp = gp[!is_e]\n\t\tx = x[!is_e]\n\t}\n\tif (length(x)) {\n\t\tx <- unclass(x) # nocov start\n\t\tn_poly <- vapply(x, length, integer(1))\n\t\tx <- unlist(x, recursive = FALSE)\n\t\tn_points <- vapply(x, nrow, integer(1))\n\t\tn_paths <- tapply(n_points, rep(seq_along(n_poly), n_poly), sum)\n\t\tx <- do.call(rbind, x)\n\t\tpathGrob(x[, 1], x[, 2], id.lengths = n_points, pathId.lengths = n_paths, \n\t\t\t\t rule = rule, default.units = default.units, name = name, gp = gp, vp = vp) # nocov end\n\t} else\n\t\tnullGrob()\n}\n#' @export\nst_as_grob.sfc_MULTIPOLYGON <- function(x, rule = \"evenodd\", default.units = \"native\", name = NULL, gp = gpar(), vp = NULL, ...) {\n\tif (utils::packageVersion(\"grid\") < \"3.6\") {\n\t\treturn(scalar_grobs(x, rule = rule, default.units = default.units, name = name, gp = gp, vp = vp, ...)) # nocov\n\t}\n\tif (any(is_e <- st_is_empty(x))) {\n\t\tgp = gp[!is_e]\n\t\tx = x[!is_e]\n\t}\n\tif (length(x)) {\n\t\tx <- unclass(x) # nocov start\n\t\tn_poly <- vapply(x, length, integer(1))\n\t\tgp <- expand_gp(gp, n_poly)\n\t\tx <- unlist(x, recursive = FALSE)\n\t\tn_poly <- vapply(x, length, integer(1))\n\t\tx <- unlist(x, recursive = FALSE)\n\t\tn_points <- vapply(x, nrow, integer(1))\n\t\tn_paths <- tapply(n_points, rep(seq_along(n_poly), n_poly), sum)\n\t\tx <- do.call(rbind, x)\n\t\tpathGrob(x[, 1], x[, 2], id.lengths = n_points, pathId.lengths = n_paths, \n\t\t\t\t rule = rule, default.units = default.units, name = name, gp = gp, vp = vp) # nocov end\n\t} else\n\t\tnullGrob()\n}\n#' @export\nst_as_grob.sfc_CIRCULARSTRING <- function(x, ...) {\n\tst_as_grob(st_cast(x, 'LINESTRING'), ...) # nocov\n}\n#' @export\n#' @importFrom grid gList\nst_as_grob.sfc <- function(x, pch = 1, size = unit(1, \"char\"), arrow = NULL, gp = gpar(), ...) {\n\told_length <- length(x)\n\tx <- st_cast_sfc_default(x)\n\tids <- attr(x, 'ids')\n\tif (!is.null(ids)) {\n\t\t# x was a geometrycollection that has been unlisted. Need to match gpar\n\t\tif (length(pch) > 1) {\n\t\t\tpch <- rep(rep_len(pch, old_length), ids)\n\t\t}\n\t\tif (length(size) > 1) {\n\t\t\tsize <- rep(rep_len(size, old_length), ids)\n\t\t}\n\t\tif (length(arrow) > 1) {\n\t\t\tarrow <- rep(rep_len(arrow, old_length), ids)\n\t\t}\n\t\tfor (par in names(gp)) {\n\t\t\tif (length(gp[[par]]) > 1) {\n\t\t\t\tgp[[par]] <- rep(rep_len(gp[[par]], old_length), ids)\n\t\t\t}\n\t\t}\n\t}\n\tif (class(x)[1] %in% c('sfc_MULTIPOINT', 'sfc_MULTILINESTRING', 'sfc_MULTIPOLYGON'))\n\t\tst_as_grob(x, pch = pch, size = size, arrow = arrow, gp = gp, ...)\n\telse\n\t\tscalar_grobs(x, pch, size, arrow, gp, ...)\n}\n\nscalar_grobs <- function(x, pch = 1, size = unit(1, \"char\"), arrow = NULL, gp = gpar(), ...) {\n\tgp <- split_gp(gp, length(x))\n\tpch <- rep(pch, length.out = length(x))\n\tsize <- rep(size, length.out = length(x))\n\tif (!is.null(arrow)) arrow <- rep(arrow, length.out = length(x))\n\tdo.call(gList, lapply(seq_along(x), function(i) {\n\t\tst_as_grob(x[[i]], pch = pch[i], size = size[i], arrow = arrow[i], gp = gp[[i]], ...)\n\t}))\n}\n\nexpand_gp <- function(gp, n) {\n\tif (length(gp) == 0) return(gp)\n\tgp <- unclass(gp)\n\tn_gp <- vapply(gp, length, integer(1))\n\tgp[n_gp > 1] <- lapply(gp[n_gp > 1], rep, n)\n\t`class<-`(gp, 'gpar')\n}\nsplit_gp <- function(gp, n) {\n\tgp <- unclass(gp)\n\tgp <- lapply(gp, rep_len, n)\n\tlapply(seq_len(n), function(i) {\n\t\t`class<-`(lapply(gp, `[`, i), 'gpar')\n\t})\n}\n"
},
{
"path": "R/import-standalone-s3-register.R",
"content": "# Standalone file: do not edit by hand\n# Source: \n# ----------------------------------------------------------------------\n#\n# ---\n# repo: r-lib/rlang\n# file: standalone-s3-register.R\n# last-updated: 2022-08-29\n# license: https://unlicense.org\n# ---\n#\n# nocov start\n\n#' Register a method for a suggested dependency\n#'\n#' Generally, the recommended way to register an S3 method is to use the\n#' `S3Method()` namespace directive (often generated automatically by the\n#' `@export` roxygen2 tag). However, this technique requires that the generic\n#' be in an imported package, and sometimes you want to suggest a package,\n#' and only provide a method when that package is loaded. `s3_register()`\n#' can be called from your package's `.onLoad()` to dynamically register\n#' a method only if the generic's package is loaded.\n#'\n#' For R 3.5.0 and later, `s3_register()` is also useful when demonstrating\n#' class creation in a vignette, since method lookup no longer always involves\n#' the lexical scope. For R 3.6.0 and later, you can achieve a similar effect\n#' by using \"delayed method registration\", i.e. placing the following in your\n#' `NAMESPACE` file:\n#'\n#' ```\n#' if (getRversion() >= \"3.6.0\") {\n#' S3method(package::generic, class)\n#' }\n#' ```\n#'\n#' @section Usage in other packages:\n#' To avoid taking a dependency on vctrs, you copy the source of\n#' [`s3_register()`](https://github.com/r-lib/rlang/blob/main/R/standalone-s3-register.R)\n#' into your own package. It is licensed under the permissive\n#' [unlicense](https://choosealicense.com/licenses/unlicense/) to make it\n#' crystal clear that we're happy for you to do this. There's no need to include\n#' the license or even credit us when using this function.\n#'\n#' @param generic Name of the generic in the form `\"pkg::generic\"`.\n#' @param class Name of the class\n#' @param method Optionally, the implementation of the method. By default,\n#' this will be found by looking for a function called `generic.class`\n#' in the package environment.\n#' @examples\n#' # A typical use case is to dynamically register tibble/pillar methods\n#' # for your class. That way you avoid creating a hard dependency on packages\n#' # that are not essential, while still providing finer control over\n#' # printing when they are used.\n#'\n#' .onLoad <- function(...) {\n#' s3_register(\"pillar::pillar_shaft\", \"vctrs_vctr\")\n#' s3_register(\"tibble::type_sum\", \"vctrs_vctr\")\n#' }\n#' @keywords internal\n#' @noRd\ns3_register <- function(generic, class, method = NULL) {\n stopifnot(is.character(generic), length(generic) == 1)\n stopifnot(is.character(class), length(class) == 1)\n\n pieces <- strsplit(generic, \"::\")[[1]]\n stopifnot(length(pieces) == 2)\n package <- pieces[[1]]\n generic <- pieces[[2]]\n\n caller <- parent.frame()\n\n get_method_env <- function() {\n top <- topenv(caller)\n if (isNamespace(top)) {\n asNamespace(environmentName(top))\n } else {\n caller\n }\n }\n get_method <- function(method) {\n if (is.null(method)) {\n get(paste0(generic, \".\", class), envir = get_method_env())\n } else {\n method\n }\n }\n\n register <- function(...) {\n envir <- asNamespace(package)\n\n # Refresh the method each time, it might have been updated by\n # `devtools::load_all()`\n method_fn <- get_method(method)\n stopifnot(is.function(method_fn))\n\n\n # Only register if generic can be accessed\n if (exists(generic, envir)) {\n registerS3method(generic, class, method_fn, envir = envir)\n } else if (identical(Sys.getenv(\"NOT_CRAN\"), \"true\")) {\n warn <- .rlang_s3_register_compat(\"warn\")\n\n warn(c(\n sprintf(\n \"Can't find generic `%s` in package %s to register S3 method.\",\n generic,\n package\n ),\n \"i\" = \"This message is only shown to developers using devtools.\",\n \"i\" = sprintf(\"Do you need to update %s to the latest version?\", package)\n ))\n }\n }\n\n # Always register hook in case package is later unloaded & reloaded\n setHook(packageEvent(package, \"onLoad\"), function(...) {\n register()\n })\n\n # For compatibility with R < 4.1.0 where base isn't locked\n is_sealed <- function(pkg) {\n identical(pkg, \"base\") || environmentIsLocked(asNamespace(pkg))\n }\n\n # Avoid registration failures during loading (pkgload or regular).\n # Check that environment is locked because the registering package\n # might be a dependency of the package that exports the generic. In\n # that case, the exports (and the generic) might not be populated\n # yet (#1225).\n if (isNamespaceLoaded(package) && is_sealed(package)) {\n register()\n }\n\n invisible()\n}\n\n.rlang_s3_register_compat <- function(fn, try_rlang = TRUE) {\n # Compats that behave the same independently of rlang's presence\n out <- switch(\n fn,\n is_installed = return(function(pkg) requireNamespace(pkg, quietly = TRUE))\n )\n\n # Only use rlang if it is fully loaded (#1482)\n if (try_rlang &&\n requireNamespace(\"rlang\", quietly = TRUE) &&\n environmentIsLocked(asNamespace(\"rlang\"))) {\n switch(\n fn,\n is_interactive = return(rlang::is_interactive)\n )\n\n # Make sure rlang knows about \"x\" and \"i\" bullets\n if (utils::packageVersion(\"rlang\") >= \"0.4.2\") {\n switch(\n fn,\n abort = return(rlang::abort),\n warn = return((rlang::warn)),\n inform = return(rlang::inform)\n )\n }\n }\n\n # Fall back to base compats\n\n is_interactive_compat <- function() {\n opt <- getOption(\"rlang_interactive\")\n if (!is.null(opt)) {\n opt\n } else {\n interactive()\n }\n }\n\n format_msg <- function(x) paste(x, collapse = \"\\n\")\n switch(\n fn,\n is_interactive = return(is_interactive_compat),\n abort = return(function(msg) stop(format_msg(msg), call. = FALSE)),\n warn = return(function(msg) warning(format_msg(msg), call. = FALSE)),\n inform = return(function(msg) message(format_msg(msg)))\n )\n\n stop(sprintf(\"Internal error in rlang shims: Unknown function `%s()`.\", fn))\n}\n\n# nocov end\n"
},
{
"path": "R/init.R",
"content": "#' @importFrom utils head object.size str tail packageVersion compareVersion globalVariables\n#' @importFrom stats aggregate dist na.omit rbinom runif setNames\n#' @importFrom tools file_ext file_path_sans_ext\n#' @importFrom methods as new slot slotNames slot<-\n#' @importFrom grid convertHeight convertUnit convertWidth current.viewport linesGrob nullGrob pathGrob pointsGrob polylineGrob unit viewport\n#' @import graphics\n#' @importFrom grDevices dev.size rgb cm\n#' @importFrom DBI dbConnect dbDisconnect dbExecute dbGetQuery dbReadTable dbSendQuery dbWriteTable\n#' @importFrom units as_units drop_units make_unit_label set_units\n#' @importFrom classInt classIntervals\n#' @useDynLib sf, .registration=TRUE\nNULL\n\nsetOldClass(\"sf\")\nsetOldClass(c(\"sfc_POINT\", \"sfc\"))\nsetOldClass(c(\"sfc_MULTIPOINT\", \"sfc\"))\nsetOldClass(c(\"sfc_LINESTRING\", \"sfc\"))\nsetOldClass(c(\"sfc_MULTILINESTRING\", \"sfc\"))\nsetOldClass(c(\"sfc_POLYGON\", \"sfc\"))\nsetOldClass(c(\"sfc_MULTIPOLYGON\", \"sfc\"))\nsetOldClass(c(\"sfc_GEOMETRY\", \"sfc\"))\nsetOldClass(c(\"sfc_GEOMETRYCOLLECTION\", \"sfc\"))\nsetOldClass(\"sfg\")\nsetOldClass(\"crs\")\nsetOldClass(\"bbox\")\n\n.sf_cache <- new.env(FALSE, parent=globalenv())\n\npathGrob <- NULL\n.onLoad = function(libname, pkgname) {\n\tif (getRversion() < as.numeric_version(\"3.6\")) { # nocov start\n\t\tpathGrob <<- function(..., pathId.lengths) {\n\t\t\tgrid::pathGrob(...)\n\t\t}\n\t} # nocov end\n\tload_gdal() \n\tif ((s2 <- Sys.getenv(\"_SF_USE_S2\")) != \"\")\n\t\toptions(sf_use_s2 = s2 != \"false\")\n\tFULL_bbox_ <<- st_set_crs(FULL_bbox_, \"OGC:CRS84\")\n}\n\n.onUnload = function(libname, pkgname) {\n\tunload_gdal() # nocov\n}\n\n.onAttach = function(libname, pkgname) {\n\tm = paste0(\"Linking to GEOS \", strsplit(CPL_geos_version(TRUE), \"-\")[[1]][1],\n\t\t\", GDAL \", CPL_gdal_version(), \", PROJ \", CPL_proj_version(),\n\t\t\"; sf_use_s2() is \", sf_use_s2())\n\tm = strwrap(m, width = getOption(\"width\"))\n\tpackageStartupMessage(paste0(m, collapse = \"\\n\"))\n\tif (length(grep(CPL_geos_version(FALSE, TRUE), CPL_geos_version(TRUE))) != 1) { # nocov start\n\t\tpackageStartupMessage(\"WARNING: different compile-time and runtime versions for GEOS found:\")\n\t\tpackageStartupMessage(paste(\n\t\t\t\"Linked against:\", CPL_geos_version(TRUE, TRUE),\n\t\t\t\"compiled against:\", CPL_geos_version(FALSE, TRUE)))\n\t\tpackageStartupMessage(\"It is probably a good idea to reinstall sf (and maybe lwgeom too)\")\n\t} # nocov end\n}\n\n#' Provide the external dependencies versions of the libraries linked to sf\n#'\n#' Provide the external dependencies versions of the libraries linked to sf\n#' @export\nsf_extSoftVersion = function() {\n\tstructure(c(CPL_geos_version(), CPL_gdal_version(), CPL_proj_version(), \n\t\tifelse(CPL_gdal_with_geos(), \"true\", \"false\"),\n\t\tifelse(CPL_proj_h(), \"true\", \"false\"), CPL_proj_version()),\n\t\tnames = c(\"GEOS\", \"GDAL\", \"proj.4\", \"GDAL_with_GEOS\", \"USE_PROJ_H\", \"PROJ\"))\n}\n\nsave_and_replace = function(var, value, where) {\n\tif (Sys.getenv(var) != \"\")\n\t\tassign(paste0(\".sf.\", var), Sys.getenv(var), envir = where)\n\t# Sys.setenv(var = value) uses NSE and will set var, not the variable var points to:\n\tdo.call(Sys.setenv, setNames(list(value), var))\n}\n\nif_exists_restore = function(vars, where) {\n\tfn = function(var, where) {\n\t\tlname = paste0(\".sf.\", var)\n\t\tif (!is.null(get0(lname, envir = where)))\n\t\t\tdo.call(Sys.setenv, setNames(list(get(lname, envir = where)), var)) # see above\n\t}\n\tlapply(vars, fn, where = where)\n}\n\nload_gdal <- function() {\n\tif (!identical(Sys.getenv(\"R_SF_USE_PROJ_DATA\"), \"true\")) {\n\t\tif (file.exists(prj <- system.file(\"proj\", package = \"sf\")[1])) {\n\t\t\t# nocov start\n\t\t\tif (! sf_proj_search_paths(prj)) { # if TRUE, uses C API to set path, leaving PROJ_LIB / PROJ_DATA alone\n\t\t\t\tsave_and_replace(\"PROJ_LIB\", prj, .sf_cache)\n\t\t\t\tsave_and_replace(\"PROJ_DATA\", prj, .sf_cache)\n\t\t\t}\n\t\t\t# CPL_use_proj4_init_rules(1L)\n\t\t\t# nocov end\n\t\t}\n\t\tif (file.exists(gdl <- system.file(\"gdal\", package = \"sf\")[1]))\n\t\t\tsave_and_replace(\"GDAL_DATA\", gdl, .sf_cache)\n\t}\n\tCPL_gdal_init()\n\tregister_all_s3_methods() # dynamically registers non-imported pkgs (tidyverse)\n}\n\nunload_gdal <- function() {\n\tCPL_gdal_cleanup_all()\n\tif_exists_restore(c(\"PROJ_LIB\", \"PROJ_DATA\", \"GDAL_DATA\"), .sf_cache)\n}\n \n\n#' @export\n#' @name sf_project\n#' @details \\code{sf_add_proj_units} loads the PROJ units `link`, `us_in`, `ind_yd`, `ind_ft`, and `ind_ch` into the udunits database, and returns \\code{TRUE} invisibly on success.\n#' @examples\n#' sf_add_proj_units()\nsf_add_proj_units = function() {\n\t#nocov start\n\tunits::install_unit(\"link\", \"0.201168 m\")\n\tunits::install_unit(\"us_in\", \"1./39.37 m\")\n\tunits::install_unit(\"ind_yd\", \"0.91439523 m\")\n\tunits::install_unit(\"ind_ft\", \"0.30479841 m\")\n\tunits::install_unit(\"ind_ch\", \"20.11669506 m\")\n\tinvisible(TRUE)\n\t#nocov end\n}\n"
},
{
"path": "R/jitter.R",
"content": "\n#' jitter geometries\n#' @param x object of class \\code{sf} or \\code{sfc}\n#' @param amount numeric; amount of jittering applied; if missing, the amount is set to factor * the bounding box diagonal; units of coordinates.\n#' @param factor numeric; fractional amount of jittering to be applied\n#' @details jitters coordinates with an amount such that \\code{runif(1, -amount, amount)} is added to the coordinates. x- and y-coordinates are jittered independently but all coordinates of a single geometry are jittered with the same amount, meaning that the geometry shape does not change. For longlat data, a latitude correction is made such that jittering in East and North directions are identical in distance in the center of the bounding box of \\code{x}.\n#' @examples\n#' nc = st_read(system.file(\"gpkg/nc.gpkg\", package=\"sf\"))\n#' pts = st_centroid(st_geometry(nc))\n#' plot(pts)\n#' plot(st_jitter(pts, .05), add = TRUE, col = 'red')\n#' plot(st_geometry(nc))\n#' plot(st_jitter(st_geometry(nc), factor = .01), add = TRUE, col = '#ff8888')\n#' @export\nst_jitter = function(x, amount, factor = 0.002) { \n\tstopifnot(inherits(x, \"sf\") || inherits(x, \"sfc\"))\n\tbb = st_bbox(x)\n\tif (missing(amount))\n\t\tamount = factor * sqrt(diff(bb[c(3,1)])^2 + diff(bb[c(4,2)])^2)\n\tay = amount\n\tax = if (isTRUE(st_is_longlat(x)))\n\t\tamount * cos(pi * mean(bb[c(2,4)]) / 180)\n\telse\n\t\tamount\n f = function(z, amount_x, amount_y) {\n\t\tst_point(c(runif(1L, -amount_x, amount_x),\n\t\t runif(1L, -amount_y, amount_y)))\n\t}\n\tgeom = st_geometry(x)\n\tgeom = st_set_crs(geom + lapply(geom, f, amount_x = ax, amount_y = ay), st_crs(x))\n\tif (inherits(x, \"sf\"))\n\t\tst_set_geometry(x, geom)\n\telse\n\t\tgeom\n}\n"
},
{
"path": "R/join.R",
"content": "check_join = function(x, y) {\n\tif (inherits(y, \"sf\"))\n\t\tstop(\"y should not have class sf; for spatial joins, use st_join\", call. = FALSE)\n}\n\nsf_join = function(g, sf_column, suffix_x = \".x\") {\n\tif (!(sf_column %in% names(g))) {\n\t\tsf_column = paste0(sf_column, suffix_x)\n\t\tstopifnot(sf_column %in% names(g))\n\t}\n\tattr(g[[ sf_column ]], \"bbox\") = NULL # remove, so that st_sfc() recomputes:\n\tg[[ sf_column ]] = st_sfc(g[[ sf_column ]])\n\tst_sf(g, sf_column_name = sf_column)\n}\n\n#' @name tidyverse\n#' @inheritParams dplyr::inner_join\ninner_join.sf = function(x, y, by = NULL, copy = FALSE, suffix = c(\".x\", \".y\"), ...) {\n\tcheck_join(x, y)\n\tclass(x) = setdiff(class(x), \"sf\")\n\tsf_join(NextMethod(), attr(x, \"sf_column\"), suffix[1])\n}\n\n#' @name tidyverse\nleft_join.sf = function(x, y, by = NULL, copy = FALSE, suffix = c(\".x\", \".y\"), ...) {\n\tcheck_join(x, y)\n\tclass(x) = setdiff(class(x), \"sf\")\n\tsf_join(NextMethod(), attr(x, \"sf_column\"), suffix[1])\n}\n\n#' @name tidyverse\nright_join.sf = function(x, y, by = NULL, copy = FALSE, suffix = c(\".x\", \".y\"), ...) {\n\tcheck_join(x, y)\n\tclass(x) = setdiff(class(x), \"sf\")\n\tsf_join(NextMethod(), attr(x, \"sf_column\"), suffix[1])\n}\n\n#' @name tidyverse\nfull_join.sf = function(x, y, by = NULL, copy = FALSE, suffix = c(\".x\", \".y\"), ...) {\n\tcheck_join(x, y)\n\tclass(x) = setdiff(class(x), \"sf\")\n\tsf_join(NextMethod(), attr(x, \"sf_column\"), suffix[1])\n}\n\n#' @name tidyverse\nsemi_join.sf = function(x, y, by = NULL, copy = FALSE, suffix = c(\".x\", \".y\"), ...) {\n\tcheck_join(x, y)\n\tclass(x) = setdiff(class(x), \"sf\")\n\tsf_join(NextMethod(), attr(x, \"sf_column\"), suffix[1])\n}\n\n#' @name tidyverse\nanti_join.sf = function(x, y, by = NULL, copy = FALSE, suffix = c(\".x\", \".y\"), ...) {\n\tcheck_join(x, y)\n\tclass(x) = setdiff(class(x), \"sf\")\n\tsf_join(NextMethod(), attr(x, \"sf_column\"), suffix[1])\n}\n\n\n#' spatial join, spatial filter\n#'\n#' spatial join, spatial filter\n#' @name st_join\n#' @export\nst_join = function(x, y, join, ...) UseMethod(\"st_join\")\n\n#' @name st_join\n#' @param x object of class \\code{sf}\n#' @param y object of class \\code{sf}\n#' @param join geometry predicate function with the same profile as \\link{st_intersects}; see details\n#' @param suffix length 2 character vector; see \\link[base]{merge}\n#' @param ... for \\code{st_join}: arguments passed on to the \\code{join} function or to \\code{st_intersection} when \\code{largest} is \\code{TRUE}; for \\code{st_filter} arguments passed on to the \\code{.predicate} function, e.g. \\code{prepared}, or a pattern for \\link{st_relate}\n#' @param left logical; if \\code{TRUE} return the left join, otherwise an inner join; see details.\n#' see also \\link[dplyr:mutate-joins]{left_join}\n#' @param largest logical; if \\code{TRUE}, return \\code{x} features augmented with the fields of \\code{y} that have the largest overlap with each of the features of \\code{x}; see https://github.com/r-spatial/sf/issues/578\n#' \n#' @details alternative values for argument \\code{join} are:\n#' \\itemize{\n#' \\item \\link{st_contains_properly},\n#' \\item \\link{st_contains},\n#' \\item \\link{st_covered_by},\n#' \\item \\link{st_covers},\n#' \\item \\link{st_crosses},\n#' \\item \\link{st_disjoint},\n#' \\item \\link{st_equals_exact},\n#' \\item \\link{st_equals},\n#' \\item \\link{st_is_within_distance},\n#' \\item \\link{st_nearest_feature},\n#' \\item \\link{st_overlaps},\n#' \\item \\link{st_touches},\n#' \\item \\link{st_within},\n#' \\item \\link{st_relate} (which will require `pattern` to be set),\n#' \\item or any user-defined function of the same profile as the above\n#' }\n#' A left join returns all records of the \\code{x} object with \\code{y} fields for non-matched records filled with \\code{NA} values; an inner join returns only records that spatially match.\n#' \n#' To replicate the results of \\code{st_within(x, y)} you will need to use \\code{st_join(x, y, join = \"st_within\", left = FALSE)}.\n#'\n#' @return an object of class \\code{sf}, joined based on geometry\n#' @examples\n#' a = st_sf(a = 1:3,\n#' geom = st_sfc(st_point(c(1,1)), st_point(c(2,2)), st_point(c(3,3))))\n#' b = st_sf(a = 11:14,\n#' geom = st_sfc(st_point(c(10,10)), st_point(c(2,2)), st_point(c(2,2)), st_point(c(3,3))))\n#' st_join(a, b)\n#' st_join(a, b, left = FALSE)\n#' # two ways to aggregate y's attribute values outcome over x's geometries:\n#' j = st_join(a, b)\n#' aggregate(j, list(j$a.x), mean)\n#' if (require(dplyr, quietly = TRUE)) {\n#' st_join(a, b) |> group_by(a.x) |> summarise(mean(a.y))\n#' }\n#' # example of largest = TRUE:\n#' nc <- st_transform(st_read(system.file(\"shape/nc.shp\", package=\"sf\")), 2264) \n#' gr = st_sf(\n#' label = apply(expand.grid(1:10, LETTERS[10:1])[,2:1], 1, paste0, collapse = \" \"),\n#' geom = st_make_grid(st_as_sfc(st_bbox(nc))))\n#' gr$col = sf.colors(10, categorical = TRUE, alpha = .3)\n#' # cut, to check, NA's work out:\n#' gr = gr[-(1:30),]\n#' nc_j <- st_join(nc, gr, largest = TRUE)\n#' # the two datasets:\n#' opar = par(mfrow = c(2,1), mar = rep(0,4))\n#' plot(st_geometry(nc_j))\n#' plot(st_geometry(gr), add = TRUE, col = gr$col)\n#' text(st_coordinates(st_centroid(gr)), labels = gr$label)\n#' # the joined dataset:\n#' plot(st_geometry(nc_j), border = 'black', col = nc_j$col)\n#' text(st_coordinates(st_centroid(nc_j)), labels = nc_j$label, cex = .8)\n#' plot(st_geometry(gr), border = 'green', add = TRUE)\n#' par(opar)\n#' # st_filter keeps the geometries in x where .predicate(x,y) returns any match in y for x\n#' st_filter(a, b)\n#' # for an anti-join, use the union of y\n#' st_filter(a, st_union(b), .predicate = st_disjoint)\n#' @export\nst_join.sf = function(x, y, join = st_intersects, ..., suffix = c(\".x\", \".y\"), \n\t\tleft = TRUE, largest = FALSE) {\n\n\tif (!inherits(y, \"sf\"))\n\t\tstop(\"second argument should be of class sf: maybe revert the first two arguments?\") # nocov\n\n\ti = if (largest) {\n\t\tx$.grp_a = seq_len(nrow(x))\n\t\ty$.grp_b = seq_len(nrow(y))\n\t\tst_intersection(x, y, ...)\n\t} else \n\t\tjoin(x, y, ...)\n\n\tst_geometry(y) = NULL\n\twhich.x = which(names(x) %in% names(y))\n\twhich.y = which(names(y) %in% names(x))\n\tif (length(which.x))\n\t\tnames(x)[which.x] = paste0(names(x)[which.x], suffix[1])\n\tif (length(which.y))\n\t\tnames(y)[which.y] = paste0(names(y)[which.y], suffix[2])\n\n\t# create match index ix & i:\n\tif (largest) {\n\t\tx$.grp_a = y$.grp_b = NULL # clean up\n\t\ti$.size = if (all(st_dimension(i) < 2)) st_length(i) else st_area(i)\n\t\tl = lapply(split(i, i$.grp_a), function(x) x[which.max(x$.size), ]$.grp_b)\n\t\tix = as.integer(names(l)) # non-empty x features\n\t\ti = unlist(l) # matching largest y feature\n\t\tif (left) { # fill NA's\n\t\t\tidx = rep(NA_integer_, nrow(x)) # all x features\n\t\t\tidx[ix] = i\n\t\t\tix = seq_len(nrow(x))\n\t\t\ti = idx\n\t\t}\n\t} else {\n\t\tif (left) # fill NA y values when no match:\n\t\t\ti = lapply(i, function(x) { if (length(x) == 0) NA_integer_ else x })\n\t\tix = rep(seq_len(nrow(x)), lengths(i))\n\t}\n\tif (inherits(x, \"tbl_df\") && requireNamespace(\"dplyr\", quietly = TRUE))\n\t\tst_sf(dplyr::bind_cols(x[ix,], y[unlist(i), , drop = FALSE]))\n \telse\n\t\tst_sf(cbind(as.data.frame(x)[ix, ,drop=FALSE], y[unlist(i), , drop = FALSE]))\n}\n\n#' @export\n#' @name st_join\nst_filter = function(x, y, ...) UseMethod(\"st_filter\")\n\n#' @export\n#' @name st_join\n#' @param .predicate geometry predicate function with the same profile as \\link{st_intersects}; see details\nst_filter.sf = function(x, y, ..., .predicate = st_intersects) {\n\tif (!requireNamespace(\"dplyr\", quietly = TRUE))\n\t\tstop(\"dplyr is not installed: install first?\")\n\n dplyr::filter(x, lengths(.predicate(!!x, !!y, ...)) > 0) # will call filter.sf\n}\n"
},
{
"path": "R/m_range.R",
"content": "\n#' @name st_m_range\n#' @param x object of class \\code{m_range}\n#' @export\nis.na.m_range = function(x) identical(x, NA_m_range_)\n\nmb_wrap = function(mb) {\n\tstopifnot(is.numeric(mb), length(mb) == 2)\n\tstructure(mb, names = c(\"mmin\", \"mmax\"), class = \"m_range\")\n}\n\nm_range.Set = function(obj, ...) {\n\tsel = vapply(obj, function(x) { length(x) && !all(is.na(x)) }, TRUE)\n\tif (! any(sel))\n\t\tNA_m_range_\n\telse\n\t\tmb_wrap(CPL_get_m_range(unclass(obj)[sel], 0))\n}\nm_range.Mtrx = function(obj, ...) {\n\tif (length(obj) == 0)\n\t\tNA_m_range_\n\telse\n\t\tmb_wrap(CPL_get_m_range(list(obj), 1)) # note the list()\n}\nm_range.MtrxSet = function(obj, ...) {\n\tif (length(obj) == 0)\n\t\tNA_m_range_\n\telse\n\t\tmb_wrap(CPL_get_m_range(obj, 1))\n}\nm_range.MtrxSetSet = function(obj, ...) {\n\tif (length(obj) == 0)\n\t\tNA_m_range_\n\telse\n\t\tmb_wrap(CPL_get_m_range(obj, 2))\n}\nm_range.MtrxSetSetSet = function(obj, ...) {\n\tif (length(obj) == 0)\n\t\tNA_m_range_\n\telse\n\t\tmb_wrap(CPL_get_m_range(obj, 3))\n}\n\n#' Return 'm' range of a simple feature or simple feature set\n#'\n#' Return 'm' range of a simple feature or simple feature set\n#' @param obj object to compute the m range from\n#' @param ... ignored\n#' @export\n#' @return a numeric vector of length two, with \\code{mmin} and \\code{mmax} values;\n#' if \\code{obj} is of class \\code{sf} or \\code{sfc} the object\n#' if \\code{obj} is of class \\code{sf} or \\code{sfc} the object\n#' returned has a class \\code{m_range}\n#' @name st_m_range\n#' @examples\n#' a = st_sf(a = 1:2, geom = st_sfc(st_point(0:3), st_point(1:4)), crs = 4326)\n#' st_m_range(a)\nst_m_range = function(obj, ...) UseMethod(\"st_m_range\")\n\n#' @export\n#' @name st_m_range\nst_m_range.POINT = function(obj, ...) mb_wrap(if (inherits(obj, \"XYM\")) c(obj[3L], obj[3L]) else c(obj[4L],obj[4L]))\n#' @export\n#' @name st_m_range\nst_m_range.MULTIPOINT = m_range.Mtrx\n#' @export\n#' @name st_m_range\nst_m_range.LINESTRING = m_range.Mtrx\n#' @export\n#' @name st_m_range\nst_m_range.POLYGON = m_range.MtrxSet\n#' @export\n#' @name st_m_range\nst_m_range.MULTILINESTRING = m_range.MtrxSet\n#' @export\n#' @name st_m_range\nst_m_range.MULTIPOLYGON = m_range.MtrxSetSet\n\nm_range_list = function(obj, ...) {\n\ts = vapply(obj, st_m_range, c(0.,0.)) # dispatch on class\n\tif (length(s) == 0 || all(is.na(s[1L,])))\n\t\tNA_m_range_\n\telse\n\t\tmb_wrap(c(min(s[1L,], na.rm = TRUE), max(s[2L,], na.rm = TRUE)))\n}\n\n#' @name st_m_range\n#' @export\nst_m_range.GEOMETRYCOLLECTION = m_range_list\n\n#' @name st_m_range\n#' @export\nst_m_range.MULTISURFACE = m_range_list\n\n#' @name st_m_range\n#' @export\nst_m_range.MULTICURVE = m_range_list\n\n#' @name st_m_range\n#' @export\nst_m_range.CURVEPOLYGON = m_range_list\n\n#' @name st_m_range\n#' @export\nst_m_range.COMPOUNDCURVE = m_range_list\n\n#' @name st_m_range\n#' @export\nst_m_range.POLYHEDRALSURFACE = m_range.MtrxSetSet\n\n#' @name st_m_range\n#' @export\nst_m_range.TIN = m_range.MtrxSetSet\n\n#' @name st_m_range\n#' @export\nst_m_range.TRIANGLE = m_range.MtrxSet\n\n#' @name st_m_range\n#' @export\nst_m_range.CIRCULARSTRING = function(obj, ...) {\n\t# this is of course wrong:\n\tst_m_range(st_cast(obj, \"LINESTRING\")) # nocov\n}\n\n#' @export\nprint.m_range = function(x, ...) {\n\tx = structure(x, crs = NULL, class = NULL) # nocov\n\tprint(set_units(x, attr(x, \"units\"), mode = \"standard\")) # nocov\n}\n\ncompute_m_range = function(obj) {\n\tswitch(class(obj)[1],\n\t\t sfc_POINT = mb_wrap(m_range.Set(obj)),\n\t\t sfc_MULTIPOINT = mb_wrap(m_range.MtrxSet(obj)),\n\t\t sfc_LINESTRING = mb_wrap(m_range.MtrxSet(obj)),\n\t\t sfc_POLYGON = mb_wrap(m_range.MtrxSetSet(obj)),\n\t\t sfc_MULTILINESTRING = mb_wrap(m_range.MtrxSetSet(obj)),\n\t\t sfc_MULTIPOLYGON = mb_wrap(m_range.MtrxSetSetSet(obj)),\n\t\t m_range_list(obj)\n\t)\n}\n\n#' @name st_m_range\n#' @export\nst_m_range.sfc = function(obj, ...) {\n\ta = attr(obj, \"m_range\")\n\tif(is.null(a)) return( NULL ) ## TODO return null?\n\tstructure(a, crs = st_crs(obj))\n}\n#' @name st_m_range\n#' @export\nst_m_range.sf = function(obj, ...) st_m_range(st_geometry(obj))\n\n#' @name st_m_range\n#' @param crs object of class \\code{crs}, or argument to \\link{st_crs}, specifying the CRS of this bounding box.\n#' @examples\n#' st_m_range(c(mmin = 16.1, mmax = 16.6), crs = st_crs(4326))\n#' @export\nst_m_range.numeric = function(obj, ..., crs = NA_crs_) {\n\tstructure(mb_wrap(obj[c(\"mmin\", \"mmax\")]), crs = st_crs(crs)) # nocov\n}\n\n#' @export\nst_m_range.m_range = function(obj, ...) obj # nocov\n\n\n#' @export\n\"$.m_range\" = function(x, name) { # nocov start\n\tswitch(name,\n\t\t mmin = x[\"mmin\"],\n\t\t mmax = x[\"mmax\"],\n\t\t stop(\"unsupported name\")\n\t)\n} # nocov end\n\n#' @name st_m_range\n#' @details \\code{NA_m_range_} represents the missing value for a \\code{m_range} object\n#' @export\nNA_m_range_ = structure(rep(NA_real_, 2),\n\t\t\t\t\t names = c(\"mmin\", \"mmax\"),\n\t\t\t\t\t crs = NA_crs_,\n\t\t\t\t\t class = \"m_range\")\n"
},
{
"path": "R/make_grid.R",
"content": "#' Create a regular tesselation over the bounding box of an sf or sfc object\n#'\n#' Create a square or hexagonal grid covering the bounding box of the geometry of an sf or sfc object\n#' @param x object of class \\link{sf} or \\link{sfc}\n#' @param cellsize numeric of length 1 or 2 with target cellsize: for square or rectangular cells the width and height, for hexagonal cells the distance between opposite edges (edge length is cellsize/sqrt(3)). A length units object can be passed, or an area unit object with area size of the square or hexagonal cell.\n#' @param offset numeric of length 2; lower left corner coordinates (x, y) of the grid\n#' @param n integer of length 1 or 2, number of grid cells in x and y direction (columns, rows)\n#' @param crs object of class \\code{crs}; coordinate reference system of the target grid in case argument \\code{x} is missing, if \\code{x} is not missing, its crs is inherited.\n#' @param what character; one of: \\code{\"polygons\"}, \\code{\"corners\"}, or \\code{\"centers\"}\n#' @param square logical; if \\code{FALSE}, create hexagonal grid\n#' @param flat_topped logical; if \\code{TRUE} generate flat topped hexagons, else generate pointy topped\n#' @return Object of class \\code{sfc} (simple feature geometry list column) with, depending on \\code{what} and \\code{square},\n#' square or hexagonal polygons, corner points of these polygons, or center points of these polygons.\n#' @examples\n#' plot(st_make_grid(what = \"centers\"), axes = TRUE)\n#' plot(st_make_grid(what = \"corners\"), add = TRUE, col = 'green', pch=3)\n#' sfc = st_sfc(st_polygon(list(rbind(c(0,0), c(1,0), c(1,1), c(0,0)))))\n#' plot(st_make_grid(sfc, cellsize = .1, square = FALSE))\n#' plot(sfc, add = TRUE)\n#' # non-default offset:\n#' plot(st_make_grid(sfc, cellsize = .1, square = FALSE, offset = c(0, .05 / (sqrt(3)/2))))\n#' plot(sfc, add = TRUE)\n#' nc = st_read(system.file(\"shape/nc.shp\", package=\"sf\"))\n#' g = st_make_grid(nc)\n#' plot(g)\n#' plot(st_geometry(nc), add = TRUE)\n#' # g[nc] selects cells that intersect with nc:\n#' plot(g[nc], col = '#ff000088', add = TRUE)\n#' @export\nst_make_grid = function(x,\n\t\tcellsize = c(diff(st_bbox(x)[c(1,3)]), diff(st_bbox(x)[c(2,4)]))/n,\n\t\toffset = st_bbox(x)[c(\"xmin\", \"ymin\")], n = c(10, 10),\n\t\tcrs = if (missing(x)) NA_crs_ else st_crs(x),\n\t\twhat = \"polygons\", square = TRUE, flat_topped = FALSE) {\n\n\tif (!inherits(crs, \"crs\"))\n\t\tcrs = st_crs(crs) # #2057\n\tif (missing(x) && missing(cellsize) && missing(offset)\n\t\t\t&& missing(n) && missing(crs)) # create global 10 x 10 degree grid\n\t\treturn(st_make_grid(cellsize = c(10,10), offset = c(-180,-90), n = c(36,18),\n\t\t\tcrs = st_crs(4326), what = what))\n\n\tif (! square) { # hexagons:\n\t\tif (!is.null(crs$ud_unit)) {\n\t\t\tif (inherits(cellsize, \"units\")) {\n\t\t\t\tif (units::ud_are_convertible(units(cellsize), \"m^2\")) { # size in area\n\t\t\t\t\t# convert: https://github.com/r-spatial/sf/issues/1505\n\t\t\t\t\ta = sqrt(cellsize * 2 / (3 * sqrt(3)))\n\t\t\t\t\tcellsize = a * sqrt(3)\n\t\t\t\t}\n\t\t\t\tunits(cellsize) = units(crs$ud_unit)\n\t\t\t\tcellsize = units::drop_units(cellsize)\n\t\t\t}\n\t\t\tif (inherits(offset, \"units\")) {\n\t\t\t\tunits(offset) = units(crs$ud_unit)\n\t\t\t\toffset = units::drop_units(offset)\n\t\t\t}\n\t\t}\n\t\thex = make_hex_grid(x, dx = cellsize[1]/sqrt(3), pt = offset, what = what, \n\t\t\tflat_topped = flat_topped)\n\t\tif (what == \"corners\")\n\t\t\thex = st_cast(hex, \"POINT\")[x]\n\t\treturn(hex)\n\t}\n\n\tbb = if (!missing(n) && !missing(offset) && !missing(cellsize)) {\n\t\tcellsize = rep(cellsize, length.out = 2)\n\t\tn = rep(n, length.out = 2)\n\t\tbb_wrap(c(offset, offset + n * cellsize))\n\t} else\n\t\tst_bbox(x)\n\n\tcellsize_missing = if (! missing(cellsize)) {\n\t\tcellsize = rep(cellsize, length.out = 2)\n\t\tFALSE\n\t} else\n\t\tTRUE\n\n\tif (!is.null(crs$ud_unit)) {\n\t\tif (inherits(cellsize, \"units\")) {\n\t\t\tif (units::ud_are_convertible(units(cellsize), \"m^2\")) # size in area\n\t\t\t\tcellsize = sqrt(cellsize)\n\t\t\tunits(cellsize) = units(crs$ud_unit)\n\t\t\tcellsize = units::drop_units(cellsize)\n\t\t}\n\t\tif (inherits(offset, \"units\")) {\n\t\t\tunits(offset) = units(crs$ud_unit)\n\t\t\toffset = units::drop_units(offset)\n\t\t}\n\t}\n\n\tif (missing(n)) {\n\t\tnx = ceiling((bb[3] - offset[1])/cellsize[1])\n\t\tny = ceiling((bb[4] - offset[2])/cellsize[2])\n\t} else {\n\t\tn = rep(n, length.out = 2)\n\t\tnx = n[1]\n\t\tny = n[2]\n\t}\n\n\t# corner points:\n\tif (cellsize_missing) {\n\t\txc = seq(offset[1], bb[3], length.out = nx + 1)\n\t\tyc = seq(offset[2], bb[4], length.out = ny + 1)\n\t} else {\n\t\txc = offset[1] + (0:nx) * cellsize[1]\n\t\tyc = offset[2] + (0:ny) * cellsize[2]\n\t}\n\n\tif (what == \"polygons\") {\n\t\tret = vector(\"list\", nx * ny)\n\t\tsquare = function(x1, y1, x2, y2)\n\t\t\tst_polygon(list(matrix(c(x1, x2, x2, x1, x1, y1, y1, y2, y2, y1), 5)))\n\t\tfor (i in 1:nx)\n\t\t\tfor (j in 1:ny)\n\t\t\t\tret[[(j - 1) * nx + i]] = square(xc[i], yc[j], xc[i+1], yc[j+1])\n\t\tst_sfc(ret, crs = crs)\n\t} else if (what == \"centers\") {\n\t\te = expand.grid(x = xc[-1] - 0.5 * diff(xc[1:2]), \n\t\t\t\t\t\ty = yc[-1] - 0.5 * diff(yc[1:2]), \n\t\t\t\t\t\tKEEP.OUT.ATTRS = FALSE)\n\t\tst_geometry(st_as_sf(e, coords = c(\"x\", \"y\"), crs = crs))\n\t} else if (what == \"corners\") {\n\t\te = expand.grid(x = xc, y = yc, KEEP.OUT.ATTRS = FALSE)\n\t\tst_geometry(st_as_sf(e, coords = c(\"x\", \"y\"), crs = crs))\n\t} else\n\t\tstop(\"unknown value of `what'\")\n}\n\n### hex grid tesselation that\n## - covers a bounding box st_bbox(obj)\n## - contains pt\n## - has x spacing dx: the shortest distance between x coordinates with identical y coordinate\nmake_hex_grid = function(obj, pt, dx, what, flat_topped = TRUE) {\n\n\tdy = sqrt(3) * dx / 2\n\tbb = st_bbox(obj)\n\tif (!flat_topped) { # pointy topped -- swap x and y:\n\t\tylim = bb[c(\"xmin\", \"xmax\")]\n\t\txlim = bb[c(\"ymin\", \"ymax\")]\n\t\tpt = pt[2:1]\n\t} else {\n\t\txlim = bb[c(\"xmin\", \"xmax\")]\n\t\tylim = bb[c(\"ymin\", \"ymax\")]\n\t}\n\toffset = c(x = (pt[1] - xlim[1]) %% dx, y = (pt[2] - ylim[1]) %% (2 * dy))\n\tx0 = seq(xlim[1] - dx, xlim[2] + 2 * dx, dx) + offset[1]\n\ty0 = seq(ylim[1] - 2 * dy, ylim[2] + 2 * dy, dy) + offset[2]\n\n\ty <- rep(y0, each = length(x0))\n\tx <- rep(c(x0, x0 + dx / 2), length.out = length(y))\n\txy = cbind(x, y) # the coordinates\n\n\t# compute the indexes, using double coordinates:\n\todd <- seq(1, by = 2, length.out = length(x0))\n\teven <- seq(2, by = 2, length.out = length(x0))\n\txi <- rep(c(odd, even), length.out = length(y))\n\tyi <- rep(seq_along(y0), each = length(x0))\n\t# hexagon centers are columns with x index 3, 6, 9, ... :\n\tcenters = cbind(xi,yi)[xi %in% seq(3, max(xi) - 2, by = 3) & yi > 1 & yi < max(yi),]\n\n\t# relative offset in double coordinates, https://www.redblobgames.com/grids/hexagons/\n\tnx = length(x0)\n\txy_pattern = rbind(c(-2,0), c(-1,-1), c(1,-1), c(2,0), c(1,1), c(-1,1), c(-2,0))\n\ti_from_x = function(x) ((x[,1] - 1) %/% 2 + 1) + (x[,2] - 1) * nx\n\n\tmk_point = if (flat_topped)\n\t\t\tfunction(center) st_point(xy[i_from_x(matrix(center, ncol = 2)),])\n\t\telse\n\t\t\tfunction(center) st_point(xy[i_from_x(matrix(center, ncol = 2)),2:1])\n\n\tmk_pol = if (flat_topped)\n\t\t\tfunction(center) {\n\t\t\t\tm = matrix(center, ncol=2, nrow = 7, byrow=TRUE) + xy_pattern\n\t\t\t\tst_polygon(list(xy[i_from_x(m),]))\n\t\t\t}\n\t\telse\n\t\t\tfunction(center) {\n\t\t\t\tm = matrix(center, ncol=2, nrow = 7, byrow=TRUE) + xy_pattern\n\t\t\t\tst_polygon(list(xy[i_from_x(m),2:1]))\n\t\t\t}\n\n\tif (what == \"centers\")\n\t\tst_sfc(lapply(seq_len(nrow(centers)), function(i) mk_point(centers[i,])), crs = st_crs(bb))\n\telse # points:\n\t\tst_sfc(lapply(seq_len(nrow(centers)), function(i) mk_pol(centers[i,])), crs = st_crs(bb))\n}\n"
},
{
"path": "R/maps.R",
"content": "NAmat2xyList <- function(xy) {\n\tNAs <- unclass(attr(na.omit(xy), \"na.action\"))\n\tif ((length(NAs) == 1L) && (NAs == nrow(xy))) {\n\t\txy <- xy[-nrow(xy)] # nocov\n\t\tNAs <- NULL # nocov\n\t}\n# NA problem found by Edzer Pebesma, 24/8-06\n\tdiffNAs <- diff(NAs)\n\tif (any(diffNAs == 1)) {\n\t\txy <- xy[-(NAs[which(diffNAs == 1)] + 1), ] # nocov\n\t\tNAs <- unclass(attr(na.omit(xy), \"na.action\")) # nocov\n\t}\n\tnParts <- length(NAs) + 1L\n# two NAs at end of file 070905 RSB\n# no NAs at all RSB 080814\n\tif (!is.null(NAs) && nrow(xy) == NAs[length(NAs)])\n nParts <- nParts - 1\n\tres <- vector(mode=\"list\", length=nParts)\n\tfrom <- integer(nParts)\n\tto <- integer(nParts)\n\tfrom[1] <- 1\n\tto[nParts] <- nrow(xy)\n# two NAs at end of file 070905 RSB\n# no NAs at all RSB 080814\n\tif (!is.null(NAs) && nrow(xy) == NAs[length(NAs)])\n\t\tto[nParts] <- to[nParts] - 1\n\tif (nParts > 1) {\n\t\tfor (i in 2:nParts) {\n\t\t\tto[(i-1)] <- NAs[(i-1)]-1\n\t\t\tfrom[i] <- NAs[(i-1)]+1\n\t\t}\n\t}\n\tfor (i in seq_len(nParts))\n\t\tres[[i]] <- xy[from[i]:to[i],, drop = FALSE]\n\tres\n}\n\nmap2pol = function(xyList, ID) {\n\t# close rings:\n\txyList = lapply(xyList, ClosePol)\n\t# group into MULTIPOLYGON:\n\tuID = unique(ID)\n\tret = vector(\"list\", length(uID))\n\tfor (g in seq_along(uID))\n\t\tret[[g]] = st_multipolygon(lapply(xyList[ uID[g] == ID ], function(x) list(x)))\n\tst_sfc(ret)\n}\n\nmap2lin = function(xyList, ID) {\n\t# group into MULTILINESTRING:\n\tuID = unique(ID)\n\tret = vector(\"list\", length(uID))\n\tfor (g in seq_along(uID)) {\n x = xyList[uID[g] == ID]\n x = x[!sapply(x, is.null)]\n ret[[g]] = st_multilinestring(x)\n }\n#\t\tret[[g]] = st_multilinestring(xyList[ uID[g] == ID ])\n\tst_sfc(ret)\n}\n\n\n#' @export\n#' @name st_as_sf\n#' @param fill logical; the value for \\code{fill} that was used in the call to \\link[maps]{map}.\n#' @param group logical; if \\code{TRUE}, group id labels from \\link[maps]{map} by their prefix before \\code{:}\nst_as_sf.map = function(x, ..., fill = TRUE, group = TRUE) {\n\tID = if (group)\n\t\t\tvapply(strsplit(x$names, \":\"), function(y) y[1], \"\")\n\t\telse \n\t\t\tx$names\n\txyList <- NAmat2xyList(cbind(x$x, x$y))\n\tgeom = if (fill)\n\t\t\tmap2pol(xyList, ID)\n\t\telse\n\t\t\tmap2lin(xyList, ID)\n\tID = unique(ID)\n\tstopifnot(length(ID) == length(geom))\n\tst_sf(ID = ID, geom = geom, crs = \"+proj=longlat +ellps=clrk66 +no_defs +type=crs\", row.names = ID)\n}\n\n\n#' @export\n#' @name st_as_sfc\nst_as_sfc.map = function(x, ...) {\n\tst_geometry(st_as_sf(x, ...))\n}\n"
},
{
"path": "R/nearest.R",
"content": "#' get nearest points between pairs of geometries\n#' \n#' get nearest points between pairs of geometries\n#' @param x object of class \\code{sfg}, \\code{sfc} or \\code{sf}\n#' @param y object of class \\code{sfg}, \\code{sfc} or \\code{sf}; needs to have the same number of geometries of `x` when `by_element=TRUE`\n#' @param by_element logical; if \\code{FALSE} (default) return nearest points between all possible pairs, if \\code{TRUE}, return nearest points between row-wise x-y pairs.\n#' @param pairwise logical; deprecated in favour of `by_element`\n#' @param ... ignored\n#' @seealso \\link{st_nearest_feature} for finding the nearest feature\n#' @return an \\link{sfc} object with all two-point \\code{LINESTRING} geometries of point pairs from the first to the second geometry, of length x * y if `by_element=FALSE` (with y cycling fastest), or lf length `length(x)` when `by_element=TRUE`. See examples for ideas how to convert these to \\code{POINT} geometries.\n#' @details in case \\code{x} lies inside \\code{y}, when using S2, the end points \n#' are on polygon boundaries, when using GEOS the end point are identical to \\code{x}.\n#' @examples\n#' r = sqrt(2)/10\n#' pt1 = st_point(c(.1,.1))\n#' pt2 = st_point(c(.9,.9))\n#' pt3 = st_point(c(.9,.1))\n#' b1 = st_buffer(pt1, r)\n#' b2 = st_buffer(pt2, r)\n#' b3 = st_buffer(pt3, r)\n#' (ls0 = st_nearest_points(b1, b2)) # sfg\n#' (ls = st_nearest_points(st_sfc(b1), st_sfc(b2, b3))) # sfc\n#' plot(b1, xlim = c(-.2,1.2), ylim = c(-.2,1.2), col = NA, border = 'green')\n#' plot(st_sfc(b2, b3), add = TRUE, col = NA, border = 'blue')\n#' plot(ls, add = TRUE, col = 'red')\n#' \n#' nc = st_read(system.file(\"gpkg/nc.gpkg\", package=\"sf\"))\n#' plot(st_geometry(nc))\n#' ls = st_nearest_points(nc[1,], nc)\n#' plot(ls, col = 'red', add = TRUE)\n#' pts = st_cast(ls, \"POINT\") # gives all start & end points\n#' # starting, \"from\" points, corresponding to x:\n#' plot(pts[seq(1, 200, 2)], add = TRUE, col = 'blue')\n#' # ending, \"to\" points, corresponding to y:\n#' plot(pts[seq(2, 200, 2)], add = TRUE, col = 'green')\n#' \n#' @export\nst_nearest_points = function(x, y, ..., by_element = FALSE) UseMethod(\"st_nearest_points\")\n\n#' @export\n#' @name st_nearest_points\nst_nearest_points.sfc = function(x, y, ..., pairwise = by_element, by_element = FALSE) {\n\tstopifnot(st_crs(x) == st_crs(y))\n\tlonglat = isTRUE(st_is_longlat(x))\n\tif (longlat && sf_use_s2()) {\n\t\tret = if (pairwise)\n\t\t\t\ts2::s2_minimum_clearance_line_between(x, y)\n\t\t\telse\n\t\t\t\tdo.call(c, lapply(x, s2::s2_minimum_clearance_line_between, y))\n\t\tst_as_sfc(ret, crs = st_crs(x))\n\t} else {\n\t\tif (longlat)\n\t\t\tmessage_longlat(\"st_nearest_points\")\n\t\tst_sfc(CPL_geos_nearest_points(x, st_geometry(y), pairwise), crs = st_crs(x))\n\t}\n}\n \n#' @export\n#' @name st_nearest_points\nst_nearest_points.sfg = function(x, y, ...) {\n\tst_nearest_points(st_geometry(x), st_geometry(y), ...)\n}\n\n#' @export\n#' @name st_nearest_points\nst_nearest_points.sf = function(x, y, ...) {\n\tst_nearest_points(st_geometry(x), st_geometry(y), ...)\n}\n\n#' get index of nearest feature\n#' \n#' get index of nearest feature\n#' @param x object of class \\code{sfg}, \\code{sfc} or \\code{sf}\n#' @param y object of class \\code{sfg}, \\code{sfc} or \\code{sf}; if missing, features in \\code{x} will be compared to all remaining features in \\code{x}.\n#' @param ... ignored\n#' @param check_crs logical; should \\code{x} and \\code{y} be checked for CRS equality?\n#' @param longlat logical; does \\code{x} have ellipsoidal coordinates?\n#' @return for each feature (geometry) in \\code{x} the index of the nearest feature (geometry) in \n#' set \\code{y}, or in the remaining set of \\code{x} if \\code{y} is missing;\n#' empty geometries result in \\code{NA} indexes\n#' @seealso \\link{st_nearest_points} for finding the nearest points for pairs of feature geometries\n#' @export\n#' @examples\n#' ls1 = st_linestring(rbind(c(0,0), c(1,0)))\n#' ls2 = st_linestring(rbind(c(0,0.1), c(1,0.1)))\n#' ls3 = st_linestring(rbind(c(0,1), c(1,1)))\n#' (l = st_sfc(ls1, ls2, ls3))\n#' \n#' p1 = st_point(c(0.1, -0.1))\n#' p2 = st_point(c(0.1, 0.11))\n#' p3 = st_point(c(0.1, 0.09))\n#' p4 = st_point(c(0.1, 0.9))\n#' \n#' (p = st_sfc(p1, p2, p3, p4))\n#' try(st_nearest_feature(p, l))\n#' try(st_nearest_points(p, l[st_nearest_feature(p,l)], pairwise = TRUE))\n#' \n#' r = sqrt(2)/10\n#' b1 = st_buffer(st_point(c(.1,.1)), r)\n#' b2 = st_buffer(st_point(c(.9,.9)), r)\n#' b3 = st_buffer(st_point(c(.9,.1)), r)\n#' circles = st_sfc(b1, b2, b3)\n#' plot(circles, col = NA, border = 2:4)\n#' pts = st_sfc(st_point(c(.3,.1)), st_point(c(.6,.2)), st_point(c(.6,.6)), st_point(c(.4,.8)))\n#' plot(pts, add = TRUE, col = 1)\n#' # draw points to nearest circle:\n#' nearest = try(st_nearest_feature(pts, circles))\n#' if (inherits(nearest, \"try-error\")) # GEOS 3.6.1 not available\n#' nearest = c(1, 3, 2, 2)\n#' ls = st_nearest_points(pts, circles[nearest], pairwise = TRUE)\n#' plot(ls, col = 5:8, add = TRUE)\n#' # compute distance between pairs of nearest features:\n#' st_distance(pts, circles[nearest], by_element = TRUE)\nst_nearest_feature = function(x, y, ..., check_crs = TRUE, longlat = isTRUE(st_is_longlat(x))) {\n\n\tif (missing(y)) { # https://github.com/r-spatial/s2/issues/111#issuecomment-835306261\n\t\tlonglat = force(longlat) # evaluate only once\n\t\tx = st_geometry(x)\n\t\tind <- vapply(\n\t\t\tseq_along(x),\n\t\t\tfunction(i) st_nearest_feature(x[i], x[-i], check_crs = FALSE, longlat = longlat),\n\t\t\tinteger(1)\n\t\t)\n\t\tifelse(ind >= seq_along(x), ind + 1, ind)\n\t} else {\n\t\tif (check_crs)\n\t\t\tstopifnot(st_crs(x) == st_crs(y))\n\t\tif (longlat && sf_use_s2())\n\t\t\ts2::s2_closest_feature(x, y)\n\t\telse {\n\t\t\tif (longlat)\n\t\t\t\tmessage_longlat(\"st_nearest_feature\")\n\t\t\tCPL_geos_nearest_feature(st_geometry(x), st_geometry(y))\n\t\t}\n\t}\n}\n"
},
{
"path": "R/normalize.R",
"content": "#' Normalize simple features\n#'\n#' \\code{st_normalize} transforms the coordinates in the input feature to fall\n#' between 0 and 1. By default the current domain is set to the bounding box of\n#' the input, but other domains can be used as well\n#'\n#' @param x object of class sf, sfc or sfg\n#' @param domain The domain \\code{x} should be normalized from as a length 4\n#' vector of the form \\code{c(xmin, ymin, xmax, ymax)}. Defaults to the\n#' bounding box of \\code{x}\n#' @param ... ignored\n#'\n#' @export\n#'\n#' @examples\n#' p1 = st_point(c(7,52))\n#' st_normalize(p1, domain = c(0, 0, 10, 100))\n#'\n#' p2 = st_point(c(-30,20))\n#' sfc = st_sfc(p1, p2, crs = 4326)\n#' sfc\n#' sfc_norm <- st_normalize(sfc)\n#' st_bbox(sfc_norm)\n#'\nst_normalize <- function(x, domain = st_bbox(x), ...) {\n\tUseMethod(\"st_normalize\")\n}\n\n#' @export\nst_normalize.sfg <- function(x, domain = st_bbox(x), ...) {\n\t(x - domain[c(1, 2)]) / diag(c(domain[3] - domain[1], domain[4] - domain[2]))\n}\n\n#' @export\nst_normalize.sfc <- function(x, domain = st_bbox(x), ...) {\n\tdomain <- as.numeric(domain)\n\tif (length(x) == 0) return(x)\n\tmin <- -domain[c(1, 2)]\n\trange <- 1 / c(domain[3] - domain[1], domain[4] - domain[2])\n\tif (any(is.infinite(range)) || any(range < 0)) {\n\t\tstop(\"domain must have a positive range\") # nocov\n\t}\n\tnormalize_sfc(x, min, range, NA_crs_)\n}\n\n#' @export\nst_normalize.sf <- function(x, domain = st_bbox(x), ...) {\n\tx[[ attr(x, \"sf_column\") ]] = st_normalize(st_geometry(x), domain, ...)\n\tx\n}\n"
},
{
"path": "R/plot.R",
"content": "kw_dflt = function(x, key.pos) {\n\tif (is.null(key.pos) || key.pos[1] == 0) # no key:\n\t\treturn(lcm(0))\n\n\tfont_scale = par(\"ps\") / 12\n\tif (key.pos[1] == -1)\n\t\tlcm(1.8 * font_scale)\n\telse if (key.pos[1] %in% c(2, 4) && (is.character(x[[1]]) || is.factor(x[[1]]))) {\n\t\tstrings = if (is.factor(x[[1]]))\n\t\t\t\tlevels(x[[1]])\n\t\t\telse\n\t\t\t\tx[[1]]\n\t\tlcm(cm(max(strwidth(strings, \"inches\"))) * 1.3 + font_scale) # cm\n\t\t#lcm(cm(max(strwidth(strings, \"inches\"))) * 1.3) # cm\n\t} else\n\t\tlcm(1.8 * font_scale)\n}\n\n# like cut.default, but only return integers, and allow for duplicate breaks:\nsf_cut = function(values, breaks, include.lowest = TRUE) {\n\ti = findInterval(values, breaks, left.open = TRUE)\n\tif (include.lowest)\n\t\ti[values == breaks[1]] = 1\n\ti[i == 0 | i == length(breaks)] = NA\n\ti\n}\n\n#' plot sf object\n#'\n#' plot one or more attributes of an sf object on a map\n#' Plot sf object\n#'\n#' @param x object of class sf\n#' @param y ignored\n#' @param ... further specifications, see \\link{plot_sf} and \\link{plot} and details.\n#' @param main title for plot (\\code{NULL} to remove)\n#' @param pal palette function, similar to \\link{rainbow}, or palette values; if omitted, \\code{sf.colors} is used\n#' @param nbreaks number of colors breaks (ignored for \\code{factor} or \\code{character} variables)\n#' @param breaks either a numeric vector with the actual breaks, or a name of a method accepted by the \\code{style} argument of \\link[classInt]{classIntervals}\n#' @param max.plot integer; lower boundary to maximum number of attributes to plot; the default value (9) can be overridden by setting the global option \\code{sf_max.plot}, e.g. \\code{options(sf_max.plot=2)}\n#' @param key.pos numeric; side to plot a color key: 1 bottom, 2 left, 3 top, 4 right; set to \\code{NULL} to omit key completely, 0 to only not plot the key, or -1 to select automatically. If multiple columns are plotted in a single function call by default no key is plotted and every submap is stretched individually; if a key is requested (and \\code{col} is missing) all maps are colored according to a single key. Auto select depends on plot size, map aspect, and, if set, parameter \\code{asp}. If it has lenght 2, the second value, ranging from 0 to 1, determines where the key is placed in the available space (default: 0.5, center).\n#' @param key.width amount of space reserved for the key (incl. labels), thickness/width of the scale bar\n#' @param key.length amount of space reserved for the key along its axis, length of the scale bar\n#' @param pch plotting symbol\n#' @param cex symbol size\n#' @param bg symbol background color\n#' @param lty line type\n#' @param lwd line width\n#' @param col color for plotting features; if \\code{length(col)} does not equal 1 or \\code{nrow(x)}, a warning is emitted that colors will be recycled. Specifying \\code{col} suppresses plotting the legend key.\n#' @param border color of polygon border(s); using \\code{NA} hides them\n#' @param add logical; add to current plot? Note that when using \\code{add=TRUE}, you may have to set \\code{reset=FALSE} in the first plot command.\n#' @param type plot type: 'p' for points, 'l' for lines, 'b' for both\n#' @param reset logical; if \\code{FALSE}, keep the plot in a mode that allows adding further map elements; if \\code{TRUE} restore original mode after plotting \\code{sf} objects with attributes; see details.\n#' @param logz logical; if \\code{TRUE}, use log10-scale for the attribute variable. In that case, \\code{breaks} and \\code{at} need to be given as log10-values; see examples.\n#' @param extent object with an \\code{st_bbox} method to define plot extent; defaults to \\code{x}\n#' @param xlim numeric; x-axis limits; overrides \\code{extent}\n#' @param ylim numeric; y-axis limits; overrides \\code{extent}\n#' @param compact logical; compact sub-plots over plotting space?\n#' @method plot sf\n#' @name plot\n#' @details \\code{plot.sf} maximally plots \\code{max.plot} maps with colors following from attribute columns,\n#' one map per attribute. It uses \\code{sf.colors} for default colors. For more control over placement of individual maps,\n#' set parameter \\code{mfrow} with \\link{par} prior to plotting, and plot single maps one by one; note that this only works\n#' in combination with setting parameters \\code{key.pos=NULL} (no legend) and \\code{reset=FALSE}.\n#'\n#' \\code{plot.sfc} plots the geometry, additional parameters can be passed on\n#' to control color, lines or symbols.\n#'\n#' When setting \\code{reset} to \\code{FALSE}, the original device parameters are lost, and the device must be reset using \\code{dev.off()} in order to reset it.\n#'\n#' parameter \\code{at} can be set to specify where labels are placed along the key; see examples.\n#'\n#' parameter \\code{mar} can be set in \\code{...} to override default margins.\n#' \n#' The features are plotted in the order as they apppear in the sf object. See examples for when a different plotting order is wanted.\n#'\n#' @examples\n#' nc = st_read(system.file(\"gpkg/nc.gpkg\", package=\"sf\"), quiet = TRUE)\n#' # plot single attribute, auto-legend:\n#' plot(nc[\"SID74\"])\n#' # plot multiple:\n#' plot(nc[c(\"SID74\", \"SID79\")]) # better use ggplot2::geom_sf to facet and get a single legend!\n#' # adding to a plot of an sf object only works when using reset=FALSE in the first plot:\n#' plot(nc[\"SID74\"], reset = FALSE)\n#' plot(st_centroid(st_geometry(nc)), add = TRUE)\n#' # log10 z-scale:\n#' plot(nc[\"SID74\"], logz = TRUE, breaks = c(0,.5,1,1.5,2), at = c(0,.5,1,1.5,2))\n#' # and we need to reset the plotting device after that, e.g. by\n#' layout(1)\n#' # when plotting only geometries, the reset=FALSE is not needed:\n#' plot(st_geometry(nc))\n#' plot(st_geometry(nc)[1], col = 'red', add = TRUE)\n#' # add a custom legend to an arbitray plot:\n#' layout(matrix(1:2, ncol = 2), widths = c(1, lcm(2)))\n#' plot(1)\n#' .image_scale(1:10, col = sf.colors(9), key.length = lcm(8), key.pos = 4, at = 1:10)\n#' # manipulate plotting order, plot largest polygons first:\n#' p = st_polygon(list(rbind(c(0,0), c(1,0), c(1,1), c(0,1), c(0,0))))\n#' x = st_sf(a=1:4, st_sfc(p, p * 2, p * 3, p * 4)) # plot(x, col=2:5) only shows the largest polygon!\n#' plot(x[order(st_area(x), decreasing = TRUE),], col = 2:5) # plot largest polygons first\n#' \n#' @export\nplot.sf <- function(x, y, ..., main, pal = NULL, nbreaks = 10, breaks = \"pretty\",\n\t\tmax.plot = getOption(\"sf_max.plot\", default = 9),\n\t\tkey.pos = get_key_pos(x, ...), key.length = .618, key.width = kw_dflt(x, key.pos),\n\t\treset = TRUE, logz = FALSE, extent = x, xlim = st_bbox(extent)[c(1,3)],\n\t\tylim = st_bbox(extent)[c(2,4)], compact = FALSE) {\n\n\tstopifnot(missing(y))\n\tnbreaks.missing = missing(nbreaks)\n\tkey.pos.missing = missing(key.pos)\n\tmax_plot_missing = missing(max.plot)\n\tdots = list(...)\n\tcol_missing = is.null(dots$col)\n\tbreaks_numeric = is.numeric(breaks)\n\treset_layout_needed = reset\n\n\tx = swap_axes_if_needed(x)\n\t\n\t# The following code defines an expression which resets the plotting layout.\n\t# The on.exit approach is needed since the plotting routing may fail for\n\t# various reasons leaving the plot layout in a broken state. The on.exit\n\t# ensures that we \"clean\" such broken state regardless of the failure/success\n\t# of the plotting routing. See also #2519 for more details.\n\ton.exit(\n\t\texpr = {\n\t\t\tif (!isTRUE(dots$add) && reset) { # reset device: \n\t\t\t\tif (reset_layout_needed) \n\t\t\t\t\tlayout(matrix(1))\n\t\t\t\tpar(opar)\n\t\t\t}\n\t\t}, \n\t\tadd = TRUE\n\t)\n\t\n\topar = par(no.readonly = TRUE)\n\tif (ncol(x) > 2 && !isTRUE(dots$add)) { # multiple maps to plot...\n\t\tcols = setdiff(names(x), attr(x, \"sf_column\"))\n\t\tlt = .get_layout(st_bbox(x), min(max.plot, length(cols)), par(\"din\"), key.pos[1], key.width)\n\t\tif (key.pos.missing || key.pos[1] == -1)\n\t\t\tkey.pos = lt$key.pos\n\t\tlayout(lt$m, widths = lt$widths, heights = lt$heights, respect = compact)\n\n\t\tmar = if (is.null(dots$mar)) {\n\t\t\t\tif (isTRUE(dots$axes))\n\t\t\t\t\tc(2.1, 2.1, 1.2, 0)\n\t\t\t\telse\n\t\t\t\t\tc(0, 0, 1.2, 0)\n\t\t\t} else\n\t\t\t\tdots$mar\n\t\tpar(mar = mar)\n\n\t\tif (max_plot_missing)\n\t\t\tmax.plot = prod(lt$mfrow)\n\n\t\tif (isTRUE(is.finite(max.plot)) && ncol(x) - 1 > max.plot &&\n\t\t\t\tmax_plot_missing && is.null(options(\"sf_max.plot\")[[1]]))\n\t\t\twarning(paste(\"plotting the first\", max.plot, \"out of\", ncol(x)-1,\n\t\t\t\t\"attributes; use max.plot =\", ncol(x) - 1, \"to plot all\"), call. = FALSE)\n\n\t\t# col selection may have changed; set cols again:\n\t\tcols = setdiff(names(x), attr(x, \"sf_column\"))\n\t\tif (length(cols) > max.plot)\n\t\t\tcols = cols[1:max.plot]\n\n\t\tif (!is.null(key.pos)) {\n\t\t\tvalues = do.call(c, as.data.frame(x)[cols])\n\t\t\tif (is.character(values))\n\t\t\t\tvalues = as.factor(values)\n\t\t\tif (logz)\n\t\t\t\tvalues = log10(values)\n\t\t\tif (is.character(breaks) && is.numeric(values)) { # compute breaks from values:\n\t\t\t\tv0 = values[!is.na(values)]\n\t\t\t\tn.unq = length(unique(v0))\n\t\t\t\tbreaks = if (! all(is.na(values)) && n.unq > 1)\n\t\t\t\t\t\tclassInt::classIntervals(v0, min(nbreaks, n.unq),\n\t\t\t\t\t\t\tbreaks, warnSmallN = FALSE)$brks\n\t\t\t\t\telse\n\t\t\t\t\t\trange(values, na.rm = TRUE) # lowest and highest!\n\t\t\t\tnbreaks = length(breaks) - 1\n\t\t\t}\n\t\t}\n\t\tif (nbreaks.missing && is.numeric(breaks))\n\t\t\tnbreaks = length(breaks) - 1\n\n\t\t# loop over each map to plot:\n\t\tlapply(cols, function(cname) plot(x[, cname], main = cname,\n\t\t\tpal = pal, nbreaks = nbreaks, breaks = breaks, key.pos = NULL, reset = FALSE,\n\t\t\tlogz = logz, xlim = xlim, ylim = ylim,...))\n\n\t\tfor (i in seq_len(prod(lt$mfrow) - length(cols))) # empty panels:\n\t\t\tplot.new()\n\n\t\t# plot key?\n\t\tif (!is.null(key.pos) && key.pos[1] != 0 && col_missing) {\n\t\t\tif (is.null(pal))\n\t\t\t\tpal = function(n) sf.colors(n, categorical = is.factor(values))\n\t\t\tcolors = if (is.function(pal))\n\t\t\t\t\tpal(nbreaks)\n\t\t\t\telse\n\t\t\t\t\tpal\n\t\t\tif (is.factor(values))\n\t\t\t\t.image_scale_factor(levels(values), colors, key.pos = key.pos,\n\t\t\t\t\tkey.width = key.width, key.length = key.length, ...)\n\t\t\telse\n\t\t\t\t.image_scale(values, colors, breaks = breaks, key.pos = key.pos,\n\t\t\t\t\tkey.length = key.length, logz = logz, ...)\n\t\t}\n\n\t} else { # single map, or dots$add == TRUE:\n\t\tif (ncol(x) == 1) { # no attributes to choose colors from: plot geometry\n\t\t\tplot(st_geometry(x), xlim = xlim, ylim = ylim, ...)\n\t\t\treset_layout_needed = FALSE\n\t\t} else { # generate plot with colors and possibly key\n\t\t\tif (ncol(x) > 2) { # add = TRUE\n\t\t\t\twarning(\"ignoring all but the first attribute\")\n\t\t\t\tx = x[,1]\n\t\t\t}\n\t\t\t# store attribute in \"values\":\n\t\t\tvalues = x[[setdiff(names(x), attr(x, \"sf_column\"))]]\n\n\t\t\tif (is.list(values)) {\n\t\t\t\treset_layout_needed = TRUE # nocov\n\t\t\t\tstop(\"plotting list-columns not supported\") # nocov\n\t\t\t}\n\n\t\t\tif (is.character(values))\n\t\t\t\tvalues = as.factor(values)\n\t\t\telse if (logz)\n\t\t\t\tvalues = log10(as.numeric(values))\n\n\t\t\tif (is.null(pal))\n\t\t\t\tpal = function(n) sf.colors(n, categorical = is.factor(values))\n\t\t\telse if (! col_missing) {\n\t\t\t\treset_layout_needed = TRUE\n\t\t\t\tstop(\"specify only one of `col' and `pal'\")\n\t\t\t}\n\t\t\t\t\n\n\t\t\tif (col_missing) { # compute colors from values:\n\t\t\t\tcol = if (is.factor(values)) {\n\t\t\t\t\t\tif (key.pos.missing && nlevels(values) > 30) # doesn't make sense:\n\t\t\t\t\t\t\tkey.pos = NULL\n\t\t\t\t\t\tcolors = if (is.function(pal))\n\t\t\t\t\t\t\t\tpal(nlevels(values))\n\t\t\t\t\t\t\telse\n\t\t\t\t\t\t\t\tpal\n\t\t\t\t\t\tcolors[as.numeric(values)]\n\t\t\t\t\t} else {\n\t\t\t\t\t\tif (! inherits(values, c(\"POSIXt\", \"Date\")))\n\t\t\t\t\t\t\tvalues = as.numeric(values) # drop units, if any\n\t\t\t\t\t\tif (is.character(breaks)) { # compute breaks from values:\n\t\t\t\t\t\t\tv0 = values[!is.na(values)]\n\t\t\t\t\t\t\tn.unq = length(unique(v0))\n\t\t\t\t\t\t\tbreaks = if (! all(is.na(values)) && n.unq > 1)\n\t\t\t\t\t\t\t\t\tclassInt::classIntervals(v0, min(nbreaks, n.unq),\n\t\t\t\t\t\t\t\t\t\tbreaks, warnSmallN = FALSE)$brks\n\t\t\t\t\t\t\t\telse\n\t\t\t\t\t\t\t\t\trange(values, na.rm = TRUE) # lowest and highest!\n\t\t\t\t\t\t}\n\t\t\t\t\t\t# this is necessary if breaks were specified either as character or as numeric\n\t\t\t\t\t\t# \"pretty\" takes nbreaks as advice only:\n\t\t\t\t\t\tnbreaks = length(breaks) - 1\n\n\t\t\t\t\t\tcuts = if (all(is.na(values)))\n\t\t\t\t\t\t\t\trep(NA_integer_, length(values))\n\t\t\t\t\t\t\telse if (!breaks_numeric && diff(range(values, na.rm = TRUE)) == 0)\n\t\t\t\t\t\t\t\tifelse(is.na(values), NA_integer_, 1L)\n\t\t\t\t\t\t\telse if (inherits(values, c(\"POSIXt\", \"Date\")))\n\t\t\t\t\t\t\t\tcut(values, breaks, include.lowest = TRUE)\n\t\t\t\t\t\t\telse\n\t\t\t\t\t\t\t\tsf_cut(values, breaks, include.lowest = TRUE)\n\t\t\t\t\t\tcolors = if (is.function(pal))\n\t\t\t\t\t\t\t\tpal(nbreaks)\n\t\t\t\t\t\t\telse\n\t\t\t\t\t\t\t\tpal\n\t\t\t\t\t\tcolors[cuts]\n\t\t\t\t\t}\n\t\t\t} else {\n\t\t\t\tcol = dots$col\n\t\t\t\tif (length(col) != 1 && length(col) != nrow(x))\n\t\t\t\t\twarning(\"col is not of length 1 or nrow(x): colors will be recycled; use pal to specify a color palette\")\n\t\t\t\tkey.pos = NULL # no key!\n\t\t\t}\n\n\t\t\tif (!isTRUE(dots$add) && !is.null(key.pos) && !all(is.na(values)) &&\n\t\t\t\t\t(is.factor(values) || length(unique(na.omit(values))) > 1 || breaks_numeric) && # 2065\n\t\t\t\t\tlength(col) > 1) { # plot key?\n\n\t\t\t\tswitch(key.pos[1],\n\t\t\t\t\tlayout(matrix(c(2,1), nrow = 2, ncol = 1),\n\t\t\t\t\t\twidths = 1, heights = c(1, key.width)), # 1 bottom\n\t\t\t\t\tlayout(matrix(c(1,2), nrow = 1, ncol = 2),\n\t\t\t\t\t\twidths = c(key.width, 1), heights = 1), # 2 left\n\t\t\t\t\tlayout(matrix(c(1,2), nrow = 2, ncol = 1),\n\t\t\t\t\t\twidths = 1, heights = c(key.width, 1)), # 3 top\n\t\t\t\t\tlayout(matrix(c(2,1), nrow = 1, ncol = 2),\n\t\t\t\t\t\twidths = c(1, key.width), heights = 1) # 4 right\n\t\t\t\t)\n\n\t\t\t\tif (is.factor(values)) {\n\t\t\t\t\t.image_scale_factor(levels(values), colors, key.pos = key.pos,\n\t\t\t\t\t\tkey.width = key.width, key.length = key.length, ...)\n\t\t\t\t} else\n\t\t\t\t\t.image_scale(values, colors, breaks = breaks, key.pos = key.pos,\n\t\t\t\t\t\tkey.length = key.length, logz = logz, ...)\n\t\t\t} else\n\t\t\t\treset_layout_needed = FALSE # as we didn't call layout()\n\t\t\t# plot the map:\n\t\t\tif (!isTRUE(dots$add)) {\n\t\t\t\tif (is.null(dots$mar)) {\n\t\t\t\t\tmar = c(1, 1, 1.2, 1)\n\t\t\t\t\tif (isTRUE(dots$axes))\n\t\t\t\t\t\tmar[1:2] = 2.1\n\t\t\t\t} else\n\t\t\t\t\tmar = dots$mar\n\t\t\t\tpar(mar = mar)\n\t\t\t}\n\t\t\tif (col_missing)\n\t\t\t\tplot(st_geometry(x), col = col, xlim = xlim, ylim = ylim, ...)\n\t\t\telse\n\t\t\t\tplot(st_geometry(x), xlim = xlim, ylim = ylim, ...)\n\t\t}\n\t\tif (! isTRUE(dots$add)) { # title?\n\t\t\tif (missing(main)) {\n\t\t\t\tmain = setdiff(names(x), attr(x, \"sf_column\"))\n\t\t\t\tif (length(main) && inherits(x[[main]], \"units\"))\n\t\t\t\t\tmain = make_unit_label(main, x[[main]])\n\t\t\t}\n\t\t\tlocalTitle <- function(..., extent, col, bg, pch, cex, lty, lwd, axes, type, bgMap,\n\t\t\t\t\tborder, graticule, xlim, ylim, asp, bgc, xaxs, yaxs, lab, setParUsrBB,\n\t\t\t\t\texpandBB, col_graticule, at, lon, lat, crs, datum, ndiscr, margin) # absorb\n\t\t\t\ttitle(...)\n\t\t\tlocalTitle(main, ...)\n\t\t}\n\t}\n\tinvisible()\n}\n\nswap_axes_if_needed = function(x) {\n\tcrs = st_crs(x)\n\tif (st_axis_order() && !is.na(crs) && crs$yx)\n\t\tst_transform(x, pipeline = \"+proj=pipeline +step +proj=axisswap +order=2,1\")\n\telse\n\t\tx\n}\n\n\n#' @name plot\n#' @export\nget_key_pos = function(x, ...) {\n\tbb = st_bbox(x)\n\tif (anyNA(bb) || (inherits(x, \"sf\") && ncol(x) > 2))\n\t\tNULL\n\telse {\n\t\tpin = par(\"pin\") # (width, height)\n\t\tasp_plt = pin[2]/pin[1] # y/x: < 1 means wide\n\t\tasp_box = diff(bb[c(4,2)]) / diff(bb[c(3,1)])\n\t\tasp = list(...)$asp\n\t\tif (is.null(asp))\n\t\t\tasp <- ifelse(isTRUE(st_is_longlat(x)), 1/cos((mean(bb[c(2,4)]) * pi)/180), 1.0)\n\t\tasp_box = asp_box * asp\n\t\tif (!is.finite(asp_box) || asp_box < asp_plt) # plot is wider than device: below\n\t\t\t1\n\t\telse # plot is taller than device: to the right\n\t\t\t4\n\t}\n}\n\n#' @name plot\n#' @method plot sfc_POINT\n#' @export\nplot.sfc_POINT = function(x, y, ..., pch = 1, cex = 1, col = 1, bg = 0, lwd = 1, lty = 1,\n\t\ttype = 'p', add = FALSE) {\n\tstopifnot(missing(y))\n\tif (! add)\n\t\tplot_sf(x, ...)\n\tnpts = length(x)\n\tif (npts == 0)\n\t\treturn()\n\tpch = rep(pch, length.out = npts)\n\tcol = rep(col, length.out = npts)\n\tbg = rep(bg, length.out = npts)\n\tcex = rep(cex, length.out = npts)\n\tmat = t(matrix(unlist(x, use.names = FALSE), ncol = length(x))) #933\n\tif (!is.null(mat)) {\n\t\tne = !is.na(rowMeans(mat)) ## faster than apply; #933\n\t\tpoints(mat[ne,, drop = FALSE], pch = pch[ne], col = col[ne], bg = bg[ne],\n\t\t\tcex = cex[ne], lwd = lwd, lty = lty, type = type)\n\t}\n}\n\n#' @name plot\n#' @method plot sfc_MULTIPOINT\n#' @export\nplot.sfc_MULTIPOINT = function(x, y, ..., pch = 1, cex = 1, col = 1, bg = 0, lwd = 1, lty = 1,\n\t\ttype = 'p', add = FALSE) {\n\tstopifnot(missing(y))\n\tif (! add)\n\t\tplot_sf(x, ...)\n\tn = length(x)\n\tif (n == 0)\n\t\treturn()\n\tpch = rep(pch, length.out = n)\n\tcol = rep(col, length.out = n)\n\tbg = rep(bg, length.out = n)\n\tcex = rep(cex, length.out = n)\n\tlwd = rep(lwd, length.out = n)\n\tlty = rep(lty, length.out = n)\n\tnon_empty = ! st_is_empty(x)\n\tlapply(seq_along(x), function(i)\n\t if (non_empty[i])\n\t\tpoints(x[[i]], pch = pch[i], col = col[i], bg = bg[i],\n\t\t\tcex = cex[i], lwd = lwd[i], lty = lty[i], type = type))\n\tinvisible(NULL)\n}\n\n#' @name plot\n#' @method plot sfc_LINESTRING\n#' @export\nplot.sfc_LINESTRING = function(x, y, ..., lty = 1, lwd = 1, col = 1, pch = 1, type = 'l',\n\t\tadd = FALSE) {\n# FIXME: take care of lend, ljoin, and lmitre\n\tstopifnot(missing(y))\n\tif (! add)\n\t\tplot_sf(x, ...)\n\tlty = rep(lty, length.out = length(x))\n\tlwd = rep(lwd, length.out = length(x))\n\tcol = rep(col, length.out = length(x))\n\tpch = rep(pch, length.out = length(x))\n\tnon_empty = ! st_is_empty(x)\n\tlapply(seq_along(x), function(i)\n\t if (non_empty[i])\n\t\tlines(x[[i]], lty = lty[i], lwd = lwd[i], col = col[i], pch = pch[i], type = type))\n\tinvisible(NULL)\n}\n\n#' @name plot\n#' @method plot sfc_CIRCULARSTRING\n#' @export\nplot.sfc_CIRCULARSTRING = function(x, y, ...) {\n\tplot(st_cast(x, \"LINESTRING\"), ...)\n}\n\n#' @name plot\n#' @method plot sfc_MULTILINESTRING\n#' @export\nplot.sfc_MULTILINESTRING = function(x, y, ..., lty = 1, lwd = 1, col = 1, pch = 1, type = 'l',\n\t\tadd = FALSE) {\n# FIXME: take care of lend, ljoin, and lmitre\n\tstopifnot(missing(y))\n\tif (! add)\n\t\tplot_sf(x, ...)\n\tlty = rep(lty, length.out = length(x))\n\tlwd = rep(lwd, length.out = length(x))\n\tcol = rep(col, length.out = length(x))\n\tpch = rep(pch, length.out = length(x))\n\tnon_empty = ! st_is_empty(x)\n\tlapply(seq_along(x), function(i)\n\t if (non_empty[i])\n\t\tlapply(x[[i]], function(L)\n\t\t\tlines(L, lty = lty[i], lwd = lwd[i], col = col[i], pch = pch[i], type = type)))\n\tinvisible(NULL)\n}\n\n# sf (list) -> polypath (mtrx) : rbind polygon rings with NA rows inbetween\np_bind = function(lst) {\n\tif (length(lst) == 1)\n\t\tlst[[1]]\n\telse {\n\t\tret = vector(\"list\", length(lst) * 2 - 1)\n\t\tret[seq(1, length(lst) * 2 - 1, by = 2)] = lst # odd elements\n\t\tret[seq(2, length(lst) * 2 - 1, by = 2)] = NA # even elements\n\t\tdo.call(rbind, ret) # replicates the NA to form an NA row\n\t}\n}\n\n#' @name plot\n#' @param rule see \\link[graphics]{polypath}; for \\code{winding}, exterior ring direction should be opposite that of the holes; with \\code{evenodd}, plotting is robust against misspecified ring directions\n#' @param xpd see \\link[graphics]{par}; sets polygon clipping strategy; only implemented for POLYGON and MULTIPOLYGON\n#' @export\nplot.sfc_POLYGON = function(x, y, ..., lty = 1, lwd = 1, col = NA, cex = 1, pch = NA, border = 1,\n\t\tadd = FALSE, rule = \"evenodd\", xpd = par(\"xpd\")) {\n# FIXME: take care of lend, ljoin, and lmitre\n\tstopifnot(missing(y))\n\tif (! add)\n\t\tplot_sf(x, ...)\n\tlty = rep(lty, length.out = length(x))\n\tlwd = rep(lwd, length.out = length(x))\n\tcol = rep(col, length.out = length(x))\n\tborder = rep(border, length.out = length(x))\n\tnon_empty = ! st_is_empty(x)\n\tlapply(seq_along(x), function(i)\n\t if (non_empty[i])\n\t\tpolypath(p_bind(x[[i]]), border = border[i], lty = lty[i], lwd = lwd[i], col = col[i], rule = rule, xpd = xpd))\n#\tif (any(!is.na(pch))) {\n#\t\tpch = rep(pch, length.out = length(x))\n#\t\tcex = rep(cex, length.out = length(x))\n#\t\tlapply(seq_along(x), function(i)\n#\t\t if (non_empty[i])\n#\t\t\tpoints(p_bind(x[[i]]), pch = pch[i], cex = cex[i], type = 'p'))\n#\t}\n\tinvisible(NULL)\n}\n\n#' @name plot\n#' @method plot sfc_MULTIPOLYGON\n#' @export\nplot.sfc_MULTIPOLYGON = function(x, y, ..., lty = 1, lwd = 1, col = NA, border = 1, add = FALSE, \n\t\trule = \"evenodd\", xpd = par(\"xpd\")) {\n# FIXME: take care of lend, ljoin, and lmitre\n\tstopifnot(missing(y))\n\tif (! add)\n\t\tplot_sf(x, ...)\n\tlty = rep(lty, length.out = length(x))\n\tlwd = rep(lwd, length.out = length(x))\n\tcol = rep(col, length.out = length(x))\n\tborder = rep(border, length.out = length(x))\n\tnon_empty = ! st_is_empty(x)\n\tlapply(seq_along(x), function(i)\n\t if (non_empty[i])\n\t\tlapply(x[[i]], function(L)\n\t\t\tpolypath(p_bind(L), border = border[i], lty = lty[i], lwd = lwd[i], col = col[i], rule = rule, xpd = xpd)))\n\tinvisible(NULL)\n}\n\n# plot single geometrycollection:\nplot_gc = function(x, pch, cex, bg, border = 1, lty, lwd, col, add) {\n\tlapply(x, function(subx) {\n\t\targs = list(st_sfc(subx), pch = pch, cex = cex, bg = bg, border = border,\n\t\t\tlty = lty, lwd = lwd, col = col, add = TRUE)\n\t\tfn = switch(class(subx)[2],\n\t\t\tPOINT = plot.sfc_POINT,\n\t\t\tMULTIPOINT = plot.sfc_MULTIPOINT,\n\t\t\tLINESTRING = plot.sfc_LINESTRING,\n\t\t\tMULTILINESTRING = plot.sfc_MULTILINESTRING,\n\t\t\tPOLYGON = plot.sfc_POLYGON,\n\t\t\tCIRCULARSTRING = plot.sfc_CIRCULARSTRING,\n\t\t\tMULTIPOLYGON = plot.sfc_MULTIPOLYGON,\n\t\t\tMULTISURFACE = plot.sfc_GEOMETRYCOLLECTION,\n\t\t\tCURVEPOLYGON = plot.sfc_GEOMETRYCOLLECTION,\n\t\t\tCOMPOUNDCURVE = plot.sfc_GEOMETRYCOLLECTION,\n\t\t\tGEOMETRYCOLLECTION = plot.sfc_GEOMETRYCOLLECTION,\n\t\t\tstop(paste(\"plotting of\", class(x)[2], \"not yet supported: use st_cast?\"))\n\t\t)\n\t\tdo.call(fn, args)\n\t})\n\tinvisible(NULL)\n}\n\n#' @name plot\n#' @method plot sfc_GEOMETRYCOLLECTION\n#' @export\nplot.sfc_GEOMETRYCOLLECTION = function(x, y, ..., pch = 1, cex = 1, bg = 0, lty = 1, lwd = 1,\n\tcol = 1, border = 1, add = FALSE) {\n# FIXME: take care of lend, ljoin, xpd, and lmitre\n\tstopifnot(missing(y))\n\tif (! add)\n\t\tplot_sf(x, ...)\n\tcex = rep(cex, length.out = length(x))\n\tpch = rep(pch, length.out = length(x))\n\tlty = rep(lty, length.out = length(x))\n\tlwd = rep(lwd, length.out = length(x))\n\tcol = rep(col, length.out = length(x))\n\tborder = rep(border, length.out = length(x))\n\tlapply(seq_along(x), function(i) plot_gc(x[[i]],\n\t\t\tpch = pch[i], cex = cex[i], bg = bg[i], border = border[i], lty = lty[i],\n\t\t\tlwd = lwd[i], col = col[i]))\n\tinvisible(NULL)\n}\n\n#' @name plot\n#' @method plot sfc_GEOMETRY\n#' @export\nplot.sfc_GEOMETRY = function(x, y, ..., pch = 1, cex = 1, bg = 0, lty = 1, lwd = 1,\n\tcol = ifelse(st_dimension(x) == 2, NA, 1), border = 1, add = FALSE) {\n\tstopifnot(missing(y))\n\tif (! add)\n\t\tplot_sf(x, ...)\n\tcex = rep(cex, length.out = length(x))\n\tpch = rep(pch, length.out = length(x))\n\tlty = rep(lty, length.out = length(x))\n\tlwd = rep(lwd, length.out = length(x))\n\tcol = rep(col, length.out = length(x))\n\tborder = rep(border, length.out = length(x))\n\tlapply(seq_along(x), function(i) plot_gc(st_sfc(x[[i]]),\n\t\t\tpch = pch[i], cex = cex[i], bg = bg[i], border = border[i], lty = lty[i],\n\t\t\tlwd = lwd[i], col = col[i]))\n\tinvisible(NULL)\n}\n\n#' @name plot\n#' @method plot sfg\n#' @export\nplot.sfg = function(x, ...) {\n\tplot(st_sfc(x), ...)\n}\n\n# set up plotting area & axes; reuses sp:::plot.Spatial\n#' @name plot\n#' @param xlim see \\link{plot.window}\n#' @param ylim see \\link{plot.window}\n#' @param asp see below, and see \\link{par}\n#' @param axes logical; should axes be plotted? (default FALSE)\n#' @param bgc background color\n#' @param xaxs see \\link{par}\n#' @param yaxs see \\link{par}\n#' @param lab see \\link{par}\n#' @param setParUsrBB default FALSE; set the \\code{par} \\dQuote{usr} bounding box; see below\n#' @param bgMap object of class \\code{ggmap}, or returned by function \\code{RgoogleMaps::GetMap}\n#' @param expandBB numeric; fractional values to expand the bounding box with,\n#' in each direction (bottom, left, top, right)\n#' @param graticule logical, or object of class \\code{crs} (e.g., \\code{st_crs('OGC:CRS84')} for a WGS84 graticule), or object created by \\link{st_graticule}\n#' @param col_graticule color to used for the graticule (if present)\n#' @export\n#' @details \\code{plot_sf} sets up the plotting area, axes, graticule, or webmap background; it\n#' is called by all \\code{plot} methods before anything is drawn.\n#'\n#' The argument \\code{setParUsrBB} may be used to pass the logical value \\code{TRUE} to functions within \\code{plot.Spatial}. When set to \\code{TRUE}, par(\\dQuote{usr}) will be overwritten with \\code{c(xlim, ylim)}, which defaults to the bounding box of the spatial object. This is only needed in the particular context of graphic output to a specified device with given width and height, to be matched to the spatial object, when using par(\\dQuote{xaxs}) and par(\\dQuote{yaxs}) in addition to \\code{par(mar=c(0,0,0,0))}.\n#'\n#' The default aspect for map plots is 1; if however data are not\n#' projected (coordinates are long/lat), the aspect is by default set to\n#' 1/cos(My * pi/180) with My the y coordinate of the middle of the map\n#' (the mean of \\code{ylim}, which defaults to the y range of bounding box). This\n#' implies an \\href{https://en.wikipedia.org/wiki/Equirectangular_projection}{Equirectangular projection}.\n#'\nplot_sf = function(x, xlim = NULL, ylim = NULL, asp = NA, axes = FALSE, bgc = par(\"bg\"), ...,\n xaxs, yaxs, lab, setParUsrBB = FALSE, bgMap = NULL, expandBB = c(0,0,0,0), graticule = NA_crs_,\n\tcol_graticule = 'grey', border, extent = x) {\n\n# sp's bbox: matrix\n# min max\n# x\n# y\n\n\tbbox = matrix(st_bbox(extent), 2, dimnames = list(c(\"x\", \"y\"), c(\"min\", \"max\")))\n\t# expandBB: 1=below, 2=left, 3=above and 4=right.\n\texpBB = function(lim, expand) c(lim[1] - expand[1] * diff(lim), lim[2] + expand[2] * diff(lim))\n\tif (is.null(xlim))\n\t\txlim <- expBB(bbox[1,], expandBB[c(2,4)])\n\tif (is.null(ylim))\n\t\tylim <- expBB(bbox[2,], expandBB[c(1,3)])\n\tif (is.na(asp))\n\t\tasp <- ifelse(isTRUE(st_is_longlat(x)), 1/cos((mean(ylim) * pi)/180), 1.0)\n\n\tif (anyNA(bbox))\n\t\tstop(\"NA value(s) in bounding box. Trying to plot empty geometries?\")\n\n\tplot.new()\n\n\targs = list(xlim = xlim, ylim = ylim, asp = asp)\n\tif (!missing(xaxs)) args$xaxs = xaxs\n\tif (!missing(yaxs)) args$yaxs = yaxs\n\tif (!missing(lab)) args$lab = lab\n\tdo.call(plot.window, args)\n\n\tif (setParUsrBB)\n\t\tpar(usr=c(xlim, ylim))\n\tpl_reg <- par(\"usr\")\n\trect(xleft = pl_reg[1], ybottom = pl_reg[3], xright = pl_reg[2],\n\t\tytop = pl_reg[4], col = bgc, border = FALSE)\n\tlinAxis = function(side, ..., lon, lat, ndiscr, reset, at) axis(side = side, ...)\n\tif (!missing(graticule) && !identical(graticule, FALSE)) {\n\t\tg = if (isTRUE(graticule))\n\t\t\t\tst_graticule(pl_reg[c(1,3,2,4)], st_crs(x), st_datum(x), ...)\n\t\t\telse if (inherits(graticule, \"crs\") && !is.na(graticule))\n\t\t\t\tst_graticule(pl_reg[c(1,3,2,4)], st_crs(x), graticule, ...)\n\t\t\telse\n\t\t\t\tgraticule\n\t\tplot(st_geometry(g), col = col_graticule, add = TRUE)\n\t\tbox()\n\t\tif (axes) {\n\t\t\tsel = g$type == \"E\" & g$plot12\n\t\t\tlinAxis(1L, g$x_start[sel], parse(text = g$degree_label[sel]), ...)\n\t\t\tsel = g$type == \"N\" & g$plot12\n\t\t\tlinAxis(2L, g$y_start[sel], parse(text = g$degree_label[sel]), ...)\n\t\t}\n\t} else if (axes) {\n\t\tbox()\n\t\tif (isTRUE(st_is_longlat(x))) {\n\t\t\tlocal_degAxis = function(side, ..., at) .degAxis(side, ...) # absorb at\n\t\t\tlocal_degAxis(1, ...)\n\t\t\tlocal_degAxis(2, ...)\n\t\t} else {\n\t\t\tlinAxis(1, ...)\n\t\t\tlinAxis(2, ...)\n\t\t}\n\t}\n\tlocalTitle <- function(..., col, bgc, pch, cex, lty, lwd, lon, lat, ndiscr, at, labels, reset) title(...)\n\tlocalTitle(...)\n\tif (!is.null(bgMap)) {\n\t\tmercator = FALSE\n\t\tif (inherits(bgMap, \"ggmap\")) {\n\t\t\tbb = bb2merc(bgMap, \"ggmap\")\n\t\t\tmercator = TRUE\n\t\t} else if (all(c(\"lat.center\",\"lon.center\",\"zoom\",\"myTile\",\"BBOX\") %in% names(bgMap))) {\n\t\t\t# an object returned by RgoogleMaps::GetMap\n\t\t\tbb = bb2merc(bgMap, \"RgoogleMaps\")\n\t\t\tbgMap = bgMap$myTile\n\t\t\tmercator = TRUE\n\t\t} else\n\t\t\tbb = c(xlim[1], ylim[1], xlim[2], ylim[2]) # can be any crs!\n\t\tif (mercator && st_crs(x) != st_crs(3857))\n\t\t\twarning(\"crs of plotting object differs from that of bgMap, which is assumed to be st_crs(3857)\") # nocov\n\t\trasterImage(bgMap, bb[1], bb[2], bb[3], bb[4], interpolate = FALSE)\n\t}\n}\n\n\n#' @param n integer; number of colors\n#' @param cutoff.tails numeric, in `[0,0.5]` start and end values\n#' @param alpha numeric, in `[0,1]`, transparency\n#' @param categorical logical; do we want colors for a categorical variable? (see details)\n#' @name plot\n#' @export\n#' @details non-categorical colors from \\code{sf.colors} were taken from \\link[sp]{bpy.colors}, with modified \\code{cutoff.tails} defaults\n#' If categorical is \\code{TRUE}, default colors are from \\url{https://colorbrewer2.org/} (if n < 9, Set2, else Set3).\n#' @examples\n#' sf.colors(10)\nsf.colors = function (n = 10, cutoff.tails = c(0.35, 0.2), alpha = 1, categorical = FALSE) {\n\tif (categorical) {\n\t\tcb = if (n <= 8)\n\t\t# 8-class Set2:\n\t\tc('#66c2a5','#fc8d62','#8da0cb','#e78ac3','#a6d854','#ffd92f','#e5c494','#b3b3b3')\n\t\t# 12-class Set3:\n\t\telse c('#8dd3c7','#ffffb3','#bebada','#fb8072','#80b1d3','#fdb462','#b3de69','#fccde5','#d9d9d9','#bc80bd','#ccebc5','#ffed6f')\n\t\t# TODO: deal with alpha\n\t\tif (alpha != 1.0)\n\t\t\tcb = paste0(cb, as.hexmode(ceiling(alpha * 255)))\n\t\trep(cb, length.out = n)\n\t} else {\n\t\ti = seq(0.5 * cutoff.tails[1], 1 - 0.5 * cutoff.tails[2], length.out = n)\n \t\tr = ifelse(i < .25, 0, ifelse(i < .57, i / .32 - .78125, 1))\n \t\tg = ifelse(i < .42, 0, ifelse(i < .92, 2 * i - .84, 1))\n \t\tb = ifelse(i < .25, 4 * i, ifelse(i < .42, 1,\n\t\t\tifelse(i < .92, -2 * i + 1.84, i / .08 - 11.5)))\n\t\trgb(r, g, b, alpha)\n\t}\n}\n\n# Add text to an existing (base) plot\n#\n#' @param labels character, text to draw (one per row of input)\n#' @name plot\n#' @export\n#' @details `text.sf` adds text to an existing base graphic. Text is placed at the centroid of \n#' each feature in \\code{x}. Provide POINT features for further control of placement.\n#' `points.sf` adds point symbols to an existing base graphic. If points of text are not shown\n#' correctly, try setting argument `reset` to `FALSE` in the `plot()` call.\n#' @examples\n#' text(nc, labels = substring(nc$NAME,1,1))\ntext.sf = function(x, labels = row.names(x), ...) {\n\ttext(st_geometry(x), labels = labels, ...)\n}\n\n#' @export\n#' @name plot\n#' @param of_largest_polygon logical, passed on to \\link{st_centroid}\ntext.sfc = function(x, labels = seq_along(x), ..., of_largest_polygon = FALSE){\n\tx = st_centroid(x, of_largest_polygon = of_largest_polygon)\n\txy = st_coordinates(x)\n\ttext(xy[,1], xy[,2], labels = labels, ...)\n}\n\n#' @name plot\n#' @export\npoints.sf = function(x, ...) {\n\tpoints(st_geometry(x), ...)\n}\n\n#' @name plot\n#' @export\npoints.sfc = function(x, ..., of_largest_polygon = FALSE) {\n\tx = st_centroid(x, of_largest_polygon = of_largest_polygon)\n\txy = st_coordinates(x)\n\tpoints(xy[,1], xy[,2], ...)\n}\n\n# get the aspect ratio of a bounding box, for geodetic coords true scale at mid latitude:\nget_asp = function(bb) {\n\tasp = diff(bb[c(2,4)])/diff(bb[c(1,3)])\n\tif (!is.finite(asp)) # 0/0\n\t\tasp = 1\n\tif (isTRUE(st_is_longlat(bb)))\n\t\tasp = asp / cos(mean(bb[c(2,4)]) * pi /180)\n\tasp\n}\n\n#' functions only exported to be used internally by stars\n#' @keywords internal\n#' @name stars\n#' @param bb ignore\n#' @param n ignore\n#' @param total_size ignore\n#' @param key.width ignore\n#' @param key.length ignore\n#' @param mfrow length-2 integer vector with number of rows, columns\n#' @param main main or sub title\n#' @export\n.get_layout = function(bb, n, total_size, key.pos, key.width, mfrow = NULL, main = NULL) {\n# return list with \"m\" matrix, \"key.pos\", \"widths\" and \"heights\" fields\n# if key.pos = -1 on input, it will be a return value, \"optimally\" placed\n\tasp = get_asp(bb)\n\tstrip = if (is.character(main))\n\t\t\t# strheight(main, \"inches\") \n\t\t\tpar(\"cin\")[2]\n\t\telse \n\t\t\t0.0\n\tsize = function(nrow, n, asp, strip = 0) { # given nrow n asp, what size does a single tile occupy?\n\t\tncol = ceiling(n / nrow)\n\t\txsize = total_size[1] / ncol\n\t\tysize = xsize * asp + strip\n\t\tif (xsize * ysize * n > prod(total_size)) {\n\t\t\tysize = total_size[2] / nrow - strip\n\t\t\txsize = ysize / asp\n\t\t}\n\t\tc(xsize, ysize)\n\t}\n\tsz = vapply(1:n, function(nrow) size(nrow, n, asp, strip), c(0.0, 0.0))\n\tif (is.null(mfrow)) {\n\t\tnrow = which.max(apply(sz, 2, prod))\n\t\tncol = ceiling(n / nrow)\n\t} else {\n\t\tstopifnot(is.numeric(mfrow), length(mfrow) == 2)\n\t\tnrow = mfrow[1]\n\t\tncol = mfrow[2]\n\t}\n\txsize = sz[1, nrow]\n\tysize = sz[2, nrow]\n\tasp = ysize / xsize\n\n\tret = list()\n\tret$mfrow = c(nrow, ncol)\n\n\t# the following is right now only used by stars; FIXME:\n\t# nocov start\n\tret$key.pos = if (!is.null(key.pos) && key.pos == -1L) { # figure out here: right or bottom?\n\t\t\tnewasp = asp * nrow / ncol # of the composition\n\t\t\tdispasp = total_size[2] / total_size[1]\n\t\t\tifelse(newasp > dispasp, 4, 1)\n\t\t} else\n\t\t\tkey.pos\n\n\tm = matrix(seq_len(nrow * ncol), nrow, ncol, byrow = TRUE)\n\tif (!is.null(ret$key.pos) && ret$key.pos != 0) { # add key row or column:\n\t\tk = key.width\n\t\tn = nrow * ncol + 1\n\t\tswitch(ret$key.pos,\n\t\t\t{ ret$m = rbind(m, n); ret$widths = c(rep(1, ncol)); ret$heights = c(rep(asp, nrow), k) },\n\t\t\t{ ret$m = cbind(n, m); ret$widths = c(k, rep(1, ncol)); ret$heights = c(rep(asp, nrow)) },\n\t\t\t{ ret$m = rbind(n, m); ret$widths = c(rep(1, ncol)); ret$heights = c(k, rep(asp, nrow)) },\n\t\t\t{ ret$m = cbind(m, n); ret$widths = c(rep(1, ncol), k); ret$heights = c(rep(asp, nrow)) }\n\t\t)\n\t} else {\n\t\tret$m = m\n\t\tret$widths = rep(1, ncol)\n\t\tret$heights = rep(asp, nrow)\n\t}\n\t# nocov end\n\tret\n}\n\nbb2merc = function(x, cls = \"ggmap\") { # return bbox in the appropriate \"web mercator\" CRS\n\twgs84 = st_crs(4326)\n\tmerc = st_crs(3857) # http://wiki.openstreetmap.org/wiki/EPSG:3857\n\tpts = if (cls == \"ggmap\") {\n\t\tb = vapply(attr(x, \"bb\"), c, 0.0)\n\t\tst_sfc(st_point(c(b[2:1])), st_point(c(b[4:3])), crs = wgs84)\n\t} else if (cls == \"RgoogleMaps\")\n\t\tst_sfc(st_point(rev(x$BBOX$ll)), st_point(rev(x$BBOX$ur)), crs = wgs84)\n\telse\n\t\tstop(\"unknown cls\")\n\tst_bbox(st_transform(pts, merc))\n}\n\n#' @rdname stars\n#' @param side ignore\n#' @param at ignore\n#' @param labels ignore\n#' @param lon ignore\n#' @param lat ignore\n#' @param ndiscr ignore\n#' @param reset ignore\n#' @export\n.degAxis = function (side, at, labels, ..., lon, lat, ndiscr, reset) {\n\tif (missing(at))\n \tat = axTicks(side)\n\tif (missing(labels)) {\n\t\tlabels = FALSE\n\t\tif (side == 1 || side == 3)\n\t\t\tlabels = parse(text = degreeLabelsEW(at))\n\t\telse if (side == 2 || side == 4)\n\t\t\tlabels = parse(text = degreeLabelsNS(at))\n\t}\n\taxis(side, at = at, labels = labels, ...)\n}\n\n# find out where to place the legend key:\n# given range r = (a, b), key.length l, key offset o, return a value range that:\n# (i) scales such that (b - a) / (y - x) = l, and\n# (ii) shifts linearly within [x, y] from a = x when o = 0 to b = y when o = 1\nxy_from_r = function(r, l, o) {\n\tstopifnot(length(r) == 2, l <= 1, l > 0, o >= 0, o <= 1)\n\tr = as.numeric(r)\n\ta = r[1]; b = r[2]\n\tif (o == 1) {\n\t\ty = b\n\t\tx = b - (b - a)/l\n\t} else {\n\t\ti = o / (o - 1)\n\t\ty = (a + (b - a)/l - i * b)/(1 - i)\n\t\tx = i * (y - b) + a\n\t}\n\tc(x, y)\n}\n\n#' @rdname stars\n#' @param z ignore\n#' @param col ignore\n#' @param breaks ignore\n#' @param key.pos ignore\n#' @param add.axis ignore\n#' @param axes ignore\n#' @param logz ignore\n#' @param ... ignore\n#' @param lab ignore\n#' @param cex.axis see \\link{par}\n#' @export\n.image_scale = function(z, col, breaks = NULL, key.pos, add.axis = TRUE,\n\t\tat = NULL, ..., axes = FALSE, key.length, logz = FALSE, lab = \"\", \n\t\tcex.axis = par(\"cex.axis\")) {\n\tif (!is.null(breaks) && length(breaks) != (length(col) + 1))\n\t\tstop(\"must have one more break than colour\")\n\tstopifnot(is.null(lab) || is.character(lab) || is.expression(lab))\n\tlab_set = (is.character(lab) && lab != \"\") || is.expression(lab)\n\tzlim = range(z, na.rm = TRUE)\n\tif (is.null(breaks))\n\t\tbreaks = seq(zlim[1], zlim[2], length.out = length(col) + 1)\n\toffset = 0.5\n\tif (length(key.pos) == 2) {\n\t\toffset = key.pos[2]\n\t\tkey.pos = key.pos[1]\n\t}\n\tif (is.character(key.length)) {\n\t\tkl = as.numeric(gsub(\" cm\", \"\", key.length))\n\t\tsz = if (key.pos %in% c(1,3))\n\t\t\t\tdev.size(\"cm\")[1]\n\t\t\telse\n\t\t\t\tdev.size(\"cm\")[2]\n\t\tkey.length = kl/sz\n\t}\n\tif (is.null(at)) {\n\t\tbr = range(breaks)\n\t\tat = pretty(br)\n\t\tat = at[at > br[1] & at < br[2]]\n\t}\n\tif (key.pos %in% c(1,3)) {\n\t\tylim = c(0, 1)\n\t\txlim = xy_from_r(range(breaks), key.length, offset)\n\t\tmar = c(0, ifelse(axes, 2.1, 1), 0, 1)\n\t}\n\tif (key.pos %in% c(2,4)) {\n\t\tylim = xy_from_r(range(breaks), key.length, offset)\n\t\txlim = c(0, 1)\n\t\tmar = c(ifelse(axes, 2.1, 1), 0, 1.2, 0)\n\t}\n\tmar[key.pos] = 2.1 + 1.5 * lab_set\n\tpar(mar = mar)\n\n\tplot(1, 1, type = \"n\", ylim = ylim, xlim = xlim, axes = FALSE,\n\t\txlab = \"\", ylab = \"\", xaxs = \"i\", yaxs = \"i\")\n\tif (!is.null(lab) && lab != \"\")\n\t\tmtext(lab, side = key.pos, line = 2.5, cex = .8)\n\tpoly = vector(mode=\"list\", length(col))\n\tfor (i in seq(poly))\n\t\tpoly[[i]] = c(breaks[i], breaks[i+1], breaks[i+1], breaks[i])\n\toffset = 0.2\n\toffs = switch(key.pos,\n\t\tc(0, 0, -offset, -offset),\n\t\tc(0, 0, -offset, -offset),\n\t\tc(offset, offset, 0, 0),\n\t\tc(offset, offset, 0, 0))\n\tfor(i in seq_along(poly)) {\n\t\tif (key.pos %in% c(1,3))\n\t\t\tpolygon(poly[[i]], c(0, 0, 1, 1) + offs, col = col[i], border = NA)\n\t\tif (key.pos %in% c(2,4))\n\t\t\tpolygon(c(0, 0, 1, 1) + offs, poly[[i]], col = col[i], border = NA)\n\t}\n\n\t# box() now would draw around [0,1]:\n\tbx = c(breaks[1], rep(tail(breaks, 1), 2), breaks[1])\n\tif (key.pos %in% c(1, 3))\n\t\tpolygon(bx, c(0, 0, 1, 1) + offs, col = NA, border = 'black')\n\tif (key.pos %in% c(2, 4))\n\t\tpolygon(c(0, 0, 1, 1) + offs, bx, col = NA, border = 'black')\n\n\tlabels = if (logz)\n\t\t\tparse(text = paste0(\"10^\", at))\n\t\telse if (inherits(breaks, c(\"POSIXt\", \"Date\")))\n\t\t\tformat(at)\n\t\telse\n\t\t\tTRUE\n\n\tif (add.axis)\n\t\taxis(key.pos, at = at, labels = labels, cex.axis = cex.axis)\n}\n\n#' @rdname stars\n#' @param key.width ignore\n#' @export\n.image_scale_factor = function(z, col, key.pos, add.axis = TRUE,\n\t..., axes = FALSE, key.width, key.length, cex.axis = par(\"cex.axis\")) {\n\n\tto_num = function(x) as.numeric(gsub(\" cm\", \"\", x))\n\tn = length(z)\n\tif ((kw <- to_num(key.width)) < to_num(kw_dflt(list(z), key.pos))) { # cut z until it fits:\n\t\tm = max(nchar(z))\n\t\twhile(kw < to_num(kw_dflt(list(z), key.pos))) { # cut z:\n\t\t\tm = m - 1\n\t\t\tz = substr(z, 1, m)\n\t\t}\n\t}\n\tksz = max(1.5 + max(nchar(z))/2, max(strwidth(z, \"inches\")) / par(\"cin\")[1]) # in \"mar\" lines\n\tbreaks = (0:n) + 0.5\n\toffset = 0.5\n\tif (length(key.pos) == 2) {\n\t\toffset = key.pos[2]\n\t\tkey.pos = key.pos[1]\n\t}\n\tif (is.character(key.length)) {\n\t\tkl = to_num(key.length)\n\t\tsz = if (key.pos %in% c(1, 3))\n\t\t\t\tdev.size(\"cm\")[1]\n\t\t\telse\n\t\t\t\tdev.size(\"cm\")[2]\n\t\tkey.length = kl/sz\n\t}\n\tif (key.pos %in% c(1, 3)) {\n\t\tylim = c(0, 1)\n\t\txlim = xy_from_r(range(breaks), key.length, offset)\n\t\tmar = c(0, ifelse(axes, 2.1, 1), 0, 1)\n\t\tmar[key.pos] = 2.1\n\t} else {\n\t\tylim = xy_from_r(range(breaks), key.length, offset)\n\t\txlim = c(0, 1)\n\t\tmar = c(ifelse(axes, 2.1, 1), 0, 1.2, 0)\n\t\tmar[key.pos] = ksz\n\t}\n\tpar(mar = mar)\n\n\tpoly = vector(mode=\"list\", length(col))\n\tfor (i in seq(poly))\n\t\tpoly[[i]] = c(breaks[i], breaks[i+1], breaks[i+1], breaks[i])\n\n\ttryCatch({\n\t\tplot(1, 1, type = \"n\", ylim = ylim, xlim = xlim, axes = FALSE,\n\t\t\txlab = \"\", ylab = \"\", xaxs = \"i\", yaxs = \"i\")\n\t\t},\n\t\terror = function(x) {\n\t\t\tsz = cm(max(strwidth(z, \"inches\"))) * 1.3 + par(\"ps\")/12 # cm\n\t\t\tstop(paste0(\"key.width too small, try key.width = lcm(\", signif(sz, 3), \")\"), call. = FALSE)\n\t\t}\n\t)\n\n\tfor(i in seq_along(poly)) {\n\t\tif (key.pos %in% c(1, 3))\n\t\t\tpolygon(poly[[i]], c(0, 0, 1, 1), col = col[i], border = NA)\n\t\tif (key.pos %in% c(2, 4))\n\t\t\tpolygon(c(0, 0, 1, 1), poly[[i]], col = col[i], border = NA)\n\t}\n\n\t# box() now would draw around [0,1]:\n\tbx = c(breaks[1], rep(tail(breaks, 1), 2), breaks[1])\n\tif (key.pos %in% c(1,3))\n\t\tpolygon(bx, c(0, 0, 1, 1), col = NA, border = 'black')\n\tif (key.pos %in% c(2,4))\n\t\tpolygon(c(0, 0, 1, 1), bx, col = NA, border = 'black')\n\n\tif (add.axis) {\n\t\topar = par(las = 1)\n\t\taxis(key.pos, at = 1:n, labels = z, cex.axis = cex.axis)\n\t\tpar(opar)\n\t}\n}\n\n# nocov start\n#' @export\nidentify.sfc = function(x, ..., n = min(10, length(x)), type = \"n\") {\n\tl = locator(n, type = type)\n\tpts = st_as_sf(as.data.frame(do.call(cbind, l)), coords = c(\"x\", \"y\"), crs = st_crs(x))\n\tsapply(st_intersects(pts, x), function(x) if (length(x)) x[1] else NA_integer_)\n}\n\n#' @export\nidentify.sf = function(x, ...) {\n\tidentify(st_geometry(x), ...)\n}\n# nocov end\n"
},
{
"path": "R/proj.R",
"content": "\n#' @name st_transform\n#' @param type character; one of `have_datum_files`, `proj`, `ellps`, `datum`, `units`, `path`, or `prime_meridians`; see Details.\n#' @param path character; PROJ search path to be set\n#' @export\n#' @details \\code{sf_proj_info} lists the available projections, ellipses, datums, units, or data search path of the PROJ library when \\code{type} is equal to proj, ellps, datum, units or path; when \\code{type} equals \\code{have_datum_files} a boolean is returned indicating whether datum files are installed and accessible (checking for \\code{conus}). `path` returns the `PROJ_INFO.searchpath` field directly, as a single string with path separaters (`:` or `;`).\n#'\n#' for PROJ >= 6, \\code{sf_proj_info} does not provide option \\code{type = \"datums\"}. \n#' PROJ < 6 does not provide the option \\code{type = \"prime_meridians\"}.\n#'\n#' for PROJ >= 7.1.0, the \"units\" query of \\code{sf_proj_info} returns the \\code{to_meter} \n#' variable as numeric, previous versions return a character vector containing a numeric expression.\n#' @examples\n#' sf_proj_info(\"datum\")\nsf_proj_info = function(type = \"proj\", path) {\n\n\tif (type == \"have_datum_files\")\n\t\treturn(CPL_have_datum_files(0))\n\n\tif (type == \"path\")\n\t\treturn(CPL_get_data_dir(TRUE))\n\t\n\tif (!missing(path) && is.character(path))\n\t\treturn(invisible(unique(CPL_set_data_dir(path, TRUE))))\n\n\tif (type == \"network\")\n\t\treturn(CPL_is_network_enabled(TRUE))\n\n\topts <- c(\"proj\", \"ellps\", \"datum\", \"units\", \"prime_meridians\")\n\tif (!(type %in% opts))\n\t\tstop(\"unknown type\") # nocov\n\tt <- as.integer(match(type[1], opts) - 1)\n\tres = CPL_proj_info(as.integer(t))\n\tif (type == \"proj\")\n\t\tres$description <- sapply(strsplit(as.character(res$description), \"\\n\"),\n\t\t\tfunction(x) x[1])\n\tdata.frame(res)\n}\n\n#' directly transform a set of coordinates\n#'\n#' directly transform a set of coordinates\n#' @param from character description of source CRS, or object of class \\code{crs}, \n#' or pipeline describing a transformation\n#' @param to character description of target CRS, or object of class \\code{crs} \n#' @param pts two-, three- or four-column numeric matrix, or object that can be coerced into a matrix; columns 3 and 4 contain z and t values.\n#' @param keep logical value controlling the handling of unprojectable points. If\n#' `keep` is `TRUE`, then such points will yield `Inf` or `-Inf` in the\n#' return value; otherwise an error is reported and nothing is returned.\n#' @param warn logical; if \\code{TRUE}, warn when non-finite values are generated\n#' @param authority_compliant logical; \\code{TRUE} means handle axis order authority compliant (e.g. EPSG:4326 implying x=lat, y=lon), \\code{FALSE} means use visualisation order (i.e. always x=lon, y=lat)\n#' @return two-column numeric matrix with transformed/converted coordinates, returning invalid values as \\code{Inf}\n#' @export\nsf_project = function(from = character(0), to = character(0), pts, keep = FALSE, warn = TRUE, \n\t\tauthority_compliant = st_axis_order()) {\n\n\tif (!is.logical(keep) || length(keep) != 1 || is.na(keep))\n\t\tstop(\"'keep' must be single-length non-NA logical value\")\n\tproj_from_crs = function(x) {\n\t\tif (inherits(x, \"crs\")) {\n\t\t\tx = if (compareVersion(sf_extSoftVersion()[\"proj.4\"], \"6.0.0\") >= 0)\n\t\t\t\tx$wkt\n\t\t\telse\n\t\t\t\tx$proj4string\n\t\t}\n\t\tif (length(x)) {\n\t\t\tv = CPL_proj_is_valid(x)\n\t\t\tif (!v[[1]])\n\t\t\t\tstop(paste0(v[[2]], \": \", x))\n\t\t\tx[1]\n\t\t} else\n\t\t\tx # empty: character(0)\n\t}\n\n\tfrom_to = c(proj_from_crs(from), proj_from_crs(to))\n\tif ((length(from_to) == 1) && !missing(authority_compliant))\n\t\tstop(\"when specifying a projection pipeline, setting authority_compliant has no effect\")\n\n\tCPL_proj_direct(from_to, as.matrix(pts), keep, warn, authority_compliant)\n}\n\n#' Manage PROJ settings\n#' \n#' Query or manage PROJ search path and network settings\n#' @param paths the search path to be set; omit if paths need to be queried\n#' @param with_proj logical; if `NA` set for both GDAL and PROJ, otherwise set either for PROJ (`TRUE`) or GDAL (`FALSE`)\n#' @return `sf_proj_search_paths()` returns the search path (possibly after setting it)\n#' @name proj_tools\n#' @export\nsf_proj_search_paths = function(paths = character(0), with_proj = NA) {\n\tif (length(paths) == 0)\n\t\tCPL_get_data_dir(FALSE)\n\telse {\n\t\tif (is.na(with_proj) || !isTRUE(with_proj))\n\t\t\tCPL_set_data_dir(as.character(paths), FALSE) # set GDAL\n\t\tif (is.na(with_proj) || isTRUE(with_proj)) { # set for PROJ\n\t\t\tif (length(paths) > 1) {\n\t\t\t\tpaths = paste0(paths, collapse = .Platform$path.sep)\n\t\t\t\tmessage(paste(\"setting proj path(s) to\", paths))\n\t\t\t}\n\t\t\tCPL_set_data_dir(as.character(paths), TRUE)\n\t\t}\n\t}\n}\n\n#' @param enable logical; set this to enable (`TRUE`) or disable (`FALSE`) the proj network search facility\n#' @param url character; use this to specify and override the default proj network CDN \n#' @return `sf_proj_network` when called without arguments returns a logical indicating whether\n#' network search of datum grids is enabled, when called with arguments it returns a character\n#' vector with the URL of the CDN used (or specified with `url`).\n#' @name proj_tools\n#' @export\nsf_proj_network = function(enable = FALSE, url = character(0)) {\n\tif (missing(enable) && missing(url))\n\t\tCPL_is_network_enabled()\n\telse \n\t\tCPL_enable_network(url, enable)\n}\n\n#' @param source_crs,target_crs object of class `crs` or character\n#' @param authority character; constrain output pipelines to those of authority\n#' @param AOI length four numeric; desired area of interest for the resulting \n#' coordinate transformations (west, south, east, north, in degrees).\n#' For an area of interest crossing the anti-meridian, west will be greater than east.\n#' @param Use one of \"NONE\", \"BOTH\", \"INTERSECTION\", \"SMALLEST\", indicating how AOI's\n#' of source_crs and target_crs are being used\n#' @param grid_availability character; one of \"USED\" (Grid availability is only used for sorting \n#' results. Operations where some grids are missing will be sorted last), \"DISCARD\"\n#' (Completely discard an operation if a required grid is missing)\n#' , \"IGNORED\" (Ignore grid availability at all. Results will be presented as if all grids were \n#' available.), or \"AVAILABLE\" (Results will be presented as if grids known to PROJ (that is \n#' registered in the grid_alternatives table of its database) were available. Used typically when \n#' networking is enabled.)\n#' @param desired_accuracy numeric; only return pipelines with at least this accuracy\n#' @param strict_containment logical; default `FALSE`; permit partial matching of the area\n#' of interest; if `TRUE` strictly contain the area of interest.\n#' The area of interest is either as given in AOI, or as implied by the\n#' source/target coordinate reference systems \n#' @param axis_order_authority_compliant logical; if `FALSE` always \n#' choose ‘x’ or longitude for the first \n#' axis; if TRUE, follow the axis orders given by the coordinate reference systems when \n#' constructing the for the first axis; if `FALSE`, follow the axis orders given by\n#' @return `sf_proj_pipelines()` returns a table with candidate coordinate transformation\n#' pipelines along with their accuracy; `NA` accuracy indicates ballpark accuracy.\n#' @name proj_tools\n#' @export\nsf_proj_pipelines = function(source_crs, target_crs, authority = character(0), AOI = numeric(0),\n\t\tUse = \"NONE\", grid_availability = \"USED\", desired_accuracy = -1.0, \n\t\tstrict_containment = FALSE, axis_order_authority_compliant = st_axis_order()) {\n\tstopifnot(!missing(source_crs), !missing(target_crs))\n\tif (inherits(source_crs, \"crs\"))\n\t\tsource_crs = source_crs$wkt\n\tif (inherits(target_crs, \"crs\"))\n\t\ttarget_crs = target_crs$wkt\n\tstopifnot(is.character(source_crs), is.character(target_crs))\n\n\tret = CPL_get_pipelines(c(source_crs, target_crs), as.character(authority), \n\t\tas.numeric(AOI), as.character(Use), as.character(grid_availability),\n\t\tas.numeric(desired_accuracy), as.logical(strict_containment), \n\t\tas.logical(axis_order_authority_compliant))\n\tif (nrow(ret)) {\n\t\tif (!startsWith(ret$definition[1], \"+\")) # paste + to every word\n\t\t\tret$definition = \n\t\t\t\tsapply(strsplit(ret$definition, \" \"), \n\t\t\t\t\tfunction(x) paste0(paste0(\"+\", x), collapse=\" \"))\n\t\tret$containment = strict_containment\n\t\tstructure(ret, class = c(\"proj_pipelines\", \"data.frame\"),\n\t\t\tsource_crs = source_crs, target_crs = target_crs)\n\t} else\n\t\tinvisible(NULL)\n}\n\n#' @export\nprint.proj_pipelines = function(x, ...) {\n\tcat(\"Candidate coordinate operations found: \", nrow(x), \"\\n\")\n\tnos <- which(!x$instantiable)\n\tif (length(nos) > 0L)\n\t\txx <- x[-nos,]\n\telse\n\t\txx <- x\n\txx <- xx[order(xx$accuracy),]\n\ty = xx[1,]\n\tcat(\"Strict containment: \", y$containment, \"\\n\")\n\tcat(\"Axis order auth compl: \", y$axis_order, \"\\n\")\n\tcat(\"Source: \", attr(x, \"source_crs\"), \"\\n\")\n\tcat(\"Target: \", attr(x, \"target_crs\"), \"\\n\")\n\tif (is.na(y$accuracy))\n\t\tcat(\"Best instantiable operation has only ballpark accuracy\", \"\\n\")\n\telse\n\t\tcat(\"Best instantiable operation has accuracy:\", y$accuracy, \"m\\n\")\n\tcat(\"Description: \")\n\tdesc <- strwrap(y$description, exdent=13, width=0.8*getOption(\"width\"))\n\tif (length(desc) == 1L)\n\t\tcat(desc, \"\\n\")\n\telse\n\t\tcat(desc, sep=\"\\n\")\n\tcat(\"Definition: \")\n\tdef <- strwrap(y$definition, exdent=13, width=0.8*getOption(\"width\"))\n\tif (length(def) == 1L)\n\t\tcat(def, \"\\n\")\n\telse\n\t\tcat(def, sep=\"\\n\")\n\t# nos:\n\tif (length(nos) > 0L) {\n\t\tgrds <- attr(x, \"grids\")\n\t\tfor (i in seq(along.with = nos)) {\n\t\t\tgrd <- grds[[nos[i]]]\n\t\t\tii <- length(grd)\n\t\t\tif (ii > 0L) {\n\t\t\t\tcat(\"Operation\", nos[i], \"is lacking\", ii,\n\t\t\t\tifelse(ii == 1L, \"grid\", \"grids\"),\n\t\t\t\t\t\"with accuracy\", x$accuracy[nos[i]], \"m\\n\")\n\t\t\t\tfor (j in 1:ii) {\n\t\t\t\t\tcat(\"Missing grid:\", grd[[j]][[1]], \"\\n\")\n\t\t\t\t\tif (nzchar(grd[[j]][[2]])) cat(\"Name:\", grd[[j]][[2]], \"\\n\")\n\t\t\t\t\tif (nzchar(grd[[j]][[4]])) cat(\"URL:\", grd[[j]][[4]], \"\\n\")\n\t\t\t\t}\n\t\t\t}\n\t\t}\n\t}\n\tinvisible(x)\n}\n"
},
{
"path": "R/read.R",
"content": "sf_stringsAsFactors = function() {\n\tif (getRversion() < \"4.1.0\")\n\t\tdefault.stringsAsFactors()\n\telse\n\t\tFALSE\n}\n\nset_utf8 = function(x) {\n\tn = names(x)\n\tEncoding(n) = \"UTF-8\"\n\tto_utf8 = function(x) {\n\t\tif (is.character(x))\n\t\t\tEncoding(x) = \"UTF-8\"\n\t\tx\n\t}\n\tstructure(lapply(x, to_utf8), names = n)\n}\n\n#' Read simple features or layers from file or database\n#'\n#' Read simple features from file or database, or retrieve layer names and their\n#' geometry type(s)\n#' @param dsn data source name (interpretation varies by driver - for some\n#' drivers, \\code{dsn} is a file name, but may also be a folder, or contain\n#' the name and access credentials of a database); in case of GeoJSON,\n#' \\code{dsn} may be the character string holding the geojson data. It can\n#' also be an open database connection.\n#' @param layer layer name (varies by driver, may be a file name without\n#' extension); in case \\code{layer} is missing, \\code{st_read} will read the\n#' first layer of \\code{dsn}, give a warning and (unless \\code{quiet = TRUE})\n#' print a message when there are multiple layers, or give an error if there\n#' are no layers in \\code{dsn}. If \\code{dsn} is a database connection, then\n#' \\code{layer} can be a table name or a database identifier (see\n#' \\code{\\link[DBI]{Id}}). It is also possible to omit \\code{layer} and rather\n#' use the \\code{query} argument.\n#' @param ... parameter(s) passed on to \\link{st_as_sf}\n#' @param options character; driver dependent dataset open options, multiple\n#' options supported. For possible values, see the \"Open options\" section\n#' of the GDAL documentation of the corresponding driver, and\n#' for an example.\n#' @param quiet logical; suppress info on name, driver, size and spatial\n#' reference, or signaling no or multiple layers\n#' @param geometry_column integer or character; in case of multiple geometry\n#' fields, which one to take?\n#' @param type integer; ISO number of desired simple feature type; see details.\n#' If left zero, and \\code{promote_to_multi} is \\code{TRUE}, in case of mixed\n#' feature geometry types, conversion to the highest numeric type value found\n#' will be attempted. A vector with different values for each geometry column\n#' can be given.\n#' @param promote_to_multi logical; in case of a mix of Point and MultiPoint, or\n#' of LineString and MultiLineString, or of Polygon and MultiPolygon, convert\n#' all to the Multi variety; defaults to \\code{TRUE}\n#' @param stringsAsFactors logical; should character vectors be\n#' converted to factors? Default for \\code{read_sf} or R version >= 4.1.0 is\n#' \\code{FALSE}, for \\code{st_read} and R version < 4.1.0 equal to\n#' \\code{default.stringsAsFactors()}\n#' @param int64_as_string logical; if `TRUE`, Int64 attributes are returned as\n#' string; if `FALSE`, they are returned as double and a warning is given when\n#' precision is lost (i.e., values are larger than 2^53).\n#' @param check_ring_dir logical; if `TRUE`, polygon ring directions are checked\n#' and if necessary corrected (when seen from above: exterior ring counter\n#' clockwise, holes clockwise)\n#' @details for \\code{geometry_column}, see also\n#' \\url{https://gdal.org/en/latest/development/rfc/rfc41_multiple_geometry_fields.html}\n#'\n#' for values for \\code{type} see\n#' \\url{https://en.wikipedia.org/wiki/Well-known_text_representation_of_geometry#Well-known_binary}, \n#' but note that not every target value may lead to successful conversion. The\n#' typical conversion from POLYGON (3) to MULTIPOLYGON (6) should work; the\n#' other way around (type=3), secondary rings from MULTIPOLYGONS may be dropped\n#' without warnings. \\code{promote_to_multi} is handled on a per-geometry column\n#' basis; \\code{type} may be specified for each geometry column.\n#'\n#' Note that stray files in data source directories (such as \\code{*.dbf}) may\n#' lead to spurious errors that accompanying \\code{*.shp} are missing.\n#'\n#' In case of problems reading shapefiles from USB drives on OSX, please see\n#' \\url{https://github.com/r-spatial/sf/issues/252}. Reading shapefiles (or other\n#' data sources) directly from zip files can be done by prepending the path \n#' with \\code{/vsizip/}. This is part of the GDAL Virtual File Systems interface\n#' that also supports .gz, curl, and other operations, including chaining; see\n#' \\url{https://gdal.org/en/latest/user/virtual_file_systems.html} for a complete\n#' description and examples.\n#'\n#' For \\code{query} with a character \\code{dsn} the query text is handed to\n#' 'ExecuteSQL' on the GDAL/OGR data set and will result in the creation of a\n#' new layer (and \\code{layer} is ignored). See 'OGRSQL'\n#' \\url{https://gdal.org/en/latest/user/ogr_sql_dialect.html} for details. Please note that the\n#' 'FID' special field is driver-dependent, and may be either 0-based (e.g. ESRI\n#' Shapefile), 1-based (e.g. MapInfo) or arbitrary (e.g. OSM). Other features of\n#' OGRSQL are also likely to be driver dependent. The available layer names may\n#' be obtained with\n#' \\link{st_layers}. Care will be required to properly escape the use of some layer names.\n#'\n#' @return object of class \\link{sf} when a layer was successfully read; in case\n#' argument \\code{layer} is missing and data source \\code{dsn} does not\n#' contain a single layer, an object of class \\code{sf_layers} is returned\n#' with the layer names, each with their geometry type(s). Note that the\n#' number of layers may also be zero.\n#' @seealso \\link{st_layers}, \\link{st_drivers}\n#' @examples\n#' nc = st_read(system.file(\"shape/nc.shp\", package=\"sf\"))\n#' summary(nc) # note that AREA was computed using Euclidian area on lon/lat degrees\n#'\n#' ## only three fields by select clause\n#' ## only two features by where clause\n#' nc_sql = st_read(system.file(\"shape/nc.shp\", package=\"sf\"),\n#' query = \"SELECT NAME, SID74, FIPS FROM \\\"nc\\\" WHERE BIR74 > 20000\")\n#' \\dontrun{\n#' library(sp)\n#' example(meuse, ask = FALSE, echo = FALSE)\n#' try(st_write(st_as_sf(meuse), \"PG:dbname=postgis\", \"meuse\",\n#' layer_options = \"OVERWRITE=true\"))\n#' try(st_meuse <- st_read(\"PG:dbname=postgis\", \"meuse\"))\n#' if (exists(\"st_meuse\"))\n#' summary(st_meuse)\n#' }\n#'\n#' \\dontrun{\n#' ## note that we need special escaping of layer within single quotes (nc.gpkg)\n#' ## and that geom needs to be included in the select, otherwise we don't detect it\n#' layer <- st_layers(system.file(\"gpkg/nc.gpkg\", package = \"sf\"))$name[1]\n#' nc_gpkg_sql = st_read(system.file(\"gpkg/nc.gpkg\", package = \"sf\"),\n#' query = sprintf(\"SELECT NAME, SID74, FIPS, geom FROM \\\"%s\\\" WHERE BIR74 > 20000\", layer))\n#' }\n#' # spatial filter, as wkt:\n#' wkt = st_as_text(st_geometry(nc[1,]))\n#' # filter by (bbox overlaps of) first feature geometry:\n#' st_read(system.file(\"gpkg/nc.gpkg\", package=\"sf\"), wkt_filter = wkt)\n#' @export\nst_read = function(dsn, layer, ...) UseMethod(\"st_read\")\n\n#' @export\nst_read.default = function(dsn, layer, ...) {\n\tif (missing(dsn))\n\t\tstop(\"dsn should specify a data source or filename\")\n\telse {\n\t\tdsn_is_null = is.null(dsn)\n\t\tclass_dsn = class(dsn)\n\t\ttr <- try(dsn <- as.character(dsn))\n\t\tif (dsn_is_null || inherits(tr, \"try-error\"))\n\t\t\tstop(paste(\"no st_read method available for objects of class\", paste(class_dsn, collapse = \", \")))\n\t\telse\n\t\t\tst_read.character(dsn, layer, ...)\n\t}\n}\n\nprocess_cpl_read_ogr = function(x, quiet = FALSE, ..., check_ring_dir = FALSE,\n\t\tstringsAsFactors = ifelse(as_tibble, FALSE, sf_stringsAsFactors()),\n\t\tgeometry_column = 1, as_tibble = FALSE, optional = FALSE) {\n\n\twhich.geom = which(vapply(x, function(f) inherits(f, \"sfc\"), TRUE))\n\n\tif (as_tibble && !requireNamespace(\"tibble\", quietly = TRUE))\n\t\tstop(\"package tibble not available: install first?\")\n\n\t# in case no geometry is present:\n\tif (length(which.geom) == 0) {\n\t\tif (! quiet)\n\t\t\twarning(\"no simple feature geometries present: returning a data.frame or tbl_df\", call. = FALSE)\n\t\tx = if (!as_tibble) {\n\t\t\t\tif (any(sapply(x, is.list)))\n\t\t\t\t\twarning(\"list-column(s) present: in case of failure, try read_sf() or as_tibble=TRUE\") # nocov\n\t\t\t\tas.data.frame(x , stringsAsFactors = stringsAsFactors, optional = optional)\n\t\t\t} else\n\t\t\t\ttibble::as_tibble(x)\n\t\treturn(x)\n\t}\n\n\tnm = names(x)[which.geom]\n\tEncoding(nm) = \"UTF-8\"\n\tgeom = x[which.geom]\n\n\tlc.other = setdiff(which(vapply(x, is.list, TRUE)), which.geom) # non-sfc list-columns\n\tlist.cols = x[lc.other]\n\tnm.lc = names(x)[lc.other]\n\n\tif (length(x) == length(geom)) { # ONLY geometry column(s)\n\t\tif (as_tibble)\n\t\t\tx <- tibble::tibble(row.names = seq_along(geom[[1]]))[-1]\n\t\telse\n\t\t\tx <- data.frame(row.names = seq_along(geom[[1]]))\n\t} else {\n\t\tx <- as.data.frame(set_utf8(x[-c(lc.other, which.geom)]), stringsAsFactors = stringsAsFactors,\n\t\t\toptional = optional || as_tibble)\n\t\tif (as_tibble) {\n\t\t\t# \"sf\" class is added later by `st_as_sf` (and sets all the attributes)\n\t\t\tx <- tibble::new_tibble(x, nrow = nrow(x))\n\t\t}\n\t}\n\n\tfor (i in seq_along(lc.other))\n\t\tx[[ nm.lc[i] ]] = list.cols[[i]]\n\n\tfor (i in seq_along(geom)) {\n\t\tif (is.null(attr(geom[[i]], \"bbox\"))) {\n\t\t\tx[[ nm[i] ]] = st_sfc(geom[[i]], crs = attr(geom[[i]], \"crs\")) # computes bbox\n\t\t} else {\n\t\t\tx[[ nm[i] ]] = geom[[i]]\n\t\t}\n\t}\n\n\tx = st_as_sf(x, ...,\n\t\tsf_column_name = if (is.character(geometry_column)) geometry_column else nm[geometry_column],\n\t\tcheck_ring_dir = check_ring_dir)\n\tif (! quiet)\n\t\tprint(x, n = 0)\n\telse\n\t\tx\n}\n\n# Allow setting the default to TRUE to make it easier to run existing tests\n# of st_read() through the stream interface\ndefault_st_read_use_stream = function() {\n\tgetOption(\n\t\t\"sf.st_read_use_stream\",\n\t\tidentical(Sys.getenv(\"R_SF_ST_READ_USE_STREAM\"), \"true\")\n\t)\n}\n\nprocess_cpl_read_ogr_stream = function(x, geom_column_info, num_features, fid_column_name,\n crs = NULL, promote_to_multi = TRUE, ...) {\n\tis_geometry_column = vapply(\n\t\tx$get_schema()$children,\n\t\tfunction(s) identical(s$metadata[[\"ARROW:extension:name\"]], \"ogc.wkb\"),\n\t\tlogical(1)\n\t)\n \n geom_column_info$index = which(is_geometry_column)\n \n if (num_features == -1) {\n\t\tnum_features = NULL\n\t}\n \n # Suppress warnings about extension type conversion (since we want the\n # default behaviour of converting the storage type)\n\tdf = suppressWarnings(nanoarrow::convert_array_stream(x, size = num_features))\n\t\n\tfor (i in seq_len(nrow(geom_column_info))) {\n\t\tcrs = if (is.null(crs)) st_crs(geom_column_info$crs[[i]]) else st_crs(crs)\n\t\tname = geom_column_info$name[[i]]\n\t\tindex = geom_column_info$index[[i]]\n\t\t\n\t\tcolumn_wkb = df[[index]]\n\t\tattributes(column_wkb) = NULL\n\t\tcolumn_sfc = wk::wk_handle(\n\t\t\twk::new_wk_wkb(column_wkb),\n\t\t\twk::sfc_writer(promote_multi = promote_to_multi)\n\t\t)\n\t\t\n\t\tdf[[index]] = st_set_crs(column_sfc, crs)\n\t\tnames(df)[index] = name\n\t}\n\t\n\t# Rename OGC_FID to fid_column_name and move to end\n\tif (length(fid_column_name) == 1 && \"OGC_FID\" %in% names(df)) {\n\t\tdf = df[c(setdiff(names(df), \"OGC_FID\"), \"OGC_FID\")]\n\t\tnames(df)[names(df) == \"OGC_FID\"] = fid_column_name\n\t}\n\t\n\t# All geometry columns to the end\n\tdf = df[c(setdiff(seq_along(df), geom_column_info$index), geom_column_info$index)]\n\t\n\tprocess_cpl_read_ogr(df, ...)\n}\n\n#' @name st_read\n#' @param fid_column_name character; name of column to write feature IDs to; defaults to not doing this\n#' @param drivers character; limited set of driver short names to be tried (default: try all)\n#' @param wkt_filter character; WKT representation of a spatial filter (may be used as bounding box, selecting overlapping geometries); see examples\n#' @param optional logical; passed to \\link[base]{as.data.frame}; always \\code{TRUE} when \\code{as_tibble} is \\code{TRUE}\n#' @param use_stream Use `TRUE` to use the experimental columnar interface introduced in GDAL 3.6.\n#' @note The use of \\code{system.file} in examples make sure that examples run regardless where R is installed:\n#' typical users will not use \\code{system.file} but give the file name directly, either with full path or relative\n#' to the current working directory (see \\link{getwd}). \"Shapefiles\" consist of several files with the same basename\n#' that reside in the same directory, only one of them having extension \\code{.shp}.\n#' @export\nst_read.character = function(dsn, layer, ..., query = NA, options = NULL, quiet = FALSE, geometry_column = 1L,\n\t\ttype = 0, promote_to_multi = TRUE, stringsAsFactors = sf_stringsAsFactors(),\n\t\tint64_as_string = FALSE, check_ring_dir = FALSE, fid_column_name = character(0),\n\t\tdrivers = character(0), wkt_filter = character(0), optional = FALSE,\n\t\tuse_stream = default_st_read_use_stream()) {\n\n\tlayer = if (missing(layer))\n\t\tcharacter(0)\n\telse\n\t\tenc2utf8(layer)\n\tif (nchar(dsn) < 1)\n\t\tstop(\"`dsn` must point to a source, not an empty string.\", call. = FALSE)\n\tdsn_exists = file.exists(dsn)\n\tdsn_isdb = is_db_driver(dsn)\n\tif (length(dsn) == 1 && dsn_exists && !dsn_isdb)\n\t\tdsn = enc2utf8(normalizePath(dsn))\n\n\tif (length(promote_to_multi) > 1)\n\t\tstop(\"`promote_to_multi' should have length one, and applies to all geometry columns\")\n\n\tif (use_stream) {\n\t\tstream = nanoarrow::nanoarrow_allocate_array_stream()\n\t\tinfo = CPL_read_gdal_stream(stream, dsn, layer, query, as.character(options), quiet,\n\t\t drivers, wkt_filter, dsn_exists, dsn_isdb, fid_column_name, getOption(\"width\"))\n\t\tgeom_column_info = data.frame(name = info[[1]], crs = info[[2]], stringsAsFactors = FALSE)\n\t\tprocess_cpl_read_ogr_stream(stream, geom_column_info, num_features = info[[3]],\n\t\t\tfid_column_name = fid_column_name, stringsAsFactors = stringsAsFactors, quiet = quiet,\n\t\t\tpromote_to_multi = promote_to_multi, ...)\n\t} else {\n\t\tx = CPL_read_ogr(dsn, layer, query, as.character(options), quiet, type, fid_column_name,\n\t\t drivers, wkt_filter, promote_to_multi, int64_as_string, dsn_exists, dsn_isdb, getOption(\"width\"))\n\n process_cpl_read_ogr(x, quiet, check_ring_dir = check_ring_dir,\n\t\t\tstringsAsFactors = stringsAsFactors, geometry_column = geometry_column,\n\t\t\toptional = optional, ...)\n\t}\n}\n\n#' @name st_read\n#' @export\n#' @details \\code{read_sf} and \\code{write_sf} are aliases for \\code{st_read} and \\code{st_write}, respectively, with some\n#' modified default arguments.\n#' \\code{read_sf} and \\code{write_sf} are quiet by default: they do not print information\n#' about the data source. \\code{read_sf} returns an sf-tibble rather than an sf-data.frame.\n#' \\code{write_sf} delete layers by default: it overwrites existing files without asking or warning.\n#' @examples\n#' # read geojson from string:\n#' geojson_txt <- paste(\"{\\\"type\\\":\\\"MultiPoint\\\",\\\"coordinates\\\":\",\n#' \"[[3.2,4],[3,4.6],[3.8,4.4],[3.5,3.8],[3.4,3.6],[3.9,4.5]]}\")\n#' x = st_read(geojson_txt)\n#' x\nread_sf <- function(..., quiet = TRUE, stringsAsFactors = FALSE, as_tibble = TRUE) {\n\tst_read(..., quiet = quiet, stringsAsFactors = stringsAsFactors, as_tibble = as_tibble)\n}\n\nclean_columns = function(obj, factorsAsCharacter) {\n\tpermitted = c(\"character\", \"integer\", \"numeric\", \"Date\", \"POSIXct\", \"logical\", \"list\")\n\tfor (i in seq_along(obj)) {\n\t\tif (is.factor(obj[[i]])) {\n\t\t\tobj[[i]] = if (factorsAsCharacter)\n\t\t\t\t\tas.character(obj[[i]])\n\t\t\t\telse\n\t\t\t\t\tas.numeric(obj[[i]])\n\t\t}\n\t\tif (! inherits(obj[[i]], permitted)) {\n\t\t\tif (inherits(obj[[i]], \"POSIXlt\"))\n\t\t\t\tobj[[i]] = as.POSIXct(obj[[i]])\n\t\t\telse if (is.numeric(obj[[i]]))\n\t\t\t\tobj[[i]] = as.numeric(obj[[i]]) # strips class\n\t\t}\n\t\tif (is.character(obj[[i]]))\n\t\t\tobj[[i]] = enc2utf8(obj[[i]])\n\t}\n\tccls.ok = vapply(obj, function(x) inherits(x, permitted), TRUE)\n\tif (any(!ccls.ok)) {\n\t\t# nocov start\n nms <- names(obj)[!ccls.ok]\n cls <- sapply(obj, function(x) paste(class(x), collapse=\";\"))[!ccls.ok]\n warning(\"Dropping column(s) \", paste(nms, collapse=\",\"),\n \" of class(es) \", paste(cls, collapse=\",\"))\n\t\tobj = obj[ccls.ok]\n\t\t# nocov end\n\t}\n\tcolclasses = vapply(obj, function(x) permitted[ which(inherits(x, permitted, which = TRUE) > 0)[1] ] , \"\")\n\t# check that list columns contain raw vectors:\n\tfor (lc in which(colclasses == \"list\")) {\n\t\tif (!all(sapply(obj[[lc]], inherits, \"raw\")))\n\t\t\tstop(\"list columns are only allowed with raw vector contents\")\n\t}\n\tstructure(obj, colclasses = colclasses)\n}\n\nabbreviate_shapefile_names = function(x) {\n# from: rgdal/pkg/R/ogr_write.R:\n fld_names <- names(x)\n# if (!is.null(encoding)) {\n# fld_names <- iconv(fld_names, from=encoding, to=\"UTF-8\")\n# }\n\tif (any(nchar(fld_names) > 10)) {\n\t\tfld_names <- abbreviate(fld_names, minlength = 7)\n\t\twarning(\"Field names abbreviated for ESRI Shapefile driver\")\n\t\tif (any(nchar(fld_names) > 10))\n\t\t\tfld_names <- abbreviate(fld_names, minlength = 5) # nocov\n\t}\n# fix for dots in DBF field names 121124\n\tif (length(wh. <- grep(\"\\\\.\", fld_names) > 0))\n\t\tfld_names[wh.] <- gsub(\"\\\\.\", \"_\", fld_names[wh.])\n\n\tif (anyDuplicated(fld_names))\n\t\tstop(\"Non-unique field names\") # nocov\n\n\tnames(x) = fld_names\n\tx\n}\n\n#' Write simple features object to file or database\n#'\n#' Write simple features object to file or database\n#' @param obj object of class \\code{sf} or \\code{sfc}\n#' @param dsn data source name. Interpretation varies by driver: can be\n#' a filename, a folder, a database name, or a Database Connection\n#' (we officially test support for\n#' \\code{\\link[RPostgres:Postgres]{RPostgres::Postgres()}} connections).\n#' @param layer layer name. Varies by driver, may be a file name without\n#' extension; for database connection, it is the name of the table. If layer\n#' is missing, the \\code{basename} of \\code{dsn} is taken.\n#' @param driver character; name of driver to be used; if missing and \\code{dsn} is not a Database Connection, a driver name is guessed from \\code{dsn};\n#' \\code{st_drivers()} returns the drivers that are available with their properties; links to full driver documentation\n#' are found at \\url{https://gdal.org/en/latest/drivers/vector/index.html}\n#' @param ... other arguments passed to \\link[DBI]{dbWriteTable} when \\code{dsn} is a\n#' Database Connection\n#' @param dataset_options character; driver dependent dataset creation options;\n#' multiple options supported.\n#' @param layer_options character; driver dependent layer creation options;\n#' multiple options supported.\n#' @param quiet logical; suppress info on name, driver, size and spatial\n#' reference\n#' @param factorsAsCharacter logical; convert \\code{factor} levels to character\n#' strings (\\code{TRUE}, default), otherwise into numbers when\n#' factorsAsCharacter is \\code{FALSE}. For database connections,\n#' \\code{factorsAsCharacter} is always \\code{TRUE}.\n#' @param append logical; should we append to an existing layer, or replace it?\n#' if \\code{TRUE} append, if \\code{FALSE} replace.\n#' The default for \\code{st_write} is \\code{NA} which raises an error if the layer exists.\n#' The default for \\code{write_sf} is \\code{FALSE}, which overwrites any existing data.\n#' See also next two arguments for more control on overwrite behavior.\n#' @param delete_dsn logical; delete data source \\code{dsn} before attempting\n#' to write?\n#' @param delete_layer logical; delete layer \\code{layer} before attempting to\n#' write?\n#' The default for \\code{st_write} is \\code{FALSE} which raises an error if the layer exists.\n#' The default for \\code{write_sf} is \\code{TRUE}.\n#' @param fid_column_name character, name of column with feature IDs; if\n#' specified, this column is no longer written as feature attribute.\n#' @param config_options character, named vector with GDAL config options\n#' @details\n#' Columns (variables) of a class not supported are dropped with a warning.\n#'\n#' When updating an existing layer, records are appended to it if the updating\n#' object has the right variable names and types. If names don't match an\n#' error is raised. If types don't match, behaviour is undefined: GDAL may\n#' raise warnings or errors or fail silently.\n#'\n#' When deleting layers or data sources is not successful, no error is emitted.\n#' \\code{delete_dsn} and \\code{delete_layer} should be\n#' handled with care; the former may erase complete directories or databases.\n#' @seealso \\link{st_drivers}, \\link[DBI]{dbWriteTable}\n#' @return \\code{obj}, invisibly\n#' @examples\n#' nc = st_read(system.file(\"shape/nc.shp\", package=\"sf\"))\n#' st_write(nc, paste0(tempdir(), \"/\", \"nc.shp\"))\n#' st_write(nc, paste0(tempdir(), \"/\", \"nc.shp\"), delete_layer = TRUE) # overwrites\n#' if (require(sp, quietly = TRUE)) {\n#' data(meuse, package = \"sp\") # loads data.frame from sp\n#' meuse_sf = st_as_sf(meuse, coords = c(\"x\", \"y\"), crs = 28992)\n#' # writes X and Y as columns:\n#' st_write(meuse_sf, paste0(tempdir(), \"/\", \"meuse.csv\"), layer_options = \"GEOMETRY=AS_XY\")\n#' st_write(meuse_sf, paste0(tempdir(), \"/\", \"meuse.csv\"), layer_options = \"GEOMETRY=AS_WKT\",\n#' delete_dsn=TRUE) # overwrites\n#' \\dontrun{\n#' library(sp)\n#' example(meuse, ask = FALSE, echo = FALSE)\n#' try(st_write(st_as_sf(meuse), \"PG:dbname=postgis\", \"meuse_sf\",\n#' layer_options = c(\"OVERWRITE=yes\", \"LAUNDER=true\")))\n#' demo(nc, ask = FALSE)\n#' try(st_write(nc, \"PG:dbname=postgis\", \"sids\", layer_options = \"OVERWRITE=true\"))\n#' }\n#' }\n#' @export\nst_write = function(obj, dsn, layer, ...) UseMethod(\"st_write\")\n\n#' @name st_write\n#' @export\nst_write.sfc = function(obj, dsn, layer, ...) {\n\tif (missing(layer))\n\t\tst_write.sf(st_sf(geom = obj), dsn, ...)\n\telse\n\t\tst_write.sf(st_sf(geom = obj), dsn, layer, ...)\n\tinvisible(obj)\n}\n\n#' @name st_write\n#' @export\nst_write.sf = function(obj, dsn, layer = NULL, ...,\n\t\tdriver = guess_driver_can_write(dsn),\n\t\tdataset_options = NULL, layer_options = NULL, quiet = FALSE, factorsAsCharacter = TRUE,\n\t\tappend = NA, delete_dsn = FALSE, delete_layer = !is.na(append) && !append,\n\t\tfid_column_name = NULL, config_options = character(0)) {\n\n\treturn_obj = ret = obj\n\tif (!is.null(list(...)$update)) {\n\t\t.Deprecated(\"append\", old = \"update\") # deprecated at 0.9-0\n\t\tif (is.na(append))\n\t\t\tappend = list(...)$update\n\t}\n#\telse if (length(list(...)))\n#\t\tstop(paste(\"unrecognized argument(s)\", names(list(...)), \"\\n\"))\n\tif (missing(dsn))\n\t\tstop(\"dsn should specify a data source or filename\")\n\tif (inherits(dsn, c(\"DBIObject\", \"PostgreSQLConnection\", \"Pool\"))) {\n\t\tif (inherits(dsn, \"Pool\")) {\n\t\t\tif (! requireNamespace(\"pool\", quietly = TRUE)) # nocov start\n\t\t\t\tstop(\"package pool required, please install it first\")\n\t\t\tdsn = pool::poolCheckout(dsn)\n\t\t\ton.exit(pool::poolReturn(dsn)) # nocov end\n\t\t}\n\n\t\tif (is.null(layer)) {\n\t\t\tlayer = deparse(substitute(obj))\n\t\t}\n\n\t\tif (is.na(append)) {\n\t\t\tappend = FALSE\n\t\t}\n\n\t\t# check arguments\n\t\tcl <- as.list(match.call())[-1L]\n\t\tif (\"overwrite\" %in% names(cl)) {\n\t\t\tstop(\"Argument `overwrite` in `st_write()` is deprecated, use `delete_layer` instead.\", call. = FALSE)\n\t\t}\n\n\t\tcheck_append_delete(append, delete_layer)\n\t\tdbWriteTable(dsn, name = layer, value = obj,\n\t\t\t\t\t append = append, overwrite = delete_layer,\n\t\t\t\t\t factorsAsCharacter = factorsAsCharacter, ...)\n\t\treturn(invisible(return_obj))\n\t} else if (!inherits(dsn, \"character\")) { # add methods for other dsn classes here...\n\t\tstop(paste(\"no st_write method available for dsn of class\", class(dsn)[1]))\n\t}\n\n\tif (!is.na(append) && append == FALSE && delete_layer == FALSE)\n\t\tstop(\"cannot replace a layer if delete_layer is FALSE\")\n\n\tif (is.null(layer))\n\t\tlayer <- file_path_sans_ext(basename(dsn))\n\n\tif (length(dsn) == 1 && length(grep(\"~\", dsn)) == 1) # resolve ~\n\t\tdsn = normalizePath(dsn, mustWork = FALSE) # nocov\n\n\t# this seems to be always a good idea:\n\tdsn = enc2utf8(dsn)\n\n\t# handle the case where obj does not have a geometry column:\n\tif (write_geometries <- inherits(obj, \"sf\")) {\n\t\tgeom = st_geometry(obj)\n\t\tobj[[attr(obj, \"sf_column\")]] = NULL\n\t\tif (is.na(st_crs(geom))) {\n\t\t\tmessage('writing: substituting ENGCRS[\"Undefined Cartesian SRS with unknown unit\"] for missing CRS')\n\t\t\tst_crs(geom) = st_crs(\"ENGCRS[\\\"Undefined Cartesian SRS with unknown unit\\\",EDATUM[\\\"Unknown engineering datum\\\"],CS[Cartesian,2],AXIS[\\\"X\\\",unspecified,ORDER[1],LENGTHUNIT[\\\"unknown\\\",0]],AXIS[\\\"Y\\\",unspecified,ORDER[2],LENGTHUNIT[\\\"unknown\\\",0]]]\")\n\t\t}\n\t} else { # create fake geometries:\n\t\tv = vector(\"list\", nrow(obj))\n\t\tv[seq_len(nrow(obj))] = list(st_point())\n\t\tgeom = st_sfc(v)\n\t}\n\n\tif (driver == \"ESRI Shapefile\") { # remove trailing .shp from layer name\n\t\tlayer = sub(\".shp$\", \"\", layer)\n\t\tobj = abbreviate_shapefile_names(obj)\n\t}\n\n\tobj = clean_columns(as.data.frame(obj), factorsAsCharacter)\n\t# this attaches attr colclasses\n\n\tnames(obj) = enc2utf8(names(obj))\n\n\tdim = if (length(geom) == 0)\n\t\t\t\"XY\"\n\t\telse\n\t\t\tclass(geom[[1]])[1]\n\n\tfids = if (!is.null(fid_column_name)) {\n\t\t\tfids = as.character(obj[[fid_column_name]])\n\t\t\tobj[[fid_column_name]] = NULL\n\t\t\tfids\n\t\t} else\n\t\t\tcharacter(0)\n\n\tret = CPL_write_ogr(obj, dsn, layer, driver,\n\t\tas.character(dataset_options), as.character(layer_options),\n\t\tgeom, dim, fids, config_options, quiet, append, delete_dsn, delete_layer,\n\t\twrite_geometries, getOption(\"width\"))\n\tif (ret == 1) { # try through temp file:\n\t\ttmp = tempfile(fileext = paste0(\".\", tools::file_ext(dsn))) # nocov start\n\t\tif (!quiet)\n\t\t\tmessage(paste(\"writing first to temporary file\", tmp))\n\t\tif (CPL_write_ogr(obj, tmp, layer, driver,\n\t\t\t\tas.character(dataset_options), as.character(layer_options),\n\t\t\t\tgeom, dim, fids, config_options, quiet, append, delete_dsn, delete_layer,\n\t\t\t\twrite_geometries, getOption(\"width\")) == 1)\n\t\t\tstop(paste(\"failed writing to temporary file\", tmp))\n\t\tif (!file.copy(tmp, dsn, overwrite = append || delete_dsn || delete_layer))\n\t\t\tstop(paste(\"copying\", tmp, \"to\", dsn, \"failed\"))\n\t\tif (!file.remove(tmp))\n\t\t\twarning(paste(\"removing\", tmp, \"failed\"))\n\t} # nocov end\n\tinvisible(return_obj)\n}\n\n#' @name st_write\n#' @export\nst_write.data.frame <- function(obj, dsn, layer = NULL, ...) {\n\tsf = try(st_as_sf(obj), silent = TRUE)\n\tif (!inherits(sf, \"try-error\"))\n\t\tst_write.sf(sf, dsn = dsn, layer = layer, ...)\n\telse\n\t\tst_write.sf(obj, dsn = dsn, layer = layer, ...)\n\tinvisible(obj)\n}\n\n#' @name st_write\n#' @export\nwrite_sf <- function(..., quiet = TRUE, append = FALSE, delete_layer = !append) {\n\tst_write(..., quiet = quiet, append = append, delete_layer = delete_layer)\n}\n\n#' Get GDAL drivers\n#'\n#' Get a list of the available GDAL drivers\n#' @param what character: `\"vector\"` or `\"raster\"`, anything else will return all\n#' drivers.\n#' @param regex character; regular expression to filter the `name` and `long_name`\n#' fields on\n#' @details The drivers available will depend on the installation of GDAL/OGR,\n#' and can vary; the `st_drivers()` function shows all the drivers that are\n#' readable, and which may be written. The field `vsi` refers to the driver's\n#' capability to read/create datasets through the VSI*L API. [See GDAL website\n#' for additional details on driver\n#' support](https://gdal.org/en/latest/drivers/vector/index.html)\n#' @return A `data.frame` with driver metadata.\n#' @export\n#' @md\n#' @examples\n#' # The following driver lists depend on the GDAL setup and platform used:\n#' st_drivers()\n#' st_drivers(\"raster\", \"GeoT\")\nst_drivers = function(what = \"vector\", regex) {\n\tret = CPL_get_gdal_drivers(0)\n\trow.names(ret) = ret$name\n\tret = switch(what,\n\t\tvector = ret[ret$is_vector,],\n\t\traster = ret[ret$is_raster,],\n\t\tret)\n\tif (missing(regex))\n\t\tret\n\telse {\n\t\tfn = function(x, pattern) any(grepl(x, pattern = pattern))\n\t\tret[apply(ret[c(\"name\", \"long_name\")], 1, fn, pattern = regex), ]\n\t}\n}\n\n#' @export\nprint.sf_layers = function(x, ...) {\n\tn_gt = max(sapply(x$geomtype, length))\n\tx$geomtype = vapply(x$geomtype, function(x) paste(x, collapse = \", \"), \"\")\n\tcat(paste(\"Driver:\", x$driver, \"\\n\"))\n\tx$driver = NULL\n\tx$features[x$features < 0] = NA\n\tcat(\"Available layers:\\n\")\n\tif (length(x$name) == 0) {\n\t\tcat(\"\\n\") # nocov\n\t\tinvisible(x) # nocov\n\t} else {\n\t\tcrs = sapply(x$crs, function(crs) crs$input)\n\t\tx$crs = crs\n\t\tdf = data.frame(unclass(x))\n\t\tgt = if (n_gt > 1)\n\t\t\t\t\"geometry_types\"\n\t\t\telse\n\t\t\t\t\"geometry_type\"\n\t\tnames(df) = c(\"layer_name\", gt, \"features\", \"fields\", \"crs_name\")\n\t\tprint(df)\n\t\tinvisible(df)\n\t}\n}\n\n#' Return properties of layers in a datasource\n#'\n#' Return properties of layers in a datasource\n#' @param dsn data source name (interpretation varies by driver - for some drivers, \\code{dsn} is a file name, but may also be a\n#' folder, or contain the name and access credentials of a database)\n#' @param options character; driver dependent dataset open options, multiple options supported.\n#' @param do_count logical; if TRUE, count the features by reading them, even if their count is not reported by the driver\n#' @name st_layers\n#' @return list object of class \\code{sf_layers} with elements\n#' \\describe{\n#' \\item{name}{name of the layer}\n#' \\item{geomtype}{list with for each layer the geometry types}\n#' \\item{features}{number of features (if reported; see \\code{do_count})}\n#' \\item{fields}{number of fields}\n#' \\item{crs}{list with for each layer the \\code{crs} object}\n#' }\n#' @export\nst_layers = function(dsn, options = character(0), do_count = FALSE) {\n\tif (missing(dsn))\n\t\tstop(\"dsn should specify a data source or filename\")\n\tif (length(dsn) == 1 && file.exists(dsn))\n\t\tdsn = enc2utf8(normalizePath(dsn))\n\tret = CPL_get_layers(dsn, options, do_count)\n\tif (length(ret[[1]]) > 0) {\n\t\tEncoding(ret[[1]]) <- \"UTF-8\"\n\t\tret[[1]] <- enc2native(ret[[1]])\n\t}\n\tstructure(ret, row.names = seq_along(ret[[1]]), class = c(\"sf_layers\", \"data.frame\"))\n}\n\nguess_driver = function(dsn) {\n stopifnot(is.character(dsn))\n stopifnot(length(dsn) == 1)\n\n\t# find match: try extension first\n\tdrv = extension_map[tolower(tools::file_ext(dsn))]\n\tif (is_db_driver(dsn))\n\t\tdrv = prefix_map[tolower(strsplit(dsn, \":\")[[1]][1])]\n\n\tdrv <- unlist(drv)\n\n\tif (is.null(drv)) {\n\t # no match\n\t return(NA)\n\t}\n\tdrv\n}\n\nis_db_driver = function(dsn) {\n\tany(grep(\":\", gsub(\":[/\\\\]\", \"/\", dsn)))\n}\n\nguess_driver_can_write = function(dns, drv = guess_driver(dns)) {\n if(is.na(drv)) {\n stop(\"Could not guess driver for \", dns, call. = FALSE)\n }\n if(!is_driver_available(drv)) {\n stop(unlist(drv), \" driver not available in supported drivers, see `st_drivers()'\", call. = FALSE)\n }\n if(!is_driver_can(drv, operation = \"write\")) {\n stop(\"Driver \", drv, \" cannot write. see `st_drivers()'\", call. = FALSE)\n }\n return(drv)\n}\n\n#' Check if driver is available\n#'\n#' Search through the driver table if driver is listed\n#' @param drv character. Name of driver\n#' @param drivers data.frame. Table containing driver names and support. Default\n#' is from \\code{\\link{st_drivers}}\nis_driver_available = function(drv, drivers = st_drivers()) {\n i = match(drv, drivers$name)\n if (is.na(i))\n return(FALSE)\n\n return(TRUE)\n}\n\n#' Check if a driver can perform an action\n#'\n#' Search through the driver table to match a driver name with\n#' an action (e.g. \\code{\"write\"}) and check if the action is supported.\n#' @param drv character. Name of driver\n#' @param drivers data.frame. Table containing driver names and support. Default\n#' is from \\code{\\link{st_drivers}}\n#' @param operation character. What action to check\nis_driver_can = function(drv, drivers = st_drivers(), operation = \"write\") {\n stopifnot(operation %in% names(drivers))\n i = match(drv, drivers$name)\n if (!drivers[i, operation])\n return(FALSE)\n\n return(TRUE)\n}\n\n#' Map extension to driver\n#' @docType data\nextension_map <- list(\n \"bna\" = \"BNA\",\n \"csv\" = \"CSV\",\n \"e00\" = \"AVCE00\",\n \"fgb\" = \"FlatGeobuf\",\n \"gdb\" = \"OpenFileGDB\",\n \"geojson\" = \"GeoJSON\",\n \"gml\" = \"GML\",\n \"gmt\" = \"GMT\",\n \"gpkg\" = \"GPKG\",\n \"gps\" = \"GPSBabel\",\n \"gpx\" = \"GPX\",\n \"gtm\" = \"GPSTrackMaker\",\n \"gxt\" = \"Geoconcept\",\n \"jml\" = \"JML\",\n \"kml\" = \"KML\",\n \"map\" = \"WAsP\",\n \"mdb\" = \"Geomedia\",\n \"nc\" = \"netCDF\",\n \"ods\" = \"ODS\",\n \"osm\" = \"OSM\",\n \"pbf\" = \"OSM\",\n \"shp\" = \"ESRI Shapefile\",\n \"sqlite\" = \"SQLite\",\n \"vdv\" = \"VDV\",\n \"xls\" = \"xls\",\n \"xlsx\" = \"XLSX\")\n\n#' Map prefix to driver\n#' @docType data\nprefix_map <- list(\n \"couchdb\" = \"CouchDB\",\n \"db2odbc\" = \"DB2ODBC\",\n \"dods\" = \"DODS\",\n \"gft\" = \"GFT\",\n \"mssql\" = \"MSSQLSpatial\",\n \"mysql\" = \"MySQL\",\n \"oci\" = \"OCI\",\n \"odbc\" = \"ODBC\",\n \"pg\" = \"PostgreSQL\",\n \"sde\" = \"SDE\")\n\n#' Drivers for which update should be \\code{TRUE} by default\n#' @docType data\ndb_drivers <- c(unlist(prefix_map), \"GPKG\", \"SQLite\")\n\n# Utils ----------------------------------------------------------------------\ncheck_append_delete <- function(append, delete) {\n\tif (append && delete) {\n\t\tstop(\"`delete_layer` and `append` cannot both be `TRUE`\", call. = FALSE)\n\t}\n}\n\n#' @name st_write\n#' @export\n#' @details `st_delete()` deletes layer(s) in a data source, or a data source if layers are\n#' omitted; it returns `TRUE` on success, `FALSE` on failure, invisibly.\nst_delete = function(dsn, layer = character(0), driver = guess_driver_can_write(dsn), quiet = FALSE) {\n\tinvisible(CPL_delete_ogr(dsn, layer, driver, quiet) == 0)\n}\n"
},
{
"path": "R/s2.R",
"content": "# see https://docs.google.com/presentation/d/1Hl4KapfAENAOf4gv-pSngKwvS_jwNVHRPZTTDzXXn6Q/view?pli=1#slide=id.i0\n# and the r-spatial/s2 package:\n# https://github.com/r-spatial/s2\n\n#' @export\n#' @param ... passed on\n#' @param use_s2 logical; if \\code{TRUE}, use the s2 spherical geometry package\n#' for geographical coordinate operations\n#' @name s2\n#' @return \\code{sf_use_s2} returns the value of this variable before (re)setting it,\n#' invisibly if \\code{use_s2} is not missing.\nsf_use_s2 = function(use_s2) {\n\tret_val = getOption(\"sf_use_s2\", default = TRUE)\n\tif (! missing(use_s2)) {\n\t\tstopifnot(is.logical(use_s2), length(use_s2)==1, !is.na(use_s2))\n\t\tif (ret_val != use_s2)\n\t\t\tmessage(paste0(\"Spherical geometry (s2) switched \", ifelse(use_s2, \"on\", \"off\")))\n\t\toptions(sf_use_s2 = use_s2)\n\t\tinvisible(ret_val)\n\t} else\n\t\tret_val\n}\n\n#' @name st_as_sfc\n#' @export\n#' @param crs coordinate reference system to be assigned; object of class \\code{crs}\n#' @param endian integer; 0 or 1: defaults to the endian of the native machine\nst_as_sfc.s2_geography = function(x, ..., crs = st_crs(4326),\n\t\tendian = match(.Platform$endian, c(\"big\", \"little\")) - 1L) {\n\tst_cast(st_as_sfc(s2::s2_as_binary(x, endian = endian), ..., crs = crs))\n}\n\n#' @name st_as_sf\n#' @param crs coordinate reference system to be assigned; object of class \\code{crs}\n#' @export\nst_as_sf.s2_geography = function(x, ..., crs = st_crs(4326)) {\n\tst_sf(geometry = st_as_sfc(x, ..., crs = crs))\n}\n\n# dynamically exported in tidyverse.R\nas_s2_geography.sfg <- function(x, ..., oriented = getOption(\"s2_oriented\", FALSE)) {\n\tb = structure(list(st_as_binary(x)), class = \"WKB\")\n\ts2::as_s2_geography(b, ..., oriented = oriented)\n}\n\n# dynamically exported in tidyverse.R\nas_s2_geography.sfc <- function(x, ..., oriented = getOption(\"s2_oriented\", FALSE) || isTRUE(attr(x, \"oriented\"))) {\n\tst_as_s2.sfc(x, ..., oriented = oriented)\n}\n\n# dynamically exported in tidyverse.R\nas_s2_geography.sf <- function(x, ...) {\n\tst_as_s2.sf(x, ...)\n}\n\n#' functions for spherical geometry, using s2 package\n#'\n#' functions for spherical geometry, using the s2 package based on the google s2geometry.io library\n#' @name s2\n#' @param x object of class \\code{sf}, \\code{sfc} or \\code{sfg}\n#' @export\n#' @details \\code{st_as_s2} converts an \\code{sf} POLYGON object into a form readable by \\code{s2}.\n#' @examples\n#' m = rbind(c(-1,-1), c(1,-1), c(1,1), c(-1,1), c(-1,-1))\n#' m1 = rbind(c(-1,-1), c(1,-1), c(1,1), c(-1,1), c(-1,0), c(-1,-1))\n#' m0 = m[5:1,]\n#' mp = st_multipolygon(list(\n#'\tlist(m, 0.8 * m0, 0.01 * m1 + 0.9),\n#'\tlist(0.7* m, 0.6*m0),\n#'\tlist(0.5 * m0),\n#'\tlist(m+2),\n#'\tlist(m+4,(.9*m0)+4)\n#'\t))\n#' sf = st_sfc(mp, mp, crs = 'EPSG:4326')\n#' s2 = st_as_s2(sf)\nst_as_s2 = function(x, ...) UseMethod(\"st_as_s2\")\n\n#' @name s2\n#' @export\nst_as_s2.sf = function(x, ...) st_as_s2(st_geometry(x), ...)\n\n#' @name s2\n#' @param oriented logical; if \\code{FALSE}, polygons that\n#' cover more than half of the globe are inverted; if \\code{TRUE}, no reversal\n#' takes place and it is assumed that the inside of the polygon is to the\n#' left of the polygon's path.\n#' @param rebuild logical; call \\link[s2]{s2_rebuild} on the geometry (think of this as a \\code{st_make_valid} on the sphere)\n#' @export\nst_as_s2.sfc = function(x, ..., oriented = getOption(\"s2_oriented\", FALSE) || isTRUE(attr(x, \"oriented\")), \n\t\t\t\t\t\trebuild = FALSE) {\n\tif (!is.na(st_crs(x)) && !st_is_longlat(x))\n\t\tx = st_transform(x, ifelse(st_axis_order(), \"OGC:CRS84\", \"EPSG:4326\"))\n\tif (length(x) && nchar(class(x[[1]])[1]) > 2) { # Z, M, ZM:\n\t\tmessage(\"st_as_s2(): dropping Z and/or M coordinate\")\n\t\tx = st_zm(x)\n\t}\n\tif (rebuild)\n\t\ts2::s2_rebuild(s2::as_s2_geography(st_as_binary(x), ..., oriented = oriented, check = FALSE))\n\telse\n\t\ts2::as_s2_geography(st_as_binary(x), ..., oriented = oriented)\n}\n"
},
{
"path": "R/sample.R",
"content": "#' @export\n#' @name st_sample\nst_sample = function(x, size, ...) UseMethod(\"st_sample\")\n\n#' sample points on or in (sets of) spatial features\n#'\n#' Sample points on or in (sets of) spatial features.\n#' By default, returns a pre-specified number of points that is equal to\n#' \\code{size} (if \\code{type = \"random\"} and \\code{exact = TRUE}) or an approximation of\n#' \\code{size} otherwise. \\code{spatstat} methods are\n#' interfaced and do not use the \\code{size} argument, see examples.\n#'\n#' The function is vectorised: it samples \\code{size} points across all geometries in\n#' the object if \\code{size} is a single number, or the specified number of points\n#' in each feature if \\code{size} is a vector of integers equal in length to the geometry\n#' of \\code{x}.\n#'\n#' @param x object of class \\code{sf} or \\code{sfc}\n#' @param size sample size(s) requested; either total size, or a numeric vector with sample sizes for each feature geometry. When sampling polygons, the returned sampling size may differ from the requested size, as the bounding box is sampled, and sampled points intersecting the polygon are returned.\n#' @param warn_if_not_integer logical; if \\code{FALSE} then no warning is emitted if \\code{size} is not an integer\n#' @param ... passed on to \\link[base]{sample} for \\code{multipoint} sampling, or to \\code{spatstat} functions for spatstat sampling types (see details)\n#' @param type character; indicates the spatial sampling type; one of \\code{random}, \\code{hexagonal} (triangular really), \\code{regular}, \\code{Fibonacci},\n#' or one of the \\code{spatstat} methods such as \\code{Thomas} for calling \\code{spatstat.random::rThomas} (see Details).\n#' @param exact logical; should the length of output be exactly\n#' @param by_polygon logical; for \\code{MULTIPOLYGON} geometries, should the effort be split by \\code{POLYGON}? See https://github.com/r-spatial/sf/issues/1480\n#' the same as specified by \\code{size}? \\code{TRUE} by default. Only applies to polygons, and\n#' when \\code{type = \"random\"}.\n#' @param progress logical; if \\code{TRUE} show progress bar (only if \\code{size} is a vector).\n#' @param force logical; if `TRUE` continue when the sampled bounding box area is more than 1e4 times the area of interest, else (default) stop with an error. If this error is not justified, try setting `oriented=TRUE`, see details.\n#' @return an \\code{sfc} object containing the sampled \\code{POINT} geometries\n#' @details if \\code{x} has dimension 2 (polygons) and geographical coordinates (long/lat), uniform random sampling on the sphere is applied, see e.g. \\url{https://mathworld.wolfram.com/SpherePointPicking.html}. \n#'\n#' For \\code{regular} or \\code{hexagonal} sampling of polygons, the resulting size is only an approximation.\n#'\n#' As parameter called \\code{offset} can be passed to control (\"fix\") regular or hexagonal sampling: for polygons a length 2 numeric vector (by default: a random point from \\code{st_bbox(x)}); for lines use a number like \\code{runif(1)}.\n#' \n#' Fibonacci sampling see: Alvaro Gonzalez, 2010. Measurement of Areas on a Sphere Using Fibonacci and Latitude-Longitude Lattices. \n#' Mathematical Geosciences 42(1), p. 49-64\n#' \n#' For regular sampling on the sphere, see also \\code{geosphere::regularCoordinates}.\n#'\n#' Sampling methods from package \\code{spatstat} are interfaced (see examples), and need their own parameters to be set. \n#' For instance, to use \\code{spatstat.random::rThomas()}, set \\code{type = \"Thomas\"}.\n#' \n#' For sampling polygons one can specify `oriented=TRUE` to make sure that polygons larger than half the globe are not reverted, e.g. when specifying a polygon from a bounding box of a global dataset. The `st_sample` method for `bbox` does this by default.\n#' @examples\n#' nc = st_read(system.file(\"shape/nc.shp\", package=\"sf\"))\n#' p1 = st_sample(nc[1:3, ], 6)\n#' p2 = st_sample(nc[1:3, ], 1:3)\n#' plot(st_geometry(nc)[1:3])\n#' plot(p1, add = TRUE)\n#' plot(p2, add = TRUE, pch = 2)\n#' x = st_sfc(st_polygon(list(rbind(c(0,0),c(90,0),c(90,90),c(0,90),c(0,0)))), crs = st_crs(4326))\n#' plot(x, axes = TRUE, graticule = TRUE)\n#' if (compareVersion(sf_extSoftVersion()[\"proj.4\"], \"4.9.0\") >= 0)\n#' plot(p <- st_sample(x, 1000), add = TRUE)\n#' if (require(lwgeom, quietly = TRUE)) { # for st_segmentize()\n#' x2 = st_transform(st_segmentize(x, 1e4), st_crs(\"+proj=ortho +lat_0=30 +lon_0=45\"))\n#' g = st_transform(st_graticule(), st_crs(\"+proj=ortho +lat_0=30 +lon_0=45\"))\n#' plot(x2, graticule = g)\n#' if (compareVersion(sf_extSoftVersion()[\"proj.4\"], \"4.9.0\") >= 0) {\n#' p2 = st_transform(p, st_crs(\"+proj=ortho +lat_0=30 +lon_0=45\"))\n#' plot(p2, add = TRUE)\n#' }\n#' }\n#' x = st_sfc(st_polygon(list(rbind(c(0,0),c(90,0),c(90,10),c(0,90),c(0,0))))) # NOT long/lat:\n#' plot(x)\n#' p_exact = st_sample(x, 1000, exact = TRUE)\n#' p_not_exact = st_sample(x, 1000, exact = FALSE)\n#' length(p_exact); length(p_not_exact)\n#' plot(st_sample(x, 1000), add = TRUE)\n#' x = st_sfc(st_polygon(list(rbind(c(-180,-90),c(180,-90),c(180,90),c(-180,90),c(-180,-90)))),\n#'\t crs=st_crs(4326))\n#' # FIXME:\n#' #if (compareVersion(sf_extSoftVersion()[\"proj.4\"], \"4.9.0\") >= 0) {\n#' # p = st_sample(x, 1000)\n#' # st_sample(p, 3)\n#' #}\n#' # hexagonal:\n#' sfc = st_sfc(st_polygon(list(rbind(c(0,0), c(1,0), c(1,1), c(0,0)))))\n#' plot(sfc)\n#' h = st_sample(sfc, 100, type = \"hexagonal\")\n#' h1 = st_sample(sfc, 100, type = \"hexagonal\")\n#' plot(h, add = TRUE)\n#' plot(h1, col = 'red', add = TRUE)\n#' c(length(h), length(h1)) # approximate!\n#' pt = st_multipoint(matrix(1:20,,2))\n#' ls = st_sfc(st_linestring(rbind(c(0,0),c(0,1))),\n#' st_linestring(rbind(c(0,0),c(.1,0))),\n#' st_linestring(rbind(c(0,1),c(.1,1))),\n#' st_linestring(rbind(c(2,2),c(2,2.00001))))\n#' st_sample(ls, 80)\n#' plot(st_sample(ls, 80))\n#' # spatstat example:\n#' if (require(spatstat.random)) {\n#' x <- sf::st_sfc(sf::st_polygon(list(rbind(c(0, 0), c(10, 0), c(10, 10), c(0, 0)))))\n#' # for spatstat.random::rThomas(), set type = \"Thomas\":\n#' pts <- st_sample(x, kappa = 1, mu = 10, scale = 0.1, type = \"Thomas\") \n#' }\n#' @export\n#' @name st_sample\nst_sample.sf = function(x, size, ...) st_sample(st_geometry(x), size, ...)\n\n#' @export\n#' @name st_sample\nst_sample.sfc = function(x, size, ..., type = \"random\", exact = TRUE, warn_if_not_integer = TRUE,\n\t\tby_polygon = FALSE, progress = FALSE, force = FALSE) {\n\n\tif (!missing(size) && warn_if_not_integer && any(size %% 1 != 0))\n\t\twarning(\"size is not an integer\")\n\tif (!missing(size) && length(size) > 1) { # recurse:\n\t\tsize = rep(size, length.out = length(x))\n\t\tret = if (progress) {\n\t\t\t\tif (!requireNamespace(\"pbapply\", quietly = TRUE))\n\t\t\t\t\tstop(\"package pbapply required, please install it first\")\n\t\t\t\tpbapply::pblapply(seq_along(x), function(i) st_sample(x[i], size[i], type = type, exact = exact, ...))\n\t\t\t} else\n\t\t\t\tlapply(seq_along(x), function(i) st_sample(x[i], size[i], type = type, exact = exact, ...))\n\t\tst_set_crs(do.call(c, ret), st_crs(x))\n\t} else {\n\t\tres = switch(max(st_dimension(x)) + 1,\n\t\t\t\t\t st_multipoints_sample(do.call(c, x), size = size, ..., type = type),\n\t\t\t\t\t st_ll_sample(st_cast(x, \"LINESTRING\"), size = size, ..., type = type),\n\t\t\t\t\t st_poly_sample(x, size = size, ..., type = type, by_polygon = by_polygon, force = force))\n\t\tif (exact && type == \"random\" && all(st_geometry_type(res) == \"POINT\")) {\n\t\t\tdiff = size - length(res)\n\t\t\tif (diff > 0) { # too few points\n\t\t\t\tres_additional = st_sample_exact(x = x, size = diff, ..., \n\t\t\t\t\ttype = type, by_polygon = by_polygon)\n\t\t\t\tres = c(res, res_additional)\n\t\t\t} else if (diff < 0) { # too many points\n\t\t\t\tres = res[1:size]\n\t\t\t}\n\t\t}\n\t\tres\n\t}\n}\n\n#' @export\n#' @name st_sample\nst_sample.sfg = function(x, size, ...) {\n\tst_sample(st_geometry(x), size, ...)\n}\n\n#' @export\n#' @name st_sample\n#' @param great_circles logical; if `TRUE`, great circle arcs are used to connect the bounding box vertices, if `FALSE` parallels (graticules)\n#' @param segments units, or numeric (degrees); segment sizes for segmenting a bounding box polygon if `great_circles` is `FALSE`\n#' @examples\n#' bbox = st_bbox(\n#'\tc(xmin = 0, xmax = 40, ymax = 70, ymin = 60),\n#' \tcrs = st_crs('OGC:CRS84')\n#' )\n#' set.seed(13531)\n#' s1 = st_sample(bbox, 400)\n#' st_bbox(s1) # within bbox\n#' s2 = st_sample(bbox, 400, great_circles = TRUE)\n#' st_bbox(s2) # outside bbox\nst_sample.bbox = function(x, size, ..., great_circles = FALSE, segments = units::set_units(2, \"degree\", mode = \"standard\")) {\n\tpolygon = st_as_sfc(x)\n\tcrs = st_crs(x)\n\tif (isTRUE(st_is_longlat(x)) && !great_circles) {\n\t\tst_crs(polygon) = NA_crs_ # to fool segmentize that we're on R2:\n\t\tsegments = units::drop_units(units::set_units(segments, \"degree\", mode = \"standard\"))\n\t\tpolygon = st_set_crs(st_segmentize(polygon, segments), crs)\n\t}\n\tst_sample(polygon, size, ..., oriented = TRUE)\n}\n\nst_poly_sample = function(x, size, ..., type = \"random\",\n\t\t\t\t\t\toffset = st_sample(st_as_sfc(st_bbox(x)), 1)[[1]],\n\t\t\t\t\t\tby_polygon = FALSE, oriented = FALSE, force = FALSE) {\n\n\tif (by_polygon && inherits(x, \"sfc_MULTIPOLYGON\")) { # recurse into polygons:\n\t\tsum_a = units::drop_units(sum(st_area(x)))\n\t\tx = lapply(suppressWarnings(st_cast(st_geometry(x), \"POLYGON\")), st_sfc, crs = st_crs(x))\n\t\ta = sapply(x, st_area)\n\t\tret = mapply(st_poly_sample, x, size = size * a / sum_a, type = type, ...)\n\t\tdo.call(c, ret)\n\t} else if (type %in% c(\"hexagonal\", \"regular\", \"random\", \"Fibonacci\")) {\n\n\t\tif (isTRUE(st_is_longlat(x))) {\n\t\t\tif (type == \"regular\") {\n\t\t\t\tmessage_longlat(\"st_sample\")\n\t\t\t\tx = st_set_crs(x, NA)\n\t\t\t}\n\t\t\tif (type == \"hexagonal\")\n\t\t\t\tstop(\"hexagonal sampling on geographic coordinates not supported; consider projecting first\")\n\t\t} else if (type == \"Fibonacci\")\n\t\t\tstop(\"Fibonacci sampling requires geographic (longlat) coordinates\")\n\t\t\n\t\tglobal = FALSE\n\t\tbb = st_bbox(x)\n\t\tif (isTRUE(st_is_longlat(x))) {\n\t\t\tif (sf_use_s2()) { # if FALSE, the user wants the coord ranges to be the bbox\n\t\t\t\tif (!requireNamespace(\"lwgeom\", quietly = TRUE))\n\t\t\t\t\twarning(\"coordinate ranges not computed along great circles; install package lwgeom to get rid of this warning\")\n\t\t\t\telse {\n\t\t\t\t\t# see https://github.com/r-spatial/sf/issues/2331\n\t\t\t\t\t# bb = st_bbox(st_segmentize(st_as_sfc(bb),\n\t\t\t\t\t#\t\tunits::set_units(1, \"degree\", mode = \"standard\"))) # get coordinate range on S2\n\t\t\t\t\tdfMaxLength = units::set_units(100000, \"m\", mode = \"standard\")\n\t\t\t\t\tif (! is.na(st_crs(x)))\n\t\t\t\t\t\tunits(dfMaxLength) = units(st_crs(x)$SemiMajor) # might convert\n\t\t\t\t\tseg = st_sfc(CPL_gdal_segmentize(x, dfMaxLength), crs = st_crs(x)) # avoid lwgeom path\n\t\t\t\t\tbb = st_bbox(seg)\n\t\t\t\t}\n\t\t\t}\n\t\t\tR = s2::s2_earth_radius_meters()\n\t\t\tearth_surface = 4 * pi * R^2.\n\t\t\ttoRad = pi / 180.\n\t\t\th1 = sin(bb[\"ymax\"] * toRad)\n\t\t\th2 = sin(bb[\"ymin\"] * toRad)\n\t\t\ta0 = 2 * pi * R^2. * (h1 - h2) * (bb[\"xmax\"] - bb[\"xmin\"]) / 360. # total\n\t\t\ta1 = sum(s2::s2_area(st_as_s2(x, oriented = oriented))) # actual\n\t\t\tif (!is.finite(a1))\n\t\t\t\tstop(\"One or more geometries have a non-finite area\")\n\t\t\tglobal = (a0 / earth_surface) > .9999\n\t\t\tif (a0 / a1 > 1e4 && !force)\n\t\t\t\tstop(paste0(\"sampling box is \", format(a0/a1), \" times larger than sampling region;\\nuse force=TRUE if you really want this, or try setting oriented=TRUE\\n(after reading the documentation)\"), call. = FALSE)\n\t\t\tsize = round(size * a0 / a1)\n\t\t} else {\n\t\t\ta0 = as.numeric(st_area(st_as_sfc(bb))) # total\n\t\t\ta1 = as.numeric(sum(st_area(x))) # actual\n\t\t\t# we're sampling from a box, so n should be size_desired * a0 / a1\n\t\t\tif (is.finite(a0) && is.finite(a1) && a0 > a0 * 0.0 && a1 > a1 * 0.0) { # FIXME: reqs can be removed, now we handle long/lat separately?\n\t\t\t\tr = size * a0 / a1\n\t\t\t\tsize = if (round(r) == 0)\n\t\t\t\t\t\trbinom(1, 1, r)\n\t\t\t\t\telse\n\t\t\t\t\t\tround(r)\n\t\t\t}\n\t\t}\n\t\tsize = max(1, size)\n\n\t\tpts = if (type == \"hexagonal\") {\n\t\t\t\tdx = sqrt(a0 / size / (sqrt(3)/2))\n\t\t\t\thex_grid_points(x, pt = offset, dx = dx)\n\t\t\t} else if (type == \"regular\") {\n\t\t\t\tdx = as.numeric(sqrt(a0 / size))\n\t\t\t\toffset = c((offset[1] - bb[\"xmin\"]) %% dx,\n\t\t\t\t\t(offset[2] - bb[\"ymin\"]) %% dx) + bb[c(\"xmin\", \"ymin\")]\n\t\t\t\tn = c(round((bb[\"xmax\"] - offset[1])/dx), round((bb[\"ymax\"] - offset[2])/dx))\n\t\t\t\tst_make_grid(x, cellsize = c(dx, dx), offset = offset, n = n, what = \"corners\")\n\t\t\t} else { \n\t\t\t\tm = if (type == \"random\") {\n\t\t\t\t\t\tlon = runif(size, bb[1], bb[3])\n\t\t\t\t\t\tlat = if (isTRUE(st_is_longlat(x))) { # sampling on the sphere:\n\t\t\t\t\t\t\ttoRad = pi/180\n\t\t\t\t\t\t\tlat0 = (sin(bb[2] * toRad) + 1)/2\n\t\t\t\t\t\t\tlat1 = (sin(bb[4] * toRad) + 1)/2\n\t\t\t\t\t\t\ty = runif(size, lat0, lat1)\n\t\t\t\t\t\t\tasin(2 * y - 1) / toRad # http://mathworld.wolfram.com/SpherePointPicking.html\n\t\t\t\t\t\t} else\n\t\t\t\t\t\t\trunif(size, bb[2], bb[4])\n\t\t\t\t\t\tstructure(cbind(lon, lat), dimnames = NULL)\n\t\t\t\t\t} else if (type == \"Fibonacci\")\n\t\t\t\t\t\tfiboGrid(size %/% 2, bb[c(\"xmin\", \"xmax\")], bb[c(\"ymin\", \"ymax\")])\n\t\t\t\t\telse\n\t\t\t\t\t\tstop(\"unknown value for type\")\n\t\t\t\t# st_sfc(lapply(seq_len(nrow(m)), function(i) st_point(m[i,])), crs = st_crs(x))\n\t\t\t\tst_as_sf(as.data.frame(m), coords = 1:2, crs = st_crs(x))[[\"geometry\"]]\n\t\t\t}\n\t\tif (global)\n\t\t\tpts\n\t\telse\n\t\t\tpts[x] # cut out x from bbox\n\t} else { # try to go into spatstat\n\t\tif (!requireNamespace(\"spatstat.random\", quietly = TRUE))\n\t\t\tstop(\"package spatstat.random required, please install it (or the full spatstat package) first\")\n\t\tspatstat_fun = try(get(paste0(\"r\", type), asNamespace(\"spatstat.random\")), silent = TRUE)\n\t\tif (inherits(spatstat_fun, \"try-error\"))\n\t\t\tstop(paste0(\"r\", type), \" is not an exported function from spatstat.random.\")\n\t\tpts = if (\"win\" %in% names(as.list(args(spatstat_fun))))\n\t\t\t\ttry(spatstat_fun(..., win = spatstat.geom::as.owin(x)), silent = TRUE)\n\t\t\telse\n\t\t\t\ttry(spatstat_fun(..., W = spatstat.geom::as.owin(x)), silent = TRUE)\n\t\tif (inherits(pts, \"try-error\"))\n\t\t\tstop(\"The spatstat function \", paste0(\"r\", type),\n\t\t\t\t\" did not return a valid result. Consult the help file.\\n\",\n\t\t\t\t\"Error message from spatstat:\\n\", pts)\n\t\tst_as_sf(pts)[-1,]\n\t}\n}\n\nst_multipoints_sample = function(x, size, ..., type = \"random\") {\n\tif (!inherits(x, \"MULTIPOINT\"))\n\t\tstop(\"points sampling only implemented for MULTIPOINT; use sample to sample individual features\", call.=FALSE)\n\tm = unclass(x)\n\tst_sfc(st_multipoint(m[sample(nrow(m), size, ...),]), crs = st_crs(x))\n}\n\nst_ll_sample = function(x, size, ..., type = \"random\", offset = runif(1)) {\n\tcrs = st_crs(x)\n\tif (isTRUE(st_is_longlat(x))) {\n\t\tmessage_longlat(\"st_sample\")\n\t\tst_crs(x) = NA_crs_\n\t}\n\tl = st_length(x)\n\tif (inherits(l, \"units\"))\n\t\tl = drop_units(l)\n\tif (type == \"random\") {\n\t\td = runif(size, 0, sum(l))\n\t} else if (type == \"regular\") {\n\t\td = ((1:size) - (1. - (offset %% 1)))/size * sum(l)\n\t} else {\n\t\tstop(paste(\"sampling type\", type, \"not available for LINESTRING\")) # nocov\n\t}\n\tlcs = c(0, cumsum(l))\n\tif (sum(l) == 0) {\n\t\tgrp = list(0) # nocov\n\t\twarning(\"line is of length zero, only one point is sampled\") # nocov\n\t} else {\n\t\tgrp = split(d, cut(d, lcs, include.lowest = TRUE))\n\t\tgrp = lapply(seq_along(x), function(i) grp[[i]] - lcs[i])\n\t}\n\tst_sfc(CPL_gdal_linestring_sample(x, grp), crs = crs)\n}\n\n### return points on a triangular grid that\n## - covers a bounding box st_bbox(obj)\n## - contains pt\n## - has x spacing dx: the shortest distance between x coordinates with identical y coordinate\nhex_grid_points = function(obj, pt, dx) {\n\n\tbb = st_bbox(obj)\n\tdy = sqrt(3) * dx / 2\n\txlim = bb[c(\"xmin\", \"xmax\")]\n\tylim = bb[c(\"ymin\", \"ymax\")]\n\toffset = c(x = (pt[1] - xlim[1]) %% dx, y = (pt[2] - ylim[1]) %% (2 * dy))\n\tx = seq(xlim[1] - dx, xlim[2] + dx, dx) + offset[1]\n\ty = seq(ylim[1] - 2 * dy, ylim[2] + 2 * dy, dy) + offset[2]\n\n\ty = rep(y, each = length(x))\n\tx = rep(c(x, x + dx / 2), length.out = length(y))\n\txy = cbind(x, y)[x >= xlim[1] & x <= xlim[2] & y >= ylim[1] & y <= ylim[2], , drop = FALSE]\n\tcolnames(xy) = NULL\n\tst_sfc(lapply(seq_len(nrow(xy)), function(i) st_point(xy[i,])), crs = st_crs(bb))\n}\n\nfiboGrid <- function(N, xlim = c(-180,180), ylim = c(-90,90)) {\n\tif (max(xlim) <= 180)\n\t\tsubtr = 180\n\telse\n\t\tsubtr = 0\n phi = (1 + sqrt(5))/2\n i = seq(-N, N)\n P = 2 * N + 1\n lat = asin(2*i / P) * 180 / pi\n lon = ((2 * pi * i / phi) %% pi) * 360 / pi - subtr\n sel = lon <= xlim[2] & lon >= xlim[1] & lat <= ylim[2] & lat >= ylim[1]\n cbind(lon, lat)[sel, ]\n}\n\nst_sample_exact = function(x, size, ..., type, by_polygon) {\n\trandom_pt = st_sample(x = x, size = size, ..., type = type, exact = FALSE)\n\twhile (length(random_pt) < size) {\n\t\tdiff = size - length(random_pt)\n\t\trandom_pt_new = st_sample(x, size = diff, ..., type, exact = FALSE, by_polygon = by_polygon)\n\t\trandom_pt = c(random_pt, random_pt_new)\n\t}\n\tif (length(random_pt) > size) {\n\t\trandom_pt = random_pt[1:size]\n\t}\n\trandom_pt\n}\n"
},
{
"path": "R/sf-package.R",
"content": "#' @keywords internal\n#' @aliases sf-package\n#' @references \n#' Pebesma, E. and Bivand, R. (2023). Spatial Data\n#' Science: With Applications in R. Chapman and Hall/CRC.\n#' \\doi{10.1201/9780429459016} which is also found freely\n#' online at \n#' \n#' Pebesma, E., 2018. Simple Features for R: Standardized Support\n#' for Spatial Vector Data. The R Journal 10 (1), 439-446,\n#' \\doi{10.32614/RJ-2018-009} (open access)\n\"_PACKAGE\"\n"
},
{
"path": "R/sf.R",
"content": "#' Convert foreign object to an sf object\n#'\n#' Convert foreign object to an sf object\n#' @param x object to be converted into an object class \\code{sf}\n#' @export\nst_as_sf = function(x, ...) UseMethod(\"st_as_sf\")\n\n#' @name st_as_sf\n#'\n#' @param agr character vector; see details section of \\link{st_sf}\n#' @param coords in case of point data: names or numbers of the numeric columns holding coordinates\n#' @param wkt name or number of the character column that holds WKT encoded geometries\n#' @param dim specify what 3- or 4-dimensional points reflect: passed on to \\link{st_point} (only when argument coords is given)\n#' @param remove logical; when coords or wkt is given, remove these columns from data.frame?\n#' @param na.fail logical; if \\code{TRUE}, raise an error if coordinates contain missing values\n#' @param sf_column_name character; name of the active list-column with simple feature geometries; in case\n#' there is more than one and \\code{sf_column_name} is \\code{NULL}, the first one is taken.\n#' @param ... passed on to \\link{st_sf}, might included named arguments \\code{crs} or \\code{precision}\n#' @details setting argument \\code{wkt} annihilates the use of argument \\code{coords}. If \\code{x} contains a column called \"geometry\", \\code{coords} will result in overwriting of this column by the \\link{sfc} geometry list-column. Setting \\code{wkt} will replace this column with the geometry list-column, unless \\code{remove} is \\code{FALSE}.\n#'\n#' If `coords` has length 4, and `dim` is not `XYZM`, the four columns are taken as the xmin, ymin, xmax, ymax corner coordinates of a rectangle, and polygons are returned.\n#'\n#' @examples\n#' pt1 = st_point(c(0,1))\n#' pt2 = st_point(c(1,1))\n#' st_sfc(pt1, pt2)\n#' d = data.frame(a = 1:2)\n#' d$geom = st_sfc(pt1, pt2)\n#' df = st_as_sf(d)\n#' d$geom = c(\"POINT(0 0)\", \"POINT(0 1)\")\n#' df = st_as_sf(d, wkt = \"geom\")\n#' d$geom2 = st_sfc(pt1, pt2)\n#' st_as_sf(d) # should warn\n#' if (require(sp, quietly = TRUE)) {\n#' data(meuse, package = \"sp\")\n#' meuse_sf = st_as_sf(meuse, coords = c(\"x\", \"y\"), crs = 28992, agr = \"constant\")\n#' meuse_sf[1:3,]\n#' summary(meuse_sf)\n#' }\n#' @export\nst_as_sf.data.frame = function(x, ..., agr = NA_agr_, coords, wkt,\n\t\tdim = \"XYZ\", remove = TRUE, na.fail = TRUE, sf_column_name = NULL) {\n\tif (! missing(wkt)) {\n\t\tif (remove)\n\t\t\tx[[wkt]] = st_as_sfc(as.character(x[[wkt]]))\n\t\telse\n\t\t\tx$geometry = st_as_sfc(as.character(x[[wkt]]))\n\t} else if (! missing(coords)) {\n\t\tcc = as.matrix(as.data.frame(lapply(x[coords], as.numeric)))\n\t\tanyna = anyNA(cc)\n\t\tif (na.fail && anyna)\n\t\t\tstop(\"missing values in coordinates not allowed\")\n\t\tif (anyna)\n\t\t\tcc[apply(cc, 1, anyNA),] = NA_real_\n\t\t# classdim = getClassDim(rep(0, length(coords)), length(coords), dim, \"POINT\")\n\t\tif (is.null(sf_column_name))\n\t\t\tsf_column_name = \"geometry\"\n\t\tx[[sf_column_name]] = if (nchar(dim) < 4 && ncol(cc) == 4) { # create POLYGONs:\n\t\t\t\tfn = function(x) st_as_sfc(st_bbox(c(xmin = x[[1]], ymin = x[[2]], xmax = x[[3]], ymax = x[[4]])))\n\t\t\t\tdo.call(c, apply(cc, 1, fn))\n\t\t\t} else { # points:\n\t\t\t\tstructure(points_rcpp(cc, dim),\n\t\t\t\t\tn_empty = 0L, precision = 0, crs = NA_crs_,\n\t\t\t\t\tbbox = structure(\n\t\t\t\t\t\tc(xmin = min(cc[,1], na.rm = TRUE),\n\t\t\t\t\t\tymin = min(cc[,2], na.rm = TRUE),\n\t\t\t\t\t\txmax = max(cc[,1], na.rm = TRUE),\n\t\t\t\t\t\tymax = max(cc[,2], na.rm = TRUE)), class = \"bbox\"),\n\t\t\t\t\tclass = c(\"sfc_POINT\", \"sfc\" ), names = NULL)\n\t\t\t}\n\n\t\tif (remove) {\n\t\t\tif (is.character(coords))\n\t\t\t\tcoords = match(coords, names(x))\n\t\t\tx = x[-coords]\n\t\t}\n\t\tif (length(coords) > 2 && grepl(\"Z\", dim))\n\t\t\tattr(x[[sf_column_name]], \"z_range\") = compute_z_range(x[[sf_column_name]])\n\t\tif (length(coords) > 2 && grepl(\"M\", dim))\n\t\t\tattr(x[[sf_column_name]], \"m_range\") = compute_m_range(x[[sf_column_name]])\n\n\t}\n\tst_sf(x, ..., agr = agr, sf_column_name = sf_column_name)\n}\n\n#' @name st_as_sf\n#' @export\nst_as_sf.sf = function(x, ...) x\n\n#' @name st_as_sf\n#' @export\nst_as_sf.sfc = function(x, ...) st_sf(x, ...)\n\n#' Get, set, replace or rename geometry from an sf object\n#'\n#' Get, set, replace or rename geometry from an sf object\n#' @param obj object of class \\code{sf} or \\code{sfc}\n#' @param ... ignored\n#' @return st_geometry returns an object of class \\link{sfc}, a list-column with geometries\n#' @export\nst_geometry = function(obj, ...) UseMethod(\"st_geometry\")\n\n#' @name st_geometry\n#' @export\nst_geometry.sf = function(obj, ...) {\n\tret = obj[[attr(obj, \"sf_column\")]]\n\tif (!inherits(ret, \"sfc\")) # corrupt!\n\t\tstop('attr(obj, \"sf_column\") does not point to a geometry column.\\nDid you rename it, without setting st_geometry(obj) <- \"newname\"?')\n\tret\n}\n\n#' @name st_geometry\n#' @export\nst_geometry.sfc = function(obj, ...) obj\n\n#' @name st_geometry\n#' @export\nst_geometry.sfg = function(obj, ...) st_sfc(obj)\n\n#' @name st_geometry\n#' @param x object of class \\code{data.frame} or \\code{sf}\n#' @param value object of class \\code{sfc}, or \\code{character} to set, replace, or rename the geometry of \\code{x}\n#' @export\n#' @return \\code{st_geometry} returns an object of class \\link{sfc}. Assigning geometry to a \\code{data.frame} creates an \\link{sf} object, assigning it to an \\link{sf} object replaces the geometry list-column.\n#' @details when applied to a \\code{data.frame} and when \\code{value} is an object of class \\code{sfc}, \\code{st_set_geometry} and \\code{st_geometry<-} will first check for the existence of an attribute \\code{sf_column} and overwrite that, or else look for list-columns of class \\code{sfc} and overwrite the first of that, or else write the geometry list-column to a column named \\code{geometry}. In case \\code{value} is character and \\code{x} is of class \\code{sf}, the \"active\" geometry column is set to \\code{x[[value]]}.\n#'\n#' the replacement function applied to \\code{sf} objects will overwrite the geometry list-column, if \\code{value} is \\code{NULL}, it will remove it and coerce \\code{x} to a \\code{data.frame}.\n#' @examples\n#' df = data.frame(a = 1:2)\n#' sfc = st_sfc(st_point(c(3,4)), st_point(c(10,11)))\n#' st_geometry(sfc)\n#' st_geometry(df) <- sfc\n#' class(df)\n#' st_geometry(df)\n#' st_geometry(df) <- sfc # replaces\n#' st_geometry(df) <- NULL # remove geometry, coerce to data.frame\n`st_geometry<-` = function(x, value) UseMethod(\"st_geometry<-\")\n\n#' @export\n`st_geometry<-.data.frame` = function(x, value) {\n\tstopifnot(inherits(value, \"sfc\") || is.character(value))\n\tif (inherits(value, \"sfc\"))\n\t\tstopifnot(nrow(x) == length(value))\n\tif (is.character(value))\n\t\tst_sf(x, sf_column_name = value)\n\telse {\n\t\ta = vapply(x, function(v) inherits(v, \"sfc\"), TRUE)\n\t\tif (any(a)) {\n\t\t\tw = which(a)\n\t\t\tsf_col = attr(x, \"sf_column\")\n\t\t\tif (! is.null(sf_col))\n\t\t\t\tx[[ sf_col ]] = value\n\t\t\telse {\n\t\t\t\tif (length(w) > 1)\n\t\t\t\t\twarning(\"overwriting first sfc column\")\n\t\t\t\tx[[ which(a)[1L] ]] = value\n\t\t\t}\n\t\t} else\n\t\t\tx$geometry = value\n\t\tst_sf(x)\n\t}\n}\n\n\n#' @export\n`st_geometry<-.sf` = function(x, value) {\n\tif (! is.null(value)) {\n\t\tstopifnot(is.character(value) || inherits(value, \"sfc\"))\n\t\tif (inherits(value, \"sfc\"))\n\t\t\tstopifnot(nrow(x) == length(value))\n\t}\n\n\tif (!is.null(value) && is.character(value)) { # set flag to another column:\n\t\tif (!(value %in% names(x)))\n\t\t\tnames(x)[names(x) == attr(x, \"sf_column\")] = value\n\t\tattr(x, \"sf_column\") <- value\n\t} else # replace, remove, or set list-column\n\t\tx[[attr(x, \"sf_column\")]] <- value\n\n\tif (is.null(value))\n\t\tstructure(x, sf_column = NULL, agr = NULL, class = setdiff(class(x), \"sf\"))\n\telse\n\t\tx\n}\n\n#' @name st_geometry\n#' @export\n#' @examples\n#' sf <- st_set_geometry(df, sfc) # set geometry, return sf\n#' st_set_geometry(sf, NULL) # remove geometry, coerce to data.frame\nst_set_geometry = function(x, value) {\n\tst_geometry(x) = value\n\tx\n}\n\n#' @export\nst_as_sfc.sf = function(x, ...) st_geometry(x)\n\nlist_column_to_sfc = function(x) {\n\tif (is.list(x) && !inherits(x, \"data.frame\")) {\n\t\tif (inherits(try(y <- st_as_sfc(x), silent = TRUE), \"try-error\"))\n\t\t\tx\n\t\telse\n\t\t\ty\n\t} else\n\t\tx\n}\n\n#' Create sf object\n#'\n#' Create sf, which extends data.frame-like objects with a simple feature list column.\n#' To convert a data frame object to `sf`, use [st_as_sf()]\n#' @name sf\n#' @aliases st_sf\n#' @param ... column elements to be binded into an \\code{sf} object or a single \\code{list} or \\code{data.frame} with such columns; at least one of these columns shall be a geometry list-column of class \\code{sfc} or be a list-column that can be converted into an \\code{sfc} by \\link{st_as_sfc}.\n#' @param crs coordinate reference system, something suitable as input to \\link{st_crs}\n#' @param agr character vector; see details below.\n#' @param row.names row.names for the created \\code{sf} object\n#' @param stringsAsFactors logical; see \\link{st_read}\n#' @param precision numeric; see \\link{st_as_binary}\n#' @param sf_column_name character; name of the active list-column with simple feature geometries; in case\n#' there is more than one and \\code{sf_column_name} is \\code{NULL}, the first one is taken.\n#' @param sfc_last logical; if \\code{TRUE}, \\code{sfc} columns are always put last, otherwise column order is left unmodified.\n#' @param check_ring_dir see \\link{st_read}\n#' @details \\code{agr}, attribute-geometry-relationship, specifies for each non-geometry attribute column how it relates to the geometry, and can have one of following values: \"constant\", \"aggregate\", \"identity\". \"constant\" is used for attributes that are constant throughout the geometry (e.g. land use), \"aggregate\" where the attribute is an aggregate value over the geometry (e.g. population density or population count), \"identity\" when the attributes uniquely identifies the geometry of particular \"thing\", such as a building ID or a city name. The default value, \\code{NA_agr_}, implies we don't know.\n#'\n#' When a single value is provided to \\code{agr}, it is cascaded across all input columns; otherwise, a named vector like \\code{c(feature1='constant', ...)} will set \\code{agr} value to \\code{'constant'} for the input column named \\code{feature1}. See \\code{demo(nc)} for a worked example of this.\n#'\n#' When confronted with a data.frame-like object, \\code{st_sf} will try to find a geometry column of class \\code{sfc}, and otherwise try to convert list-columns when available into a geometry column, using \\link{st_as_sfc}.\n#' @examples\n#' g = st_sfc(st_point(1:2))\n#' st_sf(a=3,g)\n#' st_sf(g, a=3)\n#' st_sf(a=3, st_sfc(st_point(1:2))) # better to name it!\n#' # create empty structure with preallocated empty geometries:\n#' nrows <- 10\n#' geometry = st_sfc(lapply(1:nrows, function(x) st_geometrycollection()))\n#' df <- st_sf(id = 1:nrows, geometry = geometry)\n#' @export\nst_sf = function(..., agr = NA_agr_, row.names,\n\t\tstringsAsFactors = sf_stringsAsFactors(), crs, precision,\n\t\tsf_column_name = NULL, check_ring_dir = FALSE, sfc_last = TRUE) {\n\tx = list(...)\n\tif (length(x) == 1L && (inherits(x[[1L]], \"data.frame\") || (is.list(x) && !inherits(x[[1L]], \"sfc\"))))\n\t\tx = x[[1L]]\n\n\t# find the sfc column(s):\n\tall_sfc_columns = vapply(x, function(x) inherits(x, \"sfc\"), TRUE)\n\tif (! any(all_sfc_columns)) { # try to create sfc from list-columns:\n\t\txlst = lapply(x, list_column_to_sfc)\n\t\tall_sfc_columns = vapply(xlst, function(x) inherits(x, \"sfc\"), TRUE)\n\t\tif (! any(all_sfc_columns))\n\t\t\tstop(\"no simple features geometry column present\")\n\t\tx[all_sfc_columns] = xlst[all_sfc_columns]\n\t}\n\n\tall_sfc_columns = which(unlist(all_sfc_columns))\n\n\t# set names if not present:\n\tall_sfc_names = if (!is.null(names(x)) && any(nzchar(names(x)[all_sfc_columns])))\n\t\tnames(x)[all_sfc_columns]\n\telse {\n\t\tobject = as.list(substitute(list(...)))[-1L]\n\t\targ_nm = sapply(object, function(x) deparse(x))\n\t\tif (identical(arg_nm, \".\"))\n\t\t\targ_nm = \"geometry\"\n\t\tmake.names(arg_nm[all_sfc_columns])\n\t}\n\n\tif (! is.null(sf_column_name)) {\n\t\tstopifnot(sf_column_name %in% all_sfc_names)\n\t\tsf_column = match(sf_column_name, all_sfc_names)\n\t\tsfc_name = sf_column_name\n\t} else {\n\t\tsf_column = all_sfc_columns[1L]\n\t\tsfc_name = all_sfc_names[1L]\n\t}\n\n\tif (missing(row.names))\n\t\trow.names = seq_along(x[[sf_column]])\n\n\tdf = if (inherits(x, c(\"tbl_df\", \"tbl\"))) # no worries:\n\t\t\tx\n\t\telse if (length(x) == 1) # ONLY one sfc\n\t\t\tdata.frame(row.names = row.names)\n\t\telse if (!sfc_last && inherits(x, \"data.frame\"))\n\t\t\tx\n\t\telse if (sfc_last && inherits(x, \"data.frame\"))\n\t\t\tx[-all_sfc_columns]\n\t\telse if (inherits(x[[1]], c(\"tbl_df\", \"tbl\")))\n\t\t\tx[[1]]\n\t\telse\n\t\t\tcbind(data.frame(row.names = row.names),\n\t\t\t\tas.data.frame(x[-all_sfc_columns],\n\t\t\t\t\tstringsAsFactors = stringsAsFactors, optional = TRUE))\n\n\tif (check_ring_dir) { # process:\n\t\tfor (i in seq_along(all_sfc_names))\n\t\t\tdf[[ all_sfc_names[i] ]] = st_sfc(x[[ all_sfc_columns[i] ]],\n\t\t\t\tcheck_ring_dir = check_ring_dir)\n\t} else { # copy:\n\t\tfor (i in seq_along(all_sfc_names))\n\t\t\tdf[[ all_sfc_names[i] ]] = x[[ all_sfc_columns[i] ]]\n\t}\n\n\tif (! missing(precision))\n\t\tattr(df[[sfc_name]], \"precision\") = precision\n\n\t# add attributes:\n\tattr(df, \"sf_column\") = sfc_name\n\tif (! inherits(df, \"sf\"))\n\t\tclass(df) = c(\"sf\", class(df))\n\tst_agr(df) = agr\n\tif (! missing(crs))\n\t\tst_crs(df) = crs\n\n\tif (Sys.getenv(\"ADD_SF_NAMESPACE\") == \"true\")\n\t\tattr(df, \".sf_namespace\") <- .sf_namespace\n\n\tdf\n}\n\n.sf_namespace <- function() NULL\n\n#' @name sf\n#' @param x object of class \\code{sf}\n#' @param i record selection, see \\link{[.data.frame}, or a \\code{sf} object to work with the \\code{op} argument\n#' @param j variable selection, see \\link{[.data.frame}\n#' @param drop logical, default \\code{FALSE}; if \\code{TRUE} drop the geometry column and return a \\code{data.frame}, else make the geometry sticky and return a \\code{sf} object.\n#' @param op function; geometrical binary predicate function to apply when \\code{i} is a simple feature object\n#' @details \\code{[.sf} will return a \\code{data.frame} or vector if the geometry column (of class \\code{sfc}) is dropped (\\code{drop=TRUE}), an \\code{sfc} object if only the geometry column is selected, and otherwise return an \\code{sf} object; see also \\link{[.data.frame}; for \\code{[.sf} \\code{...} arguments are passed to \\code{op}.\n#' @examples\n#' g = st_sfc(st_point(1:2), st_point(3:4))\n#' s = st_sf(a=3:4, g)\n#' s[1,]\n#' class(s[1,])\n#' s[,1]\n#' class(s[,1])\n#' s[,2]\n#' class(s[,2])\n#' g = st_sf(a=2:3, g)\n#' pol = st_sfc(st_polygon(list(cbind(c(0,3,3,0,0),c(0,0,3,3,0)))))\n#' h = st_sf(r = 5, pol)\n#' g[h,]\n#' h[g,]\n#' @export\n\"[.sf\" = function(x, i, j, ..., drop = FALSE, op = st_intersects) {\n\tnargs = nargs()\n\tagr = st_agr(x)\n\tif (!missing(i) && (inherits(i, \"sf\") || inherits(i, \"sfc\") || inherits(i, \"sfg\")))\n\t\ti = lengths(op(x, i, ...)) != 0\n\tsf_column = attr(x, \"sf_column\")\n\tgeom = st_geometry(x)\n\tif (!missing(i) && nargs > 2) { # e.g. a[3:4,] not a[3:4]\n\t\tif (is.character(i))\n\t\t\ti = match(i, row.names(x))\n\t\tgeom = geom[i]\n\t}\n\n\t# x = as.data.frame(x)\n\tclass(x) = setdiff(class(x), \"sf\") # one step down\n\tx = if (missing(j)) {\n\t\tif (nargs == 2) # `[`(x,i)\n\t\t\tx[i] # do sth else for tbl?\n\t\telse\n\t\t\tx[i, , drop = drop]\n\t} else\n\t\tx[i, j, drop = drop]\n\n\tif (!missing(j))\n\t\tagr = agr[j]\n\telse if (!missing(i) && nargs <= 2)\n\t\tagr = agr[i] # e.g., obj[\"name\"]\n\n\tif (inherits(x, \"sfc\")) # drop was TRUE, and we selected geom column only\n\t\tx\n\telse if (! drop) {\n\t\tx[[ sf_column ]] = geom\n\t\tx = st_sf(x, sf_column_name = sf_column, sfc_last = FALSE)\n\t\tst_set_agr(x, agr[match(setdiff(names(x), sf_column), names(agr))])\n\t} else { \n\t\tif (inherits(x, \"sf\"))\n\t\t\tstructure(x, class = setdiff(class(x), \"sf\"))\n\t\telse\n\t\t\tx\n\t}\n}\n\n#' @export\n\"$<-.sf\" = function(x, i, value) {\n\tif (is.null(value) && inherits(x[[i]], \"sfc\") &&\n\t\t\t((is.character(i) && i == attr(x, \"sf_column\"))\n\t\t\t\t|| (is.integer(i) && names(x)[i] == attr(x, \"sf_column\"))))\n\t\tst_set_geometry(x, NULL)\n\telse {\n\t\tx[[i]] = value\n\t\tx\n\t}\n}\n\n#' @export\n\"[<-.sf\" = function(x, i, j, value) {\n\tst_as_sf(st_set_agr(NextMethod()))\n}\n\n#' @export\n\"[[<-.sf\" = function(x, i, value) {\n\tagr = st_agr(x)\n\tsetting_geom = (i == attr(x, \"sf_column\")) || inherits(value, \"sfc\")\n\tif (! setting_geom) { # need to handle agr:\n\t\tix = if (is.character(i))\n\t\t\t\twhich(i == names(x))\n\t\t\telse\n\t\t\t\ti\n\t\tif (is.null(value)) # remove\n\t\t\tagr = agr[-ix]\n\t\telse {\n\t\t\tif (length(ix) == 0 || ix > length(names(x))) # add:\n\t\t\t\tagr = st_agr(c(as.character(agr), NA_character_))\n\t\t\telse # replace:\n\t\t\t\tagr[ix] = NA\n\t\t}\n\t}\n\tx = structure(NextMethod(), class = c(\"sf\", setdiff(class(x), \"sf\")))\n\tif (! setting_geom)\n\t\tst_agr(x) = agr\n\tx\n}\n\n#' @rdname sf\n#' @param n maximum number of features to print; can be set globally by \\code{options(sf_max_print=...)}\n#' @export\nprint.sf = function(x, ..., n = getOption(\"sf_max_print\", default = 10)) {\n\n\tgeoms = which(vapply(x, function(col) inherits(col, \"sfc\"), TRUE))\n\tnf = length(x) - length(geoms)\n\tapp = paste(\"and\", nf, ifelse(nf == 1, \"field\", \"fields\"))\n\tif (any(!is.na(st_agr(x))))\n\t\tapp = paste0(app, \"\\n\", \"Attribute-geometry relationship\", ifelse(nf > 1, \"s: \", \": \"), summarize_agr(x))\n\tif (length(geoms) > 1)\n\t\tapp = paste0(app, \"\\n\", \"Active geometry column: \", attr(x, \"sf_column\"))\n\tprint(st_geometry(x), n = 0, what = \"Simple feature collection with\", append = app)\n\tif (n > 0) {\n\t\tif (inherits(x, c(\"tbl_df\", \"tbl\")))\n\t\t\tNextMethod()\n\t\telse {\n\t\t\ty <- x\n\t\t\tif (nrow(y) > n) {\n\t\t\t\tcat(paste(\"First\", n, \"features:\\n\"))\n\t\t\t\ty <- x[1:n, , drop = FALSE]\n\t\t\t}\n\t\t\tprint.data.frame(y, ...)\n\t\t}\n\t}\n\tinvisible(x)\n}\n\n#' merge method for sf and data.frame object\n#'\n#' merge method for sf and data.frame object\n#' @param x object of class \\code{sf}\n#' @param y object of class \\code{data.frame}\n#' @param ... arguments passed on to \\code{merge.data.frame}\n#' @export\n#' @examples\n#' a = data.frame(a = 1:3, b = 5:7)\n#' st_geometry(a) = st_sfc(st_point(c(0,0)), st_point(c(1,1)), st_point(c(2,2)))\n#' b = data.frame(x = c(\"a\", \"b\", \"c\"), b = c(2,5,6))\n#' merge(a, b)\n#' merge(a, b, all = TRUE)\nmerge.sf = function(x, y, ...) {\n\tif (inherits(y, \"sf\"))\n\t\tstop(\"merge on two sf objects not supported\")\n\tsf_column = attr(x, \"sf_column\")\n\tret = NextMethod() # if data.table, drops sf_column attribute;\n\tclass(ret) = setdiff(class(ret), \"sf\")\n\tg = ret[[sf_column]] # may have NULL values in it\n\tret[[sf_column]] = st_sfc(g) # fix NULL values\n\tst_set_geometry(ret, sf_column) # FIXME: set agr\n}\n\n#' @export\nas.data.frame.sf = function(x, ...) {\n\tclass(x) <- setdiff(class(x), \"sf\")\n\tNextMethod()\n}\n\n#' @export\nduplicated.sf <- function(x, incomparables = FALSE, fromLast = FALSE, ...) {\n if (length(x) != 1L) {\n if (any(i <- vapply(x, is.factor, NA))) {\n for (j in names(i[i])) {\n x[[j]] <- lapply(x[[j]], as.numeric)\n }\n }\n if (any(i <- (lengths(lapply(x, dim)) == 2L))) {\n for (j in names(i[i])) {\n x[[j]] <- lapply(x[[j]], split.data.frame, seq_len(nrow(x)))\n }\n }\n }\n NextMethod()\n}\n\n#' @export\n#' @name st_geometry\n#' @details if \\code{x} is of class \\code{sf}, \\code{st_drop_geometry} drops the geometry of its argument, and reclasses it accordingly; otherwise it returns \\code{x} unmodified. \nst_drop_geometry = function(x, ...) UseMethod(\"st_drop_geometry\")\n\n#' @export\n#' @name st_geometry\nst_drop_geometry.sf = function(x, ...) {\n\tst_set_geometry(x, NULL)\n}\n\n#' @export\n#' @name st_geometry\nst_drop_geometry.default = function(x, ...) {\n\tx\n}\n\n#' transform method for sf objects\n#' \n#' Can be used to create or modify attribute variables; for transforming geometries see \n#' \\link{st_transform}, and all other functions starting with \\code{st_}.\n#' \n#' @param _data object of class \\code{sf}\n#' @param ... Further arguments of the form `new_variable = expression`\n#'\n#' @export\n#' @examples\n#' a = data.frame(x1 = 1:3, x2 = 5:7)\n#' st_geometry(a) = st_sfc(st_point(c(0,0)), st_point(c(1,1)), st_point(c(2,2)))\n#' transform(a, x1_sq = x1^2)\n#' transform(a, x1_x2 = x1*x2)\ntransform.sf <- function (`_data`, ...) {\n st_as_sf(NextMethod(), agr = st_agr(`_data`), sf_column_name = attr(`_data`, \"sf_column\"))\n}\n"
},
{
"path": "R/sfc.R",
"content": "#' @export\nstr.sfc <- function(object, ...) {\n\tn <- length(object)\n\tcat(paste0(class(object)[1], \" of length \", n))\n\tif (n > 0) {\n\t\tcat(\"; first list element: \")\n\t\tstr(object[[1]], ...)\n\t}\n}\n\n#' @export\nformat.sfc = function(x, ..., width = 30) {\n\tvapply(x, format, \"\", ..., width = width)\n}\n\n#' Create simple feature geometry list column\n#'\n#' Create simple feature geometry list column, set class, and add coordinate reference system and precision.\n#' For data.frame alternatives see [st_sf()]. To convert a foreign object to `sfc`, see [st_as_sfc()]\n#'\n#' @name sfc\n#' @aliases sfc_POINT sfc_LINESTRING sfc_POLYGON sfc_MULTIPOINT sfc_MULTILINESTRING sfc_MULTIPOLYGON sfc_GEOMETRYCOLLECTION\n#' @param ... input: zero or more simple feature geometries (objects of class \\code{sfg}), or a single list of such objects; \\code{NULL} values will get replaced by empty geometries.\n#' @param crs coordinate reference system: integer with the EPSG code, or character with proj4string\n#' @param precision numeric; see \\link{st_as_binary}\n#' @param check_ring_dir see \\link{st_read}\n#' @param dim character; if this function is called without valid geometries, this argument may carry the right dimension to set empty geometries\n#' @param recompute_bbox logical; use \\code{TRUE} to force recomputation of the bounding box\n#' @param oriented logical; if \\code{TRUE}, the ring is oriented such that left of the edges is inside the polygon; this is\n#' needed for convering polygons larger than half the globe to s2\n#' @param fall_back_class character; class for return object when no geometries are provided as input\n#' @return an object of class \\code{sfc}, which is a classed list-column with simple feature geometries.\n#'\n#' @details A simple feature geometry list-column is a list of class\n#' \\code{c(\"stc_TYPE\", \"sfc\")} which most often contains objects of identical type;\n#' in case of a mix of types or an empty set, \\code{TYPE} is set to the\n#' superclass \\code{GEOMETRY}.\n#' @examples\n#' pt1 = st_point(c(0,1))\n#' pt2 = st_point(c(1,1))\n#' (sfc = st_sfc(pt1, pt2))\n#' sfc[sfc[1], op = st_is_within_distance, dist = 0.5]\n#' d = st_sf(data.frame(a=1:2, geom=sfc))\n#' @export\nst_sfc = function(..., crs = NA_crs_, precision = 0.0, check_ring_dir = FALSE, dim,\n\t\t\t\t recompute_bbox = FALSE, oriented = NA, fall_back_class = c(\"sfc_GEOMETRY\", \"sfc\")) {\n\tlst = list(...)\n\t# if we have only one arg, which is already a list with sfg's, but NOT a geometrycollection:\n\t# (this is the old form of calling st_sfc; it is way faster to call st_sfc(lst) if lst\n\t# already contains a zillion sfg objects, than do.call(st_sfc, lst) ...\n\tif (length(lst) && inherits(lst[[1]], \"sf\"))\n\t\tstop(\"use st_as_sfc() to extract geometries from an sf object\")\n\tif (length(lst) == 1 && is.list(lst[[1]]) && !inherits(lst[[1]], \"sfg\")\n\t\t\t&& (length(lst[[1]]) == 0 || inherits(lst[[1]][[1]], \"sfg\") || is.null(lst[[1]][[1]])))\n\t\tlst = lst[[1]]\n\tstopifnot(is.numeric(crs) || is.character(crs) || inherits(crs, \"crs\"))\n\n\t# check for NULLs:\n\ta = attributes(lst)\n\tis_null = sfc_is_null(lst)\n\tlst = unclass(lst)\n\tlst = lst[! is_null]\n\tattributes(lst) = a\n\n\tdims_and_types = sfc_unique_sfg_dims_and_types(lst)\n\t\n\tcls = if (length(lst) == 0) # empty set: no geometries to learn from\n\t\t\tfall_back_class\n\t\telse {\n\t\t\t# class: do we have a mix of geometry types?\n\t\t\tsingle = if (!is.null(attr(lst, \"single_type\"))) # set by CPL_read_wkb:\n\t\t\t\t\tattr(lst, \"single_type\")\n\t\t\t\telse\n\t\t\t\t\tlength(dims_and_types[[2]]) == 1L\n\t\t\tattr(lst, \"single_type\") = NULL # clean up\n\t\t\tif (single)\n\t\t\t\tc(paste0(\"sfc_\", dims_and_types[[2]][1]), \"sfc\")\n\t\t\telse\n\t\t\t\tc(\"sfc_GEOMETRY\", \"sfc\") # the mix\n\t\t}\n\n\tif (any(is_null)) {\n\t\tif (missing(dim)) {\n\t\t\tdim = if (length(lst) == 0) # we have no clue:\n\t\t\t\t\t\"XY\"\n\t\t\t\telse\n\t\t\t\t\tdims_and_types[[1]][1]\n\t\t}\n\t\tret = vector(\"list\", length(is_null))\n\t\tret[!is_null] = lst\n\t\tret[ is_null] = list(typed_empty(cls, nchar(dim), dim = dim))\n\t\tattributes(ret) = attributes(lst)\n\t\tlst = ret\n\t\tdims_and_types = sfc_unique_sfg_dims_and_types(lst)\n\t}\n\n\t# set class:\n\tclass(lst) = cls\n\n\t# set precision\n\tif (! missing(precision) || is.null(attr(lst, \"precision\")))\n\t\tattr(lst, \"precision\") = precision\n\n\t# compute bbox, if not set:\n\tbb = attr(lst, \"bbox\")\n\tif (is.null(bb) || anyNA(bb) || recompute_bbox)\n\t\tattr(lst, \"bbox\") = compute_bbox(lst)\n\n\t# compute z_range, if dims permit and not set\n\tzr = attr(lst, \"z_range\")\n\tif (is.null(zr) || anyNA(zr)) {\n\t\tu <- dims_and_types[[1]]\n\t\tif( \"XYZM\" %in% u ) {\n\t\t\tattr(lst, \"z_range\") = compute_z_range(lst)\n\t\t\tattr(lst, \"m_range\") = compute_m_range(lst)\n\t\t} else if ( \"XYZ\" %in% u ) {\n\t\t\tattr(lst, \"z_range\") = compute_z_range(lst)\n\t\t} else if (\"XYM\" %in% u ) {\n\t\t\tattr(lst, \"m_range\") = compute_m_range(lst)\n\t\t}\n\t}\n\n\t# check ring directions:\n\tif (check_ring_dir) # also GEOMETRYCOLLECTION?\n\t\tlst = check_ring_dir(lst)\n\n\t# get & set crs:\n\tif (is.na(crs) && !is.null(attr(lst, \"crs\")))\n\t\tcrs = attr(lst, \"crs\")\n\tst_crs(lst) = crs\n\n\t# set classes attr in case of GEOMETRY\n\tattr(lst, \"classes\") = if (inherits(lst, \"sfc_GEOMETRY\")) # recompute, as NULL's may have been substituted:\n\t\tvapply(lst, class, rep(NA_character_, 3))[2L,]\n\t\t# else NULL: removes when present; #2567\n\n\t# set n_empty, check XY* is uniform:\n\tif (is.null(attr(lst, \"n_empty\")) || any(is_null)) { # n_empty is set by CPL_read_wkb:\n\t\tattr(lst, \"n_empty\") = sum(sfc_is_empty(lst))\n# \t\thttps://github.com/r-spatial/sf/issues/1592 :\n#\t\tif (length(u <- unique(sfg_classes[1L,])) > 1)\n#\t\t\tstop(paste(\"found multiple dimensions:\", paste(u, collapse = \" \")))\n\t}\n\tif (isTRUE(oriented))\n\t\tattr(lst, \"oriented\") = TRUE\n\n\tlst\n}\n\n#' @name sfc\n#' @param x object of class \\code{sfc}\n#' @param i record selection. Might also be an \\code{sfc}/\\code{sf} object to work with the \\code{op} argument\n#' @param j ignored if `op` is specified\n#' @param op function, geometrical binary predicate function to apply when\n#' \\code{i} is a \\code{sf}/\\code{sfc} object. Additional arguments can be\n#' specified using \\code{...}, see examples.\n#' @details if `x` has a `dim` attribute (i.e. is an `array` or `matrix`) then `op` cannot be used.\n#' @export\n\"[.sfc\" = function(x, i, j, ..., op = st_intersects) {\n\tprecision = st_precision(x)\n\tcrs = st_crs(x)\n\tdim = if (length(x)) class(x[[1]])[1] else \"XY\"\n\tif (!missing(i) && inherits(i, c(\"sf\", \"sfc\", \"sfg\")))\n\t\ti = lengths(op(x, i, ...)) != 0\n\tst_sfc(unclass(x)[i], crs = crs, precision = precision, dim = dim, fall_back_class = class(x))\n}\n\n#' @export\n\"[<-.sfc\" = function (x, i, j, ..., value) {\n\tif (is.null(value) || inherits(value, \"sfg\"))\n\t\tvalue = list(value)\n\tret = st_sfc(NextMethod(), recompute_bbox = TRUE)\n\tstructure(ret, n_empty = sum(sfc_is_empty(ret)))\n}\n\n#' @export\nc.sfc = function(..., recursive = FALSE) {\n\tlst = list(...)\n\tchk_equal_crs(lst)\n\tclasses = sapply(lst, function(x) class(x)[1])\n\tle = lengths(lst)\n\tif (any(le > 0))\n\t\tclasses = classes[le > 0] # removes the empty set GEOMETRY objects\n\tucls = unique(classes)\n\tcls = if (length(ucls) > 1) # a mix:\n\t\t\tc(\"sfc_GEOMETRY\", \"sfc\")\n\t\telse\n\t\t\tc(ucls, \"sfc\")\n\n\tret = unlist(lapply(lst, unclass), recursive = FALSE)\n\tattributes(ret) = attributes(lst[[1]]) # crs\n\tclass(ret) = cls\n\tattr(ret, \"bbox\") = compute_bbox(ret) # dispatch on class\n\tattr(ret, \"n_empty\") = sum(sapply(lst, attr, which = \"n_empty\"))\n\tif (inherits(ret, \"sfc_GEOMETRY\"))\n\t\tattr(ret, \"classes\") = vapply(ret, class, rep(\"\", 3))[2L,]\n\tret\n}\n\n#' @export\nprint.sfc = function(x, ..., n = 5L, what = \"Geometry set for\", append = \"\") {\n\tsep = if (length(x) != 1) \"s\" else \"\"\n\tcls = substr(class(x)[1], 5, nchar(class(x)[1]))\n\tcat(paste0(what, \" \", length(x), \" feature\", sep, \" \", append))\n\tif (! is.null(attr(x, \"n_empty\"))) {\n\t\tne = attr(x, \"n_empty\")\n\t\tif (ne > 0)\n\t\t\tcat(paste0(\" (with \", ne, ifelse(ne > 1, \" geometries \", \" geometry \"), \"empty)\"))\n\t}\n\tif (!is.null(dim(x)))\n\t\tcat(paste0(\" [dim: \", paste(dim(x), collapse = \" x \"), \"]\"))\n\tcat(\"\\n\")\n\tif (length(x) || !inherits(x, \"sfc_GEOMETRY\"))\n\t\tcat(paste0(\"Geometry type: \", cls, \"\\n\"))\n\tif (length(x)) {\n\t\tu = sort(unique(sapply(x, function(x) class(x)[1])))\n\t\tcat(paste0(\"Dimension: \", paste(u, collapse = \", \"), \"\\n\"))\n\t}\n\tcat( paste0(\"Bounding box: \"))\n\tbb = signif(attr(x, \"bbox\"), options(\"digits\")$digits)\n\tcat(paste(paste(names(bb), bb[], sep = \": \"), collapse = \" \"))\n\tcat(\"\\n\")\n\tif( !is.null( attr(x, \"z_range\"))) {\n\t\tcat(paste0(\"z_range: \"))\n\t\tzb = signif(attr(x, \"z_range\"), options(\"digits\")$digits)\n\t\tcat(paste(paste(names(zb), zb[], sep = \": \"), collapse = \" \"))\n\t\tcat(\"\\n\")\n\t}\n\tif( !is.null( attr(x, \"m_range\"))) {\n\t\tcat(paste0(\"m_range: \"))\n\t\tmb = signif(attr(x, \"m_range\"), options(\"digits\")$digits)\n\t\tcat(paste(paste(names(mb), mb[], sep = \": \"), collapse = \" \"))\n\t\tcat(\"\\n\")\n\t}\n\t# attributes: epsg, proj4string, precision\n\tcrs = st_crs(x)\n\tif (is.na(crs))\n\t\tcat(paste0(\"CRS: NA\\n\"))\n\telse {\n\t\tp = crs_parameters(crs)\n\t\tif (p$Name == \"unknown\") {\n\t\t\tif (is.character(crs$input) && !is.na(crs$input) && crs$input != \"unknown\")\n\t\t\t\tp$Name = crs$input\n\t\t\telse\n\t\t\t\tp$Name = crs$proj4string\n\t\t}\n\t\tif (p$IsGeographic)\n\t\t\tcat(paste0(\"Geodetic CRS: \", p$Name, \"\\n\"))\n\t\telse\n\t\t\tcat(paste0(\"Projected CRS: \", p$Name, \"\\n\"))\n\t}\n\tif (attr(x, \"precision\") != 0.0) {\n\t\tcat( paste0(\"Precision: \"))\n\t\tif (attr(x, \"precision\") < 0.0)\n\t\t\tcat(\"float (single precision)\\n\")\n\t\telse\n\t\t\tcat(paste(attr(x, \"precision\"), \"\\n\"))\n\t} # else cat(\"double (default; no precision model)\\n\")\n\tif (length(x) > n && n > 0)\n\t\tcat(paste0(\"First \", n, \" geometries:\\n\"))\n\tfor (i in seq_len(min(n, length(x))))\n\t\tif (inherits(x[[i]], \"sfg\"))\n\t\t\tprint(x[[i]], width = 50, crs = crs)\n\t\telse\n\t\t\tprint(x[[i]], crs = crs)\n\tinvisible(x)\n}\n\n#' Summarize simple feature column\n#'\n#' Summarize simple feature column\n#' @param object object of class \\code{sfc}\n#' @param ... ignored\n#' @param maxsum maximum number of classes to summarize the simple feature column to\n#' @param maxp4s maximum number of characters to print from the PROJ string\n#' @method summary sfc\n#' @export\nsummary.sfc = function(object, ..., maxsum = 7L, maxp4s = 10L) {\n\tu = factor(vapply(object, function(x) WKT_name(x, FALSE), \"\"))\n epsg = paste0(\"epsg:\", st_crs(object)$epsg)\n\tlevels(u) = c(levels(u), epsg)\n p4s = attr(object, \"crs\")$proj4string\n\tif (!is.na(p4s)) {\n\t\tif (nchar(p4s) > maxp4s)\n\t\t\tp4s = paste0(substr(p4s, 1L, maxp4s), \"...\")\n\t\tlevels(u) = c(levels(u), p4s)\n\t}\n summary(u, maxsum = maxsum, ...)\n}\n\n#' @export\nas.data.frame.sfc = function(x, ...) {\n\tret = data.frame(row.names = seq_along(x))\n\tret$geometry = x\n\tret\n}\n\n\n#' @name st_geometry\n#' @export\nst_geometry.sfc = function(obj, ...) obj\n\n#' Return geometry type of an object\n#'\n#' Return geometry type of an object, as a factor\n#' @param x object of class \\link{sf} or \\link{sfc}\n#' @param by_geometry logical; if \\code{TRUE}, return geometry type of each geometry,\n#' else return geometry type of the set\n#' @return a factor with the geometry type of each simple feature geometry\n#' in \\code{x}, or that of the whole set\n#' @export\nst_geometry_type = function(x, by_geometry = TRUE) {\n\tx = st_geometry(x)\n\tf = if (by_geometry)\n\t\t\tvapply(x, function(y) class(y)[2], \"\")\n\t\telse\n\t\t\tsubstring(class(x)[1], 5)\n\tfactor(f, levels =\n\t\tc(\"GEOMETRY\",\n\t\t\"POINT\",\n\t\t\"LINESTRING\",\n\t\t\"POLYGON\",\n\t\t\"MULTIPOINT\",\n\t\t\"MULTILINESTRING\",\n\t\t\"MULTIPOLYGON\",\n\t\t\"GEOMETRYCOLLECTION\",\n\t\t\"CIRCULARSTRING\",\n\t\t\"COMPOUNDCURVE\",\n\t\t\"CURVEPOLYGON\",\n\t\t\"MULTICURVE\",\n\t\t\"MULTISURFACE\",\n\t\t\"CURVE\",\n\t\t\"SURFACE\",\n\t\t\"POLYHEDRALSURFACE\",\n\t\t\"TIN\",\n\t\t\"TRIANGLE\"))\n}\n\n#' Drop or add Z and/or M dimensions from feature geometries\n#'\n#' Drop Z and/or M dimensions from feature geometries, resetting classes appropriately\n#' @param x object of class \\code{sfg}, \\code{sfc} or \\code{sf}\n#' @param ... ignored\n#' @param drop logical; drop, or (`FALSE`) add?\n#' @param what character which dimensions to drop or add\n#' @details Only combinations \\code{drop=TRUE}, \\code{what = \"ZM\"}, and \\code{drop=FALSE}, \\code{what=\"Z\"} are supported so far.\n#' In the latter case, \\code{x} should have \\code{XY} geometry, and zero values are added for the \\code{Z} dimension.\n#' @examples\n#' st_zm(st_linestring(matrix(1:32,8)))\n#' x = st_sfc(st_linestring(matrix(1:32,8)), st_linestring(matrix(1:8,2)))\n#' st_zm(x)\n#' a = st_sf(a = 1:2, geom=x)\n#' st_zm(a)\n#' @export\nst_zm <- function(x, ..., drop = TRUE, what = \"ZM\") UseMethod(\"st_zm\")\n\n#' @export\nst_zm.sf <- function(x, ..., drop = TRUE, what = \"ZM\") {\n\tst_geometry(x) = st_zm(st_geometry(x), drop = drop, what = what)\n\tx\n}\n\n#' @export\nst_zm.sfc <- function(x, ..., drop = TRUE, what = \"ZM\") {\n\tst_sfc(lapply(x, st_zm, drop = drop, what = what), crs = st_crs(x))\n}\n\n#' @export\nst_zm.sfg <- function(x, ..., drop = TRUE, what = \"ZM\") {\n\tif (drop && what == \"ZM\") {\n\t\tret = if (is.list(x))\n\t\t\tlapply(x, st_zm, drop = drop, what = what)\n\t\telse if (is.matrix(x))\n\t\t\tx[, 1:2, drop = FALSE]\n\t\telse\n\t\t\tx[1:2]\n\t\tstructure(ret, class = c(\"XY\", class(x)[2:3]))\n\t} else if (!drop && what == \"Z\") {\n\t\tif (class(x)[1] != \"XY\")\n\t\t\tstop(\"adding Z only supported for XY geometries\")\n\t\tret = if (is.list(x))\n\t\t\tlapply(x, st_zm, drop = drop, what = what)\n\t\telse if (is.matrix(x))\n\t\t\tcbind(unclass(x), 0)\n\t\telse\n\t\t\tc(unclass(x), 0)\n\t\tstructure(ret, class = c(\"XYZ\", class(x)[2:3]))\n\t} else\n\t\tstop(\"this combination of `x', `drop' and `what' is not implemented\")\n}\n\n#' @export\nst_zm.list <- function(x, ..., drop = TRUE, what = \"ZM\")\n\tlapply(x, st_zm, drop = drop, what = what)\n\n#' @export\nst_zm.matrix <- function(x, ..., drop = TRUE, what = \"ZM\") {\n\tif (drop && what == \"ZM\") {\n\t\tx[,1:2]\n\t} else if (!drop && what == \"Z\") {\n\t\tcbind(unclass(x), 0)\n\t} else\n\t\tstop(\"this combination of drop and what is not implemented\")\n}\n\n#' Get precision\n#'\n#' @param x object of class \\code{sfc} or \\code{sf}\n#' @export\nst_precision <- function(x) {\n UseMethod(\"st_precision\")\n}\n\n#' @export\nst_precision.sf <- function(x) {\n x <- st_geometry(x)\n st_precision(x)\n}\n\n#' @export\nst_precision.sfc <- function(x) {\n attr(x, \"precision\")\n}\n\n#' Set precision\n#'\n#' @rdname st_precision\n#' @param precision numeric, or object of class \\code{units} with distance units (but see details); see \\link{st_as_binary} for how to do this.\n#' @details If \\code{precision} is a \\code{units} object, the object on which we set precision must have a coordinate reference system with compatible distance units.\n#'\n#' Setting a \\code{precision} has no direct effect on coordinates of geometries, but merely set an attribute tag to an \\code{sfc} object.\n#' The effect takes place in \\link{st_as_binary} or, more precise, in the C++ function \\code{CPL_write_wkb}, where simple feature geometries are being serialized to well-known-binary (WKB).\n#' This happens always when routines are called in GEOS library (geometrical operations or predicates), for writing geometries using \\link{st_write} or \\link{write_sf}, \\code{st_make_valid} in package \\code{lwgeom}; also \\link{aggregate} and \\link{summarise} by default union geometries, which calls a GEOS library function.\n#' Routines in these libraries receive rounded coordinates, and possibly return results based on them. \\link{st_as_binary} contains an example of a roundtrip of \\code{sfc} geometries through WKB, in order to see the rounding happening to R data.\n#'\n#' The reason to support precision is that geometrical operations in GEOS or liblwgeom may work better at reduced precision. For writing data from R to external resources it is harder to think of a good reason to limiting precision.\n#'\n#' @seealso \\link{st_as_binary} for an explanation of what setting precision does, and the examples therein.\n#' @examples\n#' x <- st_sfc(st_point(c(pi, pi)))\n#' st_precision(x)\n#' st_precision(x) <- 0.01\n#' st_precision(x)\n#' @export\nst_set_precision <- function(x, precision) {\n UseMethod(\"st_set_precision\")\n}\n\n#' @export\nst_set_precision.sfc <- function(x, precision) {\n if (length(precision) != 1) {\n stop(\"Precision applies to all dimensions and must be of length 1.\", call. = FALSE)\n }\n\n\tif (inherits(precision, \"units\")) {\n\t\tu = st_crs(x)$ud_unit\n\t\tif (is.null(u))\n\t\t\tstop(\"cannot use precision expressed as units when target object has no units (CRS) set\")\n\t\tunits(precision) = 1/u # convert\n\t\tprecision = as.numeric(precision)\n\t}\n\n if (is.na(precision) || !is.numeric(precision)) {\n stop(\"Precision must be numeric\", call. = FALSE)\n }\n structure(x, precision = precision)\n}\n\n#' @export\nst_set_precision.sf <- function(x, precision) {\n st_geometry(x) <- st_set_precision(st_geometry(x), precision)\n return(x)\n}\n\n#' @name st_precision\n#' @param value precision value\n#' @export\n\"st_precision<-\" <- function(x, value) {\n st_set_precision(x, value)\n}\n\ntyped_empty = function(cls, ncol = 2, dim = \"XY\") {\n\tswitch(cls[1],\n\t\tsfc_POINT = st_point(rep(NA_real_, ncol), dim = dim),\n\t\tsfc_MULTIPOINT = st_multipoint(matrix(numeric(0), ncol = ncol), dim = dim),\n\t\tsfc_LINESTRING = st_linestring(matrix(numeric(0), ncol = ncol), dim = dim),\n\t\tsfc_MULTILINESTRING = st_multilinestring(dim = dim),\n\t\tsfc_POLYGON = st_polygon(dim = dim),\n\t\tsfc_MULTIPOLYGON = st_multipolygon(dim = dim),\n\t\tst_geometrycollection(dims = dim))\n}\n\n#' retrieve coordinates in matrix form\n#'\n#' retrieve coordinates in matrix form\n#' @param x object of class sf, sfc or sfg\n#' @param ... ignored\n#' @return matrix with coordinates (X, Y, possibly Z and/or M) in rows, possibly followed by integer indicators \\code{L1},...,\\code{L3} that point out to which structure the coordinate belongs; for \\code{POINT} this is absent (each coordinate is a feature), for \\code{LINESTRING} \\code{L1} refers to the feature, for \\code{MULTILINESTRING} \\code{L1} refers to the part and \\code{L2} to the simple feature, for \\code{POLYGON} \\code{L1} refers to the main ring or holes and \\code{L2} to the simple feature, for \\code{MULTIPOLYGON} \\code{L1} refers to the main ring or holes, \\code{L2} to the ring id in the \\code{MULTIPOLYGON}, and \\code{L3} to the simple feature.\n#' \n#' For \\code{POLYGONS}, \\code{L1} can be used to identify exterior rings and inner holes. \n#' The exterior ring is when \\code{L1} is equal to 1. Interior rings are identified \n#' when \\code{L1} is greater than 1. \\code{L2} can be used to differentiate between the \n#' feature. Whereas for \\code{MULTIPOLYGON}, \\code{L3} refers to the \\code{MULTIPOLYGON}\n#' feature and \\code{L2} refers to the component \\code{POLYGON}.\n#' \n#' @export\nst_coordinates = function(x, ...) UseMethod(\"st_coordinates\")\n\n#' @export\nst_coordinates.sf = function(x, ...) st_coordinates(st_geometry(x))\n\n#' @export\nst_coordinates.sfg = function(x, ...) st_coordinates(st_geometry(x))\n\n#' @export\nst_coordinates.sfc = function(x, ...) {\n\tif (length(x) == 0)\n\t\treturn(matrix(nrow = 0, ncol = 2))\n\n\tret = switch(class(x)[1],\n\t\tsfc_POINT = matrix(unlist(x, use.names = FALSE), nrow = length(x), byrow = TRUE,\n\t\t dimnames = NULL),\n\t\tsfc_MULTIPOINT = ,\n\t\tsfc_LINESTRING = coord_2(x),\n\t\tsfc_MULTILINESTRING = ,\n\t\tsfc_POLYGON = coord_3(x),\n\t\tsfc_MULTIPOLYGON = coord_4(x),\n\t\tstop(paste(\"not implemented for objects of class\", class(x)[1]))\n\t)\n\tDims = class(x[[1]])[1]\n\tncd = nchar(Dims)\n\tcolnames(ret)[1:ncd] = vapply(seq_len(ncd), function(i) substr(Dims, i, i), \"\")\n\tret\n}\n\ncoord_2 = function(x) { # x is a list with matrices\n\tcbind(do.call(rbind, x), L1 = rep(seq_along(x), times = vapply(x, nrow, 0L)))\n}\n\ncoord_3 = function(x) { # x is a list of lists with matrices\n\tx = lapply(x, coord_2)\n\tcbind(do.call(rbind, x), L2 = rep(seq_along(x), times = vapply(x, nrow, 0L)))\n}\n\ncoord_4 = function(x) { # x is a list of lists of lists with matrices\n\tx = lapply(x, coord_3)\n\tcbind(do.call(rbind, x), L3 = rep(seq_along(x), times = vapply(x, nrow, 0L)))\n}\n\n#' @export\nrep.sfc = function(x, ...) {\n\tst_sfc(NextMethod(), crs = st_crs(x))\n}\n\ncheck_ring_dir = function(x) {\n\tcheck_polygon = function(pol) {\n\t\tsa = sapply(pol, CPL_signed_area)\n\t\trevert = if (length(sa))\n\t\t\t\tc(sa[1] < 0, sa[-1] > 0)\n\t\t\telse\n\t\t\t\tlogical(0)\n\t\tpol[revert] = lapply(pol[revert], function(m) m[nrow(m):1,])\n\t\tpol\n\t}\n\tcls = if (inherits(x, \"sfg\"))\n\t\t\tclass(x)[2]\n\t\telse\n\t\t\tclass(x)[1]\n\tret = switch(cls,\n\t\tPOLYGON = check_polygon(x),\n\t\tMULTIPOLYGON = ,\n\t\tsfc_POLYGON = lapply(x, check_polygon),\n\t\tsfc_MULTIPOLYGON = lapply(x, function(y) structure(lapply(y, check_polygon), class = class(y))),\n\t\tstop(paste(\"check_ring_dir: not supported for class\", class(x)[1]))\n\t)\n\tattributes(ret) = attributes(x)\n\tret\n}\n\n#' @name st_as_sfc\n#' @export\nst_as_sfc.list = function(x, ..., crs = NA_crs_) {\n\n\tif (length(x) == 0)\n\t\treturn(st_sfc(crs = crs))\n\n\tif (is.raw(x[[1]]))\n\t\tst_as_sfc.WKB(structure(x, class = \"WKB\"), ..., crs = crs)\n\telse if (inherits(x[[1]], \"sfg\"))\n\t\tst_sfc(x, crs = crs)\n\telse if (is.character(x[[1]])) { # hex wkb or wkt:\n\t\tch12 = substr(x[[1]], 1, 2)\n\t\tif (ch12 == \"0x\" || ch12 == \"00\" || ch12 == \"01\") # hex wkb\n\t\t\tst_as_sfc.WKB(structure(x, class = \"WKB\"), ..., crs = crs)\n\t\telse\n\t\t\tst_as_sfc(unlist(x), ..., crs = crs) # wkt\n\t} else\n\t\tstop(paste(\"st_as_sfc.list: don't know what to do with list with elements of class\", class(x[[1]])))\n}\n\n#' @name st_as_sfc\n#' @export\nst_as_sfc.blob = function(x, ...) {\n\tst_as_sfc.list(x, ...)\n}\n\n#' @name st_as_sfc\n#' @export\nst_as_sfc.bbox = function(x, ...) {\n\tif (st_is_full(x))\n\t\tst_as_sfc(\"POLYGON FULL\", crs = st_crs(x))\n\telse {\n\t\tbox = st_polygon(list(matrix(x[c(1, 2, 3, 2, 3, 4, 1, 4, 1, 2)], ncol = 2, byrow = TRUE)))\n\t\tst_sfc(box, crs = st_crs(x), oriented = TRUE)\n\t}\n}\n\nPOLYGON_FULL = matrix(c(0,-90,0,-90), 2, byrow = TRUE)\n\n#' predicate whether a geometry is equal to a POLYGON FULL\n#'\n#' predicate whether a geometry is equal to a POLYGON FULL\n#' @param x object of class `sfg`, `sfc` or `sf`\n#' @param ... ignored, except when it contains a `crs` argument to inform unspecified `is_longlat`\n#' @returns logical, indicating whether geometries are POLYGON FULL (a spherical\n#' polygon covering the entire sphere)\n#' @export\nst_is_full = function(x, ...) UseMethod(\"st_is_full\")\n\n#' @export\n#' @name st_is_full\n#' @param is_longlat logical; output of \\link{st_is_longlat} of the parent `sfc` object\nst_is_full.sfg = function(x, ..., is_longlat = NULL) {\n\tif (identical(is_longlat, FALSE)) # we know these are Cartesian coordinates:\n\t\tFALSE\n\telse\n\t\tsf_use_s2() && inherits(x, \"POLYGON\") &&\n\t\tlength(x) == 1 && nrow(x[[1]]) == 2 && identical(x[[1]], POLYGON_FULL)\n}\n\n#' @export\n#' @name st_is_full\nst_is_full.sfc = function(x, ...) {\n\tif (sf_use_s2() && inherits(x, c(\"sfc_POLYGON\", \"sfc_GEOMETRY\")))\n\t\tsfc_is_full(x)\n\telse\n\t\trep_len(FALSE, length(x))\n}\n\n#' @export\n#' @name st_is_full\nst_is_full.sf = function(x, ...) {\n\tst_is_full(st_geometry(x), ...)\n}\n\n#' @export\n#' @name st_is_full\nst_is_full.bbox = function(x, ...) {\n\tisTRUE(sf_use_s2() && st_is_longlat(x) && all(x == c(-180,-90,180,90)))\n}\n\n#' @export\nunique.sfc = function(x, ...) {\n\tst_sfc(unique(unclass(x),...), crs = st_crs(x), precision = st_precision(x))\n}\n\n#' @export\nxtfrm.sfc = function(x) {\n\td = st_dimension(x, FALSE)\n\tne = !st_is_empty(x)\n\tv = vector(\"double\", length(x))\n\tif (0 %in% d)\n\t\tv[d == 0] = 0 # or # of pts in MULTIPOINT?\n\tif (1 %in% d) {\n\t\tl = st_length(x[d == 1])\n\t\tif (max(l) > 1)\n\t\t\tl = l / max(l)\n\t\tv[d == 1] = l\n\t}\n\tif (2 %in% d) {\n\t\ta = st_area(x[d == 2])\n\t\tif (max(a) > 1)\n\t\t\ta = a / max(a)\n\t\tv[d == 2] = a\n\t}\n\txtfrm(ne + d * 2.1 + v)\n}\n"
},
{
"path": "R/sfg.R",
"content": "# dim: what does the third dimension, if present, refer to? (XYZ or XYM)\ngetClassDim = function(x, d, dim = \"XYZ\", type) {\n\ttype = toupper(type)\n\tif (d == 2)\n\t\tc(\"XY\", type, \"sfg\")\n\telse if (d == 3) {\n\t\tstopifnot(dim %in% c(\"XYZ\", \"XYM\"))\n\t\tc(dim, type, \"sfg\")\n\t} else if (d == 4)\n\t\tc(\"XYZM\", type, \"sfg\")\n\telse stop(paste(d, \"is an illegal number of columns for a\", type))\n}\n\nvalid_numeric_matrix = function(x) {\n\tstopifnot(is.numeric(x), is.matrix(x), !anyNA(x))\n}\n\nMtrx = function(x, dim = \"XYZ\", type) {\n\tvalid_numeric_matrix(x)\n\tstructure(x, class = getClassDim(x, ncol(x), dim, type))\n}\n\n# creates object of class c(dim, type, \"sfg\") from list x, possibly checking rings are closed\nMtrxSet = function(x, dim = \"XYZ\", type, needClosed = FALSE) {\n\tstopifnot(is.list(x))\n\tif (length(x) > 0) { # list()\n\t\tlapply(x, valid_numeric_matrix)\n\t\tnc = unique(vapply(x, ncol, 0L))\n\t\tif (length(nc) != 1)\n\t\t\tstop(\"matrices have unequal numbers of columns\")\n\t\tNotClosed = function(y) any(y[1, ] != y[nrow(y), ])\n\t\tif (needClosed && any(vapply(x, NotClosed, TRUE)))\n\t\t\tstop(\"polygons not (all) closed\")\n\t\tstructure(x, class = getClassDim(x, nc, dim, type))\n\t} else\n\t\tstructure(x, class = getClassDim(x, nchar(dim), dim, type))\n}\n\n# creates object of class c(dim, type, \"sfg\") from list x, d, possibly checking rings are closed\nMtrxSetSet = function(x, dim = \"XYZ\", type, needClosed = FALSE) {\n\tstopifnot(is.list(x), vapply(x, is.list, TRUE))\n\tif (length(x)) {\n\t\tnc = unique(unlist(lapply(x, function(y) vapply(y, ncol, 0L))))\n\t\tif (length(nc) != 1)\n\t\t\tstop(\"matrices have unequal numbers of columns\")\n\t\tlapply(x, function(y) lapply(y, valid_numeric_matrix))\n\t\tNotClosed = function(y) any(y[1, ] != y[nrow(y), ])\n\t\tif (needClosed && any(unlist(lapply(x, function(y) vapply(y, NotClosed, TRUE)))))\n\t\t\tstop(\"polygons not (all) closed\")\n\t\tstructure(x, class = getClassDim(x, nc, dim, type))\n\t} else \n\t\tstructure(x, class = getClassDim(x, nchar(dim), dim, type))\n}\n\n#return \"XY\", \"XYZ\", \"XYM\", or \"XYZM\"\nDimension = function(x) {\n\tstopifnot(inherits(x, \"sfg\"))\n\tclass(x)[1]\n}\n\n## internal function to get a list of sfg POINT for st_as_sf(, coords = ...)\n## src/sfg.cpp\n## https://github.com/r-spatial/sf/issues/700\npoints_rcpp <- function(pts, gdim = \"XY\", ...) {\n\tstopifnot(gdim %in% c(\"XY\", \"XYZ\", \"XYZM\", \"XYM\"))\n\tif (dim(pts)[2L] == 2L && nchar(gdim) > 2L) gdim = \"XY\"\n\tstopifnot(dim(pts)[2] == nchar(gdim))\n\tpoints_cpp(pts, gdim)\n}\n\n#' Create simple feature from a numeric vector, matrix or list\n#'\n#' Create simple feature from a numeric vector, matrix or list\n#' @param x for \\code{st_point}, numeric vector (or one-row-matrix) of length 2, 3 or 4; for \\code{st_linestring} and \\code{st_multipoint}, numeric matrix with points in rows; for \\code{st_polygon} and \\code{st_multilinestring}, list with numeric matrices with points in rows; for \\code{st_multipolygon}, list of lists with numeric matrices; for \\code{st_geometrycollection} list with (non-geometrycollection) simple feature geometry (sfg) objects; see examples below\n#' @param dim character, indicating dimensions: \"XY\", \"XYZ\", \"XYM\", or \"XYZM\"; only really needed for three-dimensional points (which can be either XYZ or XYM) or empty geometries; see details\n#' @name st\n#' @details \"XYZ\" refers to coordinates where the third dimension represents altitude, \"XYM\" refers to three-dimensional coordinates where the third dimension refers to something else (\"M\" for measure); checking of the sanity of \\code{x} may be only partial.\n#' @return object of the same nature as \\code{x}, but with appropriate class attribute set\n#' @examples\n#' (p1 = st_point(c(1,2)))\n#' class(p1)\n#' st_bbox(p1)\n#' (p2 = st_point(c(1,2,3)))\n#' class(p2)\n#' (p3 = st_point(c(1,2,3), \"XYM\"))\n#' pts = matrix(1:10, , 2)\n#' (mp1 = st_multipoint(pts))\n#' pts = matrix(1:15, , 3)\n#' (mp2 = st_multipoint(pts))\n#' (mp3 = st_multipoint(pts, \"XYM\"))\n#' pts = matrix(1:20, , 4)\n#' (mp4 = st_multipoint(pts))\n#' pts = matrix(1:10, , 2)\n#' (ls1 = st_linestring(pts))\n#' pts = matrix(1:15, , 3)\n#' (ls2 = st_linestring(pts))\n#' (ls3 = st_linestring(pts, \"XYM\"))\n#' pts = matrix(1:20, , 4)\n#' (ls4 = st_linestring(pts))\n#' outer = matrix(c(0,0,10,0,10,10,0,10,0,0),ncol=2, byrow=TRUE)\n#' hole1 = matrix(c(1,1,1,2,2,2,2,1,1,1),ncol=2, byrow=TRUE)\n#' hole2 = matrix(c(5,5,5,6,6,6,6,5,5,5),ncol=2, byrow=TRUE)\n#' pts = list(outer, hole1, hole2)\n#' (ml1 = st_multilinestring(pts))\n#' pts3 = lapply(pts, function(x) cbind(x, 0))\n#' (ml2 = st_multilinestring(pts3))\n#' (ml3 = st_multilinestring(pts3, \"XYM\"))\n#' pts4 = lapply(pts3, function(x) cbind(x, 0))\n#' (ml4 = st_multilinestring(pts4))\n#' outer = matrix(c(0,0,10,0,10,10,0,10,0,0),ncol=2, byrow=TRUE)\n#' hole1 = matrix(c(1,1,1,2,2,2,2,1,1,1),ncol=2, byrow=TRUE)\n#' hole2 = matrix(c(5,5,5,6,6,6,6,5,5,5),ncol=2, byrow=TRUE)\n#' pts = list(outer, hole1, hole2)\n#' (pl1 = st_polygon(pts))\n#' pts3 = lapply(pts, function(x) cbind(x, 0))\n#' (pl2 = st_polygon(pts3))\n#' (pl3 = st_polygon(pts3, \"XYM\"))\n#' pts4 = lapply(pts3, function(x) cbind(x, 0))\n#' (pl4 = st_polygon(pts4))\n#' pol1 = list(outer, hole1, hole2)\n#' pol2 = list(outer + 12, hole1 + 12)\n#' pol3 = list(outer + 24)\n#' mp = list(pol1,pol2,pol3)\n#' (mp1 = st_multipolygon(mp))\n#' pts3 = lapply(mp, function(x) lapply(x, function(y) cbind(y, 0)))\n#' (mp2 = st_multipolygon(pts3))\n#' (mp3 = st_multipolygon(pts3, \"XYM\"))\n#' pts4 = lapply(mp2, function(x) lapply(x, function(y) cbind(y, 0)))\n#' (mp4 = st_multipolygon(pts4))\n#' (gc = st_geometrycollection(list(p1, ls1, pl1, mp1)))\n#' st_geometrycollection() # empty geometry\n#' @export\nst_point = function(x = c(NA_real_, NA_real_), dim = \"XYZ\") {\n\tstopifnot(is.numeric(x) && length(x) >= 2)\n\tif (is.matrix(x))\n\t\tstopifnot(nrow(x) == 1) # because we want to be able to call rbind on points\n\tif (any(is.na(x)))\n\t\tx = rep(NA_real_, length(x))\n\tstructure(x, class = getClassDim(x, length(x), dim, \"POINT\"))\n}\n#' @name st\n#' @export\nst_multipoint = function(x = matrix(numeric(0), 0, 2), dim = \"XYZ\") Mtrx(x, dim, type = \"MULTIPOINT\")\n#' @name st\n#' @export\nst_linestring = function(x = matrix(numeric(0), 0, 2), dim = \"XYZ\") Mtrx(x, dim, type = \"LINESTRING\")\n#' @name st\n#' @export\nst_polygon = function(x = list(), dim = if(length(x)) \"XYZ\" else \"XY\") {\n\tMtrxSet(x, dim, type = \"POLYGON\", needClosed = TRUE)\n}\n#' @name st\n#' @export\nst_multilinestring = function(x = list(), dim = if (length(x)) \"XYZ\" else \"XY\")\n\tMtrxSet(x, dim, type = \"MULTILINESTRING\", needClosed = FALSE)\n#' @name st\n#' @export\nst_multipolygon = function(x = list(), dim = if (length(x)) \"XYZ\" else \"XY\")\n\tMtrxSetSet(x, dim, type = \"MULTIPOLYGON\", needClosed = TRUE)\n#' @name st\n#' @param dims character; specify dimensionality in case of an empty (NULL) geometrycollection, in which case \\code{x} is the empty \\code{list()}.\n#' @export\nst_geometrycollection = function(x = list(), dims = \"XY\") {\n\tcls = vapply(x, class, rep(\"\", 3))\n\tif (length(cls)) {\n\t\tif (!is.matrix(cls) || !is.character(cls) || nrow(cls) != 3)\n\t\t\tstop(\"st_geometrycollection parameter x error: list elements should be simple features\")\n\t\tstopifnot(all(cls[3,] == \"sfg\"))\n\t\tstopifnot(all(cls[2,] != \"GEOMETRYCOLLECTION\")) # can't recurse!\n\t\t# check all dimensions are equal:\n\t\tdims = unique(cls[1,])\n\t\tif (length(dims) > 1)\n\t\t\tstop(paste(\"multiple dimensions found:\", paste(dims, collapse = \", \")))\n\t}\n\tstructure(x, class = c(dims, \"GEOMETRYCOLLECTION\", \"sfg\")) # TODO: no Z/M/ZM modifier here??\n}\n\nPOINT2MULTIPOINT = function(x, dim = \"XYZ\") {\n\tif (length(x) == 3) # disambiguate Z/M:\n\t\tdim = class(x)[1]\n\tst_multipoint(matrix(unclass(x), 1), dim = dim)\n}\nLINESTRING2MULTILINESTRING = function(x, dim = \"XYZ\") {\n\tif (ncol(x) == 3) # disambiguate Z/M:\n\t\tdim = class(x)[1]\n\tst_multilinestring(list(unclass(x)), dim = dim)\n}\nPOLYGON2MULTIPOLYGON = function(x, dim = \"XYZ\") {\n\tif (st_is_empty(x)) {\n\t\treturn(st_multipolygon(dim = class(x)[1]))\n\t}\n\tif (ncol(x[[1]]) == 3) # disambiguate Z/M:\n\t\tdim = class(x)[1]\n\tst_multipolygon(list(unclass(x)), dim = dim)\n}\n\n#' @name st\n#' @param width integer; number of characters to be printed (max 30; 0 means print everything)\n#' @export\nprint.sfg = function(x, ..., width = 0) { # avoids having to write print methods for 68 classes:\n\tf = format(x, ..., width = width)\n\tmessage(f)\n\tinvisible(x)\n}\n\n#' @name st\n#' @param n integer; number of elements to be selected\n#' @export\nhead.sfg = function(x, n = 10L, ...) {\n\tstructure(head(unclass(x), n = n, ...), class = class(x))\n}\n\n#\nget_start = function(x, n = 30) {\n\tif (is.list(x)) # recurse into first element:\n\t\tstructure(lapply(x, get_start, n = n), class = class(x))\n\telse # matrix:\n\t\thead(x, round(n/3))\n}\n\n\n#' @name st\n#' @export\nformat.sfg = function(x, ..., width = 30) {\n\tif (is.null(width))\n\t\twidth = 30\n\tif (object.size(x) > 1000 && width > 0)\n\t\tx = get_start(x, n = width)\n\tpr = st_as_text(x, ...)\n\tif (width > 0 && nchar(pr) > width)\n\t\tpaste0(substr(pr, 1, width - 3), \"...\")\n\telse\n\t\tpr\n}\n\n#' @export\n#' @name st\n#' @param ... objects to be pasted together into a single simple feature\n#' @param recursive logical; ignored\n#' @param flatten logical; if `TRUE`, try to simplify results; if `FALSE`, return geometrycollection containing all objects\n#' @examples\n#' c(st_point(1:2), st_point(5:6))\n#' c(st_point(1:2), st_multipoint(matrix(5:8,2)))\n#' c(st_multipoint(matrix(1:4,2)), st_multipoint(matrix(5:8,2)))\n#' c(st_linestring(matrix(1:6,3)), st_linestring(matrix(11:16,3)))\n#' c(st_multilinestring(list(matrix(1:6,3))), st_multilinestring(list(matrix(11:16,3))))\n#' pl = list(rbind(c(0,0), c(1,0), c(1,1), c(0,1), c(0,0)))\n#' c(st_polygon(pl), st_polygon(pl))\n#' c(st_polygon(pl), st_multipolygon(list(pl)))\n#' c(st_linestring(matrix(1:6,3)), st_point(1:2))\n#' c(st_geometrycollection(list(st_point(1:2), st_linestring(matrix(1:6,3)))),\n#' st_geometrycollection(list(st_multilinestring(list(matrix(11:16,3))))))\n#' c(st_geometrycollection(list(st_point(1:2), st_linestring(matrix(1:6,3)))),\n#' st_multilinestring(list(matrix(11:16,3))), st_point(5:6),\n#' st_geometrycollection(list(st_point(10:11))))\n#' @details When \\code{flatten=TRUE}, this method may merge points into a multipoint structure, and may not preserve order, and hence cannot be reverted. When given fish, it returns fish soup.\nc.sfg = function(..., recursive = FALSE, flatten = TRUE) {\n\n\tstopifnot(! recursive)\n\tPaste0 = function(lst) lapply(lst, unclass)\n\tPaste1 = function(lst) do.call(c, lapply(lst, unclass))\n\tlst = list(...)\n\tif (flatten) {\n\t\tcls = vapply(lst, function(x) class(x)[2], \"\")\n\t\tucls = unique(cls)\n\t\tif (length(ucls) == 1) {\n\t\t\tswitch(ucls,\n\t\t\t\tPOINT = st_multipoint(na.omit(do.call(rbind, lst))),\n\t\t\t\t# CURVE = st_multicurve(Paste0(lst))\n\t\t\t\t# CIRCULARSTRING = st_geometrycollection(lst), # FIXME??\n\t\t\t\tLINESTRING = st_multilinestring(Paste0(lst)),\n\t\t\t\t# SURFACE = st_multisurface(Paste0(lst)),\n\t\t\t\tPOLYGON = st_multipolygon(Paste0(lst)),\n\t\t\t\t# TRIANGLE = st_geometrycollection(lst),\n\t\t\t\tMULTIPOINT = st_multipoint(do.call(rbind, lst)),\n\t\t\t\tMULTILINESTRING = st_multilinestring(Paste1(lst)),\n\t\t\t\t# MULTICURVE = st_multicurve(Paste1(lst)),\n\t\t\t\tMULTIPOLYGON = st_multipolygon(Paste1(lst)),\n\t\t\t\t# MULTISURFACE = st_multisurface(Paste1(lst)),\n\t\t\t\t# POLYHEDRALSURFACE = st_polyhedralsurface(Paste1(lst)),\n\t\t\t\t# TIN = st_tin(Paste1(lst)),\n\t\t\t\tGEOMETRYCOLLECTION = st_geometrycollection(Paste1(lst)),\n\t\t\t\tstop(paste(\"type\", cls, \"not supported\"))\n\t\t\t)\n\t\t} else if (all(ucls %in% c(\"POINT\", \"MULTIPOINT\")))\n\t\t\tst_multipoint(do.call(rbind, lst))\n\t\telse if (all(cls %in% c(\"LINESTRING\", \"MULTILINESTRING\"))) {\n\t\t\tls = which(cls == \"LINESTRING\")\n\t\t\tmls = st_multilinestring(lst[ls])\n\t\t\tst_multilinestring(c(unlist(lst[-ls], FALSE), unclass(mls)))\n\t\t} else if (all(cls %in% c(\"POLYGON\", \"MULTIPOLYGON\"))) {\n\t\t\tpo = which(cls == \"POLYGON\")\n\t\t\tmpo = st_multipolygon(lst[po])\n\t\t\tst_multipolygon(c(unlist(lst[-po], FALSE), unclass(mpo)))\n\t\t} else {\n\t\t\t# unfold GC objects first, then\n\t\t\tgc = (cls == \"GEOMETRYCOLLECTION\")\n\t\t\tret = lst[!gc]\n\t\t\tif (any(gc)) { # append the _contents_ of GC's to the non-GC elements:\n\t\t\t\twgc = which(gc)\n\t\t\t\tfor (i in seq_len(length(wgc)))\n\t\t\t\t\tret = append(ret, lst[[wgc[i]]])\n\t\t\t}\n\t\t\tst_geometrycollection(ret)\n\t\t}\n\t} else # !flatten:\n\t\tst_geometrycollection(lst) # breaks if one of them is a GC\n}\n\n#' @name st\n#' @method as.matrix sfg\n#' @export\n#' @return as.matrix returns the set of points that form a geometry as a single matrix, where each point is a row; use \\code{unlist(x, recursive = FALSE)} to get sets of matrices.\nas.matrix.sfg = function(x, ...) {\n\tswitch(class(x)[2],\n\t\tPOINT = matrix(x, 1),\n\t\tMULTIPOINT = as.matrix(unclass(x)),\n\t\tLINESTRING = as.matrix(unclass(x)),\n\t\tPOLYGON = do.call(rbind, x),\n\t\tMULTILINESTRING = do.call(rbind, x),\n\t\tMULTIPOLYGON = do.call(rbind, lapply(x, function(y) do.call(rbind, y))),\n\t\tGEOMETRYCOLLECTION = do.call(rbind, lapply(x, as.matrix)),\n\t\tNextMethod()\n\t)\n}\n"
},
{
"path": "R/sgbp.R",
"content": "sgbp = function(x, predicate, region.id, ncol, sparse = TRUE, remove_self = FALSE, \n\t\t\t\tretain_unique = FALSE) {\n\tif (remove_self || retain_unique) {\n\t\tif (length(x) != ncol)\n\t\t\tstop(\"remove_self or retain_unique only work for square sparse matrices\")\n\t\tx = if (retain_unique) # (includes doing remove_self)\n\t\t\t\tmapply(function(x, y) { x[x > y] }, x, seq_along(x), SIMPLIFY = FALSE)\n\t\t\telse # remove_self \n\t\t\t\tmapply(setdiff, x, seq_along(x), SIMPLIFY = FALSE)\n\t}\n\tret = structure(x,\n\t\tpredicate = predicate,\n\t\tregion.id = region.id,\n\t\tremove_self = remove_self,\n\t\tretain_unique = retain_unique,\n\t\tncol = ncol,\n\t\tclass = c(\"sgbp\", \"list\"))\n\tif (! sparse)\n\t\tas.matrix(ret)\n\telse\n\t\tret\n}\n\n#' Methods for dealing with sparse geometry binary predicate lists\n#' \n#' Methods for dealing with sparse geometry binary predicate lists\n#' @name sgbp\n#' @export\n#' @param x object of class \\code{sgbp}\n#' @param ... ignored\n#' @param n integer; maximum number of items to print\n#' @param max_nb integer; maximum number of neighbours to print for each item\n#' @details \\code{sgbp} are sparse matrices, stored as a list with integer vectors holding the ordered \\code{TRUE} indices of each row. This means that for a dense, \\eqn{m \\times n}{m x n} matrix \\code{Q} and a list \\code{L}, if \\code{Q[i,j]} is \\code{TRUE} then \\eqn{j} is an element of \\code{L[[i]]}. Reversed: when \\eqn{k} is the value of \\code{L[[i]][j]}, then \\code{Q[i,k]} is \\code{TRUE}.\nprint.sgbp = function(x, ..., n = 10, max_nb = 10) {\n\tn = min(length(x), n)\n\thd = paste0(\"Sparse geometry binary predicate list of length \", length(x), \", \",\n\t \t\"where the predicate was `\", attr(x, \"predicate\"), \"'\")\n\tif (isTRUE(attr(x, \"retain_unique\")))\n\t\thd = paste0(hd, \", with retain_unique = TRUE\")\n\telse if (isTRUE(attr(x, \"remove_self\")))\n\t\thd = paste0(hd, \", with remove_self = TRUE\")\n\tcat(strwrap(hd), sep = \"\\n\")\n\tif (n < length(x))\n\t\tcat(\"first \", n, \" elements:\\n\", sep = \"\")\n\tnbh = function(i, m) {\n\t\tX = x[[i]]\n\t\tend = if (length(X) > m) \", ...\" else \"\"\n\t\tcat(\" \", i, \": \", sep = \"\")\n\t\tif (length(X))\n\t\t\tcat(paste(head(X, m), collapse = \", \"), end, \"\\n\", sep = \"\")\n\t\telse\n\t\t\tcat(\"(empty)\\n\")\n\t}\n\tlapply(1:n, nbh, m = max_nb)\n\tinvisible(x)\n}\n\n#' @name sgbp\n#' @export\nt.sgbp = function(x) {\n\tm = attr(x, \"ncol\")\n\tstructure(sgbp(CPL_transpose_sparse_incidence(x, m),\n\t\tpredicate = attr(x, \"predicate\"),\n\t\tregion.id = as.character(1:m),\n\t\tncol = length(x)),\n\t\tdim = NULL)\n}\n\n#' @name sgbp\n#' @export\nas.matrix.sgbp = function(x, ...) {\n\tnc = attr(x, \"ncol\")\n\tget_vec = function(x, n) { v = rep(FALSE, n); v[x] = TRUE; v }\n\tdo.call(rbind, lapply(x, get_vec, n = nc))\n}\n\n#' @name sgbp\n#' @export\ndim.sgbp = function(x) {\n\tc(length(x), attr(x, \"ncol\"))\n}\n\n#' @name sgbp\n#' @param e1 object of class `sgbp`\n#' @param e2 object of class `sgbp`\n#' @export\n#' @details `==` compares only the dimension and index values, not the attributes of two `sgbp` object; use `identical` to check for equality of everything.\nOps.sgbp = function(e1, e2) {\n\tswitch(.Generic, \n\t \"!\" = {\n\t\t\tnc = 1:attr(e1, \"ncol\")\n\t\t\tsgbp(lapply(e1, function(x) setdiff(nc, x)),\n\t\t\t\tpredicate = paste0(\"!\", attr(e1, \"predicate\")),\n\t\t\t\tregion.id = attr(e1, \"region.id\"),\n\t\t\t\tncol = attr(e1, \"ncol\"))\n\t },\n\t \"==\" = (length(e1) == length(e2)) && all(mapply(function(x,y) identical(x, y), e1, e2)), \n\t \"!=\" = return(!(e1 == e2)),\n\t\tstop(\"only operators !, == and != are supported for sgbp objects\")\n\t)\n}\n\n#' @name sgbp\n#' @export\nas.data.frame.sgbp = function(x, ...) {\n\tdata.frame(row.id = rep(seq_along(x), lengths(x)), col.id = unlist(x))\n}\n\nsetOldClass(\"sgbp\")\n\nsetAs(\"sgbp\", \"sparseMatrix\", function(from) {\n\tif (! requireNamespace(\"Matrix\", quietly = TRUE))\n\t\tstop(\"package Matrix required, please install it first\")\n\tidx = as.data.frame(from)\n\tMatrix::sparseMatrix(i = idx$row.id, j = idx$col.id, x = 1)\n})\n"
},
{
"path": "R/shift_longitude.R",
"content": "#' Shift or re-center geographical coordinates for a Pacific view\n#'\n#' @description\n#' All longitudes < 0 are added to 360, to avoid for instance parts of Alaska\n#' being represented on the far left and right of a plot because they have\n#' values straddling 180 degrees. In general, using a projected\n#' coordinate reference system is to be preferred, but this method permits a\n#' geographical coordinate reference system to be used. This is the sf\n#' equivalent of [recenter][sp::recenter] in the sp package and\n#' `ST_ShiftLongitude` in PostGIS.\n#'\n#' @param x object of class `sf` or `sfc`\n#' @param ... ignored\n#'\n#' @export\nst_shift_longitude = function(x) {\n\tll = st_is_longlat(x)\n\tif (!isTRUE(ll))\n\t\tstop(\"'st_shift_longitude' requires non-projected geographic coordinates\",\n\t\t\t call. = FALSE)\n\n\tUseMethod(\"st_shift_longitude\")\n}\n\n#' @name st_shift_longitude\n#' @export\n#' @examples\n#' ## sfc\n#' pt1 = st_point(c(-170, 50))\n#' pt2 = st_point(c(170, 50))\n#' (sfc = st_sfc(pt1, pt2))\n#' sfc = st_set_crs(sfc, 4326)\n#' st_shift_longitude(sfc)\n#'\nst_shift_longitude.sfc = function(x, ...) {\n\txcrs = st_crs(x)\n\tg = (x + c(360, 90)) %% c(360) - c(0, 90)\n\tst_set_crs(g, xcrs)\n}\n\n#' @name st_shift_longitude\n#' @export\n#' @examples\n#' ## sf\n#' d = st_as_sf(data.frame(id = 1:2, geometry = sfc))\n#' st_shift_longitude(d)\nst_shift_longitude.sf = function(x, ...) {\n\tst_geometry(x) = st_shift_longitude(st_geometry(x))\n\tx\n}\n"
},
{
"path": "R/sp.R",
"content": "## Method coordinates\n## @name coordinates\n## @exportMethod coordinates\n#if (!isGeneric(\"coordinates\"))\n# setGeneric(\"coordinates\", function(obj, ...)\n#\t\tstandardGeneric(\"coordinates\"))\n#\n#setMethod(\"coordinates\", \"sfc_POINT\",\n#\tfunction(obj, ...)\n#\t\tdo.call(rbind, obj)\n#)\n#\n#setMethod(\"coordinates\", \"sfc\",\n#\tfunction(obj, ...)\n#\t\tstop(\"coordinates for this object type not implemented\")\n#)\n#\n#setMethod(\"coordinates\", \"sf\",\n#\tfunction(obj, ...)\n#\t\tcoordinates(st_geometry(obj), ...)\n#)\n\n\n#' @rdname st_as_sf\n#' @examples\n#' if (require(sp, quietly = TRUE)) {\n#' x = rbind(c(-1,-1), c(1,-1), c(1,1), c(-1,1), c(-1,-1))\n#' x1 = 0.1 * x + 0.1\n#' x2 = 0.1 * x + 0.4\n#' x3 = 0.1 * x + 0.7\n#' y = x + 3\n#' y1 = x1 + 3\n#' y3 = x3 + 3\n#' m = matrix(c(3, 0), 5, 2, byrow = TRUE)\n#' z = x + m\n#' z1 = x1 + m\n#' z2 = x2 + m\n#' z3 = x3 + m\n#' p1 = Polygons(list( Polygon(x[5:1,]), Polygon(x2), Polygon(x3),\n#' Polygon(y[5:1,]), Polygon(y1), Polygon(x1), Polygon(y3)), \"ID1\")\n#' p2 = Polygons(list( Polygon(z[5:1,]), Polygon(z2), Polygon(z3), Polygon(z1)),\n#' \"ID2\")\n#' r = SpatialPolygons(list(p1,p2))\n#' a = suppressWarnings(st_as_sf(r))\n#' summary(a)\n#' demo(meuse, ask = FALSE, echo = FALSE)\n#' summary(st_as_sf(meuse))\n#' summary(st_as_sf(meuse.grid))\n#' summary(st_as_sf(meuse.area))\n#' summary(st_as_sf(meuse.riv))\n#' summary(st_as_sf(as(meuse.riv, \"SpatialLines\")))\n#' pol.grd = as(meuse.grid, \"SpatialPolygonsDataFrame\")\n#' # summary(st_as_sf(pol.grd))\n#' # summary(st_as_sf(as(pol.grd, \"SpatialLinesDataFrame\")))\n#' }\n#' @export\nst_as_sf.Spatial = function(x, ...) {\n\tif (\"data\" %in% slotNames(x)) {\n if (!isTRUE(all.equal(row.names(x@data), row.names(x))))\n row.names(x@data) <- row.names(x)\n\t\tdf = x@data\n\t} else {\n\t\tdf = data.frame(row.names = row.names(x)) # empty\n }\n\tif (\"geometry\" %in% names(df))\n\t\twarning(\"column \\\"geometry\\\" will be overwritten by geometry column\")\n\tif (! requireNamespace(\"sp\", quietly = TRUE))\n\t\tstop(\"package sp required, please install it first\")\n\tif (sp::gridded(x) && sp::fullgrid(x))\n\t\tsp::fullgrid(x) = FALSE\n\tdf$geometry = st_as_sfc(sp::geometry(x), ...)\n\tst_as_sf(df)\n}\n\n\n#' Convert foreign geometry object to an sfc object\n#'\n#' Convert foreign geometry object to an sfc object\n#' @param x object to convert\n#' @param ... further arguments\n#' @param precision precision value; see \\link{st_as_binary}\n#' @param forceMulti logical; if \\code{TRUE}, force coercion into \\code{MULTIPOLYGON} or \\code{MULTILINE} objects, else autodetect\n#' @export\nst_as_sfc = function(x, ...) UseMethod(\"st_as_sfc\")\n\nhandle_bbox = function(sfc, sp) {\n\tbb = structure(bb_wrap(as.vector(sp::bbox(sp)[1:2,])), class = \"bbox\")\n\tstructure(sfc, \"bbox\" = bb)\n}\n\n#' @rdname st_as_sfc\n#' @export\nst_as_sfc.SpatialPoints = function(x, ..., precision = 0.0) {\n\tcc = x@coords\n\tdimnames(cc) = NULL\n\tlst = lapply(seq_len(nrow(cc)), function(x) st_point(cc[x,]))\n\thandle_bbox(do.call(st_sfc, append(lst, list(crs = st_crs(x@proj4string), \n\t\tprecision = precision))), x)\n}\n\n#' @rdname st_as_sfc\n#' @export\nst_as_sfc.SpatialPixels = function(x, ..., precision = 0.0) {\n\thandle_bbox(st_as_sfc(as(x, \"SpatialPoints\"), precision = precision), x)\n}\n\n\n#' @rdname st_as_sfc\n#' @export\nst_as_sfc.SpatialMultiPoints = function(x, ..., precision = 0.0) {\n\tlst = lapply(x@coords, st_multipoint)\n\thandle_bbox(do.call(st_sfc, append(lst, list(crs = st_crs(x@proj4string),\n\t\tprecision = precision))), x)\n}\n\n#' @rdname st_as_sfc\n#' @export\nst_as_sfc.SpatialLines = function(x, ..., precision = 0.0, forceMulti = FALSE) {\n\tlst = if (forceMulti || any(sapply(x@lines, function(x) length(x@Lines)) != 1))\n\t\tlapply(x@lines, function(y) {\n crd_list <- lapply(y@Lines, function(z) z@coords)\n crd_list1 <- lapply(crd_list, function(z) {\n if (nrow(z) < 2L) res <- z[0,]\n else res <- z\n res\n })\n st_multilinestring(crd_list1)\n })\n\telse\n\t\tlapply(x@lines, function(y) {\n crds = y@Lines[[1]]@coords\n if (nrow(crds) < 2L) res = st_linestring()\n else res = st_linestring(crds)\n res\n })\n\thandle_bbox(do.call(st_sfc, append(lst, list(crs = st_crs(x@proj4string),\n\t\tprecision = precision))), x)\n}\n\n#' @rdname st_as_sfc\n#' @export\n\nst_as_sfc.SpatialPolygons = function(x, ..., precision = 0.0, forceMulti = FALSE) {\n\tlst = if (forceMulti || any(sapply(x@polygons, function(x) moreThanOneOuterRing(x@Polygons)))) {\n\t\tif (is.null(comment(x)) || comment(x) == \"FALSE\") {\n#\t\t\tif (!requireNamespace(\"rgeos\", quietly = TRUE))\n#\t\t\t\tstop(\"package rgeos required for finding out which hole belongs to which exterior ring\")\n#\t\t\tx = rgeos::createSPComment(x)\n\t\t\t# https://github.com/r-spatial/sf/pull/1869/files/7f1921c9acc1000b92a81b3a0aa7126330d4ef12..cfa303c8fcdd0b9a7ea33eae402c1135bb8e50ba :\n\t\t\t# warning(\"no comment found showing which hole belongs to which exterior ring\")\n\t\t\t# (warning causes revdep problem in pkg amt)\n\t\t\tprocess_pl_comment <- function(pl) {\n\t\t\t\tID <- slot(pl, \"ID\")\n\t\t\t\tcrds <- lapply(slot(pl, \"Polygons\"), function(xx) slot(xx, \"coords\"))\n\t\t\t\tholes <- sapply(slot(pl, \"Polygons\"), slot, \"hole\")\n\t\t\t\traw0 <- st_sfc(lapply(crds, function(x) st_polygon(list(x))))\n\t\t\t\tif (!any(holes)) {\n\t\t\t\t\tval <- st_union(st_make_valid(raw0))\n\t\t\t\t} else {\n\t\t\t\t\twkts <- vector(\"list\", sum(!holes))\n\t\t\t\t\tfor (i in seq_along(wkts)) {\n\t\t\t\t\t\twkts[[i]] <- st_as_text(raw0[!holes][i])\n\t\t\t\t\t}\n\t\t\t\t\tcp0 <- st_contains(raw0[!holes], raw0[holes])\n\t\t\t\t\tareas <- sapply(slot(pl, \"Polygons\"), slot, \"area\")\n\t\t\t\t\thole_assigned <- rep(FALSE, sum(holes))\n\t\t\t\t\tnames(cp0) <- seq_along(cp0)\n cp1 <- cp0[order(areas[!holes])]\n\t\t\t\t\tfor (i in seq_along(cp1)) {\n cp1i <- cp1[[i]]\n\t\t\t\t\t tgt <- as.integer(names(cp1[i]))\n if (length(cp1i) > 0L) {\n for (j in cp1i) {\n\t\t\t\t\t wkts[[tgt]] <- paste(sub(\"))\", \"),\", wkts[[tgt]]), sub(\"POLYGON \\\\(\", \"\", st_as_text(raw0[holes][j])))\n\t\t\t\t\t hole_assigned[j] <- TRUE\n\t\t\t\t\t }\n }\n\t\t\t\t\t for (ii in i:length(cp1)) {\n for (j in cp1i) {\n\t\t\t\t\t cp1[[ii]] <- setdiff(cp1[[ii]], j)\n\t\t\t\t\t }\n\t\t\t\t\t }\n\t\t\t\t\t}\n\t\t\t\t\tif (any(!hole_assigned))\n\t\t\t\t\t warning(\"orphaned hole, cannot find containing polygon\")\n\t\t\t\t\traw0 <- st_as_sfc(wkts)\n raw1 <- st_make_valid(raw0)\n if (any(st_is(raw1, \"GEOMETRYCOLLECTION\"))) \n raw1 <- st_collection_extract(raw1, \"POLYGON\")\n\t\t\t\t\tval <- st_union(raw1)\n\t\t\t\t}\n\t\t\t\tif (inherits(val, \"sfc_GEOMETRYCOLLECTION\"))\n\t\t\t\t\tval = st_collection_extract(val, \"POLYGON\")\n\t\t\t\tres <- slot(as(val, \"Spatial\"), \"polygons\")[[1]]\n\t\t\t\tslot(res, \"ID\") <- ID\n\t\t\t\tres\n\t\t\t}\n#\t\t\tprocess_pl_comment <- function(pl) {\n#\t\t\t\tID <- slot(pl, \"ID\")\n#\t\t\t\tcrds <- lapply(slot(pl, \"Polygons\"), function(xx) slot(xx, \"coords\"))\n#\t\t\t\traw <- st_sfc(st_polygon(crds))\n#\t\t\t\tval <- st_make_valid(raw)\n#\t\t\t\tif (inherits(val, \"sfc_GEOMETRYCOLLECTION\"))\n#\t\t\t\t\tval = st_collection_extract(val, \"POLYGON\")\n#\t\t\t\tres <- slot(as(val, \"Spatial\"), \"polygons\")[[1]]\n#\t\t\t\tslot(res, \"ID\") <- ID\n#\t\t\t\tres\n#\t\t\t}\n\t\t\tslot(x, \"polygons\") <- lapply(slot(x, \"polygons\"), process_pl_comment)\n\t\t\tcomment(x) <- \"TRUE\"\n\t\t}\n\t\tlapply(x@polygons, function(y)\n\t\t\tst_multipolygon(Polygons2MULTIPOLYGON(y@Polygons, comment(y))))\n\t} else\n\t\tlapply(x@polygons, function(y) st_polygon(Polygons2POLYGON(y@Polygons)))\n\thandle_bbox(do.call(st_sfc, append(lst, list(crs = st_crs(x@proj4string),\n\t\tprecision = precision))), x)\n}\n\nmoreThanOneOuterRing = function(PolygonsLst) {\n\tholes = sapply(PolygonsLst, function(x) x@hole)\n\tlength(holes) - length(which(holes)) > 1\n}\n\nPolygons2MULTIPOLYGON = function(PolygonsLst, cmt) {\n\tidx = scan(text = cmt, quiet = TRUE)\n\t# idx tells which outer rings (0) enclose which holes (idx == which(idx == 0))\n\touter_rings = which(idx == 0)\n\t# loop over outer_rings:\n\tlapply(outer_rings, function(x) Polygons2POLYGON(PolygonsLst[c(x, which(idx == x))]))\n}\n\nPolygons2POLYGON = function(PolygonsLst) {\n\t# here we have one outer ring, followed by (0+) holes inside this ring\n\tlapply(PolygonsLst, function(x) x@coords)\n}\n\n#' @name as\n#' @rdname coerce-methods\n#' @aliases Spatial sf-method\nsetAs(\"Spatial\", \"sf\", function(from) st_as_sf(from))\n\n#' @name as\n#' @rdname coerce-methods\n#' @aliases coerce Spatial sfc-method\nsetAs(\"Spatial\", \"sfc\", function(from) st_as_sfc(from))\n\n#' @name as\n#' @rdname coerce-methods\n#' @aliases coerce Spatial-method\nsetAs(\"sf\", \"Spatial\", function(from) {\n\tif (!requireNamespace(\"sp\", quietly = TRUE))\n\t\tstop(\"package sp required, please install it first\")\n\tgeom = st_geometry(from)\n\tfrom[[attr(from, \"sf_column\")]] = NULL # remove sf column list\n\tsp::addAttrToGeom(as_Spatial(geom, IDs = row.names(from)),\n\t\tdata.frame(from), match.ID = FALSE)\n})\n\n#' @name as\n#' @rdname coerce-methods\n#' @aliases coerce Spatial-method\nsetAs(\"sfc\", \"Spatial\", function(from) as_Spatial(from))\n\n# create empy class\nsetOldClass(\"XY\")\nsetAs(\"XY\", \"Spatial\", function(from) as(st_sfc(from), \"Spatial\"))\n\n#' Methods to coerce simple features to `Spatial*` and `Spatial*DataFrame` objects\n#'\n#' [as_Spatial()] allows to convert `sf` and `sfc` to `Spatial*DataFrame` and\n#' `Spatial*` for `sp` compatibility. You can also use `as(x, \"Spatial\")` To transform\n#' `sp` objects to `sf` and `sfc` with `as(x, \"sf\")`.\n#' @rdname coerce-methods\n#' @name as_Spatial\n#' @param from object of class `sf`, `sfc_POINT`, `sfc_MULTIPOINT`, `sfc_LINESTRING`,\n#' `sfc_MULTILINESTRING`, `sfc_POLYGON`, or `sfc_MULTIPOLYGON`.\n#' @param cast logical; if `TRUE`, [st_cast()] `from` before converting, so that e.g.\n#' `GEOMETRY` objects with a mix of `POLYGON` and `MULTIPOLYGON` are cast to `MULTIPOLYGON`.\n#' @param IDs character vector with IDs for the `Spatial*` geometries\n#' @details Package \\code{sp} supports three dimensions for `POINT` and `MULTIPOINT` (`SpatialPoint*`).\n#' Other geometries must be two-dimensional (`XY`). Dimensions can be dropped using\n#' [st_zm()] with `what = \"M\"` or `what = \"ZM\"`.\n#'\n#' For converting simple features (i.e., \\code{sf} objects) to their \\code{Spatial} counterpart, use \\code{as(obj, \"Spatial\")}\n#' @return geometry-only object deriving from `Spatial`, of the appropriate class\n#' @export\n#' @examples\n#' nc <- st_read(system.file(\"shape/nc.shp\", package=\"sf\"))\n#' if (require(sp, quietly = TRUE)) {\n#' # convert to SpatialPolygonsDataFrame\n#' spdf <- as_Spatial(nc)\n#' # identical to\n#' spdf <- as(nc, \"Spatial\")\n#' # convert to SpatialPolygons\n#' as(st_geometry(nc), \"Spatial\")\n#' # back to sf\n#' as(spdf, \"sf\")\n#' }\nas_Spatial = function(from, cast = TRUE, IDs = paste0(\"ID\", seq_along(from))) {\n\tif (inherits(from, \"sf\")) {\n\t\tgeom = st_geometry(from)\n\t\tfrom[[attr(from, \"sf_column\")]] = NULL # remove sf column list\n\t\tif (ncol(from))\n\t\t\tsp::addAttrToGeom(as_Spatial(geom, cast = cast, IDs = row.names(from)),\n\t\t\t\t\t\t data.frame(from), match.ID = FALSE)\n\t\telse {\n\t\t\tif (missing(IDs))\n\t\t\t\tIDs = paste0(\"ID\", seq_along(geom))\n\t\t\tas_Spatial(geom, cast, IDs)\n\t\t}\n\t} else {\n\t\t.as_Spatial(from, cast, IDs)\n\t}\n}\n\n.as_Spatial = function(from, cast = TRUE, IDs = paste0(\"ID\", seq_along(from))) {\n\tif (cast)\n\t\tfrom = st_cast(from)\n\tzm = class(from[[1]])[1]\n\tif (zm %in% c(\"XYM\", \"XYZM\"))\n\t\tstop(\"geometries containing M not supported by sp\\n\",\n\t\t\t 'use `st_zm(..., what = \"M\")`')\n\tif (any(st_is_empty(from)))\n\t\tstop(\"empty geometries are not supported by sp classes: conversion failed\")\n\tStopZ = function(zm) { \n\t\tif (zm == \"XYZ\")\n\t\t\tstop(\"sp supports Z dimension only for POINT and MULTIPOINT.\\n\",\n\t\t\t\t 'use `st_zm(...)` to coerce to XY dimensions')\n\t}\n\tswitch(class(from)[1],\n\t\t\"sfc_POINT\" = sfc2SpatialPoints(from),\n#\t\t\"sfc_POINT\" = sfc2SpatialPoints(from, IDs),\n\t\t\"sfc_MULTIPOINT\" = sfc2SpatialMultiPoints(from),\n\t\t\"sfc_LINESTRING\" = , \"sfc_MULTILINESTRING\" = { StopZ(zm); sfc2SpatialLines(from, IDs) },\n\t\t\"sfc_POLYGON\" = , \"sfc_MULTIPOLYGON\" = { StopZ(zm); sfc2SpatialPolygons(from, IDs) },\n\t\tstop(paste(\"conversion from feature type\", class(from)[1], \"to sp is not supported\"))\n\t)\n}\n\nsfc2SpatialPoints = function(from, IDs) {\n\tif (!requireNamespace(\"sp\", quietly = TRUE))\n\t\tstop(\"package sp required, please install it first\")\n\tsp::SpatialPoints(do.call(rbind, from), proj4string = as(st_crs(from), \"CRS\"))\n}\n\nsfc2SpatialMultiPoints = function(from) {\n\tif (!requireNamespace(\"sp\", quietly = TRUE))\n\t\tstop(\"package sp required, please install it first\")\n\tsp::SpatialMultiPoints(lapply(from, unclass), \n\t\tproj4string = as(st_crs(from), \"CRS\"))\n}\n\nsfc2SpatialLines = function(from, IDs = paste0(\"ID\", seq_along(from))) {\n\tif (!requireNamespace(\"sp\", quietly = TRUE))\n\t\tstop(\"package sp required, please install it first\")\n\tl = if (class(from)[1] == \"sfc_MULTILINESTRING\")\n\t\tlapply(from, function(x) sp::Lines(lapply(x, function(y) sp::Line(unclass(y))), \"ID\"))\n\telse\n\t\tlapply(from, function(x) sp::Lines(list(sp::Line(unclass(x))), \"ID\"))\n\tfor (i in seq_along(from))\n\t\tl[[i]]@ID = IDs[i]\n\tsp::SpatialLines(l, proj4string = as(st_crs(from), \"CRS\"))\n}\n\nsfc2SpatialPolygons = function(from, IDs = paste0(\"ID\", seq_along(from))) {\n\tif (!requireNamespace(\"sp\", quietly = TRUE))\n\t\tstop(\"package sp required, please install it first\")\n\tl = if (class(from)[1] == \"sfc_MULTIPOLYGON\")\n\t\tlapply(from, function(x) # for each sfc item, return a Polygons\n\t\t\t\tsp::Polygons(unlist(lapply(x, function(y) # to each sub-polygon,\n\t\t\t\t\tlapply(seq_along(y), function(i) sp::Polygon(y[[i]], i > 1))),\n\t\t\t\t\t\trecursive = FALSE), \"ID\"))\n\telse lapply(from, function(x)\n\t\tsp::Polygons(lapply(seq_along(x), function(i) sp::Polygon(x[[i]], i > 1)), \"ID\"))\n\n\t# set comment: ?Polygons: \"Exterior rings are coded zero, while interior rings are\n\t# coded with the 1-based index of the exterior ring to which they belong.\":\n\tfor (i in seq_along(from)) {\n\t\tl[[i]]@ID = IDs[i]\n\t\tif (class(from)[1] == \"sfc_MULTIPOLYGON\")\n\t\t\tcomm = get_comment(from[[i]])\n\t\telse\n\t\t\tcomm = c(0, rep(1, length(from[[i]])-1))\n\t\tcomment(l[[i]]) = paste(as.character(comm), collapse = \" \")\n\t}\n\tsp::SpatialPolygons(l, proj4string = as(st_crs(from), \"CRS\"))\n}\n\nget_comment = function(mp) { # for MULTIPOLYGON\n\tl = lapply(mp, function(from) c(0, rep(1, length(from) - 1)))\n\toffset = 0\n\tfor (i in seq_along(l)) {\n\t\tl[[i]] = l[[i]] + offset\n\t\toffset = offset + length(l[[i]])\n\t\tl[[i]][1] = 0\n\t}\n\tunlist(l)\n}\n\n#' @name as\n#' @rdname coerce-methods\n#' @aliases coerce crs CRS-method\nsetAs(\"crs\", \"CRS\", function(from) CRS_from_crs(from))\nCRS_from_crs = function(from) {\n\tif (! requireNamespace(\"sp\", quietly = TRUE))\n\t\tstop(\"package sp required, please install it first\")\n\tnm <- \"CRS\"\n\tattr(nm, \"package\") <- \"sp\" # See ?new:\n\tobj <- new(nm, projargs = from$proj4string)\n\tif (!is.na(from$wkt) && CPL_proj_version() >= \"6.0.0\" && CPL_gdal_version() >= \"3.0.0\")\n\t\tcomment(obj) <- from$wkt\n\tobj\n\t# we don't use sp::CRS(SRS_string = from$wkt) as rgdal may not be available,\n\t# which would break, and from$wkt has already been validated by GDAL:\n}\n"
},
{
"path": "R/spatstat.R",
"content": "# window_polygons_from_edges = function(w) {\n#\tmw = as.matrix(w$ends)\n#\tlst1 = lapply(seq_len(NROW(mw)), function(i) st_linestring(matrix(mw[i,], 2, byrow = TRUE)))\n#\tp0 = st_polygonize(do.call(c, do.call(st_sfc, lst1)))\n#\tif (length(p0) > 1) # multiple POLYGONs, returned as sfc_\n#\t\tdo.call(c, st_collection_extract(p0, \"POLYGON\")) # MULTIPOLYGON\n#\telse\n#\t\tst_cast(p0, \"POLYGON\")\n# }\n\nwrp = function(x) paste(strwrap(x), collapse = \"\\n\")\n\ncheck_spatstat_ll = function(x) {\n\tif (isTRUE(st_is_longlat(x)))\n\t\tstop(wrp(\"Only projected coordinates may be converted to spatstat class objects\"), call. = FALSE)\n}\n\ncheck_spatstat <- function(pkg, X = NULL) {\n\tif (!requireNamespace(pkg, quietly = TRUE))\n\t\tstop(\"package \", pkg, \" required, please install it (or the full spatstat package) first\", call. = FALSE)\n\tspst_ver <- try(packageVersion(\"spatstat\"), silent = TRUE)\n\tif (!inherits(spst_ver, \"try-error\") && spst_ver < \"2.0-0\")\n\t\tstop(wrp(paste0(\"You have an old version of spatstat installed that is incompatible with \", pkg, \n\t\t\t\". Please update spatstat (or uninstall it).\")), call. = FALSE)\n\tif (!is.null(X))\n\t\tcheck_spatstat_ll(X)\n}\n\n#' @name st_as_sf\n#' @export\n#' @examples\n#' if (require(spatstat.geom)) {\n#' g = st_as_sf(gorillas)\n#' # select only the points:\n#' g[st_is(g, \"POINT\"),]\n#' }\nst_as_sf.ppp = function(x, ...) {\n\tcheck_spatstat(\"spatstat.geom\")\n\t# window:\n\twin = st_sf(label = \"window\", geom = st_as_sfc(spatstat.geom::as.owin(x)))\n\n\t# points:\n\tm = as.matrix(data.frame(x$x, x$y))\n\tpointwork = st_sfc(lapply(seq_len(NROW(m)), function(i) st_point(m[i,])))\n\tpoints_sf = st_sf(label = rep(\"point\", NROW(m)), geom = pointwork)\n\n\t# merge window and points:\n\tret = rbind(win, points_sf)\n\tif (spatstat.geom::is.marked(x)) {\n\t\t# add marks:\n\t\tm = as.data.frame(spatstat.geom::marks(x))\n\t\tcbind.sf(m[c(NA, seq_len(nrow(m))), , drop = FALSE], ret)\n\t} else\n\t\tret\n}\n\n#' @export\nst_as_sf.ppplist = function(x, ...) {\n\t.Deprecated(msg = \"see https://github.com/r-spatial/sf/issues/1926\") # sf 1.0-13, Mar 27 2023\n\tw = st_geometry(st_as_sf(x[[1]]))[1]\n\tsim = st_sfc(lapply(x, function(p) do.call(c, st_geometry(st_as_sf(p))[-1])))\n\tst_sf(label = c(\"window\", names(x)), geom = c(w, sim))\n}\n\n\n#' @name st_as_sf\n#' @export\nst_as_sf.psp = function(x, ...) {\n\tcheck_spatstat(\"spatstat.geom\")\n\t# line segments:\n\tm = as.matrix(x$ends)\n\tlst1 = lapply(seq_len(NROW(m)), function(i) st_linestring(matrix(m[i,], 2, byrow = TRUE)))\n\n\t# window:\n\twin = st_as_sfc(spatstat.geom::as.owin(x))[[1]]\n\n\tlabel = c(\"window\", rep(\"segment\", NROW(m)))\n\tret = st_sf(label = label, geom = st_sfc(c(list(win), lst1)))\n\tif (spatstat.geom::is.marked(x)) { # add marks:\n\t\tm = as.data.frame(spatstat.geom::marks(x))\n\t\tcbind.sf(m[c(NA, seq_len(nrow(m))), , drop = FALSE], ret)\n\t} else\n\t\tret\n}\n\n# 111117 from psp to SpatialLines, Rolf Turner, Adrian Baddeley, Mathieu Rajerison\n#' @export\nst_as_sfc.psp <- function(x, ...) {\n\n#\tends2line <- function(x) matrix(x, ncol=2, byrow=TRUE)\n#\tmunch <- function(z) { list(ends2line(as.numeric(z[1:4]))) }\n#\tends <- as.data.frame(x)[,1:4]\n#\ty <- lapply(seq_len(nrow(ends)), function(i) munch(ends[i,]))\n#\tst_sfc(st_multilinestring(y))\n\tst_geometry(st_as_sf(x, ...))\n}\n\n\n#' @name st_as_sf\n#' @export\n#' @examples\n#' if (require(spatstat.linnet)) {\n#' data(chicago)\n#' plot(st_as_sf(chicago)[\"label\"])\n#' plot(st_as_sf(chicago)[-1,\"label\"])\n#' }\nst_as_sf.lpp = function(x, ...) {\n\tcheck_spatstat(\"spatstat.linnet\")\n\t# lines, polygon:\n\tlinework_sf = st_as_sf(spatstat.geom::as.psp(spatstat.geom::domain(x)))\n\t# points:\n\tm = as.matrix(as.data.frame(x$data)[1:2])\n\tpointwork = st_sfc(lapply(seq_len(NROW(m)), function(i) st_point(m[i,])))\n\tsf = rbind(linework_sf, st_sf(label = rep(\"point\", NROW(m)), geom = pointwork))\n\t# de-select point coordinates\n\tm = as.data.frame(x$data)[c(rep(NA,nrow(linework_sf)),seq_len(nrow(m))), -(1:2)]\n\tstructure(cbind.sf(sf, m), row.names = seq_len(nrow(m)))\n}\n\n# as.ppp etc methods: from maptools/pkg/R/spatstat1.R\n\nas.ppp.sfc = function(X, W = NULL, ..., check = TRUE) {\n\tcheck_spatstat(\"spatstat.geom\", X)\n\td = st_dimension(X)\n\tif (is.null(W)) {\n\t\tif (d[1] == 2 && all(d[-1] == 0)) {\n\t\t\tW = spatstat.geom::as.owin(X[1])\n\t\t\tX = X[-1]\n\t\t} else if (all(d == 0)) { # no window in first feature geometry:\n\t\t\tbb <- st_bbox(X)\n\t\t\tW = spatstat.geom::owin(bb[c(\"xmin\", \"xmax\")], bb[c(\"ymin\", \"ymax\")])\n\t\t\tif (missing(check))\n\t\t\t\tcheck = FALSE\n\t\t} else\n\t\t\tstop(\"sfc object does not consist of points, or a window followed by points\")\n\t}\n\tcc = st_coordinates(X)\n\tspatstat.geom::ppp(cc[,1], cc[,2], window = W, marks = NULL, check = check)\n}\n\nas.ppp.sf = function(X, ...) {\n\tcheck_spatstat(\"spatstat.geom\", X)\n\tpp = spatstat.geom::as.ppp(st_geometry(X), ...)\n\tif (st_dimension(X[1,]) == 2)\n\t\tX = X[-1,]\n\tst_geometry(X) = NULL # remove geometry column\n\n\tif (ncol(X) == 0) {\n\t\tpp\n\t} else {\n\t\tspatstat.geom::setmarks(pp, X)\n\t}\n}\n\nas.owin.POLYGON = function(W, ..., fatal, check_polygons = TRUE) {\n\tcheck_spatstat(\"spatstat.geom\", W)\n\tif (check_polygons)\n\t\tW = check_ring_dir(W)\n\tbb = st_bbox(W)\n\tspatstat.geom::owin(bb[c(\"xmin\", \"xmax\")], bb[c(\"ymin\", \"ymax\")], poly = W)\n}\n\nas.owin.MULTIPOLYGON = function(W, ..., fatal, check_polygons = TRUE) {\n\tcheck_spatstat(\"spatstat.geom\", W)\n\tif (check_polygons)\n\t\tW = check_ring_dir(W)\n\tbb = st_bbox(W)\n\tspatstat.geom::owin(bb[c(\"xmin\", \"xmax\")], bb[c(\"ymin\", \"ymax\")], \n\t\tpoly = unlist(W, recursive = FALSE))\n}\n\nas.owin.sfc_POLYGON = function(W, ..., fatal, check_polygons = TRUE) {\n\tcheck_spatstat_ll(W)\n\tif (check_polygons)\n\t\tW = check_ring_dir(W)\n\tas.owin.MULTIPOLYGON(W, check_polygons = FALSE)\n\t# I know, this looks wrong, but isn't: sfc_POLYGON is a logically a MULTIPOLYGON\n}\n\nas.owin.sfc_MULTIPOLYGON = function(W, ..., fatal, check_polygons = TRUE) {\n\tcheck_spatstat_ll(W)\n\tif (check_polygons)\n\t\tW = check_ring_dir(W)\n\tas.owin.sfc_POLYGON(st_cast(W, \"POLYGON\"), check_polygons = FALSE)\n}\n\nas.owin.sfc = function(W, ...) {\n\tif (!all(st_dimension(W) == 2))\n\t\tstop(\"as.owin.sfc needs polygonal geometries\")\n\tas.owin.sfc_MULTIPOLYGON(st_cast(W, \"MULTIPOLYGON\"), ...)\n}\n\nas.owin.sf = function(W, ...) {\n\tas.owin.sfc(st_geometry(W), ...)\n}\n\n#' @export\nst_as_sfc.owin = function(x, ..., crs = NA) {\n# FROM: methods for coercion to Spatial Polygons by Adrian Baddeley, pkg maptools\n\tcheck_spatstat(\"spatstat.geom\")\n\t# Check internal spatstat multiplier:\n\tmult <- x$units$multiplier\n\tif(is.null(mult)){\n\t\tmult <- 1\n\t}\n\tif(mult!=1){\n\t\twarning(\"The spatstat object has an measurement unit multiplier != 1. Consider rescaling before converting.\")\n\t}\n\t# Enforce polygonal format and proceed from there:\n\tx <- spatstat.geom::as.polygonal(x)\n\tclosering <- function(df) { df[c(seq(nrow(df)), 1), ] }\n\tpieces <- lapply(x$bdry,\n\t\tfunction(p) st_polygon(list(closering(cbind(p$x,p$y)))))\n\th = sapply(x$bdry, spatstat.utils::is.hole.xypolygon) # holes\n\tholes = do.call(st_sfc, pieces[h])\n\texteriors = pieces = do.call(st_sfc, pieces[!h])\n\t# assign each hole to the smallest exterior it is covered by:\n\tcb = st_covered_by(holes, pieces)\n\tfor (i in seq_along(cb)) {\n\t\tw = which.min(st_area(exteriors[ cb[[i]] ]))\n\t\tpieces[[w]] = st_polygon(c(unclass(pieces[[w]]), unclass(holes[[i]])))\n\t}\n\tst_crs(pieces) = crs\n\tif (length(pieces) > 1) # multiple POLYGONs, collapse:\n\t\tst_sfc(do.call(c, pieces))\n\telse\n\t\tpieces\n}\n\n#' @export\nst_as_sf.owin = function(x, ...) {\n\tst_sf(geom = st_as_sfc(x, ...))\n}\n\n\n#' @export\nst_as_sfc.tess <- function(x, ...) {\n\tcheck_spatstat(\"spatstat.geom\")\n\tstopifnot(spatstat.geom::is.tess(x))\n\ty <- spatstat.geom::tiles(x)\n\tnam <- names(y)\n\tz <- list()\n\tfor(i in seq_along(y)) {\n\t\tzi <- try(st_as_sfc(y[[i]], nam[i]), silent=TRUE)\n\t\tif (inherits(zi, \"try-error\"))\n\t\t\twarning(paste(\"tile\", i, \"defective\\n\", as.character(zi)))\n\t\telse\n\t\t\tz[[i]] <- zi\n\t}\n\tdo.call(c, z)\n}\n\n# methods for 'as.psp' for sp classes by Adrian Baddeley\nas.psp.LINESTRING <- function(from, ..., window=NULL, marks=NULL, fatal) {\n\tcheck_spatstat(\"spatstat.geom\")\n\txy <- unclass(from)\n\tdf <- as.data.frame(cbind(xy[-nrow(xy), , drop=FALSE], xy[-1, , drop=FALSE]))\n\tif (is.null(window)) {\n\t\txrange <- range(xy[,1])\n\t\tyrange <- range(xy[,2])\n\t\twindow <- spatstat.geom::owin(xrange, yrange)\n\t}\n\tspatstat.geom::as.psp(df, window=window, marks=marks)\n}\n\nas.psp.MULTILINESTRING <- function(from, ..., window=NULL, marks=NULL, fatal) {\n\tcheck_spatstat(\"spatstat.geom\")\n\ty <- lapply(from, as.psp.LINESTRING, window=window)\n\tz <- do.call(spatstat.geom::superimpose,c(y,list(W=window)))\n\tif(!is.null(marks))\n\t\tspatstat.geom::setmarks(z, marks)\n\telse\n\t\tz\n}\n\nas.psp.sfc_MULTILINESTRING <- function(from, ..., window=NULL, marks=NULL,\n\t\t\tcharacterMarks=FALSE, fatal) {\n\n\tcheck_spatstat(\"spatstat.geom\", from)\n\tif(is.null(window)) {\n\t\tbb = st_bbox(from)\n\t\twindow = spatstat.geom::owin(bb[c(\"xmin\", \"xmax\")], bb[c(\"ymin\", \"ymax\")]) \n\t}\n\tlin <- unclass(from)\n\ty <- lapply(lin, as.psp.MULTILINESTRING, window=window)\n\tz <- do.call(spatstat.geom::superimpose, c(y, list(W = window)))\n\tif(!is.null(marks))\n\t\tspatstat.geom::setmarks(z, marks)\n\telse\n\t\tz\n}\n\nas.psp.sfc = function(from, ...) {\n\tas.psp.sfc_MULTILINESTRING(st_cast(from, \"MULTILINESTRING\"))\n}\n\nas.psp.sf <- function(from, ..., window=NULL, marks=NULL, fatal) {\n\tcheck_spatstat(\"spatstat.geom\", from)\n\n\ty <- st_geometry(from)\n\tif (!inherits(y, \"sfc_MULTILINESTRING\"))\n\t\tstop(\"geometries should be of type LINESTRING\")\n\tz <- spatstat.geom::as.psp(y, window=window, marks=marks)\n\tif(is.null(marks)) {\n\t\t# extract marks from first column of data frame\n\t\tst_geometry(from) = NULL # remove geometry column\n\t\tnseg.LINESTRING <- function(x) { nrow(x) - 1 }\n\t\tnseg.MULTILINESTRING <- function(x) { sum(unlist(lapply(x, nseg.LINESTRING))) }\n\t\tnrep <- unlist(lapply(y, nseg.MULTILINESTRING))\n\t\tspatstat.geom::setmarks(z, from[rep(seq_len(nrow(from)), nrep),])\n\t} else\n\t\tz\n}\n"
},
{
"path": "R/stars.R",
"content": "#' functions to interact with gdal not meant to be called directly by users (but e.g. by stars::read_stars)\n#'\n#' @param x character vector, possibly of length larger than 1 when more than one raster is read\n#' @param ... ignored\n#' @param options character; raster layer read options\n#' @param driver character; driver short name; when empty vector, driver is auto-detected.\n#' @param read_data logical; if \\code{FALSE}, only the imagery metadata is returned\n#' @param NA_value (double) non-NA value to use for missing values; if \\code{NA}, when writing missing values are not specially flagged in output dataset, when reading the default (dataset) missing values are used (if present / set).\n#' @param RasterIO_parameters list with named parameters to GDAL's RasterIO; see the stars::read_stars documentation.\n#' @details These functions are exported for the single purpose of being used by package stars, they are not meant to be used directly and may change or disappear without prior notice or deprecation warnings.\n#' @name gdal\n#' @keywords internal\n#' @export\ngdal_read = function(x, ..., options = character(0), driver = character(0), read_data = TRUE, NA_value = NA_real_,\n\t\tRasterIO_parameters = list()) {\n\tif (is.numeric(read_data)) {\n\t\tmax_cells = as.double(read_data)\n\t\tread_data = FALSE\n\t} else\n\t\tmax_cells = as.double(-1.)\n\tCPL_read_gdal(as.character(x), as.character(options), as.character(driver), \n\t\tas.logical(read_data), as.double(NA_value), RasterIO_parameters, max_cells)\n}\n\n#' @rdname gdal\n#' @export\n#' @param type gdal write type\n#' @param geotransform length 6 numeric vector with GDAL geotransform parameters.\n#' @param update logical; \\code{TRUE} if in an existing raster file pixel values shall be updated.\n#' @param scale_offset length 2 numeric; contains scale and offset values\ngdal_write = function(x, ..., file, driver = \"GTiff\", options = character(0), type = \"Float32\", \n\t\tNA_value = NA_real_, geotransform, update = FALSE, scale_offset = c(1.0, 0.0)) {\n\n\tif (!requireNamespace(\"stars\", quietly = TRUE))\n\t\tstop(\"stars required: install that first\") # nocov\n\n\tif (any(scale_offset != c(1.0, 0.0)) && packageVersion(\"sf\") <= \"1.0-9\")\n\t\twarning(\"handling scale_offset requires sf > 1.0-9\")\n\td = stars::st_dimensions(x)\n\txydims = attr(d, \"raster\")$dimensions\n\tif (!isTRUE(all.equal(match(xydims, names(d)), 1:2)))\n\t\tstop(\"x and y raster dimensions need to be in place 1 and 2\")\n\tfrom = c(d[[1]]$from, d[[2]]$from) - 1\n\tdims = c(d[[1]]$to, d[[2]]$to)\n\tif (length(d) == 3)\n\t\tdims = c(dims, d[[3]]$to - d[[3]]$from + 1)\n\n\tif (inherits(x, \"stars_proxy\")) {\n\t\tmat = matrix(0, 0, 0) # nocov start\n\t\tonly_create = TRUE # don't write any pixel data\n\t\tif (!all(from == 0))\n\t\t\twarning(\"writing raster to original size\") # otherwise, geotransform needs to be modified\n\t\tfrom = c(0, 0) # nocov end\n\t} else {\n\t\tmat = x[[1]]\n\t\tdm = dim(mat)\n\t\tif (is.factor(mat)) {\n\t\t\trgba = NULL\n\t\t\tex = attr(mat, \"exclude\")\n\t\t\tif (is.null(ex))\n\t\t\t\tlev = c(\"\", levels(mat)) # add \"\" for value 0: R factors start at 1\n\t\t\telse {\n\t\t\t\tif (any(ex)) {\n\t\t\t\t\tlev = vector(\"character\", length(ex)) # fills with \"\"\n\t\t\t\t\tlev[!ex] = levels(mat)\n\t\t\t\t\trgba = if (!is.null(co <- attr(mat, \"rgba\"))) {\n\t\t\t\t\t\tn = length(ex)\n\t\t\t\t\t\tcoltab = cbind(rep(0., n), rep(0, n), rep(0, n), rep(255, n))\n\t\t\t\t\t\tcoltab[!ex,] = co\n\t\t\t\t\t\tcoltab \n\t\t\t\t\t}\n\t\t\t\t\tvalues = which(!ex) - 1\n\t\t\t\t\tmat = values[as.numeric(mat)]\n\t\t\t\t} else\n\t\t\t\t\tlev = levels(mat)\n\t\t\t}\n\t\t\tmat = structure(mat, class = NULL, levels = lev, dim = dm, rgba = rgba)\n\t\t}\n\t\tonly_create = FALSE # write x too\n\t\tif (! update) {\n\t\t\tif (!all(from == 0))\n\t\t\t\tstop(\"cannot write sub-rasters only\")\n\t\t\tif (!all(dims == dm))\n\t\t\t\tstop(\"dimensions don't match\")\n\t\t}\n\t\tdim(mat) = c(dm[1], prod(dm[-1])) # flatten to 2-D matrix\n\t}\n\tif (length(dims) == 2)\n\t\tdims = c(dims, 1) # one band\n\telse if (is.character(d[[3]]$values)) # add band descriptions?\n\t\tattr(mat, \"descriptions\") = d[[3]]$values\n\n\tCPL_write_gdal(mat, file, driver, options, type, dims, from, geotransform,\n\t\tst_crs(x)[[2]], as.double(NA_value), scale_offset, create = !update, \n\t\tonly_create = only_create)\n}\n\n#' @param gt double vector of length 6\n#' @rdname gdal\n#' @details gdal_inv_geotransform returns the inverse geotransform\n#' @export\ngdal_inv_geotransform = function(gt)\n\tCPL_inv_geotransform(as.double(gt))\n\n## @param x two-column matrix with columns and rows, as understood by GDAL; 0.5 refers to the first cell's center; \n## FIXME: this is now duplicate in sf and stars\nxy_from_colrow = function(x, geotransform, inverse = FALSE) {\n# http://www.gdal.org/classGDALDataset.html , search for geotransform:\n# 0-based indices:\n# Xp = geotransform[0] + P*geotransform[1] + L*geotransform[2];\n# Yp = geotransform[3] + P*geotransform[4] + L*geotransform[5];\n\tif (inverse) {\n\t\tgeotransform = gdal_inv_geotransform(geotransform) # nocov start\n\t\tif (anyNA(geotransform))\n\t\t\tstop(\"geotransform not invertible\") # nocov end\n\t}\n\tstopifnot(ncol(x) == 2)\n\tmatrix(geotransform[c(1, 4)], nrow(x), 2, byrow = TRUE) + \n\t\tx %*% matrix(geotransform[c(2, 3, 5, 6)], nrow = 2, ncol = 2)\n}\n\n# convert x/y gdal dimensions into a list of points, or a list of square polygons\n#' @export\nst_as_sfc.dimensions = function(x, ..., as_points = NA, use_cpp = TRUE, which = seq_len(prod(dim(x))),\n\t\tgeotransform) {\n\n\tif (is.na(as_points))\n\t\tstop(\"as_points should be set to TRUE (`points') or FALSE (`polygons')\")\n\n\txy2sfc = function(cc, dm, as_points) { # form points or polygons from a matrix with corner points\n\t\tif (as_points)\n\t\t\tunlist(apply(cc, 1, function(x) list(st_point(x))), recursive = FALSE)[which]\n\t\telse {\n\t\t\tstopifnot(prod(dm) == nrow(cc))\n\t\t\tlst = vector(\"list\", length = prod(dm - 1))\n\t\t\tfor (y in 1:(dm[2]-1)) {\n\t\t\t\tfor (x in 1:(dm[1]-1)) {\n\t\t\t\t\ti1 = (y - 1) * dm[1] + x # top-left\n\t\t\t\t\ti2 = (y - 1) * dm[1] + x + 1 # top-right\n\t\t\t\t\ti3 = (y - 0) * dm[1] + x + 1 # bottom-right\n\t\t\t\t\ti4 = (y - 0) * dm[1] + x # bottlom-left\n\t\t\t\t\tlst[[ (y-1)*(dm[1]-1) + x ]] = st_polygon(list(cc[c(i1,i2,i3,i4,i1),]))\n\t\t\t\t}\n\t\t\t}\n\t\t\tlst[which]\n\t\t}\n\t}\n\n\traster = attr(x, \"raster\")\n\txy_names = raster$dimensions\n\txd = x[[ xy_names[1] ]]\n\tyd = x[[ xy_names[2] ]]\n\tcc = if (!is.na(xd$offset) && !is.na(yd$offset)) {\n\t\txy = if (as_points) # grid cell centres:\n\t\t\t\texpand.grid(x = seq(xd$from, xd$to) - 0.5, y = seq(yd$from, yd$to) - 0.5)\n\t\t\telse # grid corners: from 0 to n\n\t\t\t\texpand.grid(x = seq(xd$from - 1, xd$to), y = seq(yd$from - 1, yd$to))\n\t\txy_from_colrow(as.matrix(xy), geotransform)\n\t} else if (is.null(xd$values) || is.null(yd$values)) { # only one of [xd|yd] has $values:\n\t\tif (!requireNamespace(\"stars\", quietly = TRUE)) # nocov start\n\t\t\tstop(\"stars required: install that first\")\n\t\tif (! as_points)\n\t\t\tstop(\"st_as_sfc(): mixed regular and rectilinear dimensions only supported if as_points = TRUE\")\n\t\tas.matrix(st_coordinates(x)) # nocov end\n\t} else { # both xd and yd have $values:\n\t\texpand = function(x) { # might fail on the poles or dateline\n\t\t\td = diff(x)\n\t\t\tc(x[1] - 0.5 * d[1], x + 0.5 * c(d, tail(d, 1)))\n\t\t}\n\t\tif (raster$curvilinear) { # expand jointly:\n\t\t\tif (!as_points && all(dim(xd$values) == dim(x)[xy_names])) { # expand from points to cells/polygons: \n\t\t\t\txd$values = apply((apply(xd$values, 1, expand)), 1, expand)\n\t\t\t\tyd$values = apply((apply(yd$values, 1, expand)), 1, expand)\n\t\t\t}\n\t\t\tcbind(as.vector(xd$values), as.vector(yd$values))\n\t\t} else { # rectlinear: expand independently\n\t\t\tif (! as_points) {\n\t\t\t\txd$values = if (inherits(xd$values, \"intervals\"))\n\t\t\t\t\t\tc(xd$values$start, tail(xd$values$end, 1))\n\t\t\t\t\telse\n\t\t\t\t\t\texpand(xd$values)\n\t\t\t\tyd$values = if (inherits(yd$values, \"intervals\"))\n\t\t\t\t\t\tc(yd$values$start, tail(yd$values$end, 1))\n\t\t\t\t\telse\n\t\t\t\t\t\texpand(yd$values)\n\t\t\t} else {\n\t\t\t\tif (inherits(xd$values, \"intervals\"))\n\t\t\t\t\txd$values = 0.5 * (xd$values$start + xd$values$end)\n\t\t\t\tif (inherits(yd$values, \"intervals\"))\n\t\t\t\t\tyd$values = 0.5 * (yd$values$start + yd$values$end)\n\t\t\t}\n\t\t\tas.matrix(expand.grid(x = xd$values, y = yd$values))\n\t\t}\n\t}\n\tdims = dim(x) + !as_points\n\tif (use_cpp) {\n\t\tbb = if (cc_has_NAs <- anyNA(cc))\n\t\t\t\tbbox.Mtrx(na.omit(cc))\n\t\t\telse\n\t\t\t\tbbox.Mtrx(cc)\n\t\tstructure(CPL_xy2sfc(cc, as.integer(dims), as_points, as.integer(which), cc_has_NAs), \n\t\t\tcrs = st_crs(xd$refsys), n_empty = 0L, bbox = bb)\n\t} else\n\t\tst_sfc(xy2sfc(cc, dims, as_points), crs = xd$refsys)\n}\n\n\n#' @details gdal_crs reads coordinate reference system from GDAL data set\n#' @param file character; file name\n#' @return object of class \\code{crs}, see \\link{st_crs}.\n#' @rdname gdal\n#' @export\ngdal_crs = function(file, options = character(0)) {\n\tst_crs(CPL_get_crs(file, options)$crs)\n}\n\n#' @details get_metadata gets metadata of a raster layer\n#' @rdname gdal\n#' @export\n#' @param domain_item character vector of length 0, 1 (with domain), or 2 (with domain and item); use \\code{\"\"} for the default domain, use \\code{NA_character_} to query the domain names.\n#' @param parse logical; should metadata be parsed into a named list (\\code{TRUE}) or returned as character data?\n#' @return named list with metadata items\n#' @examples\n#' \\dontrun{\n#' f = system.file(\"tif/L7_ETMs.tif\", package=\"stars\")\n#' f = system.file(\"nc/avhrr-only-v2.19810901.nc\", package = \"stars\")\n#' gdal_metadata(f)\n#' gdal_metadata(f, NA_character_)\n#' try(gdal_metadata(f, \"wrongDomain\"))\n#' gdal_metadata(f, c(\"\", \"AREA_OR_POINT\"))\n#' }\ngdal_metadata = function(file, domain_item = character(0), options = character(0), parse = TRUE) {\n\tstopifnot(is.character(file))\n\tstopifnot(is.character(domain_item))\n\tstopifnot(length(domain_item) <= 2)\n\tstopifnot(is.character(options))\n\tif (length(domain_item) >= 1 && !is.na(domain_item[1]) &&\n\t\t\t!(domain_item[1] %in% CPL_get_metadata(file, NA_character_, options)))\n\t\tstop(\"domain_item[1] not found in available metadata domains\")\n\tp = CPL_get_metadata(file, domain_item, options)\n\tif (!is.na(domain_item[1]) && parse)\n\t\tsplit_strings(p)\n\telse\n\t\tp\n}\n\nsplit_strings = function(md, split = \"=\") {\n\tsplt = strsplit(md, split)\n\tlst = lapply(splt, function(x) if (length(x) <= 1) NA_character_ else x[[2]])\n\tstructure(lst, names = sapply(splt, function(x) x[[1]]), class = \"gdal_metadata\")\n}\n\n#' @param name logical; retrieve name of subdataset? If \\code{FALSE}, retrieve description\n#' @export\n#' @return \\code{gdal_subdatasets} returns a zero-length list if \\code{file} does not have subdatasets, and else a named list with subdatasets.\n#' @rdname gdal\n#' @details gdal_subdatasets returns the subdatasets of a gdal dataset\ngdal_subdatasets = function(file, options = character(0), name = TRUE) {\n\tif (!(\"SUBDATASETS\" %in% CPL_get_metadata(file, NA_character_, options)))\n\t\tlist()\n\telse {\n\t\tmd = gdal_metadata(file, \"SUBDATASETS\", options, TRUE)\n\t\tif (name)\n\t\t\tmd[seq(1, length(md), by = 2)]\n\t\telse\n\t\t\tmd[seq(2, length(md), by = 2)]\n\t}\n}\n\n#' @param use_integer boolean; if \\code{TRUE}, raster values are read as (and rounded to) unsigned 32-bit integers values; if \\code{FALSE} they are read as 32-bit floating points numbers. The former is supposedly faster.\n#' @param mask stars object with NA mask (0 where NA), or NULL\n#' @param breaks numeric vector with break values for contour polygons (or lines)\n#' @param use_contours logical;\n#' @param contour_lines logical;\n#' @param connect8 logical; if \\code{TRUE} use 8 connection algorithm, rather than 4\n#' @rdname gdal\n#' @export\ngdal_polygonize = function(x, mask = NULL, file = tempfile(), driver = \"GTiff\", use_integer = TRUE,\n\t\tgeotransform, breaks = classInt::classIntervals(na.omit(as.vector(x[[1]])))$brks, \n\t\tuse_contours = FALSE, contour_lines = FALSE, connect8 = FALSE, ...) {\n\tgdal_write(x, file = file, driver = driver, geotransform = geotransform) # nocov start\n\ton.exit(unlink(file))\n\tmask_name = if (!is.null(mask)) {\n\t\t\tmask_name = tempfile()\n\t\t\tgdal_write(mask, file = mask_name, driver = driver, geotransform = geotransform)\n\t\t\ton.exit(unlink(mask_name))\n\t\t\tmask_name\n\t\t} else\n\t\t\tcharacter(0)\n\tcontour_options = if (use_contours) { # construct contour_options:\n\t\t\tnbreaks = breaks\n\t\t\tif (max(breaks) == max(x[[1]], na.rm = TRUE)) # expand, because GDAL will not include interval RHS\n\t\t\t\tnbreaks[length(nbreaks)] = breaks[length(breaks)] * 1.01\n\t\t\tc(paste0(\"FIXED_LEVELS=\", paste0(nbreaks, collapse = \",\")),\n\t\t\t\"ELEV_FIELD=0\", \"ELEV_FIELD_MIN=1\", \"ELEV_FIELD_MAX=2\",\n\t\t\tpaste0(\"POLYGONIZE=\", ifelse(contour_lines, \"NO\", \"YES\")))\n\t\t} else\n\t\t\tcharacter(0)\n\n\toptions = if (connect8)\n\t\t\t\"8CONNECTED=8\"\n\t\telse\n\t\t\tcharacter(0)\n\n\tmem = ifelse(compareVersion(sf_extSoftVersion()[\"GDAL\"], \"3.11.0\") >= 0, \"MEM\", \"Memory\")\n\tpol = CPL_polygonize(file, mask_name, \"GTiff\", mem, \"foo\", options, 0, \n\t\tcontour_options, use_contours, use_integer)\n\tout = process_cpl_read_ogr(pol, quiet = TRUE)\n\tnames(out)[1] = names(x)[1]\n\tif (! contour_lines && use_contours) {\n#\t\tif (out$Min[1] == 0 && out$Min[1] > min(breaks))\n#\t\t\tout$Min[1] = -Inf\n#\n# https://github.com/r-spatial/sf/pull/1608 : \n\n\t\ti <- match(out$Max[1], sort(breaks))\n\t\tout$Min[1] = if (!is.na(i) && i > 1)\n\t\t\t\tsort(breaks)[i - 1]\n\t\t\telse \n\t\t\t\t-Inf\n\n\t\tout$Max[out$Max == 2^32 - 1] = Inf\n\t\tf = paste0(\"[\", out$Min, \",\", out$Max, \")\")\n\t\tout[[1]] = factor(f, levels = f)\n\t} else\n\t\tout$Min = out$Max = NULL\n\tout # nocov end\n}\n\n#' @param sf object of class \\code{sf}\n#' @name gdal\n#' @export\ngdal_rasterize = function(sf, x, gt, file, driver = \"GTiff\", options = character()) {\n\tgdal_write(x, file = file, driver = driver, geotransform = gt)\n\tgeoms = which(sapply(sf, inherits, \"sfc\"))\n\tvalues = as.double(t(as.matrix(as.data.frame(sf)[-geoms])))\n\tCPL_rasterize(file, driver, st_geometry(sf), values, options, NA_real_);\n}\n\n#' @export\n#' @rdname gdal\n#' @param f gdal raster data source filename\n#' @param pts points matrix\n#' @param resampling character; resampling method; for method cubic or cubicspline, \n#' `stars_proxy` objects should be used and GDAL should have version >= 3.10.0\ngdal_extract = function(f, pts, resampling = c(\"nearest\", \"bilinear\", \"cubic\", \"cubicspline\")) {\n\tCPL_extract(f, pts, match.arg(resampling))\n}\n\n#' @rdname gdal\n#' @param file file name\n#' @param array_name array name\n#' @param offset offset (pixels)\n#' @param count number of pixels to read\n#' @param step step size (pixels)\n#' @param proxy logical; return proxy object?\n#' @param debug logical; print debug messages?\n#' @export\ngdal_read_mdim = function(file, array_name = character(0), options = character(0),\n\t\t\t\t\t\t offset = integer(0), count = integer(0), step = integer(0), \n\t\t\t\t\t\t proxy = FALSE, debug = FALSE) {\n\tCPL_read_mdim(file, array_name, options, offset, count, step, proxy, debug)\n}\n\n#' @rdname gdal\n#' @param dimx integer named vector with dimensions of object\n#' @param cdl list with variables, each having a named dim attribute\n#' @param wkt character; WKT of crs\n#' @param xy character; names of the spatial x and y dimension\n#' @param root_group_options character; driver specific options regarding the creation of the root group\n#' @param options character; driver specific options regarding reading or creating the dataset\n#' @param as_float logical; when \\code{TRUE} write 4-byte floating point numbers, when \\code{FALSE} write 8-byte doubles.\n#' @export\ngdal_write_mdim = function(file, driver, dimx, cdl, wkt, xy, ...,\n\t\t\t\t\t\t root_group_options = character(0), options = character(0),\n\t\t\t\t\t\t as_float = TRUE) {\n CPL_write_mdim(file, driver, dimx, cdl, wkt, xy, root_group_options, options, as_float)\n}\n\n\n#' @name gdal\n#' @param f character; file name\n#' @param nxy integer vector of length 2\n#' @param values fill value\n#' @param crs object of class \\code{crs}\n#' @param xlim numeric\n#' @param ylim numeric\n#' @export\ngdal_create = function(f, nxy, values, crs, xlim, ylim) {\n\tCPL_create(as.character(f), as.integer(nxy), as.double(values), crs$wkt, as.double(xlim), as.double(ylim))\n}\n\n#' Add or remove overviews to/from a raster image\n#'\n#' add or remove overviews to/from a raster image\n#' @param file character; file name\n#' @param overviews integer; overview levels\n#' @param method character; method to create overview; one of: nearest, average, rms, gauss, cubic, cubicspline, lanczos, average_mp, average_magphase, mode\n#' @param layers integer; layers to create overviews for (default: all)\n#' @param options character; dataset opening options\n#' @param config_options named character vector with GDAL config options, like \\code{c(option1=value1, option2=value2)}\n#' @param clean logical; if \\code{TRUE} only remove overviews, do not add\n#' @param read_only logical; if \\code{TRUE}, add overviews to another file with extension \\code{.ovr} added to \\code{file}\n#' @return \\code{TRUE}, invisibly, on success\n#' @seealso \\link{gdal_utils} for access to other gdal utilities that have a C API\n#' @export\ngdal_addo = function(file, overviews = c(2,4,8,16), method = \"NEAREST\", layers = integer(0), \n\t\t\t\t\t options = character(0), config_options = character(0), clean = FALSE, read_only = FALSE) {\n\tstopifnot(length(method) == 1, is.character(method), is.numeric(overviews), is.character(config_options))\n\tinvisible(CPL_gdaladdo(file, method, as.integer(overviews), as.integer(layers), as.character(options), \n\t\t\t\t config_options, as.logical(clean)[1], as.logical(read_only)[1]))\n}\n\n#' List GDAL compressors and decompressors\n#'\n#' List GDAL compressors and decompressors\n#' @return named list with two character vectors, containing compressors and decompressors\n#' @export\ngdal_compressors = function() {\n\tCPL_compressors()\n}\n"
},
{
"path": "R/terra.R",
"content": "# see https://github.com/r-spatial/sf/issues/1567\n#' @export\nst_as_sf.SpatVector = function(x, ..., hex = TRUE, crs = st_crs(x)) {\n\tif(!requireNamespace(\"terra\", quietly = TRUE))\n\t\tstop(\"package terra required, please install it first\")\n\tif (!utils::packageVersion(\"terra\") >= \"1.1-5\")\n\t\tstop(\"package terra version 1.1-5 required\")\n\td <- terra::as.data.frame(x, geom = \"hex\")\n\td$geometry <- structure(as.list(d$geometry), class = \"WKB\")\n\tst_as_sf(d, crs = crs)\n}\n\n#' @export\nst_crs.SpatRaster = function(x, ...) {\n\tif (!requireNamespace(\"terra\", quietly = TRUE))\n\t\tstop(\"package terra required, please install it first\") # nocov\n\tstring = terra::crs(x)\n\tif (string == \"\") \n\t\tNA_crs_\n\telse\n\t\tst_crs(string)\n}\n\n#' @export\nst_crs.SpatVector = st_crs.SpatRaster\n\n#' @export\nst_bbox.SpatExtent = function(obj, ..., crs = NA_crs_) {\n\tif (!requireNamespace(\"terra\", quietly = TRUE))\n\t\tstop(\"package terra required, please install it first\") # nocov\n\tbb = as.vector(obj)[c(1,3,2,4)]\n\tnames(bb) = c(\"xmin\", \"ymin\", \"xmax\", \"ymax\")\n\tst_bbox(bb, crs = crs)\n}\n\n#' @export\nst_bbox.SpatRaster = function(obj, ...) {\n\tif (!requireNamespace(\"terra\", quietly = TRUE))\n\t\tstop(\"package terra required, please install it first\") # nocov\n\tst_bbox(terra::ext(obj), crs = st_crs(obj))\n}\n\n#' @export\nst_bbox.SpatVector = function(obj, ...) {\n\tif (!requireNamespace(\"terra\", quietly = TRUE))\n\t\tstop(\"package terra required, please install it first\") # nocov\n bb = as.vector(terra::ext(obj))[c(1,3,2,4)]\n names(bb) = c(\"xmin\", \"ymin\", \"xmax\", \"ymax\")\n st_bbox(bb, crs = st_crs(obj))\n}\n"
},
{
"path": "R/tidyverse-vctrs.R",
"content": "types = c(\"POINT\", \"MULTIPOINT\", \"LINESTRING\", \"MULTILINESTRING\", \n \"POLYGON\", \"MULTIPOLYGON\", \"GEOMETRYCOLLECTION\", \"GEOMETRY\",\n\t\t\t\"MULTISURFACE\", \"CURVEPOLYGON\")\nsfc_types = paste0(\"sfc_\", types)\n\n# All S3 methods in this file are registered lazily when vctrs is loaded\nregister_vctrs_methods = function() {\n # Register vec_proxy, vec_restore, vec_ptype for all types\n for (type in sfc_types) {\n s3_register(\"vctrs::vec_proxy\", type)\n s3_register(\"vctrs::vec_proxy_order\", type)\n s3_register(\"vctrs::vec_restore\", type)\n s3_register(\"vctrs::vec_ptype\", type)\n }\n \n # Register vec_ptype2 for all pairs\n for (i in seq_along(sfc_types)) {\n for (j in seq_along(sfc_types)) {\n s3_register(\"vctrs::vec_ptype2\", paste0(sfc_types[i], \".\", sfc_types[j]))\n }\n }\n \n # Register vec_cast for all pairs\n for (i in seq_along(sfc_types)) {\n for (j in seq_along(sfc_types)) {\n s3_register(\"vctrs::vec_cast\", paste0(sfc_types[i], \".\", sfc_types[j]))\n }\n }\n s3_register(\"vctrs::vec_proxy\", \"sf\")\n s3_register(\"vctrs::vec_restore\", \"sf\")\n s3_register(\"vctrs::vec_ptype2\", \"sf.sf\")\n s3_register(\"vctrs::vec_ptype2\", \"sf.data.frame\")\n s3_register(\"vctrs::vec_ptype2\", \"data.frame.sf\")\n s3_register(\"vctrs::vec_ptype2\", \"sf.tbl_df\")\n s3_register(\"vctrs::vec_ptype2\", \"tbl_df.sf\")\n s3_register(\"vctrs::vec_cast\", \"sf.sf\")\n s3_register(\"vctrs::vec_cast\", \"data.frame.sf\")\n s3_register(\"vctrs::vec_cast\", \"sf.data.frame\")\n s3_register(\"vctrs::vec_cast\", \"sf.tbl_df\")\n s3_register(\"vctrs::vec_cast\", \"tbl_df.sf\")\n}\n\nvec_proxy_sfc = function(x) sf_unstructure(x)\n\nvec_restore_sfc = function(x, to) {\n\tst_sfc(\n\t\tx,\n\t\tcrs = st_crs(to),\n\t\tprecision = st_precision(to),\n\t\tfall_back_class = class(to)\n\t)\n}\n\nvec_ptype_sfc = function(x) {\n\tst_sfc(\n\t\tcrs = st_crs(x),\n\t\tprecision = st_precision(x),\n\t\tfall_back_class = class(x)\n\t)\n}\n\n#vec_proxy_order_sfc = function(x, ...) {\n # Same as `vctrs:::vec_proxy_order.list()`.\n # Allows sfc columns to be \"sorted\" by first appearance.\n# xtfrm(x)\n#}\n\nvec_proxy_order_sfc = function(x, ...) {\n # Same as `vctrs:::vec_proxy_order.list()`.\n # Allows sfc columns to be \"sorted\" by first appearance.\n x = sf_unstructure(x)\n out = vctrs::vec_duplicate_id(x)\n if (vctrs::vec_any_missing(x)) {\n missing = vctrs::vec_detect_missing(x)\n out = vctrs::vec_assign(out, missing, NA_integer_)\n }\n out\n}\n\n# sfc single methods:\nfor (type in sfc_types) {\n assign(paste0(\"vec_proxy.\", type), function(x, y, ...) vec_proxy_sfc(x))\n assign(paste0(\"vec_proxy_order.\", type), function(x, y, ...) vec_proxy_order_sfc(x))\n assign(paste0(\"vec_restore.\", type), function(x, to, ...) vec_restore_sfc(x, to))\n assign(paste0(\"vec_ptype.\", type), function(x, ...) vec_ptype_sfc(x))\n}\n\n# Single implementation that works for all type pairs\nvec_ptype2_impl = function(x, y) {\n check_same_crs(x, y)\n check_same_precision(x, y)\n if (identical(class(x), class(y)))\n x\n else # return empty sfc_GEOMETRY for mixed types\n st_sfc(crs = st_crs(x), precision = st_precision(x))\n}\n\n# Then assign to all pairs\nfor (type1 in sfc_types) {\n for (type2 in sfc_types) {\n assign(paste0(\"vec_ptype2.\", type1, \".\", type2), \n function(x, y, ...) vec_ptype2_impl(x, y))\n }\n}\n\nfor (type1 in sfc_types) {\n for (type2 in sfc_types) {\n\tif (type1 == type2)\n assign(paste0(\"vec_cast.\", type1, \".\", type2), \n function(x, to, ...) vec_cast_sfc_sfc(x, to))\n\telse \n assign(paste0(\"vec_cast.\", type1, \".\", type2), \n function(x, to, ...) vec_cast_to_geometry(x, to))\n }\n}\n\nvec_cast_sfc_sfc = function(x, to) {\n\tcheck_same_crs(x, to)\n\tcheck_same_precision(x, to)\n\tx\n}\n\nvec_cast_to_geometry = function(x, to) {\n\tcheck_same_crs(x, to)\n\tcheck_same_precision(x, to)\n\tst_cast(x, \"GEOMETRY\")\n}\n\n## sf methods:\nsf_unstructure = function(x) {\n\tif (is.data.frame(x)) {\n\t\tx = vctrs::new_data_frame(x, row.names = .row_names_info(x, 0L))\n\t} else if (!is.null(dim(x))) {\n\t\tattributes(x) = list(dim = dim(x), dimnames = dimnames(x))\n\t} else {\n\t\tattributes(x) = list(names = names(x))\n\t}\n\tx\n}\n\nvec_proxy.sf = function(x, ...) {\n # Strip attributes to ensure `vec_restore()`'s call to `st_as_sf()` uses the\n # data frame S3 method, and can't use any information from `x`'s original\n # `sf` state\n sf_unstructure(x)\n}\n\nvec_restore.sf = function(x, to, ...) {\n # Due to the way `vec_ptype()` works, `vec_df_restore()` will preemptively\n # restore the `to` attributes by straight up copying them over. We really\n # don't want that! `sf::st_as_sf()` needs to S3 dispatch to the data frame\n # method. If `to` attributes are preemptively restored (including the class)\n # then it will instead dispatch on the sf method, and will \"reuse\"\n # attributes from `x`, which is incorrect. It should only use `to`\n # attributes when restoring. See TODO in `vec_df_restore()`.\n x = sf_unstructure(x)\n\n sf_column_name = attr(to, \"sf_column\")\n crs = st_crs(to)\n prec = st_precision(to)\n if (inherits(to, \"tbl_df\"))\n x = tibble::as_tibble(x)\n\n st_as_sf(\n x,\n sf_column_name = sf_column_name,\n crs = crs,\n precision = prec,\n stringsAsFactors = FALSE\n )\n}\n\nsf_ptype2 = function(x, y, ...) {\n data = vctrs::df_ptype2(x, y, ...)\n\n # Take active geometry from left-hand side\n sf_column_name = attr(x, \"sf_column\")\n\n # CRS and precision must match\n check_same_crs(x, y)\n check_same_precision(x, y)\n\n st_as_sf(data, sf_column_name = sf_column_name)\n}\n\nvec_ptype2.sf.sf = function(x, y, ...) {\n sf_ptype2(x, y, ...)\n}\n\nvec_ptype2.sf.data.frame = function(x, y, ...) {\n vctrs::df_ptype2(x, y, ...)\n}\nvec_ptype2.data.frame.sf = function(x, y, ...) {\n vctrs::df_ptype2(x, y, ...)\n}\n\nvec_ptype2.sf.tbl_df = function(x, y, ...) {\n vctrs::tib_ptype2(x, y, ...)\n}\nvec_ptype2.tbl_df.sf = function(x, y, ...) {\n vctrs::tib_ptype2(x, y, ...)\n}\n\n#sf_cast = function(x, to, ...) {\n# data = vctrs::df_cast(x, to, ...)\n#\n# sf_column_name = attr(to, \"sf_column\")\n# crs = st_crs(to)\n# prec = st_precision(to)\n#\n# st_as_sf(\n# data,\n# sf_column_name = sf_column_name,\n# crs = crs,\n# precision = prec,\n# stringsAsFactors = FALSE\n# )\n#}\n\nsf_cast = function(x, to, ...) {\n data = vctrs::df_cast(x, to, ...)\n\n # CRS and precision must match\n check_same_crs(x, to)\n check_same_precision(x, to)\n if (inherits(to, \"tbl_df\"))\n data = tibble::as_tibble(data)\n\n sf_column_name = attr(to, \"sf_column\")\n\n st_as_sf(data, sf_column_name = sf_column_name)\n}\n\n# Because `vec_ptype2.sf.sf()` returns a sf\nvec_cast.sf.sf = function(x, to, ...) {\n sf_cast(x, to, ...)\n}\n\n# Because `vec_ptype2.sf.data.frame()` returns a data frame\nvec_cast.data.frame.sf = function(x, to, ...) {\n vctrs::df_cast(x, to, ...)\n}\n# Opt out of `vec_default_cast()` support for data.frame -> sf.\n# Would never be called automatically, and likely not meaningful.\nvec_cast.sf.data.frame = function(x, to, ..., x_arg = \"\", to_arg = \"\") {\n vctrs::stop_incompatible_cast(x, to, x_arg = x_arg, to_arg = to_arg)\n}\n\n# Because `vec_ptype2.sf.tbl_df()` returns a tibble\nvec_cast.tbl_df.sf = function(x, to, ...) {\n vctrs::tib_cast(x, to, ...)\n}\n# Opt out of `vec_default_cast()` support for tibble -> sf.\n# Would never be called automatically, and likely not meaningful.\nvec_cast.sf.tbl_df = function(x, to, ..., x_arg = \"\", to_arg = \"\") {\n vctrs::stop_incompatible_cast(x, to, x_arg = x_arg, to_arg = to_arg)\n}\n\n# Take conservative approach of requiring equal CRS\ncheck_same_crs = function(x, y) {\n lhs = st_crs(x)\n rhs = st_crs(y)\n \n if (lhs != rhs)\n stop(paste(\"CRS mismatch:\", lhs$input, \"vs\", rhs$input), \n call. = FALSE)\n invisible()\n}\n\ncheck_same_precision = function(x, y) {\n lhs = st_precision(x)\n rhs = st_precision(y)\n \n if (lhs != rhs) \n stop(paste(\"Precision mismatch:\", lhs, \"vs\", rhs), call. = FALSE)\n invisible()\n}\n"
},
{
"path": "R/tidyverse.R",
"content": "## dplyr methods: ------\n#group_map.sf <- function(.tbl, .f, ...) {\n#\t st_as_sf(NextMethod()) # nocov\n#}\n\n# This is currently only used in `bind_rows()` and `bind_cols()`\n# because sf overrides all default implementations\ndplyr_reconstruct.sf = function(data, template) {\n\tsfc_name = attr(template, \"sf_column\")\n\tif (inherits(template, \"tbl_df\"))\n\t\tdata = dplyr::as_tibble(data)\n\t# Return a bare data frame if the geometry column is no longer there\n\tif (sfc_name %in% names(data)) # reconstruct sf:\n\t\tst_as_sf(\n\t\t\tdata,\n\t\t\tsf_column_name = sfc_name,\n\t\t\tcrs = st_crs(template),\n\t\t\tprecision = st_precision(template)\n\t\t)\n\telse\n\t\tdata\n}\n\n#' Tidyverse methods for sf objects\n#'\n#' Tidyverse methods for sf objects. Geometries are sticky, use \\link{as.data.frame} to let \\code{dplyr}'s own methods drop them.\n#' Use these methods after loading the tidyverse package with the generic (or after loading package tidyverse).\n#' @param .data data object of class \\link{sf}\n#' @param .dots see corresponding function in package \\code{dplyr}\n#' @param ... other arguments\n#' @name tidyverse\n#' @examples\n#' if (require(dplyr, quietly = TRUE)) {\n#' nc = read_sf(system.file(\"shape/nc.shp\", package=\"sf\"))\n#' nc |> filter(AREA > .1) |> plot()\n#' # plot 10 smallest counties in grey:\n#' st_geometry(nc) |> plot()\n#' nc |> select(AREA) |> arrange(AREA) |> slice(1:10) |> plot(add = TRUE, col = 'grey')\n#' title(\"the ten counties with smallest area\")\n#' nc2 <- nc |> mutate(area10 = AREA/10)\n#' nc |> slice(1:2)\n#' }\nfilter.sf <- function(.data, ..., .dots) {\n\tagr = st_agr(.data)\n\tclass(.data) <- setdiff(class(.data), \"sf\")\n\t.re_sf(NextMethod(), sf_column_name = attr(.data, \"sf_column\"), agr)\n}\n\n#' @name tidyverse\n#' @examples\n#' # plot 10 smallest counties in grey:\n#' if (require(dplyr, quietly = TRUE)) {\n#' st_geometry(nc) |> plot()\n#' nc |> select(AREA) |> arrange(AREA) |> slice(1:10) |> plot(add = TRUE, col = 'grey')\n#' title(\"the ten counties with smallest area\")\n#' }\narrange.sf <- function(.data, ..., .dots) {\n\tsf_column_name = attr(.data, \"sf_column\")\n\tclass(.data) = setdiff(class(.data), \"sf\")\n\tst_as_sf(NextMethod(), sf_column_name = sf_column_name)\n}\n\n#' @name tidyverse\n#' @param add see corresponding function in dplyr\n#' @examples\n#' if (require(dplyr, quietly = TRUE)) {\n#' nc$area_cl = cut(nc$AREA, c(0, .1, .12, .15, .25))\n#' nc |> group_by(area_cl) |> class()\n#' }\ngroup_by.sf <- function(.data, ..., add = FALSE) {\n\tsf_column_name = attr(.data, \"sf_column\")\n\tclass(.data) <- setdiff(class(.data), \"sf\")\n\tst_as_sf(NextMethod(), sf_column_name = sf_column_name)\n}\n\n#' @name tidyverse\nungroup.sf <- function(x, ...) {\n\tsf_column_name = attr(x, \"sf_column\")\n\tclass(x) <- setdiff(class(x), \"sf\")\n\tst_as_sf(NextMethod(), sf_column_name = sf_column_name)\n}\n\n#' @name tidyverse\nrowwise.sf <- function(x, ...) {\n\tsf_column_name = attr(x, \"sf_column\")\n\tclass(x) <- setdiff(class(x), \"sf\")\n\tst_as_sf(NextMethod(), sf_column_name = sf_column_name)\n}\n\n.re_sf = function(x, sf_column_name, agr, geom = NULL) {\n\tstopifnot(!inherits(x, \"sf\"), !missing(sf_column_name), !missing(agr))\n\t# non-geom attribute names\n\tatt = names(x)[!sapply(x, inherits, what = \"sfc\")]\n\tagr = setNames(agr[att], att) # NA's new columns\n\tif (!is.null(geom)) {\n\t\tstopifnot(length(geom) == nrow(x))\n\t\tx[[ sf_column_name ]] = geom\n\t}\n\tstructure(x,\n\t\tsf_column = sf_column_name,\n\t\tagr = agr,\n\t\tclass = c(\"sf\", class(x)))\n}\n\n#' @name tidyverse\n#' @examples\n#' if (require(dplyr, quietly = TRUE)) {\n#' nc2 <- nc |> mutate(area10 = AREA/10)\n#' }\nmutate.sf <- function(.data, ..., .dots) {\n\t#st_as_sf(NextMethod(), sf_column_name = attr(.data, \"sf_column\"))\n\tagr = st_agr(.data)\n\tsf_column_name = attr(.data, \"sf_column\")\n\tclass(.data) <- setdiff(class(.data), \"sf\")\n\t.re_sf(NextMethod(), sf_column_name = sf_column_name, agr)\n}\n\n\n#' @name tidyverse\n#' @examples\n#' if (require(dplyr, quietly = TRUE)) {\n#' nc |> transmute(AREA = AREA/10) |> class()\n#' }\ntransmute.sf <- function(.data, ..., .dots) {\n\tsf_column_name = attr(.data, \"sf_column\")\n\tagr = st_agr(.data)\n\tgeom = st_geometry(.data)\n\tclass(.data) = setdiff(class(.data), \"sf\")\n\t.re_sf(NextMethod(), sf_column_name = sf_column_name, agr, geom)\n}\n\n#' @name tidyverse\n#' @examples\n#' if (require(dplyr, quietly = TRUE)) {\n#' nc |> select(SID74, SID79) |> names()\n#' nc |> select(SID74, SID79) |> class()\n#' }\n#' @details \\code{select} keeps the geometry regardless whether it is selected or not; to deselect it, first pipe through \\code{as.data.frame} to let dplyr's own \\code{select} drop it.\nselect.sf <- function(.data, ...) {\n\n\tif (!requireNamespace(\"tidyselect\", quietly = TRUE))\n\t\tstop(\"tidyselect required: install that first\") # nocov\n\tloc = tidyselect::eval_select(quote(c(...)), .data)\n\n\tsf_column = attr(.data, \"sf_column\")\n\tsf_column_loc = match(sf_column, names(.data))\n\n\tif (length(sf_column_loc) != 1 || is.na(sf_column_loc))\n\t\tstop(\"internal error: can't find sf column\") # nocov\n\n\tagr = st_agr(.data)\n\t#vars = names(.data)[setdiff(loc, sf_column_loc)] # see #1886, change into:\n\tlloc = loc\n\tif (sf_column_loc %in% loc)\n\t\tlloc = lloc[loc != sf_column_loc]\n\tvars = names(.data)[lloc]\n\n\tsf_column_loc_loc = match(sf_column_loc, loc)\n\tif (is.na(sf_column_loc_loc)) {\n\t\t# The sf column was subsetted out, select it back in\n\t\tnew_agr = setNames(agr[vars], names(loc))\n\t\tloc = c(loc, sf_column_loc)\n\t\tnames(loc)[[length(loc)]] = sf_column\n\t} else {\n\t\t# The sf column was not subsetted out but it might have been renamed\n\t\tsf_column = names(loc[sf_column_loc_loc])\n\t\tnew_agr = setNames(agr[vars], setdiff(names(loc), sf_column))\n\t}\n\n\tret = .data\n\tclass(ret) = setdiff(class(ret), \"sf\")\n\tret = ret[loc]\n\tnames(ret) = names(loc)\n\n\tst_set_agr(st_as_sf(ret, sf_column_name = sf_column), new_agr)\n}\n\n\n#' @name tidyverse\n#' @examples\n#' if (require(dplyr, quietly = TRUE)) {\n#' nc2 <- nc |> rename(area = AREA)\n#' }\nrename.sf <- function(.data, ...) {\n\n\tif (!requireNamespace(\"tidyselect\", quietly = TRUE))\n\t\tstop(\"tidyselect required: install that first\") # nocov\n\tloc = tidyselect::eval_rename(quote(c(...)), .data)\n\n\tsf_column = attr(.data, \"sf_column\")\n\tsf_column_loc = match(sf_column, names(.data))\n\n\tif (length(sf_column_loc) != 1 || is.na(sf_column_loc))\n\t\tstop(\"internal error: can't find sf column\") # nocov\n\n\tagr = st_agr(.data)\n\tagr_loc = match(names(agr), setdiff(names(.data), sf_column))\n\n\tif (anyNA(agr_loc))\n\t\tstop(\"internal error: can't find `agr` columns\") # nocov\n\n\tvars_loc = loc[loc %in% agr_loc]\n\n\t# https://github.com/r-spatial/sf/issues/1472\n\t# but only fixes for the single sfc column case\n\tsfcs = which(sapply(.data, inherits, \"sfc\"))\n\tif (length(vars_loc) == 1 && any(vars_loc > sfcs[1])) {\n\t\tw = which(vars_loc > sfcs)\n\t\tvars_loc[w] = vars_loc[w] - 1\n\t}\n\n\tnames(agr)[vars_loc] = names(vars_loc)\n\n\tsf_column_loc_loc = match(sf_column_loc, loc)\n\tif (!is.na(sf_column_loc_loc))\n\t\tsf_column = names(loc[sf_column_loc_loc])\n\n\tret = .data\n\tclass(ret) = setdiff(class(ret), \"sf\")\n\tnames(ret)[loc] = names(loc)\n\n\tst_set_agr(st_as_sf(ret, sf_column_name = sf_column), agr)\n}\n\n#' @name tidyverse\n#' @param .fn,.cols see original docs\nrename_with.sf = function(.data, .fn, .cols, ...) {\n\tif (!requireNamespace(\"rlang\", quietly = TRUE))\n\t\tstop(\"rlang required: install that first\") # nocov\n\t.fn = rlang::as_function(.fn)\n\tis_tibble = inherits(.data, \"tbl\")\n\t\n\tsf_column = attr(.data, \"sf_column\")\n\tsf_column_loc = match(sf_column, names(.data))\n\t\n\tif (length(sf_column_loc) != 1 || is.na(sf_column_loc))\n\t\tstop(\"internal error: can't find sf column\") # nocov\n\t\n\tagr = st_agr(.data)\n\t\n\t.data = as.data.frame(.data)\n\tret = if (missing(.cols)) {\n\t\tif (!requireNamespace(\"tidyselect\", quietly = TRUE)) {\n\t\t\tstop(\"tidyselect required: install that first\") # nocov\n\t\t}\n\t\tdplyr::rename_with(\n\t\t\t.data = .data,\n\t\t\t.fn = .fn,\n\t\t\t.cols = tidyselect::everything(), \n\t\t\t...\n\t\t)\n\t} else {\n\t\tdplyr::rename_with(\n\t\t\t.data = .data,\n\t\t\t.fn = .fn,\n\t\t\t.cols = {{ .cols }}, \n\t\t\t...\n\t\t)\n\t}\n\tif (is_tibble)\n\t\tret = dplyr::as_tibble(ret)\n\tret = st_as_sf(ret, sf_column_name = names(ret)[sf_column_loc])\n\t\n\tnames(agr) = .fn(names(agr), ...)\n\tst_agr(ret) = agr\n\tret\n}\n\n\n#' @name tidyverse\n#' @examples\n#' if (require(dplyr, quietly = TRUE)) {\n#' nc |> slice(1:2)\n#' }\nslice.sf <- function(.data, ..., .dots) {\n\tclass(.data) <- setdiff(class(.data), \"sf\")\n\tsf_column <- attr(.data, \"sf_column\")\n\tst_as_sf(NextMethod(), sf_column_name = sf_column)\n}\n\n\n#' @name tidyverse\n#' @aliases summarise\n#' @param do_union logical; in case \\code{summary} does not create a geometry column, should geometries be created by unioning using \\link{st_union}, or simply by combining using \\link{st_combine}? Using \\link{st_union} resolves internal boundaries, but in case of unioning points, this will likely change the order of the points; see Details.\n#' @param is_coverage logical; if \\code{do_union} is \\code{TRUE}, use an optimized algorithm for features that form a polygonal coverage (have no overlaps)\n#' @return an object of class \\link{sf}\n#' @details\n#' In case one or more of the arguments (expressions) in the \\code{summarise} call creates a geometry list-column, the first of these will be the (active) geometry of the returned object. If this is not the case, a geometry column is created, depending on the value of \\code{do_union}.\n#'\n#' In case \\code{do_union} is \\code{FALSE}, \\code{summarise} will simply combine geometries using \\link{c.sfg}. When polygons sharing a boundary are combined, this leads to geometries that are invalid; see for instance \\url{https://github.com/r-spatial/sf/issues/681}.\n#' @examples\n#' if (require(dplyr, quietly = TRUE)) {\n#' nc$area_cl = cut(nc$AREA, c(0, .1, .12, .15, .25))\n#' nc.g <- nc |> group_by(area_cl)\n#' nc.g |> summarise(mean(AREA))\n#' nc.g |> summarise(mean(AREA)) |> plot(col = grey(3:6 / 7))\n#' nc |> as.data.frame() |> summarise(mean(AREA))\n#' # counting geometries (after duplicating each row):\n#' nc.dupl <- nc[rep(seq_along(nc), each = 2), ]\n#' nc.dupl |> summarise(n = n(), .by = \"geometry\")\n#' }\nsummarise.sf <- function(.data, ..., .dots, do_union = TRUE, is_coverage = FALSE) {\n\tsf_column = attr(.data, \"sf_column\")\n\tprecision = st_precision(.data)\n\tcrs = st_crs(.data)\n\tgeom = st_geometry(.data)\n\tclass(.data) = setdiff(class(.data), \"sf\")\n\tret = NextMethod()\n\tif (!missing(do_union))\n\t\tret$do_union = NULL\n\tif (!missing(is_coverage))\n\t\tret$is_coverage = NULL\n\n\tif (! any(sapply(ret, inherits, what = \"sfc\"))) {\n\t\tgeom = if (inherits(.data, \"grouped_df\") || inherits(.data, \"grouped_dt\")) {\n\t\t\t\tif (!requireNamespace(\"dplyr\", quietly = TRUE))\n\t\t\t\t\tstop(\"dplyr required: install that first\") # nocov\n\t\t\t\ti = dplyr::group_indices(.data)\n\t\t\t\t# geom = st_geometry(.data)\n\t\t\t\tgeom = if (do_union)\n\t\t\t\t\t\tlapply(sort(unique(i)), function(x) {\n\t\t\t\t\t\t\tif (x == 1)\n\t\t\t\t\t\t\t\tst_union(geom[i == x], is_coverage = is_coverage)\n\t\t\t\t\t\t\telse\n\t\t\t\t\t\t\t\tsuppressMessages(st_union(geom[i == x], is_coverage = is_coverage))\n\t\t\t\t\t\t})\n\t\t\t\t\telse\n\t\t\t\t\t\tlapply(sort(unique(i)), function(x) st_combine(geom[i == x]))\n\t\t\t\tgeom = unlist(geom, recursive = FALSE)\n\t\t\t\tif (is.null(geom))\n\t\t\t\t\tgeom = list() #676 #nocov\n\t\t\t\tdo.call(st_sfc, c(geom, crs = list(crs), precision = precision))\n\t\t\t} else { # single group:\n\t\t\t\tif (nrow(ret) > 1)\n\t\t\t\t\tstop(paste0(\"when using .by, also add across(\", sf_column, \", st_union) as argument\")) # https://github.com/r-spatial/sf/issues/2207\n\t\t\t\tif (do_union)\n\t\t\t\t\tst_union(geom, is_coverage = is_coverage)\n\t\t\t\telse\n\t\t\t\t\tst_combine(geom)\n\t\t\t}\n\t\tret[[ sf_column ]] = geom\n\t}\n\t# need to re-sort out the geometry column class now:\n\tst_as_sf(structure(ret, sf_column = NULL))\n}\n\n#' @name tidyverse\n#' @param wt see original function docs\n#' @param sort see original function docs\n#' @param name see original function docs\n#' @param name see original function docs\n#' @param .drop_geometry logical; if `TRUE`, remove geometry column before computing counts\n#' @examples\n#' if (require(dplyr, quietly = TRUE)) {\n#' nc$area_cl <- cut(nc$AREA, c(0, .1, .12, .15, .25))\n#' nc |> count(area_cl, .drop_geometry = TRUE)\n#' }\n#' @details The functions \\code{count} and \\code{tally} drop all geometries.\n#' For counting geometries use \\code{summarise(.data, n = n(), .by = \"geometry\")}.\ncount.sf <- function(x, ..., wt = NULL, sort = FALSE, name = \"n\", .drop_geometry = FALSE) {\n\tif (!requireNamespace(\"dplyr\", quietly = TRUE))\n\t\tstop(\"dplyr required: install that first\") # nocov\n\tif (isTRUE(.drop_geometry))\n\t\tx <- st_drop_geometry(x)\n\tNextMethod()\n}\n\n#' @name tidyverse\n#' @param .keep_all see corresponding function in dplyr\n#' @param exact logical; if `TRUE` use \\link{st_equals_exact} for geometry comparisons\n#' @param par numeric; passed on to \\link{st_equals_exact}\n#' @examples\n#' if (require(dplyr, quietly = TRUE)) {\n#' nc[c(1:100, 1:10), ] |> distinct() |> nrow()\n#' }\n#' @details \\code{distinct} gives distinct records for which all attributes and geometries are distinct; \\link{st_equals} is used to find out which geometries are distinct.\ndistinct.sf <- function(.data, ..., .keep_all = FALSE, exact = FALSE, par = 0.) {\n\tsf_column = attr(.data, \"sf_column\")\n\tgeom = st_geometry(.data)\n\teq = if (exact)\n\t\t\tsapply(st_equals_exact(.data, par = par), head, n = 1)\n\t\telse \n\t\t\tsapply(st_equals(.data), head, n = 1)\n\tif (is.list(eq) && length(eq) == 0) # empty list: geometry was empty set\n\t\teq = integer(0)\n\tempties = which(lengths(eq) == 0)\n\teq[ empties ] = empties[1] # first empty record\n\t.data[[ sf_column ]] = unlist(eq)\n\tclass(.data) = setdiff(class(.data), \"sf\")\n\n\tif (!requireNamespace(\"dplyr\", quietly = TRUE))\n\t\tstop(\"dplyr required: install that first\") # nocov\n\tif (!requireNamespace(\"rlang\", quietly = TRUE))\n\t\tstop(\"rlang required: install first?\")\n\n\t.data = dplyr::distinct(.data, ..., .keep_all = .keep_all)\n\tif (is.null(.data[[ sf_column ]]))\n\t\t.data\n\telse {\n\t\t.data[[ sf_column ]] = geom[ .data[[ sf_column ]] ]\n\t\tst_as_sf(.data, sf_column_name = sf_column)\n\t}\n}\n\n## tidyr methods: --------\n\n#' @name tidyverse\n#' @param data see original function docs\n#' @param key see original function docs\n#' @param value see original function docs\n#' @param na.rm see original function docs\n#' @param factor_key see original function docs\n#' @examples\n#' if (require(tidyr, quietly = TRUE) && require(dplyr, quietly = TRUE) && \"geometry\" %in% names(nc)) {\n#' nc |> select(SID74, SID79) |> gather(\"VAR\", \"SID\", -geometry) |> summary()\n#' }\ngather.sf <- function(data, key, value, ..., na.rm = FALSE, convert = FALSE, factor_key = FALSE) {\n\n\tif (! requireNamespace(\"rlang\", quietly = TRUE))\n\t\tstop(\"rlang required: install first?\")\n\n\tkey = rlang::enquo(key)\n\tvalue = rlang::enquo(value)\n\n\tif (!requireNamespace(\"tidyr\", quietly = TRUE))\n\t\tstop(\"tidyr required: install first?\")\n\n\tclass(data) <- setdiff(class(data), \"sf\")\n st_as_sf(tidyr::gather(data, !!key, !!value, ...,\n\t\tna.rm = na.rm, convert = convert, factor_key = factor_key),\n\t\tsf_column_name = attr(data, \"sf_column\"))\n}\n\n#' @name tidyverse\n#' @param data see original function docs\n#' @param cols see original function docs\n#' @param names_to,names_pattern,names_ptypes,names_transform see [tidyr::pivot_longer()]\n#' @param values_to,values_drop_na,values_ptypes,values_transform See [tidyr::pivot_longer()]\npivot_longer.sf <- function (data, cols, names_to = \"name\", names_prefix = NULL,\n\t\tnames_sep = NULL, names_pattern = NULL, names_ptypes = NULL,\n\t\tnames_transform = NULL, names_repair = \"check_unique\",\n\t\tvalues_to = \"value\", values_drop_na = FALSE, values_ptypes = NULL,\n\t\tvalues_transform = NULL, ...) {\n\n sf_column_name = attr(data, \"sf_column\")\n data = as.data.frame(data)\n\n# instead of:\n#\tst_as_sf(NextMethod(), sf_column_name = sf_column_name)\n# we avoid NextMethod(); for the reason\n# see https://github.com/tidyverse/tidyr/issues/1171:\n if (!requireNamespace(\"tidyr\", quietly = TRUE))\n stop(\"tidyr required: install first?\")\n out <- tidyr::pivot_longer(\n data = data,\n cols = {{ cols }},\n names_to = names_to,\n names_prefix = names_prefix,\n names_sep = names_sep,\n names_pattern = names_pattern,\n names_ptypes = names_ptypes,\n names_transform = names_transform,\n names_repair = names_repair,\n values_to = values_to,\n values_drop_na = values_drop_na,\n values_ptypes = values_ptypes,\n values_transform = values_transform,\n ...\n )\n st_as_sf(out, sf_column_name = sf_column_name)\n}\n\nglobalVariables(c(\"name\", \"value\"))\n# https://github.com/r-spatial/sf/issues/1915\n#' @name tidyverse\n#' @param id_cols,id_expand,names_from,names_sort,names_glue,names_vary,names_expand see [tidyr::pivot_wider()]\n# names_prefix,names_sep and names_repair are shared between pivot_longer() and pivot_wider()\n#' @param names_prefix,names_sep,names_repair see original function docs.\n#' @param values_from,values_fill,values_fn,unused_fn see [tidyr::pivot_wider()]\npivot_wider.sf = function(data, \n\t\t\t\t\t\t ..., \n\t\t\t\t\t\t id_cols = NULL, \n\t\t\t\t\t\t id_expand = FALSE, \n\t\t\t\t\t\t names_from = name, \n\t\t\t\t\t\t names_prefix = \"\", \n\t\t\t\t\t\t names_sep = \"_\", \n\t\t\t\t\t\t names_glue = NULL, \n\t\t\t\t\t\t names_sort = FALSE, \n\t\t\t\t\t\t names_vary = \"fastest\", \n\t\t\t\t\t\t names_expand = FALSE, \n\t\t\t\t\t\t names_repair = \"check_unique\", \n\t\t\t\t\t\t values_from = value, \n\t\t\t\t\t\t values_fill = NULL, \n\t\t\t\t\t\t values_fn = NULL, \n\t\t\t\t\t\t unused_fn = NULL) {\n\n\tagr = st_agr(data)\n\tsf_column_name = attr(data, \"sf_column\")\n\tdata = as.data.frame(data)\n\tif (!requireNamespace(\"tidyr\", quietly = TRUE))\n\t\tstop(\"tidyr required: install first?\")\n\tret = tidyr::pivot_wider(\n\t\tdata = data, \n\t\t..., \n\t\tid_cols = {{ id_cols }}, \n\t\tid_expand = id_expand, \n\t\tnames_from = {{ names_from }}, \n\t\tnames_prefix = names_prefix, \n\t\tnames_sep = names_sep, \n\t\tnames_glue = names_glue, \n\t\tnames_sort = names_sort, \n\t\tnames_vary = names_vary, \n\t\tnames_expand = names_expand, \n\t\tnames_repair = names_repair, \n\t\tvalues_from = {{ values_from }}, \n\t\tvalues_fill = values_fill, \n\t\tvalues_fn = values_fn, \n\t\tunused_fn = unused_fn\n\t)\n\tst_as_sf(ret, sf_column_name = sf_column_name, agr = agr)\n}\n\n\n\n#' @name tidyverse\n#' @param fill see original function docs\n#' @param drop see original function docs\n#' @examples\n#' if (require(tidyr, quietly = TRUE) && require(dplyr, quietly = TRUE) && \"geometry\" %in% names(nc)) {\n#' nc$row = 1:100 # needed for spread to work\n#' nc |> select(SID74, SID79, geometry, row) |>\n#'\t\tgather(\"VAR\", \"SID\", -geometry, -row) |>\n#'\t\tspread(VAR, SID) |> head()\n#' }\nspread.sf <- function(data, key, value, fill = NA, convert = FALSE, drop = TRUE,\n\t sep = NULL) {\n\n\tif (!requireNamespace(\"rlang\", quietly = TRUE))\n\t\tstop(\"rlang required: install first?\")\n\tkey = rlang::enquo(key)\n\tvalue = rlang::enquo(value)\n\n\tclass(data) <- setdiff(class(data), \"sf\")\n\tst_as_sf(tidyr::spread(data, !!key, !!value, fill = fill, convert = convert,\n\t\tdrop = drop, sep = sep), sf_column_name = attr(data, \"sf_column\"))\n}\n\n#' @name tidyverse\n#' @param tbl see original function docs\n#' @param size see original function docs\n#' @param replace see original function docs\n#' @param weight see original function docs\n#' @param .env see original function docs\nsample_n.sf <- function(tbl, size, replace = FALSE, weight = NULL, .env = parent.frame()) {\n\tst_sf(NextMethod(), sf_column_name = attr(tbl, \"sf_column\"))\n}\n\n#' @name tidyverse\nsample_frac.sf <- function(tbl, size = 1, replace = FALSE, weight = NULL, .env = parent.frame()) {\n\tst_sf(NextMethod(), sf_column_name = attr(tbl, \"sf_column\"))\n}\n#' @name tidyverse\n#' @param .tbl see original function docs\n#' @param .keep see original function docs\ngroup_split.sf <- function(.tbl, ..., .keep = TRUE) {\n\tclass(.tbl) = setdiff(class(.tbl), \"sf\")\n\tif (inherits(.tbl, \"rowwise_df\")) {\n\t\tlapply(dplyr::group_split(.tbl, ...), st_as_sf)\n\t} else {\n\t\tlapply(dplyr::group_split(.tbl, ..., .keep = .keep), st_as_sf)\t\n\t}\n}\n#' @name tidyverse\n#' @examples\n#' if (require(tidyr, quietly = TRUE) && require(dplyr, quietly = TRUE)) {\n#' storms.sf = st_as_sf(storms, coords = c(\"long\", \"lat\"), crs = 4326)\n#' x <- storms.sf |> group_by(name, year) |> nest()\n#' trs = lapply(x$data, function(tr) st_cast(st_combine(tr), \"LINESTRING\")[[1]]) |>\n#' st_sfc(crs = 4326)\n#' trs.sf = st_sf(x[,1:2], trs)\n#' plot(trs.sf[\"year\"], axes = TRUE)\n#' }\n#' @details \\code{nest} assumes that a simple feature geometry list-column was among the columns that were nested.\nnest.sf = function(.data, ...) {\n\n\tif (!requireNamespace(\"rlang\", quietly = TRUE))\n\t\tstop(\"rlang required: install first?\")\n\tif (!requireNamespace(\"tidyr\", quietly = TRUE))\n\t\tstop(\"tidyr required: install first?\")\n\n\tclass(.data) <- setdiff(class(.data), \"sf\")\n\tret = tidyr::nest(.data, ...)\n\tlst = which(sapply(ret, inherits, \"list\"))[1]\n\t# re-sf:\n\tret[[lst]] = lapply(ret[[lst]], st_as_sf, sf_column_name = attr(.data, \"sf_column\"))\n\tret\n}\n\n\n#' @name tidyverse\n#' @param col see \\link[tidyr]{separate}\n#' @param into see \\link[tidyr]{separate}\n#' @param remove see \\link[tidyr]{separate}\n#' @param extra see \\link[tidyr]{separate}\nseparate.sf = function(data, col, into, sep = \"[^[:alnum:]]+\", remove = TRUE,\n\tconvert = FALSE, extra = \"warn\", fill = \"warn\", ...) {\n\n\tif (!requireNamespace(\"rlang\", quietly = TRUE))\n\t\tstop(\"rlang required: install first?\")\n\tcol = rlang::enquo(col)\n\n\tif (!requireNamespace(\"tidyr\", quietly = TRUE))\n\t\tstop(\"tidyr required: install first?\")\n\n\tclass(data) <- setdiff(class(data), \"sf\")\n\tst_as_sf(tidyr::separate(data, !!col, into = into,\n\t\tsep = sep, remove = remove, convert = convert, extra = extra, fill = fill, ...),\n\t\t\tsf_column_name = attr(data, \"sf_column\"))\n}\n\n#' @name tidyverse\n#' @param sep see \\link[tidyr]{separate_rows}\n#' @param convert see \\link[tidyr]{separate_rows}\nseparate_rows.sf <- function(data, ..., sep = \"[^[:alnum:]]+\", convert = FALSE) {\n\tif (!requireNamespace(\"tidyr\", quietly = TRUE))\n\t\tstop(\"tidyr required: install first?\")\n\tclass(data) <- setdiff(class(data), \"sf\")\n\tret = tidyr::separate_rows(data, ..., sep = sep, convert = convert)\n\tst_as_sf(ret, sf_column_name = attr(data, \"sf_column\"))\n}\n\n#' @name tidyverse\nunite.sf <- function(data, col, ..., sep = \"_\", remove = TRUE) {\n\tclass(data) <- setdiff(class(data), \"sf\")\n\tif (!requireNamespace(\"rlang\", quietly = TRUE))\n\t\tstop(\"rlang required: install first?\")\n\tcol = rlang::enquo(col)\n\tst_as_sf(tidyr::unite(data, !!col, ..., sep = sep, remove = remove),\n\t\tsf_column_name = attr(data, \"sf_column\"))\n}\n\n#' @name tidyverse\n#' @param .preserve see \\link[tidyr:nest]{unnest}\nunnest.sf = function(data, ..., .preserve = NULL) {\n\t# nocov start\n\tsf_column_name = attr(data, \"sf_column\", exact = TRUE)\n\tif (!requireNamespace(\"tidyr\", quietly = TRUE))\n\t\tstop(\"unnest requires tidyr; install that first\")\n\tclass(data) = setdiff(class(data), \"sf\")\n\tst_sf(NextMethod(), sf_column_name = sf_column_name)\n\t# nocov end\n}\n\n#' @name tidyverse\ndrop_na.sf <- function(x, ...) {\n\tsf_column_name = attr(x, \"sf_column\")\n\tclass(x) <- setdiff(class(x), \"sf\")\n\tst_as_sf(NextMethod(), sf_column_name = sf_column_name)\n}\n\n## tibble methods: -------\n\n#' Summarize simple feature type for tibble\n#'\n#' Summarize simple feature type / item for tibble\n#' @param x object of class `sfc`\n#' @param ... ignored\n#' @name tibble\n#' @details see \\link[pillar]{type_sum}\ntype_sum.sfc <- function(x, ...) {\n\tcls = substring(class(x)[1], 5)\n\tu = st_crs(x)$ud_unit\n\tif (!is.null(u)) # add [units]:\n\t\tcls = paste0(cls, \" [\", enc2utf8(as.character(units(u))), \"]\")\n\tcls\n}\n\n#' @rdname tibble\nobj_sum.sfc <- function(x) {\n\tvapply(x, function(sfg) format(sfg, width = 15L), \"\")\n}\n\n#' @rdname tibble\npillar_shaft.sfc <- function(x, ...) {\n\tdigits = options(\"pillar.sigfig\")$pillar.sigfig\n\tif (is.null(digits))\n\t\tdigits = options(\"digits\")$digits\n\tout <- format(x, width = 100, digits = digits, ...)\n\tif (!inherits(x, \"sfc_GEOMETRY\") && !inherits(x, \"sfc_GEOMETRYCOLLECTION\"))\n\t\tout <- sub(\"[A-Z]+ \", \"\", out)\n\tpillar::new_pillar_shaft_simple(out, align = \"right\", min_width = 25)\n}\n\n#nocov start\nregister_all_s3_methods = function() {\n\ts3_register(\"dplyr::dplyr_reconstruct\", \"sf\")\n\ts3_register(\"dplyr::anti_join\", \"sf\")\n\ts3_register(\"dplyr::arrange\", \"sf\")\n\ts3_register(\"dplyr::count\", \"sf\")\n\ts3_register(\"dplyr::distinct\", \"sf\")\n\ts3_register(\"dplyr::filter\", \"sf\")\n\ts3_register(\"dplyr::full_join\", \"sf\")\n\ts3_register(\"dplyr::group_by\", \"sf\")\n\ts3_register(\"dplyr::group_split\", \"sf\")\n\ts3_register(\"dplyr::inner_join\", \"sf\")\n\ts3_register(\"dplyr::left_join\", \"sf\")\n\ts3_register(\"dplyr::mutate\", \"sf\")\n\ts3_register(\"dplyr::rename\", \"sf\")\n\ts3_register(\"dplyr::rename_with\", \"sf\")\n\ts3_register(\"dplyr::right_join\", \"sf\")\n\ts3_register(\"dplyr::rowwise\", \"sf\")\n\ts3_register(\"dplyr::sample_frac\", \"sf\")\n\ts3_register(\"dplyr::sample_n\", \"sf\")\n\ts3_register(\"dplyr::select\", \"sf\")\n\ts3_register(\"dplyr::semi_join\", \"sf\")\n\ts3_register(\"dplyr::slice\", \"sf\")\n\ts3_register(\"dplyr::summarise\", \"sf\")\n\ts3_register(\"dplyr::transmute\", \"sf\")\n\ts3_register(\"dplyr::ungroup\", \"sf\")\n\ts3_register(\"tidyr::drop_na\", \"sf\")\n\ts3_register(\"tidyr::gather\", \"sf\")\n\ts3_register(\"tidyr::pivot_longer\", \"sf\")\n\ts3_register(\"tidyr::pivot_wider\", \"sf\")\n\ts3_register(\"tidyr::spread\", \"sf\")\n\ts3_register(\"tidyr::nest\", \"sf\")\n\ts3_register(\"tidyr::separate\", \"sf\")\n\ts3_register(\"tidyr::separate_rows\", \"sf\")\n\ts3_register(\"tidyr::unite\", \"sf\")\n\ts3_register(\"tidyr::unnest\", \"sf\")\n\ts3_register(\"pillar::obj_sum\", \"sfc\")\n\ts3_register(\"pillar::type_sum\", \"sfc\")\n\ts3_register(\"pillar::pillar_shaft\", \"sfc\")\n\ts3_register(\"spatstat.geom::as.ppp\", \"sfc\")\n\ts3_register(\"spatstat.geom::as.ppp\", \"sf\")\n\ts3_register(\"spatstat.geom::as.owin\", \"POLYGON\")\n\ts3_register(\"spatstat.geom::as.owin\", \"MULTIPOLYGON\")\n\ts3_register(\"spatstat.geom::as.owin\", \"sfc_POLYGON\")\n\ts3_register(\"spatstat.geom::as.owin\", \"sfc_MULTIPOLYGON\")\n\ts3_register(\"spatstat.geom::as.owin\", \"sfc\")\n\ts3_register(\"spatstat.geom::as.owin\", \"sf\")\n\ts3_register(\"spatstat.geom::as.psp\", \"LINESTRING\")\n\ts3_register(\"spatstat.geom::as.psp\", \"MULTILINESTRING\")\n\ts3_register(\"spatstat.geom::as.psp\", \"sfc_MULTILINESTRING\")\n\ts3_register(\"spatstat.geom::as.psp\", \"sfc\")\n\ts3_register(\"spatstat.geom::as.psp\", \"sf\")\n\ts3_register(\"s2::as_s2_geography\", \"sfg\")\n\ts3_register(\"s2::as_s2_geography\", \"sfc\")\n\ts3_register(\"s2::as_s2_geography\", \"sf\")\n\tregister_vctrs_methods()\n}\n# nocov end\n"
},
{
"path": "R/transform.R",
"content": "chk_pol = function(x, dim = class(x)[1]) {\n\tPolClose = function(y) {\n\t\tif (any(head(y[[1]], 1) != tail(y[[1]], 1))) # close\n\t\t\ty[[1]] = rbind(y[[1]], head(y[[1]], 1))\n\t\telse if (nrow(y[[1]]) == 3) # closed, but line\n\t\t\treturn(st_polygon(dim = dim))\n\t\ty\n\t}\n\tif (length(x) > 0 && nrow(x[[1]]) > 2)\n\t\tPolClose(x)\n\telse\n\t\tst_polygon(dim = dim)\n}\n\nchk_mpol = function(x) {\n\tcln = lapply(x, function(y) unclass(chk_pol(y, class(x)[1])))\n\tempty = if (length(cln))\n\t\t\tlengths(cln) == 0\n\t\telse\n\t\t\tTRUE\n\t# print(empty)\n\tst_multipolygon(cln[!empty], dim = class(x)[1])\n}\n\nsanity_check = function(x) {\n\td = st_dimension(x) # flags empty geoms as NA\n\tif (any(d == 2, na.rm = TRUE)) { # the polygon stuff\n\t\tx = st_cast(x[d == 2]) # convert GEOMETRY to POLYGON or MULTIPOLYGON, if possible\n\t\tif (inherits(x, \"sfc_POLYGON\"))\n\t\t\tst_sfc(lapply(x, chk_pol), crs = st_crs(x))\n\t\telse if (inherits(x, \"sfc_MULTIPOLYGON\"))\n\t\t\tst_sfc(lapply(x, chk_mpol), crs = st_crs(x))\n\t\telse\n\t\t\tstop(paste(\"no check implemented for\", class(x)[1]))\n\t} else\n\t\tx # nocov\n}\n\n#' @export\n#' @name st_transform\n#' @param src source crs\n#' @param dst destination crs\n#' @details \\code{st_can_transform} returns a boolean indicating whether\n#' coordinates with CRS src can be transformed into CRS dst\nst_can_transform = function(src, dst) {\n\tCPL_can_transform(st_crs(src), st_crs(dst))\n}\n\n#' Transform or convert coordinates of simple feature\n#'\n#' Transform or convert coordinates of simple feature\n#'\n#' @param x object of class sf, sfc or sfg\n#' @param crs target coordinate reference system: object of class `crs`, or input string for \\link{st_crs}\n#' @param ... ignored\n#' @param aoi area of interest, in degrees: \n#' WestLongitude, SouthLatitude, EastLongitude, NorthLatitude\n#' @param pipeline character; coordinate operation pipeline, for overriding the default operation\n#' @param reverse boolean; has only an effect when \\code{pipeline} is defined:\n#' if \\code{TRUE}, the inverse operation of the pipeline is applied\n#' @param desired_accuracy numeric; Only coordinate operations that offer an accuracy of \n#' at least the one specified will be considered; a negative value disables this feature\n#' (requires GDAL >= 3.3)\n#' @param allow_ballpark logical; are ballpark (low accuracy) transformations allowed? \n#' (requires GDAL >= 3.3)\n#' @param partial logical; allow for partial projection, if not all points of a geometry can be projected (corresponds to setting environment variable \\code{OGR_ENABLE_PARTIAL_REPROJECTION} to \\code{TRUE})\n#' @param check logical; if \\code{TRUE}, perform a sanity check on resulting polygons\n#' @details Transforms coordinates of object to new projection. \n#' Features that cannot be transformed are returned as empty geometries.\n#' Transforms using the \\code{pipeline=} argument may fail if there is\n#' ambiguity in the axis order of the specified coordinate reference system;\n#' if you need the traditional GIS order, use \\code{\"OGC:CRS84\"}, not\n#' \\code{\"EPSG:4326\"}. Extra care is needed with the ESRI Shapefile format,\n#' because WKT1 does not store axis order unambiguously.\n#'\n#' @seealso \\link[lwgeom]{st_transform_proj}, part of package lwgeom.\n#' \n#' \\link{sf_project} projects a matrix of coordinates, bypassing GDAL altogether\n#' @examples\n#' p1 = st_point(c(7,52))\n#' p2 = st_point(c(-30,20))\n#' sfc = st_sfc(p1, p2, crs = 4326)\n#' sfc\n#' st_transform(sfc, 3857)\n#' @export\nst_transform = function(x, crs, ...) UseMethod(\"st_transform\")\n\n#' @name st_transform\n#' @export\n#' @examples\n#' st_transform(st_sf(a=2:1, geom=sfc), \"EPSG:3857\")\n#' if (compareVersion(sf_extSoftVersion()[\"GDAL\"], \"3.0.0\") >= 0) {\n#' st_transform(sfc, pipeline =\n#' \t \"+proj=pipeline +step +proj=axisswap +order=2,1\") # reverse axes\n#' st_transform(sfc, pipeline =\n#' \t \"+proj=pipeline +step +proj=axisswap +order=2,1\", reverse = TRUE) # also reverse axes\n#' }\nst_transform.sfc = function(x, crs = st_crs(x), ..., \n\t\taoi = numeric(0), pipeline = character(0), reverse = FALSE,\n\t\tdesired_accuracy = -1.0, allow_ballpark = TRUE,\n\t\tpartial = TRUE, check = FALSE) {\n\n\tstopifnot(is.character(pipeline), length(pipeline) %in% 0:1)\n\n\tcrs_missing = missing(crs)\n\tif (length(pipeline) == 0) {\n\t\tif (is.na(st_crs(x)))\n\t\t\tstop(\"cannot transform sfc object with missing crs\")\n\t\tif (missing(crs))\n\t\t\tstop(\"argument crs cannot be missing\")\n\t} else \n\t\tstopifnot(length(pipeline) == 1)\n\n\tcrs_input = crs\n\tcrs = make_crs(crs)\n\n\tif (crs_parameters(crs)$is_geocentric && length(x) && Dimension(x[[1]]) == \"XY\") # add z:\n\t\tx = st_zm(x, drop = FALSE, what = \"Z\")\n\n\tif (partial) {\n\t\torig = Sys.getenv(\"OGR_ENABLE_PARTIAL_REPROJECTION\")\n\t\tif (orig != \"\")\n\t\t\ton.exit(Sys.setenv(OGR_ENABLE_PARTIAL_REPROJECTION = orig))\n\t\tSys.setenv(OGR_ENABLE_PARTIAL_REPROJECTION = \"TRUE\")\n\t}\n\n\tif (length(pipeline)) {\n\t\tif (!crs_missing) { # verify pipeline is a legitimate option:\n\t\t\tif (!(pipeline %in% sf_proj_pipelines(st_crs(x), crs)$definition)) {\n\t\t\t\twarning(\"pipeline not found in PROJ-suggested candidate transformations; setting crs = NA\")\n\t\t\t\tcrs = NA_crs_ \n\t\t\t}\n\t\t} else\n\t\t\tcrs = NA_crs_ # to avoid st_crs(x) is crs of the returned object\n\t}\n\tret = st_sfc(structure(CPL_transform(x, crs, aoi, pipeline, reverse, desired_accuracy,\n\t\t\tallow_ballpark), single_type = NULL, crs = crs)) # hard-sets crs to new crs\n\tif (check)\n\t\tsanity_check(ret)\n\telse\n\t\tret\n}\n\n#' @name st_transform\n#' @export\n#' @examples\n#' nc = st_read(system.file(\"shape/nc.shp\", package=\"sf\"))\n#' st_area(nc[1,]) # area from long/lat\n#' st_area(st_transform(nc[1,], 32119)) # NC state plane, m\n#' st_area(st_transform(nc[1,], 2264)) # NC state plane, US foot\n#' library(units)\n#' set_units(st_area(st_transform(nc[1,], 2264)), m^2)\nst_transform.sf = function(x, crs = st_crs(x), ...) {\n\tx[[ attr(x, \"sf_column\") ]] = if (missing(crs))\n\t\t\tst_transform(st_geometry(x), ...)\n\t\telse\n\t\t\tst_transform(st_geometry(x), crs = crs, ...)\n\tx\n}\n\n#' @name st_transform\n#' @export\n#' @details The \\code{st_transform} method for \\code{sfg} objects assumes that the CRS of the object is available as an attribute of that name.\n#' @examples\n#' st_transform(structure(p1, proj4string = \"EPSG:4326\"), \"EPSG:3857\")\nst_transform.sfg = function(x, crs = st_crs(x), ...) {\n\tx = st_sfc(x, crs = attr(x, \"proj4string\"))\n\tif (missing(crs))\n\t\tstop(\"argument crs cannot be missing\")\n\tcrs = make_crs(crs)\n\tstructure(st_transform(x, crs = crs, ...)[[1]], crs = crs)\n}\n\n#' @name st_transform\n#' @export\n#' @param densify integer, number of points for discretizing lines between bounding box corner points; see Details\n#' @details the method for `bbox` objects densifies lines for geographic coordinates along Cartesian lines, not great circle arcs\nst_transform.bbox = function(x, crs, ..., densify = 21) {\n if (compareVersion(sf_extSoftVersion()[\"GDAL\"], \"3.4.0\") >= 0)\n\t\tst_bbox(CPL_transform_bounds(x, st_crs(crs), densify), crs = crs)\n\telse\n\t\tstop(\"method not available for GDAL: \", sf_extSoftVersion()[\"GDAL\"])\n}\n\n#' @name st_transform\n#' @export\nst_wrap_dateline = function(x, options, quiet) UseMethod(\"st_wrap_dateline\")\n\n#' @name st_transform\n#' @param options character; should have \"WRAPDATELINE=YES\" to function; another parameter that is used is \"DATELINEOFFSET=10\" (where 10 is the default value)\n#' @param quiet logical; print options after they have been parsed?\n#' @export\n#' @examples\n#' st_wrap_dateline(st_sfc(st_linestring(rbind(c(-179,0),c(179,0))), crs = 4326))\n#' @details For a discussion of using \\code{options}, see \\url{https://github.com/r-spatial/sf/issues/280} and \\url{https://github.com/r-spatial/sf/issues/1983}\n#' @seealso \\link{st_break_antimeridian}\nst_wrap_dateline.sfc = function(x, options = \"WRAPDATELINE=YES\", quiet = TRUE) {\n\tif (is.na(st_crs(x)))\n\t\twarning(\"crs not set: assuming geographic coordinates\")\n\telse\n\t\tstopifnot(st_is_longlat(x))\n\tstopifnot(is.character(options))\n\tstopifnot(is.logical(quiet), length(quiet) == 1)\n\tst_sfc(CPL_wrap_dateline(x, options, quiet), crs = st_crs(x))\n}\n\n#' @name st_transform\n#' @export\nst_wrap_dateline.sf = function(x, options = \"WRAPDATELINE=YES\", quiet = TRUE) {\n\tst_set_geometry(x, st_sfc(CPL_wrap_dateline(st_geometry(x), options, quiet), crs = st_crs(x)))\n}\n\n#' @name st_transform\n#' @export\nst_wrap_dateline.sfg = function(x, options = \"WRAPDATELINE=YES\", quiet = TRUE) {\n\tst_sfc(CPL_wrap_dateline(st_geometry(x), options, quiet), crs = st_crs(x))[[1]]\n}\n"
},
{
"path": "R/valid.R",
"content": "#' @name valid\n#' @param NA_on_exception logical; if TRUE, for polygons that would otherwise raise a GEOS error (exception, e.g. for a POLYGON having more than zero but less than 4 points, or a LINESTRING having one point) return an \\code{NA} rather than raising an error, and suppress warning messages (e.g. about self-intersection); if FALSE, regular GEOS errors and warnings will be emitted.\n#' @param reason logical; if \\code{TRUE}, return a character with, for each geometry, the reason for invalidity, \\code{NA} on exception, or \\code{\"Valid Geometry\"} otherwise.\n#' @return \\code{st_is_valid} returns a logical vector indicating for each geometries of \\code{x} whether it is valid. \\code{st_make_valid} returns an object with a topologically valid geometry.\n#' @export\n#' @examples\n#' p1 = st_as_sfc(\"POLYGON((0 0, 0 10, 10 0, 10 10, 0 0))\")\n#' st_is_valid(p1)\n#' st_is_valid(st_sfc(st_point(0:1), p1[[1]]), reason = TRUE)\nst_is_valid = function(x, ...) UseMethod(\"st_is_valid\")\n\n#' @export\n#' @name valid\nst_is_valid.sfc = function(x, ..., NA_on_exception = TRUE, reason = FALSE) {\n\tif (sf_use_s2() && isTRUE(st_is_longlat(x))) {\n\t\tif (reason) {\n\t\t\tr = s2::s2_is_valid_detail(x)\n\t\t\tr$reason[r$is_valid] = \"Valid Geometry\"\n\t\t\tr$reason\n\t\t} else\n\t\t\ts2::s2_is_valid(x)\n\t} else if (reason) {\n\t\tif (NA_on_exception) {\n\t\t\tret = rep(NA_character_, length(x))\n\t\t\tnot_na = !is.na(st_is_valid(x, reason = FALSE))\n\t\t\tret[not_na] = CPL_geos_is_valid_reason(x[not_na])\n\t\t\tret\n\t\t} else\n\t\t\tCPL_geos_is_valid_reason(x)\n\t} else\n\t\tCPL_geos_is_valid(x, as.logical(NA_on_exception))\n}\n\n#' @export\n#' @name valid\nst_is_valid.sf = function(x, ...) {\n\tst_is_valid(st_geometry(x), ...)\n}\n\n#' @name valid\n#' @export\nst_is_valid.sfg = function(x, ...) {\n\tst_is_valid(st_geometry(x), ...)\n}\n\n#' Check validity or make an invalid geometry valid\n#'\n#' Checks whether a geometry is valid, or makes an invalid geometry valid\n#' @name valid\n#' @param x object of class \\code{sfg}, \\code{sfc} or \\code{sf}\n#' @return Object of the same class as \\code{x}\n#' @details For projected geometries, \\code{st_make_valid} uses the \\code{lwgeom_makevalid} method also used by the PostGIS command \\code{ST_makevalid} if the GEOS version linked to is smaller than 3.8.0, and otherwise the version shipped in GEOS; for geometries having ellipsoidal coordinates \\code{s2::s2_rebuild} is being used.\n#' @examples\n#' library(sf)\n#' x = st_sfc(st_polygon(list(rbind(c(0,0),c(0.5,0),c(0.5,0.5),c(0.5,0),c(1,0),c(1,1),c(0,1),c(0,0)))))\n#' suppressWarnings(st_is_valid(x))\n#' y = st_make_valid(x)\n#' st_is_valid(y)\n#' y |> st_cast()\n#' @export\nst_make_valid = function(x, ...) UseMethod(\"st_make_valid\")\n\n#' @export\n#' @name valid\nst_make_valid.sfg = function(x, ...) {\n\tst_make_valid(st_geometry(x), ...)[[1]]\n}\n\n#' @name valid\n#' @export\n#' @param ... passed on to \\link[s2]{s2_options}\n#' @param oriented logical; only relevant if \\code{st_is_longlat(x)} is \\code{TRUE}; see \\link{s2}\n#' @param s2_options only relevant if \\code{st_is_longlat(x)} is \\code{TRUE}; options for \\link[s2]{s2_rebuild}, see \\link[s2]{s2_options} and Details.\n#' @param geos_method character; either \"valid_linework\" (Original method, combines all rings into a set of noded lines and then extracts valid polygons from that linework) or \"valid_structure\" (Structured method, first makes all rings valid then merges shells and subtracts holes from shells to generate valid result. Assumes that holes and shells are correctly categorized.) (requires GEOS >= 3.10.1)\n#' @param geos_keep_collapsed logical; When this parameter is not set to \\code{FALSE}, the \"valid_structure\" method will keep any component that has collapsed into a lower dimensionality. For example, a ring collapsing to a line, or a line collapsing to a point (requires GEOS >= 3.10.1)\n#' @details if \\code{s2_options} is not specified and \\code{x} has a non-zero precision set, then this precision value will be used as the value in \\code{s2_snap_precision}, passed on to \\code{s2_options}, rather than the 1e7 default.\nst_make_valid.sfc = function(x, ..., oriented = FALSE, s2_options = s2::s2_options(snap = s2::s2_snap_precision(1e7), ...),\n\t\t\t\t\t\t\t geos_method = \"valid_structure\", geos_keep_collapsed = TRUE) {\n\tcrs = st_crs(x)\n\tif (sf_use_s2() && isTRUE(st_is_longlat(x))) {\n\t\tif (!missing(geos_method) || !missing(geos_keep_collapsed))\n\t\t\twarning(\"arguments geos_method and geos_keep_collapsed are ignored for geodetic coordinates as sf_use_s2() is TRUE\")\n\t\ts2 = s2::as_s2_geography(st_as_binary(st_set_precision(x, 0.0)), oriented = oriented, check = FALSE)\n\t\tif (st_precision(x) != 0 && missing(s2_options))\n\t\t\ts2_options = s2::s2_options(snap = s2::s2_snap_precision(st_precision(x)), ...)\n\t\tfull = st_is_full(x) # workaround, see https://github.com/r-spatial/s2/issues/262\n\t\ts2 = s2::s2_rebuild(s2, s2_options)\n\t\tret = st_as_sfc(s2, crs = crs)\n\t\tret[full] = st_polygon(list(POLYGON_FULL))\n\t\tret\n\t} else if (compareVersion(CPL_geos_version(), \"3.8.0\") == -1) {\n\t\tif (!missing(geos_method) || !missing(geos_keep_collapsed))\n\t\t\twarning(\"ignoring arguments geos_method and geos_keep_collapsed, as these require GEOS >= 3.8.0\")\n\t\tif (!requireNamespace(\"lwgeom\", quietly = TRUE))\n\t\t\tstop(\"package lwgeom required, please install it first\") # nocov\n\t\tst_sfc(lwgeom::lwgeom_make_valid(x), crs = crs)\n\t} else\n\t\tst_sfc(CPL_geos_make_valid(x, geos_method, geos_keep_collapsed), crs = crs)\n}\n\n#' @export\nst_make_valid.sf = function(x, ...) {\n\tst_set_geometry(x, st_make_valid(st_geometry(x), ...))\n}\n"
},
{
"path": "R/wkb.R",
"content": "# convert character string, as typically PostgreSQL returned blobs, to raw vector;\n# skips a leading \"0x\", as this is created by PostGIS when using ST_asBinary()\n#\n# most wkb read/write stuff was modified & extended from Ian Cook's wkb package,\n# https://cran.r-project.org/web/packages/wkb/index.html\n#\nhex_to_raw = function(y) {\n\tstopifnot((nchar(y) %% 2) == 0)\n\tif (startsWith(y, \"0x\"))\n\t\ty = substr(y, 3, nchar(y))\n\tas.raw(as.numeric(paste0(\"0x\", vapply(seq_len(nchar(y)/2),\n\t\tfunction(x) substr(y, (x-1)*2+1, x*2), \"\")))) # SLOW, hence the Rcpp implementation\n}\n\nskip0x = function(x) {\n\tif (is.na(x))\n\t\t\"010700000000000000\" # empty GeometryCollection, st_as_binary(st_geometrycollection())\n\telse if (startsWith(x, \"0x\"))\n\t\tsubstr(x, 3, nchar(x))\n\telse\n\t\tx\n}\n\n#' @name st_as_sfc\n#' @param EWKB logical; if `TRUE`, parse as EWKB (extended WKB; PostGIS: ST_AsEWKB), otherwise as ISO WKB (PostGIS: ST_AsBinary)\n#' @param spatialite logical; if \\code{TRUE}, WKB is assumed to be in the spatialite dialect, see \\url{https://www.gaia-gis.it/gaia-sins/BLOB-Geometry.html}; this is only supported in native endian-ness (i.e., files written on system with the same endian-ness as that on which it is being read).\n#' @param pureR logical; if `TRUE`, use only R code, if `FALSE`, use compiled (C++) code; use `TRUE` when the endian-ness of the binary differs from the host machine (\\code{.Platform$endian}).\n#' @details When converting from WKB, the object \\code{x} is either a character vector such as typically obtained from PostGIS (either with leading \"0x\" or without), or a list with raw vectors representing the features in binary (raw) form.\n#' @examples\n#' wkb = structure(list(\"01010000204071000000000000801A064100000000AC5C1441\"), class = \"WKB\")\n#' st_as_sfc(wkb, EWKB = TRUE)\n#' wkb = structure(list(\"0x01010000204071000000000000801A064100000000AC5C1441\"), class = \"WKB\")\n#' st_as_sfc(wkb, EWKB = TRUE)\n#' @export\nst_as_sfc.WKB = function(x, ..., EWKB = FALSE, spatialite = FALSE, pureR = FALSE, crs = NA_crs_) {\n\tif (EWKB && spatialite)\n\t\tstop(\"arguments EWKB and spatialite cannot both be TRUE\")\n\tif (spatialite && pureR)\n\t\tstop(\"pureR implementation for spatialite reading is not available\")\n if (all(vapply(x, is.character, TRUE))) {\n\t\tx <- if (pureR)\n\t\t\t\tstructure(lapply(x, hex_to_raw), class = \"WKB\")\n\t\t\telse\n\t\t\t\tstructure(CPL_hex_to_raw(vapply(x, skip0x, USE.NAMES = FALSE, \"\")), class = \"WKB\")\n\t} else # direct call with raw:\n\t\tstopifnot(inherits(x, \"WKB\"), vapply(x, is.raw, TRUE)) # WKB as raw\n\tif (any(lengths(x) == 0))\n\t\tstop(\"cannot read WKB object from zero-length raw vector\")\n\tret = if (pureR)\n\t\t\tR_read_wkb(x, readWKB, EWKB = EWKB)\n\t\telse\n\t\t\tCPL_read_wkb(x, EWKB, spatialite)\n\tif (is.na(crs) && (EWKB || spatialite) && !is.null(attr(ret, \"srid\")) && attr(ret, \"srid\") != 0)\n\t\tcrs = attr(ret, \"srid\")\n\tif (! is.na(st_crs(crs))) {\n\t\tattr(ret, \"srid\") = NULL # remove\n\t\tst_sfc(ret, crs = crs)\n\t} else\n\t\tst_sfc(ret) # leave attr srid in place: PostGIS srid that is not an EPSG code\n}\n\n#' @export\n#' @examples\n#' st_as_sfc(st_as_binary(st_sfc(st_point(0:1)))[[1]], crs = 4326)\n#' @name st_as_sfc\nst_as_sfc.raw = function(x, ...) {\n\tst_as_sfc(structure(list(x), class = \"WKB\"), ...)\n}\n\nR_read_wkb = function(x, readWKB, EWKB = EWKB) {\n\tret = lapply(x, readWKB, EWKB = EWKB)\n\tsrid = attr(ret[[1]], \"srid\")\n\tret = lapply(ret, function(x) { attr(x, \"srid\") = NULL; x })\n\tattr(ret, \"srid\") = srid\n\tret\n}\n\nsf.tp = toupper(c(\n\t# \"Geometry\", # 0\n\t\"Point\", # 1\n\t\"LineString\", # 2\n\t\"Polygon\", # 3\n\t\"MultiPoint\", # 4\n\t\"MultiLineString\", # 5\n\t\"MultiPolygon\", # 6\n\t\"GeometryCollection\", # 7\n\t\"CircularString\", # 8 x\n\t\"CompoundCurve\", # 9 x\n\t\"CurvePolygon\", # 10 x\n\t\"MultiCurve\", # 11 x\n\t\"MultiSurface\", # 12 x\n\t\"Curve\", # 13 x *\n\t\"Surface\", # 14 x *\n\t\"PolyhedralSurface\", # 15\n\t\"TIN\", # 16\n\t\"Triangle\" # 17\n\t)) # \"Geometry\" = 0, should not be matched, is a superclass only\n\t # x: not described in ISO document\n\t # *: GDAL support see https://trac.osgeo.org/gdal/ticket/6401\n\nreadWKB = function(x, EWKB = FALSE) {\n\tstopifnot(inherits(x, \"raw\"))\n\trc <- rawConnection(x, \"r\")\n\ton.exit(close(rc))\n\tseek(rc, 0L)\n\t# read data:\n\treadData(rc, EWKB = EWKB)\n}\n\nparseTypeEWKB = function(wkbType, endian) {\n\t# following the OGC doc, 3001 is POINT with ZM; turns out, PostGIS does sth else -\n\t# read WKB, as well as EWKB; this post is more inormative of what is going on:\n\t# https://lists.osgeo.org/pipermail/postgis-devel/2004-December/000710.html\n\t# (without SRID, Z, M and ZM this all doesn't matter)\n\t# comparison ISO WKB and EWKB:\n\t# https://lists.osgeo.org/pipermail/postgis-devel/2004-December/000695.html\n\tstopifnot(length(wkbType) == 4)\n\tif (endian == \"little\") {\n\t\tsf_type = as.numeric(wkbType[1])\n\t\tinfo = as.raw(as.integer(wkbType[4]) %/% 2^4)\n\t} else {\n\t\tsf_type = as.numeric(wkbType[4])\n\t\tinfo = as.raw(as.integer(wkbType[1]) %/% 2^4)\n\t}\n\ttp = sf.tp[sf_type]\n\tstopifnot(!is.na(tp))\n\thas_srid = as.logical(info & as.raw(2)) # 2-bit is \"on\"?\n\tzm = if ((info & as.raw(12)) == as.raw(12))\n\t\t\"XYZM\"\n\telse if (info & as.raw(8))\n\t\t\"XYZ\"\n\telse if (info & as.raw(4))\n\t\t\"XYM\"\n\telse if (info == as.raw(0) || info == as.raw(2))\n\t\t\"XY\"\n\telse\n\t\tstop(paste(\"unknown value for info:\", info))\n\tlist(dims = nchar(zm), zm = zm, tp = tp, has_srid = has_srid)\n}\n\nparseTypeISO = function(wkbType) {\n\ttp = sf.tp[wkbType %% 1000]\n\tstopifnot(!is.na(tp))\n\tdd = wkbType %/% 1000\n\tzm = if (dd == 0)\n\t\t\"XY\"\n\telse if (dd == 1)\n\t\t\"XYZ\"\n\telse if (dd == 2)\n\t\t\"XYM\"\n\telse if (dd == 3)\n\t\t\"XYZM\"\n\telse\n\t\tstop(paste(\"unknown value for wkbType:\", wkbType))\n\tlist(dims = nchar(zm), zm = zm, tp = tp, has_srid = FALSE)\n}\n\nreadData = function(rc, EWKB = FALSE) {\n\t# read byte order:\n\tbyteOrder <- readBin(rc, what = \"raw\", size = 1L)\n\tstopifnot(byteOrder %in% c(as.raw(0L), as.raw(1L)))\n\tendian = ifelse(byteOrder == as.raw(1L), \"little\", \"big\")\n\t# read wkbType:\n\tsrid = NA_integer_\n\tif (EWKB) {\n\t\twkbType <- readBin(rc, what = \"raw\", n = 4L, size = 1L, endian = endian)\n\t\tpt <- parseTypeEWKB(wkbType, endian)\n\t\tif (pt$has_srid)\n\t\t\tsrid <- readBin(rc, what = \"integer\", size = 4L, endian = endian)\n\t} else {\n\t\twkbType <- readBin(rc, what = \"integer\", n = 1L, size = 4L, endian = endian)\n\t\tpt <- parseTypeISO(wkbType)\n\t}\n\t# read data part:\n\tret = switch(pt$tp,\n\t\tPOINT = readPoint(rc, pt$dims, endian),\n\t\tCURVE = ,\n\t\tCIRCULARSTRING = ,\n\t\tLINESTRING = readMatrix(rc, pt$dims, endian),\n\t\tSURFACE = ,\n\t\tPOLYGON = ,\n\t\tTRIANGLE = readMatrixList(rc, pt$dims, endian),\n\t\tMULTIPOINT = readMPoints(rc, pt$dims, endian, EWKB),\n\t\tMULTILINESTRING = ,\n\t\tMULTICURVE = ,\n\t\tMULTIPOLYGON = ,\n\t\tMULTISURFACE = ,\n\t\tPOLYHEDRALSURFACE = ,\n\t\tTIN = lapply(readGC(rc, pt$dims, endian, EWKB), unclass),\n\t\tGEOMETRYCOLLECTION = readGC(rc, pt$dims, endian, EWKB),\n\t\tCURVEPOLYGON = readGC(rc, pt$dims, endian, EWKB),\n\t\tstop(paste(\"type\", pt$tp, \"unsupported\")))\n\tclass(ret) <- c(pt$zm, pt$tp, \"sfg\")\n\tif (!is.na(srid))\n\t\tattr(ret, \"srid\") <- srid\n\tret\n}\n\nreadPoint = function(rc, dims, endian) {\n\treadBin(rc, what = \"double\", n = as.integer(dims), size = 8L, endian = endian)\n}\nreadMPoints = function(rc, dims, endian, EWKB) {\n\tnpts = readBin(rc, what = \"integer\", n = 1L, size = 4L, endian = endian)\n\tdo.call(rbind, lapply(seq_len(npts), function(x) readData(rc, EWKB)))\n}\nreadMatrix = function(rc, dims, endian) {\n\tnpts = readBin(rc, what = \"integer\", n = 1L, size = 4L, endian = endian)\n\tm = readBin(rc, what = \"double\", n = as.integer(npts * dims), size = 8L, endian = endian)\n\tt(matrix(m, nrow = dims)) # x1 y1, x2 y2 etc -> t()\n}\nreadMatrixList = function(rc, dims, endian) {\n\tnmtrx = readBin(rc, what = \"integer\", n = 1L, size = 4L, endian = endian)\n\tlapply(seq_len(nmtrx), function(x) readMatrix(rc, dims, endian))\n}\n#readMatrixListList = function(rc, dims, endian) {\n#\tnmtrxl = readBin(rc, what = \"integer\", n = 1L, size = 4L, endian = endian)\n#\tlapply(seq_len(nmtrxl), function(x) readMatrixList(rc, dims, endian))\n#}\nreadGC = function(rc, dims, endian, EWKB) {\n\tngc = readBin(rc, what = \"integer\", n = 1L, size = 4L, endian = endian)\n\tlapply(seq_len(ngc), function(x) readData(rc, EWKB))\n}\n\n#' Convert sfc object to an WKB object\n#'\n#' Convert sfc object to an WKB object\n#' @param x object to convert\n#' @param ... ignored\n#' @name st_as_binary\n#' @export\nst_as_binary = function(x, ...) UseMethod(\"st_as_binary\")\n\n#' @name st_as_binary\n#' @param endian character; either \"big\" or \"little\"; default: use that of platform\n#' @param EWKB logical; use EWKB (PostGIS), or (default) ISO-WKB?\n#' @param pureR logical; use pure R solution, or C++?\n#' @param precision numeric; if zero, do not modify; to reduce precision: negative values convert to float (4-byte real); positive values convert to round(x*precision)/precision. See details.\n#' @param hex logical; return as (unclassed) hexadecimal encoded character vector?\n#' @param srid integer; override srid (can be used when the srid is unavailable locally).\n#' @details \\code{st_as_binary} is called on sfc objects on their way to the GDAL or GEOS libraries, and hence does rounding (if requested) on the fly before e.g. computing spatial predicates like \\link{st_intersects}. The examples show a round-trip of an \\code{sfc} to and from binary.\n#'\n#' For the precision model used, see also \\url{https://locationtech.github.io/jts/javadoc/org/locationtech/jts/geom/PrecisionModel.html}. There, it is written that: ``... to specify 3 decimal places of precision, use a scale factor of 1000. To specify -3 decimal places of precision (i.e. rounding to the nearest 1000), use a scale factor of 0.001.''. Note that ALL coordinates, so also Z or M values (if present) are affected.\n#' @export\n#' @examples\n#' # examples of setting precision:\n#' st_point(c(1/3, 1/6)) |> st_sfc(precision = 1000) |> st_as_binary() |> st_as_sfc()\n#' st_point(c(1/3, 1/6)) |> st_sfc(precision = 100) |> st_as_binary() |> st_as_sfc()\n#' st_point(1e6 * c(1/3, 1/6)) |> st_sfc(precision = 0.01) |> st_as_binary() |> st_as_sfc()\n#' st_point(1e6 * c(1/3, 1/6)) |> st_sfc(precision = 0.001) |> st_as_binary() |> st_as_sfc()\nst_as_binary.sfc = function(x, ..., EWKB = FALSE, endian = .Platform$endian, pureR = FALSE,\n\t\tprecision = attr(x, \"precision\"), hex = FALSE) {\n\tstopifnot(endian %in% c(\"big\", \"little\"))\n\tif (pureR && precision != 0.0)\n\t\tstop(\"for non-zero precision values, use pureR = FALSE\")\n\tret = if (pureR)\n\t\tstructure(lapply(x, st_as_binary.sfg, EWKB = EWKB, pureR = pureR, endian = endian), class = \"WKB\")\n\telse {\n\t\tstopifnot(endian == .Platform$endian)\n\t\tattr(x, \"precision\") = precision\n\t\tstructure(CPL_write_wkb(x, EWKB), class = \"WKB\")\n\t}\n\tif (hex)\n\t\tvapply(ret, CPL_raw_to_hex, \"\")\n\telse\n\t\tret\n}\n\ncreateType = function(x, endian, EWKB = FALSE) {\n\tdims = x[1] # \"XY\", \"XYZ\", \"XYM\", or \"XYZM\"\n\tcl = x[2]\n\tm = match(cl, sf.tp)\n\tif (is.na(m))\n\t\tstop(paste(\"Class\", cl, \"not matched\"))\n\t# return:\n\tif (! EWKB) # ISO: add 1000s\n\t\tas.integer(m + switch(dims, \"XYZ\" = 1000, \"XYM\" = 2000, \"XYZM\" = 3000, 0))\n\telse { # EWKB: set higher bits\n\t\tret = raw(4)\n\t\tret[1] = as.raw(m) # set up little-endian\n\t\tret[4] = as.raw(switch(dims, \"XYZ\" = 0x80, \"XYM\" = 0x40, \"XYZM\" = 0xC0, 0))\n\t\tif (endian == \"big\")\n\t\t\trev(ret)\n\t\telse\n\t\t\tret\n\t}\n}\n\n#' @name st_as_binary\n#' @export\nst_as_binary.sfg = function(x, ..., endian = .Platform$endian, EWKB = FALSE, pureR = FALSE,\n\t\thex = FALSE, srid = 0) {\n# if pureR, it's done here, if not, it's done in st_as_binary.sfc\n\tstopifnot(endian %in% c(\"big\", \"little\"))\n\tif (! pureR)\n\t\tst_as_binary.sfc(st_sfc(x), endian == endian, EWKB = EWKB, pureR = pureR, hex = hex, srid = srid, ...)[[1]]\n\telse {\n\t\trc <- rawConnection(raw(0), \"r+\")\n\t\ton.exit(close(rc))\n\t\twriteData(x, rc, endian, EWKB)\n\t\tr = rawConnectionValue(rc)\n\t\tif (hex)\n\t\t\tr = rawToHex(r)\n\t\tr\n\t}\n}\n\n#' Convert raw vector(s) into hexadecimal character string(s)\n#'\n#' Convert raw vector(s) into hexadecimal character string(s)\n#' @param x raw vector, or list with raw vectors\n#' @export\nrawToHex = function(x) {\n\tif (is.raw(x))\n\t\tCPL_raw_to_hex(x)\n\telse if (is.list(x) && all(vapply(x, is.raw, TRUE)))\n\t\tvapply(x, function(rw) CPL_raw_to_hex(rw), \"\")\n\telse\n\t\tstop(paste(\"not implemented for objects of class\", class(x)))\n}\n\nwriteData = function(x, rc, endian, EWKB = FALSE) {\n\tif (endian == \"big\")\n\t\twriteBin(as.raw(0L), rc)\n\telse\n\t\twriteBin(as.raw(1L), rc)\n\tif (EWKB)\n\t\twriteBin(createType(class(x), endian, TRUE), rc, size = 1L, endian = endian)\n\telse\n\t\twriteBin(createType(class(x)), rc, size = 4L, endian = endian)\n\t# TODO (?): write SRID in case of EWKB?\n\t# write out x:\n\tswitch(class(x)[2],\n\t\tPOINT = writeBin(as.vector(as.double(x)), rc, size = 8L, endian = endian),\n\t\tLINESTRING = writeMatrix(x, rc, endian),\n\t\tPOLYGON = ,\n\t\tTRIANGLE = writeMatrixList(x, rc, endian),\n\t\tMULTIPOINT = writeMPoints(x, rc, endian, EWKB),\n\t\tPOLYHEDRALSURFACE = ,\n\t\tTIN = ,\n\t\tMULTILINESTRING = ,\n\t\tMULTIPOLYGON = writeMulti(x, rc, endian, EWKB),\n\t\tGEOMETRYCOLLECTION = writeGC(x, rc, endian, EWKB),\n\t\tstop(paste(\"unimplemented class to write:\", class(x)[2]))\n\t)\n}\n\nwriteMulti = function(x, rc, endian, EWKB) {\n\tunMulti = if (inherits(x, \"MULTILINESTRING\"))\n\t\tst_linestring\n\telse # MULTIPOLYGON, POLYHEDRALSURFACE, TIN:\n\t\tst_polygon\n\twriteBin(as.integer(length(x)), rc, size = 4L, endian = endian)\n\tlapply(lapply(x, unMulti, class(x)[1]), writeData, rc = rc, endian = endian, EWKB = EWKB)\n}\nwriteGC = function(x, rc, endian, EWKB) {\n\twriteBin(as.integer(length(x)), rc, size = 4L, endian = endian)\n\tlapply(x, writeData, rc = rc, endian = endian, EWKB = EWKB)\n}\nwriteMatrix = function(x, rc, endian) {\n\twriteBin(as.integer(nrow(x)), rc, size = 4L, endian = endian)\n\twriteBin(as.double(as.vector(t(x))), rc, size = 8L, endian = endian)\n}\nwriteMatrixList = function(x, rc, endian) {\n\twriteBin(as.integer(length(x)), rc, size = 4L, endian = endian)\n\tlapply(x, function(y) writeMatrix(y, rc, endian))\n}\nwriteMPoints = function(x, rc, endian, EWKB) {\n\twriteBin(as.integer(nrow(x)), rc, size = 4L, endian = endian)\n\tif (nrow(x))\n\t\tapply(x, 1, function(y) writeData(st_point(y, class(x)[1]), rc, endian, EWKB))\n}\n"
},
{
"path": "R/wkt.R",
"content": "# composed, WKT class name: \"XYZ\", \"POINT\" -> \"POINT Z\"\nWKT_name = function(x, EWKT = TRUE) {\n\tcls = class(x)\n\tzm = substr(cls[1], 3, 4)\n\n\tretval = if (zm == \"\")\n\t\tcls[2]\n\telse\n\t\tpaste(cls[2], substr(cls[1], 3, 4))\n\n\tif (EWKT && !is.null(attr(x, \"epsg\")) && !is.na(attr(x, \"epsg\")))\n\t\tpaste0(\"SRID=\", attr(x, \"epsg\"), \";\", retval)\n\telse\n\t\tretval\n}\n\nempty = \"EMPTY\"\n\n# skip leading white space; ... passes on digits:\nfmt = function(x, ...) sub(\"^[ ]+\", \"\", sapply(unclass(x), format, ...))\n\n# print helper functions\nprnt.POINT = function(x, ..., EWKT = TRUE) {\n\tpt = if (any(!is.finite(x)))\n\t\tempty\n\telse\n\t\tpaste0(\"(\", paste0(fmt(x, ...), collapse = \" \"), \")\")\n\tpaste(WKT_name(x, EWKT = EWKT), pt)\n}\n\nprnt.Matrix = function(x, nested_parens = FALSE, ...) {\n\tpf = function(x, ..., collapse) paste0(fmt(x, ...), collapse = collapse)\n\tif (nrow(x) == 0)\n\t\tempty\n\telse if (nested_parens)\n\t\tpaste0(\"((\", paste0(apply(x, 1, pf, collapse = \" \", ...), collapse = \"), (\"), \"))\")\n\telse\n\t\tpaste0(\"(\", paste0(apply(x, 1, pf, collapse = \" \", ...), collapse = \", \"), \")\")\n}\n\nprnt.MatrixList = function(x, ...) {\n\tif (length(x) == 0)\n\t\tempty\n\telse\n\t\tpaste0(\"(\", paste0(unlist(lapply(x, prnt.Matrix, ...)), collapse = \", \"), \")\")\n}\n\nprnt.MatrixListList = function(x, ...) {\n\tif (length(x) == 0)\n\t\tempty\n\telse\n\t\tpaste0(\"(\", paste0(unlist(lapply(x, prnt.MatrixList, ...)), collapse = \", \"), \")\")\n}\n\nprnt.MULTIPOINT = function(x, ..., EWKT = TRUE, nested_parens = FALSE) {\n\tpaste(WKT_name(x, EWKT = EWKT),\n\t\t prnt.Matrix(x, nested_parens = nested_parens, ...))\n}\nprnt.LINESTRING = function(x, ..., EWKT = TRUE) paste(WKT_name(x, EWKT = EWKT), prnt.Matrix(x, ...))\n\nprnt.POLYGON = function(x, ..., EWKT = TRUE) {\n\tif (st_is_full(x, ...))\n\t\t\"POLYGON FULL\"\n\telse\n\t\tpaste(WKT_name(x, EWKT = EWKT), prnt.MatrixList(x, ...))\n}\n\nprnt.MULTILINESTRING = function(x, ..., EWKT = TRUE) paste(WKT_name(x, EWKT = EWKT), prnt.MatrixList(x, ...))\nprnt.MULTIPOLYGON = function(x, ..., EWKT = TRUE) paste(WKT_name(x, EWKT = EWKT), prnt.MatrixListList(x, ...))\nprnt.GEOMETRYCOLLECTION = function(x, ..., EWKT = TRUE) {\n\tbody = if (length(x) == 0)\n\t\tempty\n\telse\n\t\tpaste0(\"(\", paste0(vapply(x, st_as_text, \"\", ...), collapse=\", \"), \")\")\n\tpaste(WKT_name(x, EWKT = EWKT), body)\n}\n\n#' Return Well-known Text representation of simple feature geometry or coordinate reference system\n#'\n#' Return Well-known Text representation of simple feature geometry or coordinate reference system\n#' @param x object of class \\code{sfg}, \\code{sfc} or \\code{crs}\n#' @param ... modifiers; in particular \\code{digits} can be passed to control the number of digits used\n#' @name st_as_text\n#' @details The returned WKT representation of simple feature geometry conforms to the\n#' \\href{https://en.wikipedia.org/wiki/Simple_Features}{simple features access} specification and extensions\n#' (known as EWKT, supported by PostGIS and other simple features implementations for addition of \n#' a SRID to a WKT string).\n#' @note To improve conversion performance, the lwgeom package can be used (it must be installed\n#' beforehand) and set the \\code{Sys.setenv(\"LWGEOM_WKT\" = \"true\")} environment variable. This\n#' will also result in faster printing of complex geometries. Note that the representation as WKT is\n#' different from the sf package and may cause reproducibility problems. An alternative solution is\n#' to use the [lwgeom::st_astext()] or [wk::as_wkt()] functions.\n#'\n#' @export\nst_as_text = function(x, ...) UseMethod(\"st_as_text\")\n\n#' @name st_as_text\n#' @export\n#' @examples\n#' st_as_text(st_point(1:2))\n#' st_as_text(st_sfc(st_point(c(-90,40)), crs = 4326), EWKT = TRUE)\nst_as_text.sfg = function(x, ...) {\n\tif (Sys.getenv(\"LWGEOM_WKT\") == \"true\" && requireNamespace(\"lwgeom\", quietly = TRUE) && utils::packageVersion(\"lwgeom\") >= \"0.1-5\")\n\t\tlwgeom::st_astext(x, ...)\n\telse\n\t switch(class(x)[2],\n\t\tPOINT = prnt.POINT(x, ...),\n\t\tMULTIPOINT = prnt.MULTIPOINT(x, ..., nested_parens = TRUE),\n\t\tLINESTRING = prnt.LINESTRING(x, ...),\n\t\tPOLYGON = prnt.POLYGON(x, ...),\n\t\tMULTILINESTRING = prnt.MULTILINESTRING(x, ...),\n\t\tMULTIPOLYGON = prnt.MULTIPOLYGON(x, ...),\n\t\tGEOMETRYCOLLECTION =prnt.GEOMETRYCOLLECTION(x, ...),\n\t\tCIRCULARSTRING = prnt.MULTIPOINT(x, ...),\n\t\tCOMPOUNDCURVE = prnt.GEOMETRYCOLLECTION(x, ...),\n\t\tCURVE = prnt.MULTIPOINT(x, ...),\n\t\tCURVEPOLYGON = prnt.GEOMETRYCOLLECTION(x, ...),\n\t\tMULTICURVE = prnt.GEOMETRYCOLLECTION(x, ...),\n\t\tMULTISURFACE = prnt.GEOMETRYCOLLECTION(x, ...),\n\t\tPOLYHEDRALSURFACE = prnt.MULTIPOLYGON(x, ...),\n\t\tTRIANGLE = prnt.POLYGON(x, ...),\n\t\tTIN = prnt.MULTIPOLYGON(x, ...),\n\t\tstop(paste(\"no print method available for object of class\", class(x)[2])) # nocov\n\t)\n}\n\n#' @name st_as_text\n#' @param EWKT logical; if TRUE, print SRID=xxx; before the WKT string if \\code{epsg} is available\n#' @export\nst_as_text.sfc = function(x, ..., EWKT = FALSE) {\n\tif (Sys.getenv(\"LWGEOM_WKT\") == \"true\" && requireNamespace(\"lwgeom\", quietly = TRUE) && utils::packageVersion(\"lwgeom\") >= \"0.1-5\")\n\t\tlwgeom::st_astext(x, ..., EWKT = EWKT)\n\telse {\n\t\tif (EWKT) {\n\t\t\tepsg = attr(x, \"crs\")$epsg\n\t\t\tif (!is.na(epsg) && epsg != 0)\n\t\t\t\tx = lapply(x, function(sfg) structure(sfg, epsg = epsg))\n\t\t}\n\t\tvapply(x, st_as_text, \"\", ..., EWKT = EWKT)\n\t}\n}\n\n#' @name st_as_sfc\n#' @rdname st_as_sfc\n#' @md\n#' @details If `x` is a character vector, it should be a vector containing\n#' [well-known-text](https://www.ogc.org/standards/wkt-crs/), or\n#' Postgis EWKT or GeoJSON representations of a single geometry for each vector element.\n#' @param crs integer or character; coordinate reference system for the\n#' @param GeoJSON logical; if \\code{TRUE}, try to read geometries from GeoJSON text strings\n#' geometry, see [st_crs()]\n#' @export\n#' @examples\n#' st_as_sfc(\"SRID=3978;LINESTRING(1663106 -105415,1664320 -104617)\")\nst_as_sfc.character = function(x, crs = NA_integer_, ..., GeoJSON = FALSE) {\n\tif (length(x) == 0)\n\t\tst_sfc(crs = crs)\n\telse if (GeoJSON) {\n\t\tret = st_geometry(do.call(rbind, lapply(x, st_read, quiet = TRUE)))\n\t\tif (is.na(st_crs(ret)))\n\t\t\tst_set_crs(ret, crs)\n\t\telse\n\t\t\tret\n\t} else {\n\t\tif (all(is_ewkt(x)) && is.na(crs)) {\n\t\t\t# EWKT\n\t\t\tcrs = get_crs_ewkt(x)\n\t\t\tcrs = unique(crs)\n\t\t\tif (length(crs) != 1) {\n\t\t\t\tstop(\"sf does not support multiple crs (\",\n\t\t\t\t\t paste(crs, collapse = \", \"),\n\t\t\t\t\t \") within a single geometry column.\",\n\t\t\t\t\t \"You can override the crs from the string by using the \",\n\t\t\t\t\t \"`crs` option from `st_as_sfc()`.\",\n\t\t\t\t\t call. = FALSE)\n\t\t\t}\n\t\t\tx = ewkt_to_wkt(x)\n\t\t}\n\t\tif (sf_use_s2() && !identical(st_is_longlat(crs), FALSE) && any(full <- (x == \"POLYGON FULL\")))\n\t\t\tx[full] = \"POLYGON((0 -90,0 -90))\" # s2 struct for POLYGON FULL\n\t\tret = st_sfc(CPL_sfc_from_wkt(x))\n\t\tst_crs(ret) = crs\n\t\tret\n\t}\n}\n#' @name st_as_sfc\n#' @details If \\code{x} is a \\code{factor}, it is converted to \\code{character}.\n#' @export\nst_as_sfc.factor = function(x, ...) {\n\tst_as_sfc(as.character(x), ...)\n}\n\nis_ewkt = function(x) {\n\tgrepl(\"^SRID=(\\\\d+);\", x)\n}\n\nget_crs_ewkt = function(x) {\n\tas.numeric(gsub(\"^SRID=(\\\\d+);.+$\", \"\\\\1\", x))\n}\n\newkt_to_wkt = function(x) {\n\tgsub(\"^SRID=(\\\\d+);(.+)$\", \"\\\\2\", x)\n}\n"
},
{
"path": "R/z_range.R",
"content": "\n#' @name st_z_range\n#' @param x object of class \\code{z_range}\n#' @export\nis.na.z_range = function(x) identical(x, NA_z_range_)\n\nzb_wrap = function(zb) {\n\tstopifnot(is.numeric(zb), length(zb) == 2)\n\tstructure(zb, names = c(\"zmin\", \"zmax\"), class = \"z_range\")\n}\n\nz_range.Set = function(obj, ...) {\n\tsel = vapply(obj, function(x) { length(x) && !all(is.na(x)) }, TRUE)\n\tif (! any(sel))\n\t\tNA_z_range_\n\telse\n\t\tzb_wrap(CPL_get_z_range(unclass(obj)[sel], 0))\n}\nz_range.Mtrx = function(obj, ...) {\n\tif (length(obj) == 0)\n\t\tNA_z_range_\n\telse\n\t\tzb_wrap(CPL_get_z_range(list(obj), 1)) # note the list()\n}\nz_range.MtrxSet = function(obj, ...) {\n\tif (length(obj) == 0)\n\t\tNA_z_range_\n\telse\n\t\tzb_wrap(CPL_get_z_range(obj, 1))\n}\nz_range.MtrxSetSet = function(obj, ...) {\n\tif (length(obj) == 0)\n\t\tNA_z_range_\n\telse\n\t\tzb_wrap(CPL_get_z_range(obj, 2))\n}\nz_range.MtrxSetSetSet = function(obj, ...) {\n\tif (length(obj) == 0)\n\t\tNA_z_range_\n\telse\n\t\tzb_wrap(CPL_get_z_range(obj, 3))\n}\n\n#' Return 'z' range of a simple feature or simple feature set\n#'\n#' Return 'z' range of a simple feature or simple feature set\n#' @param obj object to compute the z range from\n#' @param ... ignored\n#' @export\n#' @return a numeric vector of length two, with \\code{zmin} and \\code{zmax} values;\n#' if \\code{obj} is of class \\code{sf} or \\code{sfc} the object\n#' returned has a class \\code{z_range}\n#' @name st_z_range\n#' @examples\n#' a = st_sf(a = 1:2, geom = st_sfc(st_point(0:2), st_point(1:3)), crs = 4326)\n#' st_z_range(a)\nst_z_range = function(obj, ...) UseMethod(\"st_z_range\")\n\n#' @export\n#' @name st_z_range\nst_z_range.POINT = function(obj, ...) zb_wrap(c(obj[3L], obj[3L]))\n#' @export\n#' @name st_z_range\nst_z_range.MULTIPOINT = z_range.Mtrx\n#' @export\n#' @name st_z_range\nst_z_range.LINESTRING = z_range.Mtrx\n#' @export\n#' @name st_z_range\nst_z_range.POLYGON = z_range.MtrxSet\n#' @export\n#' @name st_z_range\nst_z_range.MULTILINESTRING = z_range.MtrxSet\n#' @export\n#' @name st_z_range\nst_z_range.MULTIPOLYGON = z_range.MtrxSetSet\n\nz_range_list = function(obj, ...) {\n\ts = vapply(obj, st_z_range, c(0.,0.)) # dispatch on class\n\tif (length(s) == 0 || all(is.na(s[1L,])))\n\t\tNA_z_range_\n\telse\n\t\tzb_wrap(c(min(s[1L,], na.rm = TRUE), max(s[2L,], na.rm = TRUE)))\n}\n\n#' @name st_z_range\n#' @export\nst_z_range.GEOMETRYCOLLECTION = z_range_list\n\n#' @name st_z_range\n#' @export\nst_z_range.MULTISURFACE = z_range_list\n\n#' @name st_z_range\n#' @export\nst_z_range.MULTICURVE = z_range_list\n\n#' @name st_z_range\n#' @export\nst_z_range.CURVEPOLYGON = z_range_list\n\n#' @name st_z_range\n#' @export\nst_z_range.COMPOUNDCURVE = z_range_list\n\n#' @name st_z_range\n#' @export\nst_z_range.POLYHEDRALSURFACE = z_range.MtrxSetSet\n\n#' @name st_z_range\n#' @export\nst_z_range.TIN = z_range.MtrxSetSet\n\n#' @name st_z_range\n#' @export\nst_z_range.TRIANGLE = z_range.MtrxSet\n\n#' @name st_z_range\n#' @export\nst_z_range.CIRCULARSTRING = function(obj, ...) {\n\t# this is of course wrong:\n\tst_z_range(st_cast(obj, \"LINESTRING\")) # nocov\n}\n\n#' @export\nprint.z_range = function(x, ...) {\n\tx = structure(x, crs = NULL, class = NULL) # nocov\n\tprint(set_units(x, attr(x, \"units\"), mode = \"standard\")) # nocov\n}\n\ncompute_z_range = function(obj) {\n\tswitch(class(obj)[1],\n\t\t sfc_POINT = zb_wrap(z_range.Set(obj)),\n\t\t sfc_MULTIPOINT = zb_wrap(z_range.MtrxSet(obj)),\n\t\t sfc_LINESTRING = zb_wrap(z_range.MtrxSet(obj)),\n\t\t sfc_POLYGON = zb_wrap(z_range.MtrxSetSet(obj)),\n\t\t sfc_MULTILINESTRING = zb_wrap(z_range.MtrxSetSet(obj)),\n\t\t sfc_MULTIPOLYGON = zb_wrap(z_range.MtrxSetSetSet(obj)),\n\t\t z_range_list(obj)\n\t)\n}\n\n#' @name st_z_range\n#' @export\nst_z_range.sfc = function(obj, ...) {\n\ta = attr(obj, \"z_range\")\n\tif(is.null(a)) return( NULL ) ## TODO return null?\n\tstructure(a, crs = st_crs(obj))\n}\n#' @name st_z_range\n#' @export\nst_z_range.sf = function(obj, ...) st_z_range(st_geometry(obj))\n\n#' @name st_z_range\n#' @param crs object of class \\code{crs}, or argument to \\link{st_crs}, specifying the CRS of this bounding box.\n#' @examples\n#' st_z_range(c(zmin = 16.1, zmax = 16.6), crs = st_crs(4326))\n#' @export\nst_z_range.numeric = function(obj, ..., crs = NA_crs_) {\n\tstructure(zb_wrap(obj[c(\"zmin\", \"zmax\")]), crs = st_crs(crs)) # nocov\n}\n\n#' @export\nst_z_range.z_range = function(obj, ...) obj # nocov\n\n\n#' @export\n\"$.z_range\" = function(x, name) { # nocov start\n\tswitch(name,\n\t\t zmin = x[\"zmin\"],\n\t\t zmax = x[\"zmax\"],\n\t\t stop(\"unsupported name\")\n\t)\n} # nocov end\n\n#' @name st_z_range\n#' @details \\code{NA_z_range_} represents the missing value for a \\code{z_range} object\n#' @export\nNA_z_range_ = structure(rep(NA_real_, 2),\n\t\t\t\t\t names = c(\"zmin\", \"zmax\"),\n\t\t\t\t\t crs = NA_crs_,\n\t\t\t\t\t class = \"z_range\")\n"
},
{
"path": "README.md",
"content": "\n[](https://github.com/r-spatial/sf/actions/workflows/R-CMD-check.yaml)\n[](https://github.com/r-spatial/sf/actions/workflows/tic-db.yml)\n[](https://app.codecov.io/gh/r-spatial/sf)\n[](http://www.gnu.org/licenses/gpl-2.0.html)\n[](https://cran.r-project.org/package=sf)\n[](https://cran.r-project.org/web/checks/check_results_sf.html)\n[](https://www.r-pkg.org/pkg/sf)\n[](https://CRAN.R-project.org/package=sf)\n\n\n# Simple Features for R\n\n![](\"https://user-images.githubusercontent.com/520851/34887433-ce1d130e-f7c6-11e7-83fc-d60ad4fae6bd.gif\")
\n\nA package that provides [simple features access](https://en.wikipedia.org/wiki/Simple_Features) for R. \n\n[Blogs, links](#blogs-presentations-vignettes-sp-sf-wiki) • [Cheatsheet](#cheatsheet) • [Installing](#installing)\n• [Contributing](#contributing) • [Acknowledgment](#acknowledgment) • [How to cite](#how-to-cite)\n\nPackage sf:\n\n* represents simple features as records in a `data.frame` or `tibble` with a geometry list-column\n* represents natively in R all 17 simple feature types for all dimensions (XY, XYZ, XYM, XYZM)\n* interfaces to [GEOS](https://libgeos.org) for geometrical operations on projected coordinates, and (through R package [s2](https://cran.r-project.org/package=s2)) to [s2geometry](http://s2geometry.io/) for geometrical operations on ellipsoidal coordinates\n* interfaces to [GDAL](https://gdal.org/), supporting all driver options, `Date` and `POSIXct` and list-columns\n* interfaces to [PRØJ](http://proj.org/) for coordinate reference system conversion and transformation\n* uses [well-known-binary](https://en.wikipedia.org/wiki/Well-known_text#Well-known_binary) serialisations written in C++/Rcpp for fast I/O with GDAL and GEOS \n* reads from and writes to spatial databases such as [PostGIS](http://postgis.net/) using [DBI](https://cran.r-project.org/package=DBI)\n* is extended by \n * [lwgeom](https://github.com/r-spatial/lwgeom/) for selected liblwgeom/PostGIS functions\n * [stars](https://github.com/r-spatial/stars/) for raster data, and raster or vector data cubes (spatial time series)\n * [sfnetworks](https://luukvdmeer.github.io/sfnetworks/) for geospatial network data\n\n![](\"https://user-images.githubusercontent.com/520851/50280460-e35c1880-044c-11e9-9ed7-cc46754e49db.jpg\")
\n\n(Illustration (c) 2018 by Allison Horst)\n\n## Books, journal articles, blogs, presentations, vignettes, sp-sf wiki\n\n* an open access [R Journal article](https://journal.r-project.org/archive/2018/RJ-2018-009/index.html) summarizes the package\n* two books: [Spatial Data Science: with applications in R](https://r-spatial.org/book/), [Geocomputation with R](https://r.geocompx.org/)\n* package vignettes: [first](https://r-spatial.github.io/sf/articles/sf1.html), [second](https://r-spatial.github.io/sf/articles/sf2.html), [third](https://r-spatial.github.io/sf/articles/sf3.html), [fourth](https://r-spatial.github.io/sf/articles/sf4.html), [fifth](https://r-spatial.github.io/sf/articles/sf5.html), [sixth](https://r-spatial.github.io/sf/articles/sf6.html), [seventh](https://r-spatial.github.io/sf/articles/sf7.html)\n* blog posts: [first](https://r-spatial.org/r/2016/02/15/simple-features-for-r.html), [second](https://r-spatial.org/r/2016/07/18/sf2.html), [third](https://r-spatial.org/r/2016/11/02/sfcran.html), [fourth](https://r-spatial.org/r/2017/01/12/newssf.html)\n* the original R Consortium ISC [proposal](PROPOSAL.md), the R Consortium [blog post](https://www.r-consortium.org/blog/2017/01/03/simple-features-now-on-cran)\n* presentations: [rstudio::conf 2018](https://edzer.github.io/rstudio_conf/#1) ([video](https://posit.co/resources/videos/tidy-spatial-data-analysis/)), [UseR! 2016](http://pebesma.staff.ifgi.de/pebesma_sfr.pdf)\n* wiki page describing [sp-sf migration](https://github.com/r-spatial/sf/wiki/Migrating)\n\n## Cheatsheet\n[CC 4.0](https://creativecommons.org/licenses/by/4.0/) BY [Ryan Garnett](https://github.com/ryangarnett) \n\n![](\"https://raw.githubusercontent.com/rstudio/cheatsheets/main/pngs/sf.png\")
\n\n## Installing\n\nInstall either from CRAN with:\n```r\ninstall.packages(\"sf\")\n```\nThis will install binary packages on Windows and MacOS, unless you configured R such that it tries to install source packages; in that case, see below.\n\nInstall development versions from GitHub with:\n```r\nlibrary(remotes)\ninstall_github(\"r-spatial/sf\")\n```\n\n### Windows\n\nInstalling sf from source works under Windows when [Rtools](https://cran.r-project.org/bin/windows/Rtools/) is installed.\n\n### MacOS\n\nMacOS users are strongly encouraged to install the `sf` binary packages from CRAN, unless they are familiar with compilers, linking, C++ source code, and homebrew. If you experience that R tries to install `sf` from source (or otherwise your install fails but you don't understand what is going on) try again by explicitly installing the binary, using\n\n```r\ninstall.packages(\"sf\", type = \"binary\")\n```\n\nThe remainder of this section is for those who understand what source installs mean, and imply.\n\nPerhaps the easiest way of an install from source is to first install `gdal` using Homebrew. Recent versions of Homebrew include a full-featured up-to-date [gdal formula](https://github.com/Homebrew/homebrew-core/blob/master/Formula/g/gdal.rb), which installs `proj` and `gdal` at the same time:\n\n```\nbrew install pkg-config\nbrew install gdal\n```\n\nOnce gdal is installed, you may be able to install `sf` package from source in R. With the current version of `proj` on homebrew, installation requires additional configuration:\n\n```r\ninstall.packages(\"sf\", type = \"source\", configure.args = \"--with-proj-lib=$(brew --prefix)/lib/\")\n```\n\nOr the development version:\n\n```r\nlibrary(remotes)\ninstall_github(\"r-spatial/sf\", configure.args = \"--with-proj-lib=$(brew --prefix)/lib/\")\n```\n\nAlternatively, [these instructions](https://stat.ethz.ch/pipermail/r-sig-mac/2017-June/012429.html) explain how to install gdal using kyngchaos frameworks.\n\nFor Mac OS 11 Big Sur source install instruction, see [here](https://github.com/r-spatial/sf/issues/1536#issuecomment-727342736)\n\n### Linux\n\nFor Unix-alikes, GDAL (>= 2.0.1), GEOS (>= 3.4.0) and PROJ (>= 4.8.0) are required.\n\n#### Ubuntu\n\nDependencies for recent versions of Ubuntu (18.04 and later) are available in the official repositories; you can install them with:\n\n```sh\nsudo apt -y update && apt install -y libudunits2-dev libgdal-dev libgeos-dev libproj-dev libsqlite3-dev\n```\n\nHowever, to get more up-to-date versions of dependencies such as GDAL, GEOS and PROJ we recommend adding the [ubuntugis-unstable](http://ppa.launchpad.net/ubuntugis/ubuntugis-unstable/ubuntu/) PPA to the package repositories and installing them as follows:\n\n```sh\nsudo add-apt-repository ppa:ubuntugis/ubuntugis-unstable\nsudo apt update\nsudo apt install libudunits2-dev libgdal-dev libgeos-dev libproj-dev libsqlite3-dev\n```\n\nAdding this PPA is required for installing `sf` on older versions of Ubuntu (e.g. Xenial).\n\nAnother option, for advanced users, is to install dependencies from source; see e.g. an older [Travis](https://github.com/r-spatial/sf/blob/593ee48b34001fe3b383ea73ea57063ecf690732/.travis.yml) config file for hints.\n\n#### Fedora\nThe following command installs all required dependencies:\n```sh\nsudo dnf install gdal-devel proj-devel geos-devel sqlite-devel udunits2-devel\n```\n\n#### Arch\n\nGet gdal, proj, geos and podofo from the main repos, and udunits from the AUR:\n\n```\npacman -S gdal proj geos arrow podofo\nyay/pacaur/yaourt/whatever -S udunits\n```\n\n#### `renv` or `conda`\n\nThere are several reports that `sf` fails to install as a source package when R is used with `renv`, or when R is installed in a `conda` environment. If you experience this, please only raise an issue here if the problem persists without `renv` or `conda`, and otherwise \n\n* try to sort this out with the `renv` developers or the `conda` maintainers, or\n* try to use binary installs of the `sf` package, e.g. from [r2u](https://github.com/eddelbuettel/r2u), or the Posit package manager\n\n#### Other\n\nTo install on Debian, the [rocker geospatial](https://github.com/rocker-org/geospatial) Dockerfiles may be helpful. Ubuntu Dockerfiles are found [here](https://github.com/r-spatial/sf/tree/main/inst/docker).\n\n### Support for (Geo)Parquet and Arrow\n\n`sf` links to GDAL, but does not control how GDAL was configured and built. Not every GDAL installation has built-in support for GeoParquet or Arrow. Please see [this issue](https://github.com/r-spatial/sf/issues/2585), or configure and compile GDAL with Parquet support e.g. using [this Dockerfile](https://github.com/r-spatial/sf/tree/main/inst/docker/parquet).\n\n### Multiple GDAL, GEOS and/or PROJ versions on your system\n\nIf you use dynamic linking (installation from source) and have multiple versions of these libraries installed (e.g. one from ubuntugis-unstable, another installed from source in `/usr/local/lib`) then this will in general not work, even when setting `LD_LIBRARY_PATH` manually. See [here](https://github.com/r-spatial/sf/issues/844) for the reason why. \n\n### lwgeom\n\nFunctions and methods that require `liblwgeom`, including ellipsoidal (not spherical or Euclidean) metrics (area, distances), are provided by and used from [lwgeom](https://github.com/r-spatial/lwgeom), which is also on [CRAN](https://cran.r-project.org/package=lwgeom).\n\n## Contributing\n\n* Contributions of all sorts are most welcome, issues and pull requests are the preferred ways of sharing them.\n* When contributing pull requests, please adhere to the package style (in package code use `=` rather than `<-`; don't change indentation; tab stops of 4 spaces are preferred).\n* This project is released with a [Contributor Code of Conduct](CONDUCT.md). By participating in this project, you agree to abide by its terms.\n\n## How to cite\n\nPackage `sf` can be cited as: \n\n* Edzer Pebesma, 2018. Simple Features for R: Standardized Support\nfor Spatial Vector Data. The R Journal [10:1, 439-446.](https://journal.r-project.org/archive/2018/RJ-2018-009/index.html)\n\n* Pebesma, E.; Bivand, R. (2023). [Spatial Data Science: With Applications in R](https://r-spatial.org/book/) \n(1st ed.). 314 pages. [Chapman and Hall/CRC](https://doi.org/10.1201/9780429459016).\n\n## Acknowledgment\n\nThis project gratefully acknowledges financial [support](https://www.r-consortium.org/projects) from the\n\n\n![](\"https://r-consortium.org/images/RConsortium_Horizontal_Pantone.webp\")
\n\n\n\n"
},
{
"path": "_pkgdown.yml",
"content": "url: https://r-spatial.github.io/sf/\n\ntemplate:\n bootstrap: 5\n\nnavbar:\n structure:\n left: [reference, articles, book, news]\n right: [search, github]\n components:\n book:\n text: Book\n href: https://r-spatial.org/book/\n"
},
{
"path": "cleanup",
"content": "#!/bin/sh\nrm -fr src/Makevars config.log config.status autom4te.cache src/*.o src/*.so\nrm -fr vignette/nc*\nrm -fr proj_conf_test*\nrm -fr Rplots.pdf */Rplots.pdf\n"
},
{
"path": "codecov.yml",
"content": "comment: false\nignore:\n - \"inst/include/sf_RcppExports.h\" \n - \"sf/R/stars.R\"\n - \"sf/R/gdal_utils.R\"\n - \"sf/src/raster2sf.cpp\"\n - \"sf/src/gdal_utils.cpp\"\n - \"sf/src/stars.cpp\"\n\ncoverage:\n status:\n patch:\n default:\n target: 0\n threshold: 100\n project:\n default:\n target: 70\n threshold: 100\n"
},
{
"path": "configure",
"content": "#! /bin/sh\n# Guess values for system-dependent variables and create Makefiles.\n# Generated by GNU Autoconf 2.71.\n#\n#\n# Copyright (C) 1992-1996, 1998-2017, 2020-2021 Free Software Foundation,\n# Inc.\n#\n#\n# This configure script is free software; the Free Software Foundation\n# gives unlimited permission to copy, distribute and modify it.\n## -------------------- ##\n## M4sh Initialization. ##\n## -------------------- ##\n\n# Be more Bourne compatible\nDUALCASE=1; export DUALCASE # for MKS sh\nas_nop=:\nif test ${ZSH_VERSION+y} && (emulate sh) >/dev/null 2>&1\nthen :\n emulate sh\n NULLCMD=:\n # Pre-4.2 versions of Zsh do word splitting on ${1+\"$@\"}, which\n # is contrary to our usage. Disable this feature.\n alias -g '${1+\"$@\"}'='\"$@\"'\n setopt NO_GLOB_SUBST\nelse $as_nop\n case `(set -o) 2>/dev/null` in #(\n *posix*) :\n set -o posix ;; #(\n *) :\n ;;\nesac\nfi\n\n\n\n# Reset variables that may have inherited troublesome values from\n# the environment.\n\n# IFS needs to be set, to space, tab, and newline, in precisely that order.\n# (If _AS_PATH_WALK were called with IFS unset, it would have the\n# side effect of setting IFS to empty, thus disabling word splitting.)\n# Quoting is to prevent editors from complaining about space-tab.\nas_nl='\n'\nexport as_nl\nIFS=\" \"\"\t$as_nl\"\n\nPS1='$ '\nPS2='> '\nPS4='+ '\n\n# Ensure predictable behavior from utilities with locale-dependent output.\nLC_ALL=C\nexport LC_ALL\nLANGUAGE=C\nexport LANGUAGE\n\n# We cannot yet rely on \"unset\" to work, but we need these variables\n# to be unset--not just set to an empty or harmless value--now, to\n# avoid bugs in old shells (e.g. pre-3.0 UWIN ksh). This construct\n# also avoids known problems related to \"unset\" and subshell syntax\n# in other old shells (e.g. bash 2.01 and pdksh 5.2.14).\nfor as_var in BASH_ENV ENV MAIL MAILPATH CDPATH\ndo eval test \\${$as_var+y} \\\n && ( (unset $as_var) || exit 1) >/dev/null 2>&1 && unset $as_var || :\ndone\n\n# Ensure that fds 0, 1, and 2 are open.\nif (exec 3>&0) 2>/dev/null; then :; else exec 0&1) 2>/dev/null; then :; else exec 1>/dev/null; fi\nif (exec 3>&2) ; then :; else exec 2>/dev/null; fi\n\n# The user is always right.\nif ${PATH_SEPARATOR+false} :; then\n PATH_SEPARATOR=:\n (PATH='/bin;/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 && {\n (PATH='/bin:/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 ||\n PATH_SEPARATOR=';'\n }\nfi\n\n\n# Find who we are. Look in the path if we contain no directory separator.\nas_myself=\ncase $0 in #((\n *[\\\\/]* ) as_myself=$0 ;;\n *) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR\nfor as_dir in $PATH\ndo\n IFS=$as_save_IFS\n case $as_dir in #(((\n '') as_dir=./ ;;\n */) ;;\n *) as_dir=$as_dir/ ;;\n esac\n test -r \"$as_dir$0\" && as_myself=$as_dir$0 && break\n done\nIFS=$as_save_IFS\n\n ;;\nesac\n# We did not find ourselves, most probably we were run as `sh COMMAND'\n# in which case we are not to be found in the path.\nif test \"x$as_myself\" = x; then\n as_myself=$0\nfi\nif test ! -f \"$as_myself\"; then\n printf \"%s\\n\" \"$as_myself: error: cannot find myself; rerun with an absolute file name\" >&2\n exit 1\nfi\n\n\n# Use a proper internal environment variable to ensure we don't fall\n # into an infinite loop, continuously re-executing ourselves.\n if test x\"${_as_can_reexec}\" != xno && test \"x$CONFIG_SHELL\" != x; then\n _as_can_reexec=no; export _as_can_reexec;\n # We cannot yet assume a decent shell, so we have to provide a\n# neutralization value for shells without unset; and this also\n# works around shells that cannot unset nonexistent variables.\n# Preserve -v and -x to the replacement shell.\nBASH_ENV=/dev/null\nENV=/dev/null\n(unset BASH_ENV) >/dev/null 2>&1 && unset BASH_ENV ENV\ncase $- in # ((((\n *v*x* | *x*v* ) as_opts=-vx ;;\n *v* ) as_opts=-v ;;\n *x* ) as_opts=-x ;;\n * ) as_opts= ;;\nesac\nexec $CONFIG_SHELL $as_opts \"$as_myself\" ${1+\"$@\"}\n# Admittedly, this is quite paranoid, since all the known shells bail\n# out after a failed `exec'.\nprintf \"%s\\n\" \"$0: could not re-execute with $CONFIG_SHELL\" >&2\nexit 255\n fi\n # We don't want this to propagate to other subprocesses.\n { _as_can_reexec=; unset _as_can_reexec;}\nif test \"x$CONFIG_SHELL\" = x; then\n as_bourne_compatible=\"as_nop=:\nif test \\${ZSH_VERSION+y} && (emulate sh) >/dev/null 2>&1\nthen :\n emulate sh\n NULLCMD=:\n # Pre-4.2 versions of Zsh do word splitting on \\${1+\\\"\\$@\\\"}, which\n # is contrary to our usage. Disable this feature.\n alias -g '\\${1+\\\"\\$@\\\"}'='\\\"\\$@\\\"'\n setopt NO_GLOB_SUBST\nelse \\$as_nop\n case \\`(set -o) 2>/dev/null\\` in #(\n *posix*) :\n set -o posix ;; #(\n *) :\n ;;\nesac\nfi\n\"\n as_required=\"as_fn_return () { (exit \\$1); }\nas_fn_success () { as_fn_return 0; }\nas_fn_failure () { as_fn_return 1; }\nas_fn_ret_success () { return 0; }\nas_fn_ret_failure () { return 1; }\n\nexitcode=0\nas_fn_success || { exitcode=1; echo as_fn_success failed.; }\nas_fn_failure && { exitcode=1; echo as_fn_failure succeeded.; }\nas_fn_ret_success || { exitcode=1; echo as_fn_ret_success failed.; }\nas_fn_ret_failure && { exitcode=1; echo as_fn_ret_failure succeeded.; }\nif ( set x; as_fn_ret_success y && test x = \\\"\\$1\\\" )\nthen :\n\nelse \\$as_nop\n exitcode=1; echo positional parameters were not saved.\nfi\ntest x\\$exitcode = x0 || exit 1\nblah=\\$(echo \\$(echo blah))\ntest x\\\"\\$blah\\\" = xblah || exit 1\ntest -x / || exit 1\"\n as_suggested=\" as_lineno_1=\";as_suggested=$as_suggested$LINENO;as_suggested=$as_suggested\" as_lineno_1a=\\$LINENO\n as_lineno_2=\";as_suggested=$as_suggested$LINENO;as_suggested=$as_suggested\" as_lineno_2a=\\$LINENO\n eval 'test \\\"x\\$as_lineno_1'\\$as_run'\\\" != \\\"x\\$as_lineno_2'\\$as_run'\\\" &&\n test \\\"x\\`expr \\$as_lineno_1'\\$as_run' + 1\\`\\\" = \\\"x\\$as_lineno_2'\\$as_run'\\\"' || exit 1\"\n if (eval \"$as_required\") 2>/dev/null\nthen :\n as_have_required=yes\nelse $as_nop\n as_have_required=no\nfi\n if test x$as_have_required = xyes && (eval \"$as_suggested\") 2>/dev/null\nthen :\n\nelse $as_nop\n as_save_IFS=$IFS; IFS=$PATH_SEPARATOR\nas_found=false\nfor as_dir in /bin$PATH_SEPARATOR/usr/bin$PATH_SEPARATOR$PATH\ndo\n IFS=$as_save_IFS\n case $as_dir in #(((\n '') as_dir=./ ;;\n */) ;;\n *) as_dir=$as_dir/ ;;\n esac\n as_found=:\n case $as_dir in #(\n\t /*)\n\t for as_base in sh bash ksh sh5; do\n\t # Try only shells that exist, to save several forks.\n\t as_shell=$as_dir$as_base\n\t if { test -f \"$as_shell\" || test -f \"$as_shell.exe\"; } &&\n\t\t as_run=a \"$as_shell\" -c \"$as_bourne_compatible\"\"$as_required\" 2>/dev/null\nthen :\n CONFIG_SHELL=$as_shell as_have_required=yes\n\t\t if as_run=a \"$as_shell\" -c \"$as_bourne_compatible\"\"$as_suggested\" 2>/dev/null\nthen :\n break 2\nfi\nfi\n\t done;;\n esac\n as_found=false\ndone\nIFS=$as_save_IFS\nif $as_found\nthen :\n\nelse $as_nop\n if { test -f \"$SHELL\" || test -f \"$SHELL.exe\"; } &&\n\t as_run=a \"$SHELL\" -c \"$as_bourne_compatible\"\"$as_required\" 2>/dev/null\nthen :\n CONFIG_SHELL=$SHELL as_have_required=yes\nfi\nfi\n\n\n if test \"x$CONFIG_SHELL\" != x\nthen :\n export CONFIG_SHELL\n # We cannot yet assume a decent shell, so we have to provide a\n# neutralization value for shells without unset; and this also\n# works around shells that cannot unset nonexistent variables.\n# Preserve -v and -x to the replacement shell.\nBASH_ENV=/dev/null\nENV=/dev/null\n(unset BASH_ENV) >/dev/null 2>&1 && unset BASH_ENV ENV\ncase $- in # ((((\n *v*x* | *x*v* ) as_opts=-vx ;;\n *v* ) as_opts=-v ;;\n *x* ) as_opts=-x ;;\n * ) as_opts= ;;\nesac\nexec $CONFIG_SHELL $as_opts \"$as_myself\" ${1+\"$@\"}\n# Admittedly, this is quite paranoid, since all the known shells bail\n# out after a failed `exec'.\nprintf \"%s\\n\" \"$0: could not re-execute with $CONFIG_SHELL\" >&2\nexit 255\nfi\n\n if test x$as_have_required = xno\nthen :\n printf \"%s\\n\" \"$0: This script requires a shell more modern than all\"\n printf \"%s\\n\" \"$0: the shells that I found on your system.\"\n if test ${ZSH_VERSION+y} ; then\n printf \"%s\\n\" \"$0: In particular, zsh $ZSH_VERSION has bugs and should\"\n printf \"%s\\n\" \"$0: be upgraded to zsh 4.3.4 or later.\"\n else\n printf \"%s\\n\" \"$0: Please tell bug-autoconf@gnu.org about your system,\n$0: including any error possibly output before this\n$0: message. Then install a modern shell, or manually run\n$0: the script under such a shell if you do have one.\"\n fi\n exit 1\nfi\nfi\nfi\nSHELL=${CONFIG_SHELL-/bin/sh}\nexport SHELL\n# Unset more variables known to interfere with behavior of common tools.\nCLICOLOR_FORCE= GREP_OPTIONS=\nunset CLICOLOR_FORCE GREP_OPTIONS\n\n## --------------------- ##\n## M4sh Shell Functions. ##\n## --------------------- ##\n# as_fn_unset VAR\n# ---------------\n# Portably unset VAR.\nas_fn_unset ()\n{\n { eval $1=; unset $1;}\n}\nas_unset=as_fn_unset\n\n\n# as_fn_set_status STATUS\n# -----------------------\n# Set $? to STATUS, without forking.\nas_fn_set_status ()\n{\n return $1\n} # as_fn_set_status\n\n# as_fn_exit STATUS\n# -----------------\n# Exit the shell with STATUS, even in a \"trap 0\" or \"set -e\" context.\nas_fn_exit ()\n{\n set +e\n as_fn_set_status $1\n exit $1\n} # as_fn_exit\n# as_fn_nop\n# ---------\n# Do nothing but, unlike \":\", preserve the value of $?.\nas_fn_nop ()\n{\n return $?\n}\nas_nop=as_fn_nop\n\n# as_fn_mkdir_p\n# -------------\n# Create \"$as_dir\" as a directory, including parents if necessary.\nas_fn_mkdir_p ()\n{\n\n case $as_dir in #(\n -*) as_dir=./$as_dir;;\n esac\n test -d \"$as_dir\" || eval $as_mkdir_p || {\n as_dirs=\n while :; do\n case $as_dir in #(\n *\\'*) as_qdir=`printf \"%s\\n\" \"$as_dir\" | sed \"s/'/'\\\\\\\\\\\\\\\\''/g\"`;; #'(\n *) as_qdir=$as_dir;;\n esac\n as_dirs=\"'$as_qdir' $as_dirs\"\n as_dir=`$as_dirname -- \"$as_dir\" ||\n$as_expr X\"$as_dir\" : 'X\\(.*[^/]\\)//*[^/][^/]*/*$' \\| \\\n\t X\"$as_dir\" : 'X\\(//\\)[^/]' \\| \\\n\t X\"$as_dir\" : 'X\\(//\\)$' \\| \\\n\t X\"$as_dir\" : 'X\\(/\\)' \\| . 2>/dev/null ||\nprintf \"%s\\n\" X\"$as_dir\" |\n sed '/^X\\(.*[^/]\\)\\/\\/*[^/][^/]*\\/*$/{\n\t s//\\1/\n\t q\n\t }\n\t /^X\\(\\/\\/\\)[^/].*/{\n\t s//\\1/\n\t q\n\t }\n\t /^X\\(\\/\\/\\)$/{\n\t s//\\1/\n\t q\n\t }\n\t /^X\\(\\/\\).*/{\n\t s//\\1/\n\t q\n\t }\n\t s/.*/./; q'`\n test -d \"$as_dir\" && break\n done\n test -z \"$as_dirs\" || eval \"mkdir $as_dirs\"\n } || test -d \"$as_dir\" || as_fn_error $? \"cannot create directory $as_dir\"\n\n\n} # as_fn_mkdir_p\n\n# as_fn_executable_p FILE\n# -----------------------\n# Test if FILE is an executable regular file.\nas_fn_executable_p ()\n{\n test -f \"$1\" && test -x \"$1\"\n} # as_fn_executable_p\n# as_fn_append VAR VALUE\n# ----------------------\n# Append the text in VALUE to the end of the definition contained in VAR. Take\n# advantage of any shell optimizations that allow amortized linear growth over\n# repeated appends, instead of the typical quadratic growth present in naive\n# implementations.\nif (eval \"as_var=1; as_var+=2; test x\\$as_var = x12\") 2>/dev/null\nthen :\n eval 'as_fn_append ()\n {\n eval $1+=\\$2\n }'\nelse $as_nop\n as_fn_append ()\n {\n eval $1=\\$$1\\$2\n }\nfi # as_fn_append\n\n# as_fn_arith ARG...\n# ------------------\n# Perform arithmetic evaluation on the ARGs, and store the result in the\n# global $as_val. Take advantage of shells that can avoid forks. The arguments\n# must be portable across $(()) and expr.\nif (eval \"test \\$(( 1 + 1 )) = 2\") 2>/dev/null\nthen :\n eval 'as_fn_arith ()\n {\n as_val=$(( $* ))\n }'\nelse $as_nop\n as_fn_arith ()\n {\n as_val=`expr \"$@\" || test $? -eq 1`\n }\nfi # as_fn_arith\n\n# as_fn_nop\n# ---------\n# Do nothing but, unlike \":\", preserve the value of $?.\nas_fn_nop ()\n{\n return $?\n}\nas_nop=as_fn_nop\n\n# as_fn_error STATUS ERROR [LINENO LOG_FD]\n# ----------------------------------------\n# Output \"`basename $0`: error: ERROR\" to stderr. If LINENO and LOG_FD are\n# provided, also output the error to LOG_FD, referencing LINENO. Then exit the\n# script with STATUS, using 1 if that was 0.\nas_fn_error ()\n{\n as_status=$1; test $as_status -eq 0 && as_status=1\n if test \"$4\"; then\n as_lineno=${as_lineno-\"$3\"} as_lineno_stack=as_lineno_stack=$as_lineno_stack\n printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: error: $2\" >&$4\n fi\n printf \"%s\\n\" \"$as_me: error: $2\" >&2\n as_fn_exit $as_status\n} # as_fn_error\n\nif expr a : '\\(a\\)' >/dev/null 2>&1 &&\n test \"X`expr 00001 : '.*\\(...\\)'`\" = X001; then\n as_expr=expr\nelse\n as_expr=false\nfi\n\nif (basename -- /) >/dev/null 2>&1 && test \"X`basename -- / 2>&1`\" = \"X/\"; then\n as_basename=basename\nelse\n as_basename=false\nfi\n\nif (as_dir=`dirname -- /` && test \"X$as_dir\" = X/) >/dev/null 2>&1; then\n as_dirname=dirname\nelse\n as_dirname=false\nfi\n\nas_me=`$as_basename -- \"$0\" ||\n$as_expr X/\"$0\" : '.*/\\([^/][^/]*\\)/*$' \\| \\\n\t X\"$0\" : 'X\\(//\\)$' \\| \\\n\t X\"$0\" : 'X\\(/\\)' \\| . 2>/dev/null ||\nprintf \"%s\\n\" X/\"$0\" |\n sed '/^.*\\/\\([^/][^/]*\\)\\/*$/{\n\t s//\\1/\n\t q\n\t }\n\t /^X\\/\\(\\/\\/\\)$/{\n\t s//\\1/\n\t q\n\t }\n\t /^X\\/\\(\\/\\).*/{\n\t s//\\1/\n\t q\n\t }\n\t s/.*/./; q'`\n\n# Avoid depending upon Character Ranges.\nas_cr_letters='abcdefghijklmnopqrstuvwxyz'\nas_cr_LETTERS='ABCDEFGHIJKLMNOPQRSTUVWXYZ'\nas_cr_Letters=$as_cr_letters$as_cr_LETTERS\nas_cr_digits='0123456789'\nas_cr_alnum=$as_cr_Letters$as_cr_digits\n\n\n as_lineno_1=$LINENO as_lineno_1a=$LINENO\n as_lineno_2=$LINENO as_lineno_2a=$LINENO\n eval 'test \"x$as_lineno_1'$as_run'\" != \"x$as_lineno_2'$as_run'\" &&\n test \"x`expr $as_lineno_1'$as_run' + 1`\" = \"x$as_lineno_2'$as_run'\"' || {\n # Blame Lee E. McMahon (1931-1989) for sed's syntax. :-)\n sed -n '\n p\n /[$]LINENO/=\n ' <$as_myself |\n sed '\n s/[$]LINENO.*/&-/\n t lineno\n b\n :lineno\n N\n :loop\n s/[$]LINENO\\([^'$as_cr_alnum'_].*\\n\\)\\(.*\\)/\\2\\1\\2/\n t loop\n s/-\\n.*//\n ' >$as_me.lineno &&\n chmod +x \"$as_me.lineno\" ||\n { printf \"%s\\n\" \"$as_me: error: cannot create $as_me.lineno; rerun with a POSIX shell\" >&2; as_fn_exit 1; }\n\n # If we had to re-execute with $CONFIG_SHELL, we're ensured to have\n # already done that, so ensure we don't try to do so again and fall\n # in an infinite loop. This has already happened in practice.\n _as_can_reexec=no; export _as_can_reexec\n # Don't try to exec as it changes $[0], causing all sort of problems\n # (the dirname of $[0] is not the place where we might find the\n # original and so on. Autoconf is especially sensitive to this).\n . \"./$as_me.lineno\"\n # Exit status is that of the last command.\n exit\n}\n\n\n# Determine whether it's possible to make 'echo' print without a newline.\n# These variables are no longer used directly by Autoconf, but are AC_SUBSTed\n# for compatibility with existing Makefiles.\nECHO_C= ECHO_N= ECHO_T=\ncase `echo -n x` in #(((((\n-n*)\n case `echo 'xy\\c'` in\n *c*) ECHO_T='\t';;\t# ECHO_T is single tab character.\n xy) ECHO_C='\\c';;\n *) echo `echo ksh88 bug on AIX 6.1` > /dev/null\n ECHO_T='\t';;\n esac;;\n*)\n ECHO_N='-n';;\nesac\n\n# For backward compatibility with old third-party macros, we provide\n# the shell variables $as_echo and $as_echo_n. New code should use\n# AS_ECHO([\"message\"]) and AS_ECHO_N([\"message\"]), respectively.\nas_echo='printf %s\\n'\nas_echo_n='printf %s'\n\n\nrm -f conf$$ conf$$.exe conf$$.file\nif test -d conf$$.dir; then\n rm -f conf$$.dir/conf$$.file\nelse\n rm -f conf$$.dir\n mkdir conf$$.dir 2>/dev/null\nfi\nif (echo >conf$$.file) 2>/dev/null; then\n if ln -s conf$$.file conf$$ 2>/dev/null; then\n as_ln_s='ln -s'\n # ... but there are two gotchas:\n # 1) On MSYS, both `ln -s file dir' and `ln file dir' fail.\n # 2) DJGPP < 2.04 has no symlinks; `ln -s' creates a wrapper executable.\n # In both cases, we have to default to `cp -pR'.\n ln -s conf$$.file conf$$.dir 2>/dev/null && test ! -f conf$$.exe ||\n as_ln_s='cp -pR'\n elif ln conf$$.file conf$$ 2>/dev/null; then\n as_ln_s=ln\n else\n as_ln_s='cp -pR'\n fi\nelse\n as_ln_s='cp -pR'\nfi\nrm -f conf$$ conf$$.exe conf$$.dir/conf$$.file conf$$.file\nrmdir conf$$.dir 2>/dev/null\n\nif mkdir -p . 2>/dev/null; then\n as_mkdir_p='mkdir -p \"$as_dir\"'\nelse\n test -d ./-p && rmdir ./-p\n as_mkdir_p=false\nfi\n\nas_test_x='test -x'\nas_executable_p=as_fn_executable_p\n\n# Sed expression to map a string onto a valid CPP name.\nas_tr_cpp=\"eval sed 'y%*$as_cr_letters%P$as_cr_LETTERS%;s%[^_$as_cr_alnum]%_%g'\"\n\n# Sed expression to map a string onto a valid variable name.\nas_tr_sh=\"eval sed 'y%*+%pp%;s%[^_$as_cr_alnum]%_%g'\"\n\n\ntest -n \"$DJDIR\" || exec 7<&0 &1\n\n# Name of the host.\n# hostname on some systems (SVR3.2, old GNU/Linux) returns a bogus exit status,\n# so uname gets run too.\nac_hostname=`(hostname || uname -n) 2>/dev/null | sed 1q`\n\n#\n# Initializations.\n#\nac_default_prefix=/usr/local\nac_clean_files=\nac_config_libobj_dir=.\nLIBOBJS=\ncross_compiling=no\nsubdirs=\nMFLAGS=\nMAKEFLAGS=\n\n# Identity of this package.\nPACKAGE_NAME=''\nPACKAGE_TARNAME=''\nPACKAGE_VERSION=''\nPACKAGE_STRING=''\nPACKAGE_BUGREPORT=''\nPACKAGE_URL=''\n\nac_unique_file=\"src/wkb.cpp\"\n# Factoring default headers for most tests.\nac_includes_default=\"\\\n#include \n#ifdef HAVE_STDIO_H\n# include \n#endif\n#ifdef HAVE_STDLIB_H\n# include \n#endif\n#ifdef HAVE_STRING_H\n# include \n#endif\n#ifdef HAVE_INTTYPES_H\n# include \n#endif\n#ifdef HAVE_STDINT_H\n# include \n#endif\n#ifdef HAVE_STRINGS_H\n# include \n#endif\n#ifdef HAVE_SYS_TYPES_H\n# include \n#endif\n#ifdef HAVE_SYS_STAT_H\n# include \n#endif\n#ifdef HAVE_UNISTD_H\n# include \n#endif\"\n\nac_header_c_list=\nac_subst_vars='LTLIBOBJS\nLIBOBJS\nGEOS_CONFIG\nPROJ_LIBS\nPROJ_CPPFLAGS\nSQLITE3_LIBS\nOBJEXT\nEXEEXT\nac_ct_CC\nCPPFLAGS\nLDFLAGS\nCFLAGS\nCC\nPKG_LIBS\nPKG_CPPFLAGS\nGDAL_CONFIG\ntarget_alias\nhost_alias\nbuild_alias\nLIBS\nECHO_T\nECHO_N\nECHO_C\nDEFS\nmandir\nlocaledir\nlibdir\npsdir\npdfdir\ndvidir\nhtmldir\ninfodir\ndocdir\noldincludedir\nincludedir\nrunstatedir\nlocalstatedir\nsharedstatedir\nsysconfdir\ndatadir\ndatarootdir\nlibexecdir\nsbindir\nbindir\nprogram_transform_name\nprefix\nexec_prefix\nPACKAGE_URL\nPACKAGE_BUGREPORT\nPACKAGE_STRING\nPACKAGE_VERSION\nPACKAGE_TARNAME\nPACKAGE_NAME\nPATH_SEPARATOR\nSHELL'\nac_subst_files=''\nac_user_opts='\nenable_option_checking\nwith_gdal_config\nwith_data_copy\nwith_proj_data\nwith_sqlite3_lib\nwith_proj_include\nwith_proj_api\nwith_proj_lib\nwith_proj_share\nwith_geos_config\n'\n ac_precious_vars='build_alias\nhost_alias\ntarget_alias\nCC\nCFLAGS\nLDFLAGS\nLIBS\nCPPFLAGS'\n\n\n# Initialize some variables set by options.\nac_init_help=\nac_init_version=false\nac_unrecognized_opts=\nac_unrecognized_sep=\n# The variables have the same names as the options, with\n# dashes changed to underlines.\ncache_file=/dev/null\nexec_prefix=NONE\nno_create=\nno_recursion=\nprefix=NONE\nprogram_prefix=NONE\nprogram_suffix=NONE\nprogram_transform_name=s,x,x,\nsilent=\nsite=\nsrcdir=\nverbose=\nx_includes=NONE\nx_libraries=NONE\n\n# Installation directory options.\n# These are left unexpanded so users can \"make install exec_prefix=/foo\"\n# and all the variables that are supposed to be based on exec_prefix\n# by default will actually change.\n# Use braces instead of parens because sh, perl, etc. also accept them.\n# (The list follows the same order as the GNU Coding Standards.)\nbindir='${exec_prefix}/bin'\nsbindir='${exec_prefix}/sbin'\nlibexecdir='${exec_prefix}/libexec'\ndatarootdir='${prefix}/share'\ndatadir='${datarootdir}'\nsysconfdir='${prefix}/etc'\nsharedstatedir='${prefix}/com'\nlocalstatedir='${prefix}/var'\nrunstatedir='${localstatedir}/run'\nincludedir='${prefix}/include'\noldincludedir='/usr/include'\ndocdir='${datarootdir}/doc/${PACKAGE}'\ninfodir='${datarootdir}/info'\nhtmldir='${docdir}'\ndvidir='${docdir}'\npdfdir='${docdir}'\npsdir='${docdir}'\nlibdir='${exec_prefix}/lib'\nlocaledir='${datarootdir}/locale'\nmandir='${datarootdir}/man'\n\nac_prev=\nac_dashdash=\nfor ac_option\ndo\n # If the previous option needs an argument, assign it.\n if test -n \"$ac_prev\"; then\n eval $ac_prev=\\$ac_option\n ac_prev=\n continue\n fi\n\n case $ac_option in\n *=?*) ac_optarg=`expr \"X$ac_option\" : '[^=]*=\\(.*\\)'` ;;\n *=) ac_optarg= ;;\n *) ac_optarg=yes ;;\n esac\n\n case $ac_dashdash$ac_option in\n --)\n ac_dashdash=yes ;;\n\n -bindir | --bindir | --bindi | --bind | --bin | --bi)\n ac_prev=bindir ;;\n -bindir=* | --bindir=* | --bindi=* | --bind=* | --bin=* | --bi=*)\n bindir=$ac_optarg ;;\n\n -build | --build | --buil | --bui | --bu)\n ac_prev=build_alias ;;\n -build=* | --build=* | --buil=* | --bui=* | --bu=*)\n build_alias=$ac_optarg ;;\n\n -cache-file | --cache-file | --cache-fil | --cache-fi \\\n | --cache-f | --cache- | --cache | --cach | --cac | --ca | --c)\n ac_prev=cache_file ;;\n -cache-file=* | --cache-file=* | --cache-fil=* | --cache-fi=* \\\n | --cache-f=* | --cache-=* | --cache=* | --cach=* | --cac=* | --ca=* | --c=*)\n cache_file=$ac_optarg ;;\n\n --config-cache | -C)\n cache_file=config.cache ;;\n\n -datadir | --datadir | --datadi | --datad)\n ac_prev=datadir ;;\n -datadir=* | --datadir=* | --datadi=* | --datad=*)\n datadir=$ac_optarg ;;\n\n -datarootdir | --datarootdir | --datarootdi | --datarootd | --dataroot \\\n | --dataroo | --dataro | --datar)\n ac_prev=datarootdir ;;\n -datarootdir=* | --datarootdir=* | --datarootdi=* | --datarootd=* \\\n | --dataroot=* | --dataroo=* | --dataro=* | --datar=*)\n datarootdir=$ac_optarg ;;\n\n -disable-* | --disable-*)\n ac_useropt=`expr \"x$ac_option\" : 'x-*disable-\\(.*\\)'`\n # Reject names that are not valid shell variable names.\n expr \"x$ac_useropt\" : \".*[^-+._$as_cr_alnum]\" >/dev/null &&\n as_fn_error $? \"invalid feature name: \\`$ac_useropt'\"\n ac_useropt_orig=$ac_useropt\n ac_useropt=`printf \"%s\\n\" \"$ac_useropt\" | sed 's/[-+.]/_/g'`\n case $ac_user_opts in\n *\"\n\"enable_$ac_useropt\"\n\"*) ;;\n *) ac_unrecognized_opts=\"$ac_unrecognized_opts$ac_unrecognized_sep--disable-$ac_useropt_orig\"\n\t ac_unrecognized_sep=', ';;\n esac\n eval enable_$ac_useropt=no ;;\n\n -docdir | --docdir | --docdi | --doc | --do)\n ac_prev=docdir ;;\n -docdir=* | --docdir=* | --docdi=* | --doc=* | --do=*)\n docdir=$ac_optarg ;;\n\n -dvidir | --dvidir | --dvidi | --dvid | --dvi | --dv)\n ac_prev=dvidir ;;\n -dvidir=* | --dvidir=* | --dvidi=* | --dvid=* | --dvi=* | --dv=*)\n dvidir=$ac_optarg ;;\n\n -enable-* | --enable-*)\n ac_useropt=`expr \"x$ac_option\" : 'x-*enable-\\([^=]*\\)'`\n # Reject names that are not valid shell variable names.\n expr \"x$ac_useropt\" : \".*[^-+._$as_cr_alnum]\" >/dev/null &&\n as_fn_error $? \"invalid feature name: \\`$ac_useropt'\"\n ac_useropt_orig=$ac_useropt\n ac_useropt=`printf \"%s\\n\" \"$ac_useropt\" | sed 's/[-+.]/_/g'`\n case $ac_user_opts in\n *\"\n\"enable_$ac_useropt\"\n\"*) ;;\n *) ac_unrecognized_opts=\"$ac_unrecognized_opts$ac_unrecognized_sep--enable-$ac_useropt_orig\"\n\t ac_unrecognized_sep=', ';;\n esac\n eval enable_$ac_useropt=\\$ac_optarg ;;\n\n -exec-prefix | --exec_prefix | --exec-prefix | --exec-prefi \\\n | --exec-pref | --exec-pre | --exec-pr | --exec-p | --exec- \\\n | --exec | --exe | --ex)\n ac_prev=exec_prefix ;;\n -exec-prefix=* | --exec_prefix=* | --exec-prefix=* | --exec-prefi=* \\\n | --exec-pref=* | --exec-pre=* | --exec-pr=* | --exec-p=* | --exec-=* \\\n | --exec=* | --exe=* | --ex=*)\n exec_prefix=$ac_optarg ;;\n\n -gas | --gas | --ga | --g)\n # Obsolete; use --with-gas.\n with_gas=yes ;;\n\n -help | --help | --hel | --he | -h)\n ac_init_help=long ;;\n -help=r* | --help=r* | --hel=r* | --he=r* | -hr*)\n ac_init_help=recursive ;;\n -help=s* | --help=s* | --hel=s* | --he=s* | -hs*)\n ac_init_help=short ;;\n\n -host | --host | --hos | --ho)\n ac_prev=host_alias ;;\n -host=* | --host=* | --hos=* | --ho=*)\n host_alias=$ac_optarg ;;\n\n -htmldir | --htmldir | --htmldi | --htmld | --html | --htm | --ht)\n ac_prev=htmldir ;;\n -htmldir=* | --htmldir=* | --htmldi=* | --htmld=* | --html=* | --htm=* \\\n | --ht=*)\n htmldir=$ac_optarg ;;\n\n -includedir | --includedir | --includedi | --included | --include \\\n | --includ | --inclu | --incl | --inc)\n ac_prev=includedir ;;\n -includedir=* | --includedir=* | --includedi=* | --included=* | --include=* \\\n | --includ=* | --inclu=* | --incl=* | --inc=*)\n includedir=$ac_optarg ;;\n\n -infodir | --infodir | --infodi | --infod | --info | --inf)\n ac_prev=infodir ;;\n -infodir=* | --infodir=* | --infodi=* | --infod=* | --info=* | --inf=*)\n infodir=$ac_optarg ;;\n\n -libdir | --libdir | --libdi | --libd)\n ac_prev=libdir ;;\n -libdir=* | --libdir=* | --libdi=* | --libd=*)\n libdir=$ac_optarg ;;\n\n -libexecdir | --libexecdir | --libexecdi | --libexecd | --libexec \\\n | --libexe | --libex | --libe)\n ac_prev=libexecdir ;;\n -libexecdir=* | --libexecdir=* | --libexecdi=* | --libexecd=* | --libexec=* \\\n | --libexe=* | --libex=* | --libe=*)\n libexecdir=$ac_optarg ;;\n\n -localedir | --localedir | --localedi | --localed | --locale)\n ac_prev=localedir ;;\n -localedir=* | --localedir=* | --localedi=* | --localed=* | --locale=*)\n localedir=$ac_optarg ;;\n\n -localstatedir | --localstatedir | --localstatedi | --localstated \\\n | --localstate | --localstat | --localsta | --localst | --locals)\n ac_prev=localstatedir ;;\n -localstatedir=* | --localstatedir=* | --localstatedi=* | --localstated=* \\\n | --localstate=* | --localstat=* | --localsta=* | --localst=* | --locals=*)\n localstatedir=$ac_optarg ;;\n\n -mandir | --mandir | --mandi | --mand | --man | --ma | --m)\n ac_prev=mandir ;;\n -mandir=* | --mandir=* | --mandi=* | --mand=* | --man=* | --ma=* | --m=*)\n mandir=$ac_optarg ;;\n\n -nfp | --nfp | --nf)\n # Obsolete; use --without-fp.\n with_fp=no ;;\n\n -no-create | --no-create | --no-creat | --no-crea | --no-cre \\\n | --no-cr | --no-c | -n)\n no_create=yes ;;\n\n -no-recursion | --no-recursion | --no-recursio | --no-recursi \\\n | --no-recurs | --no-recur | --no-recu | --no-rec | --no-re | --no-r)\n no_recursion=yes ;;\n\n -oldincludedir | --oldincludedir | --oldincludedi | --oldincluded \\\n | --oldinclude | --oldinclud | --oldinclu | --oldincl | --oldinc \\\n | --oldin | --oldi | --old | --ol | --o)\n ac_prev=oldincludedir ;;\n -oldincludedir=* | --oldincludedir=* | --oldincludedi=* | --oldincluded=* \\\n | --oldinclude=* | --oldinclud=* | --oldinclu=* | --oldincl=* | --oldinc=* \\\n | --oldin=* | --oldi=* | --old=* | --ol=* | --o=*)\n oldincludedir=$ac_optarg ;;\n\n -prefix | --prefix | --prefi | --pref | --pre | --pr | --p)\n ac_prev=prefix ;;\n -prefix=* | --prefix=* | --prefi=* | --pref=* | --pre=* | --pr=* | --p=*)\n prefix=$ac_optarg ;;\n\n -program-prefix | --program-prefix | --program-prefi | --program-pref \\\n | --program-pre | --program-pr | --program-p)\n ac_prev=program_prefix ;;\n -program-prefix=* | --program-prefix=* | --program-prefi=* \\\n | --program-pref=* | --program-pre=* | --program-pr=* | --program-p=*)\n program_prefix=$ac_optarg ;;\n\n -program-suffix | --program-suffix | --program-suffi | --program-suff \\\n | --program-suf | --program-su | --program-s)\n ac_prev=program_suffix ;;\n -program-suffix=* | --program-suffix=* | --program-suffi=* \\\n | --program-suff=* | --program-suf=* | --program-su=* | --program-s=*)\n program_suffix=$ac_optarg ;;\n\n -program-transform-name | --program-transform-name \\\n | --program-transform-nam | --program-transform-na \\\n | --program-transform-n | --program-transform- \\\n | --program-transform | --program-transfor \\\n | --program-transfo | --program-transf \\\n | --program-trans | --program-tran \\\n | --progr-tra | --program-tr | --program-t)\n ac_prev=program_transform_name ;;\n -program-transform-name=* | --program-transform-name=* \\\n | --program-transform-nam=* | --program-transform-na=* \\\n | --program-transform-n=* | --program-transform-=* \\\n | --program-transform=* | --program-transfor=* \\\n | --program-transfo=* | --program-transf=* \\\n | --program-trans=* | --program-tran=* \\\n | --progr-tra=* | --program-tr=* | --program-t=*)\n program_transform_name=$ac_optarg ;;\n\n -pdfdir | --pdfdir | --pdfdi | --pdfd | --pdf | --pd)\n ac_prev=pdfdir ;;\n -pdfdir=* | --pdfdir=* | --pdfdi=* | --pdfd=* | --pdf=* | --pd=*)\n pdfdir=$ac_optarg ;;\n\n -psdir | --psdir | --psdi | --psd | --ps)\n ac_prev=psdir ;;\n -psdir=* | --psdir=* | --psdi=* | --psd=* | --ps=*)\n psdir=$ac_optarg ;;\n\n -q | -quiet | --quiet | --quie | --qui | --qu | --q \\\n | -silent | --silent | --silen | --sile | --sil)\n silent=yes ;;\n\n -runstatedir | --runstatedir | --runstatedi | --runstated \\\n | --runstate | --runstat | --runsta | --runst | --runs \\\n | --run | --ru | --r)\n ac_prev=runstatedir ;;\n -runstatedir=* | --runstatedir=* | --runstatedi=* | --runstated=* \\\n | --runstate=* | --runstat=* | --runsta=* | --runst=* | --runs=* \\\n | --run=* | --ru=* | --r=*)\n runstatedir=$ac_optarg ;;\n\n -sbindir | --sbindir | --sbindi | --sbind | --sbin | --sbi | --sb)\n ac_prev=sbindir ;;\n -sbindir=* | --sbindir=* | --sbindi=* | --sbind=* | --sbin=* \\\n | --sbi=* | --sb=*)\n sbindir=$ac_optarg ;;\n\n -sharedstatedir | --sharedstatedir | --sharedstatedi \\\n | --sharedstated | --sharedstate | --sharedstat | --sharedsta \\\n | --sharedst | --shareds | --shared | --share | --shar \\\n | --sha | --sh)\n ac_prev=sharedstatedir ;;\n -sharedstatedir=* | --sharedstatedir=* | --sharedstatedi=* \\\n | --sharedstated=* | --sharedstate=* | --sharedstat=* | --sharedsta=* \\\n | --sharedst=* | --shareds=* | --shared=* | --share=* | --shar=* \\\n | --sha=* | --sh=*)\n sharedstatedir=$ac_optarg ;;\n\n -site | --site | --sit)\n ac_prev=site ;;\n -site=* | --site=* | --sit=*)\n site=$ac_optarg ;;\n\n -srcdir | --srcdir | --srcdi | --srcd | --src | --sr)\n ac_prev=srcdir ;;\n -srcdir=* | --srcdir=* | --srcdi=* | --srcd=* | --src=* | --sr=*)\n srcdir=$ac_optarg ;;\n\n -sysconfdir | --sysconfdir | --sysconfdi | --sysconfd | --sysconf \\\n | --syscon | --sysco | --sysc | --sys | --sy)\n ac_prev=sysconfdir ;;\n -sysconfdir=* | --sysconfdir=* | --sysconfdi=* | --sysconfd=* | --sysconf=* \\\n | --syscon=* | --sysco=* | --sysc=* | --sys=* | --sy=*)\n sysconfdir=$ac_optarg ;;\n\n -target | --target | --targe | --targ | --tar | --ta | --t)\n ac_prev=target_alias ;;\n -target=* | --target=* | --targe=* | --targ=* | --tar=* | --ta=* | --t=*)\n target_alias=$ac_optarg ;;\n\n -v | -verbose | --verbose | --verbos | --verbo | --verb)\n verbose=yes ;;\n\n -version | --version | --versio | --versi | --vers | -V)\n ac_init_version=: ;;\n\n -with-* | --with-*)\n ac_useropt=`expr \"x$ac_option\" : 'x-*with-\\([^=]*\\)'`\n # Reject names that are not valid shell variable names.\n expr \"x$ac_useropt\" : \".*[^-+._$as_cr_alnum]\" >/dev/null &&\n as_fn_error $? \"invalid package name: \\`$ac_useropt'\"\n ac_useropt_orig=$ac_useropt\n ac_useropt=`printf \"%s\\n\" \"$ac_useropt\" | sed 's/[-+.]/_/g'`\n case $ac_user_opts in\n *\"\n\"with_$ac_useropt\"\n\"*) ;;\n *) ac_unrecognized_opts=\"$ac_unrecognized_opts$ac_unrecognized_sep--with-$ac_useropt_orig\"\n\t ac_unrecognized_sep=', ';;\n esac\n eval with_$ac_useropt=\\$ac_optarg ;;\n\n -without-* | --without-*)\n ac_useropt=`expr \"x$ac_option\" : 'x-*without-\\(.*\\)'`\n # Reject names that are not valid shell variable names.\n expr \"x$ac_useropt\" : \".*[^-+._$as_cr_alnum]\" >/dev/null &&\n as_fn_error $? \"invalid package name: \\`$ac_useropt'\"\n ac_useropt_orig=$ac_useropt\n ac_useropt=`printf \"%s\\n\" \"$ac_useropt\" | sed 's/[-+.]/_/g'`\n case $ac_user_opts in\n *\"\n\"with_$ac_useropt\"\n\"*) ;;\n *) ac_unrecognized_opts=\"$ac_unrecognized_opts$ac_unrecognized_sep--without-$ac_useropt_orig\"\n\t ac_unrecognized_sep=', ';;\n esac\n eval with_$ac_useropt=no ;;\n\n --x)\n # Obsolete; use --with-x.\n with_x=yes ;;\n\n -x-includes | --x-includes | --x-include | --x-includ | --x-inclu \\\n | --x-incl | --x-inc | --x-in | --x-i)\n ac_prev=x_includes ;;\n -x-includes=* | --x-includes=* | --x-include=* | --x-includ=* | --x-inclu=* \\\n | --x-incl=* | --x-inc=* | --x-in=* | --x-i=*)\n x_includes=$ac_optarg ;;\n\n -x-libraries | --x-libraries | --x-librarie | --x-librari \\\n | --x-librar | --x-libra | --x-libr | --x-lib | --x-li | --x-l)\n ac_prev=x_libraries ;;\n -x-libraries=* | --x-libraries=* | --x-librarie=* | --x-librari=* \\\n | --x-librar=* | --x-libra=* | --x-libr=* | --x-lib=* | --x-li=* | --x-l=*)\n x_libraries=$ac_optarg ;;\n\n -*) as_fn_error $? \"unrecognized option: \\`$ac_option'\nTry \\`$0 --help' for more information\"\n ;;\n\n *=*)\n ac_envvar=`expr \"x$ac_option\" : 'x\\([^=]*\\)='`\n # Reject names that are not valid shell variable names.\n case $ac_envvar in #(\n '' | [0-9]* | *[!_$as_cr_alnum]* )\n as_fn_error $? \"invalid variable name: \\`$ac_envvar'\" ;;\n esac\n eval $ac_envvar=\\$ac_optarg\n export $ac_envvar ;;\n\n *)\n # FIXME: should be removed in autoconf 3.0.\n printf \"%s\\n\" \"$as_me: WARNING: you should use --build, --host, --target\" >&2\n expr \"x$ac_option\" : \".*[^-._$as_cr_alnum]\" >/dev/null &&\n printf \"%s\\n\" \"$as_me: WARNING: invalid host type: $ac_option\" >&2\n : \"${build_alias=$ac_option} ${host_alias=$ac_option} ${target_alias=$ac_option}\"\n ;;\n\n esac\ndone\n\nif test -n \"$ac_prev\"; then\n ac_option=--`echo $ac_prev | sed 's/_/-/g'`\n as_fn_error $? \"missing argument to $ac_option\"\nfi\n\nif test -n \"$ac_unrecognized_opts\"; then\n case $enable_option_checking in\n no) ;;\n fatal) as_fn_error $? \"unrecognized options: $ac_unrecognized_opts\" ;;\n *) printf \"%s\\n\" \"$as_me: WARNING: unrecognized options: $ac_unrecognized_opts\" >&2 ;;\n esac\nfi\n\n# Check all directory arguments for consistency.\nfor ac_var in\texec_prefix prefix bindir sbindir libexecdir datarootdir \\\n\t\tdatadir sysconfdir sharedstatedir localstatedir includedir \\\n\t\toldincludedir docdir infodir htmldir dvidir pdfdir psdir \\\n\t\tlibdir localedir mandir runstatedir\ndo\n eval ac_val=\\$$ac_var\n # Remove trailing slashes.\n case $ac_val in\n */ )\n ac_val=`expr \"X$ac_val\" : 'X\\(.*[^/]\\)' \\| \"X$ac_val\" : 'X\\(.*\\)'`\n eval $ac_var=\\$ac_val;;\n esac\n # Be sure to have absolute directory names.\n case $ac_val in\n [\\\\/$]* | ?:[\\\\/]* ) continue;;\n NONE | '' ) case $ac_var in *prefix ) continue;; esac;;\n esac\n as_fn_error $? \"expected an absolute directory name for --$ac_var: $ac_val\"\ndone\n\n# There might be people who depend on the old broken behavior: `$host'\n# used to hold the argument of --host etc.\n# FIXME: To remove some day.\nbuild=$build_alias\nhost=$host_alias\ntarget=$target_alias\n\n# FIXME: To remove some day.\nif test \"x$host_alias\" != x; then\n if test \"x$build_alias\" = x; then\n cross_compiling=maybe\n elif test \"x$build_alias\" != \"x$host_alias\"; then\n cross_compiling=yes\n fi\nfi\n\nac_tool_prefix=\ntest -n \"$host_alias\" && ac_tool_prefix=$host_alias-\n\ntest \"$silent\" = yes && exec 6>/dev/null\n\n\nac_pwd=`pwd` && test -n \"$ac_pwd\" &&\nac_ls_di=`ls -di .` &&\nac_pwd_ls_di=`cd \"$ac_pwd\" && ls -di .` ||\n as_fn_error $? \"working directory cannot be determined\"\ntest \"X$ac_ls_di\" = \"X$ac_pwd_ls_di\" ||\n as_fn_error $? \"pwd does not report name of working directory\"\n\n\n# Find the source files, if location was not specified.\nif test -z \"$srcdir\"; then\n ac_srcdir_defaulted=yes\n # Try the directory containing this script, then the parent directory.\n ac_confdir=`$as_dirname -- \"$as_myself\" ||\n$as_expr X\"$as_myself\" : 'X\\(.*[^/]\\)//*[^/][^/]*/*$' \\| \\\n\t X\"$as_myself\" : 'X\\(//\\)[^/]' \\| \\\n\t X\"$as_myself\" : 'X\\(//\\)$' \\| \\\n\t X\"$as_myself\" : 'X\\(/\\)' \\| . 2>/dev/null ||\nprintf \"%s\\n\" X\"$as_myself\" |\n sed '/^X\\(.*[^/]\\)\\/\\/*[^/][^/]*\\/*$/{\n\t s//\\1/\n\t q\n\t }\n\t /^X\\(\\/\\/\\)[^/].*/{\n\t s//\\1/\n\t q\n\t }\n\t /^X\\(\\/\\/\\)$/{\n\t s//\\1/\n\t q\n\t }\n\t /^X\\(\\/\\).*/{\n\t s//\\1/\n\t q\n\t }\n\t s/.*/./; q'`\n srcdir=$ac_confdir\n if test ! -r \"$srcdir/$ac_unique_file\"; then\n srcdir=..\n fi\nelse\n ac_srcdir_defaulted=no\nfi\nif test ! -r \"$srcdir/$ac_unique_file\"; then\n test \"$ac_srcdir_defaulted\" = yes && srcdir=\"$ac_confdir or ..\"\n as_fn_error $? \"cannot find sources ($ac_unique_file) in $srcdir\"\nfi\nac_msg=\"sources are in $srcdir, but \\`cd $srcdir' does not work\"\nac_abs_confdir=`(\n\tcd \"$srcdir\" && test -r \"./$ac_unique_file\" || as_fn_error $? \"$ac_msg\"\n\tpwd)`\n# When building in place, set srcdir=.\nif test \"$ac_abs_confdir\" = \"$ac_pwd\"; then\n srcdir=.\nfi\n# Remove unnecessary trailing slashes from srcdir.\n# Double slashes in file names in object file debugging info\n# mess up M-x gdb in Emacs.\ncase $srcdir in\n*/) srcdir=`expr \"X$srcdir\" : 'X\\(.*[^/]\\)' \\| \"X$srcdir\" : 'X\\(.*\\)'`;;\nesac\nfor ac_var in $ac_precious_vars; do\n eval ac_env_${ac_var}_set=\\${${ac_var}+set}\n eval ac_env_${ac_var}_value=\\$${ac_var}\n eval ac_cv_env_${ac_var}_set=\\${${ac_var}+set}\n eval ac_cv_env_${ac_var}_value=\\$${ac_var}\ndone\n\n#\n# Report the --help message.\n#\nif test \"$ac_init_help\" = \"long\"; then\n # Omit some internal or obsolete options to make the list less imposing.\n # This message is too long to be a string in the A/UX 3.1 sh.\n cat <<_ACEOF\n\\`configure' configures this package to adapt to many kinds of systems.\n\nUsage: $0 [OPTION]... [VAR=VALUE]...\n\nTo assign environment variables (e.g., CC, CFLAGS...), specify them as\nVAR=VALUE. See below for descriptions of some of the useful variables.\n\nDefaults for the options are specified in brackets.\n\nConfiguration:\n -h, --help display this help and exit\n --help=short display options specific to this package\n --help=recursive display the short help of all the included packages\n -V, --version display version information and exit\n -q, --quiet, --silent do not print \\`checking ...' messages\n --cache-file=FILE cache test results in FILE [disabled]\n -C, --config-cache alias for \\`--cache-file=config.cache'\n -n, --no-create do not create output files\n --srcdir=DIR find the sources in DIR [configure dir or \\`..']\n\nInstallation directories:\n --prefix=PREFIX install architecture-independent files in PREFIX\n [$ac_default_prefix]\n --exec-prefix=EPREFIX install architecture-dependent files in EPREFIX\n [PREFIX]\n\nBy default, \\`make install' will install all the files in\n\\`$ac_default_prefix/bin', \\`$ac_default_prefix/lib' etc. You can specify\nan installation prefix other than \\`$ac_default_prefix' using \\`--prefix',\nfor instance \\`--prefix=\\$HOME'.\n\nFor better control, use the options below.\n\nFine tuning of the installation directories:\n --bindir=DIR user executables [EPREFIX/bin]\n --sbindir=DIR system admin executables [EPREFIX/sbin]\n --libexecdir=DIR program executables [EPREFIX/libexec]\n --sysconfdir=DIR read-only single-machine data [PREFIX/etc]\n --sharedstatedir=DIR modifiable architecture-independent data [PREFIX/com]\n --localstatedir=DIR modifiable single-machine data [PREFIX/var]\n --runstatedir=DIR modifiable per-process data [LOCALSTATEDIR/run]\n --libdir=DIR object code libraries [EPREFIX/lib]\n --includedir=DIR C header files [PREFIX/include]\n --oldincludedir=DIR C header files for non-gcc [/usr/include]\n --datarootdir=DIR read-only arch.-independent data root [PREFIX/share]\n --datadir=DIR read-only architecture-independent data [DATAROOTDIR]\n --infodir=DIR info documentation [DATAROOTDIR/info]\n --localedir=DIR locale-dependent data [DATAROOTDIR/locale]\n --mandir=DIR man documentation [DATAROOTDIR/man]\n --docdir=DIR documentation root [DATAROOTDIR/doc/PACKAGE]\n --htmldir=DIR html documentation [DOCDIR]\n --dvidir=DIR dvi documentation [DOCDIR]\n --pdfdir=DIR pdf documentation [DOCDIR]\n --psdir=DIR ps documentation [DOCDIR]\n_ACEOF\n\n cat <<\\_ACEOF\n_ACEOF\nfi\n\nif test -n \"$ac_init_help\"; then\n\n cat <<\\_ACEOF\n\nOptional Packages:\n --with-PACKAGE[=ARG] use PACKAGE [ARG=yes]\n --without-PACKAGE do not use PACKAGE (same as --with-PACKAGE=no)\n --with-gdal-config=GDAL_CONFIG\n the location of gdal-config\n --with-data-copy=yes/no local copy of data directories in package, default\n no\n --with-proj-data=DIR location of PROJ data directory\n --with-sqlite3-lib=LIB_PATH\n the location of sqlite3 libraries\n --with-proj-include=DIR location of proj header files\n --with-proj-api=yes/no use the deprecated proj_api.h even when PROJ 6 is\n available; default no\n --with-proj-lib=LIB_PATH\n the location of proj libraries\n --with-proj-share=SHARE_PATH\n the location of proj metadata files\n --with-geos-config=GEOS_CONFIG\n the location of geos-config\n\nSome influential environment variables:\n CC C compiler command\n CFLAGS C compiler flags\n LDFLAGS linker flags, e.g. -L if you have libraries in a\n nonstandard directory \n LIBS libraries to pass to the linker, e.g. -l\n CPPFLAGS (Objective) C/C++ preprocessor flags, e.g. -I if\n you have headers in a nonstandard directory \n\nUse these variables to override the choices made by `configure' or to help\nit to find libraries and programs with nonstandard names/locations.\n\nReport bugs to the package provider.\n_ACEOF\nac_status=$?\nfi\n\nif test \"$ac_init_help\" = \"recursive\"; then\n # If there are subdirs, report their specific --help.\n for ac_dir in : $ac_subdirs_all; do test \"x$ac_dir\" = x: && continue\n test -d \"$ac_dir\" ||\n { cd \"$srcdir\" && ac_pwd=`pwd` && srcdir=. && test -d \"$ac_dir\"; } ||\n continue\n ac_builddir=.\n\ncase \"$ac_dir\" in\n.) ac_dir_suffix= ac_top_builddir_sub=. ac_top_build_prefix= ;;\n*)\n ac_dir_suffix=/`printf \"%s\\n\" \"$ac_dir\" | sed 's|^\\.[\\\\/]||'`\n # A \"..\" for each directory in $ac_dir_suffix.\n ac_top_builddir_sub=`printf \"%s\\n\" \"$ac_dir_suffix\" | sed 's|/[^\\\\/]*|/..|g;s|/||'`\n case $ac_top_builddir_sub in\n \"\") ac_top_builddir_sub=. ac_top_build_prefix= ;;\n *) ac_top_build_prefix=$ac_top_builddir_sub/ ;;\n esac ;;\nesac\nac_abs_top_builddir=$ac_pwd\nac_abs_builddir=$ac_pwd$ac_dir_suffix\n# for backward compatibility:\nac_top_builddir=$ac_top_build_prefix\n\ncase $srcdir in\n .) # We are building in place.\n ac_srcdir=.\n ac_top_srcdir=$ac_top_builddir_sub\n ac_abs_top_srcdir=$ac_pwd ;;\n [\\\\/]* | ?:[\\\\/]* ) # Absolute name.\n ac_srcdir=$srcdir$ac_dir_suffix;\n ac_top_srcdir=$srcdir\n ac_abs_top_srcdir=$srcdir ;;\n *) # Relative name.\n ac_srcdir=$ac_top_build_prefix$srcdir$ac_dir_suffix\n ac_top_srcdir=$ac_top_build_prefix$srcdir\n ac_abs_top_srcdir=$ac_pwd/$srcdir ;;\nesac\nac_abs_srcdir=$ac_abs_top_srcdir$ac_dir_suffix\n\n cd \"$ac_dir\" || { ac_status=$?; continue; }\n # Check for configure.gnu first; this name is used for a wrapper for\n # Metaconfig's \"Configure\" on case-insensitive file systems.\n if test -f \"$ac_srcdir/configure.gnu\"; then\n echo &&\n $SHELL \"$ac_srcdir/configure.gnu\" --help=recursive\n elif test -f \"$ac_srcdir/configure\"; then\n echo &&\n $SHELL \"$ac_srcdir/configure\" --help=recursive\n else\n printf \"%s\\n\" \"$as_me: WARNING: no configuration information is in $ac_dir\" >&2\n fi || ac_status=$?\n cd \"$ac_pwd\" || { ac_status=$?; break; }\n done\nfi\n\ntest -n \"$ac_init_help\" && exit $ac_status\nif $ac_init_version; then\n cat <<\\_ACEOF\nconfigure\ngenerated by GNU Autoconf 2.71\n\nCopyright (C) 2021 Free Software Foundation, Inc.\nThis configure script is free software; the Free Software Foundation\ngives unlimited permission to copy, distribute and modify it.\n_ACEOF\n exit\nfi\n\n## ------------------------ ##\n## Autoconf initialization. ##\n## ------------------------ ##\n\n# ac_fn_c_try_compile LINENO\n# --------------------------\n# Try to compile conftest.$ac_ext, and return whether this succeeded.\nac_fn_c_try_compile ()\n{\n as_lineno=${as_lineno-\"$1\"} as_lineno_stack=as_lineno_stack=$as_lineno_stack\n rm -f conftest.$ac_objext conftest.beam\n if { { ac_try=\"$ac_compile\"\ncase \"(($ac_try\" in\n *\\\"* | *\\`* | *\\\\*) ac_try_echo=\\$ac_try;;\n *) ac_try_echo=$ac_try;;\nesac\neval ac_try_echo=\"\\\"\\$as_me:${as_lineno-$LINENO}: $ac_try_echo\\\"\"\nprintf \"%s\\n\" \"$ac_try_echo\"; } >&5\n (eval \"$ac_compile\") 2>conftest.err\n ac_status=$?\n if test -s conftest.err; then\n grep -v '^ *+' conftest.err >conftest.er1\n cat conftest.er1 >&5\n mv -f conftest.er1 conftest.err\n fi\n printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: \\$? = $ac_status\" >&5\n test $ac_status = 0; } && {\n\t test -z \"$ac_c_werror_flag\" ||\n\t test ! -s conftest.err\n } && test -s conftest.$ac_objext\nthen :\n ac_retval=0\nelse $as_nop\n printf \"%s\\n\" \"$as_me: failed program was:\" >&5\nsed 's/^/| /' conftest.$ac_ext >&5\n\n\tac_retval=1\nfi\n eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno\n as_fn_set_status $ac_retval\n\n} # ac_fn_c_try_compile\n\n# ac_fn_c_check_header_compile LINENO HEADER VAR INCLUDES\n# -------------------------------------------------------\n# Tests whether HEADER exists and can be compiled using the include files in\n# INCLUDES, setting the cache variable VAR accordingly.\nac_fn_c_check_header_compile ()\n{\n as_lineno=${as_lineno-\"$1\"} as_lineno_stack=as_lineno_stack=$as_lineno_stack\n { printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: checking for $2\" >&5\nprintf %s \"checking for $2... \" >&6; }\nif eval test \\${$3+y}\nthen :\n printf %s \"(cached) \" >&6\nelse $as_nop\n cat confdefs.h - <<_ACEOF >conftest.$ac_ext\n/* end confdefs.h. */\n$4\n#include <$2>\n_ACEOF\nif ac_fn_c_try_compile \"$LINENO\"\nthen :\n eval \"$3=yes\"\nelse $as_nop\n eval \"$3=no\"\nfi\nrm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext\nfi\neval ac_res=\\$$3\n\t { printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: result: $ac_res\" >&5\nprintf \"%s\\n\" \"$ac_res\" >&6; }\n eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno\n\n} # ac_fn_c_check_header_compile\n\n# ac_fn_c_try_link LINENO\n# -----------------------\n# Try to link conftest.$ac_ext, and return whether this succeeded.\nac_fn_c_try_link ()\n{\n as_lineno=${as_lineno-\"$1\"} as_lineno_stack=as_lineno_stack=$as_lineno_stack\n rm -f conftest.$ac_objext conftest.beam conftest$ac_exeext\n if { { ac_try=\"$ac_link\"\ncase \"(($ac_try\" in\n *\\\"* | *\\`* | *\\\\*) ac_try_echo=\\$ac_try;;\n *) ac_try_echo=$ac_try;;\nesac\neval ac_try_echo=\"\\\"\\$as_me:${as_lineno-$LINENO}: $ac_try_echo\\\"\"\nprintf \"%s\\n\" \"$ac_try_echo\"; } >&5\n (eval \"$ac_link\") 2>conftest.err\n ac_status=$?\n if test -s conftest.err; then\n grep -v '^ *+' conftest.err >conftest.er1\n cat conftest.er1 >&5\n mv -f conftest.er1 conftest.err\n fi\n printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: \\$? = $ac_status\" >&5\n test $ac_status = 0; } && {\n\t test -z \"$ac_c_werror_flag\" ||\n\t test ! -s conftest.err\n } && test -s conftest$ac_exeext && {\n\t test \"$cross_compiling\" = yes ||\n\t test -x conftest$ac_exeext\n }\nthen :\n ac_retval=0\nelse $as_nop\n printf \"%s\\n\" \"$as_me: failed program was:\" >&5\nsed 's/^/| /' conftest.$ac_ext >&5\n\n\tac_retval=1\nfi\n # Delete the IPA/IPO (Inter Procedural Analysis/Optimization) information\n # created by the PGI compiler (conftest_ipa8_conftest.oo), as it would\n # interfere with the next link command; also delete a directory that is\n # left behind by Apple's compiler. We do this before executing the actions.\n rm -rf conftest.dSYM conftest_ipa8_conftest.oo\n eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno\n as_fn_set_status $ac_retval\n\n} # ac_fn_c_try_link\nac_configure_args_raw=\nfor ac_arg\ndo\n case $ac_arg in\n *\\'*)\n ac_arg=`printf \"%s\\n\" \"$ac_arg\" | sed \"s/'/'\\\\\\\\\\\\\\\\''/g\"` ;;\n esac\n as_fn_append ac_configure_args_raw \" '$ac_arg'\"\ndone\n\ncase $ac_configure_args_raw in\n *$as_nl*)\n ac_safe_unquote= ;;\n *)\n ac_unsafe_z='|&;<>()$`\\\\\"*?[ ''\t' # This string ends in space, tab.\n ac_unsafe_a=\"$ac_unsafe_z#~\"\n ac_safe_unquote=\"s/ '\\\\([^$ac_unsafe_a][^$ac_unsafe_z]*\\\\)'/ \\\\1/g\"\n ac_configure_args_raw=` printf \"%s\\n\" \"$ac_configure_args_raw\" | sed \"$ac_safe_unquote\"`;;\nesac\n\ncat >config.log <<_ACEOF\nThis file contains any messages produced by compilers while\nrunning configure, to aid debugging if configure makes a mistake.\n\nIt was created by $as_me, which was\ngenerated by GNU Autoconf 2.71. Invocation command line was\n\n $ $0$ac_configure_args_raw\n\n_ACEOF\nexec 5>>config.log\n{\ncat <<_ASUNAME\n## --------- ##\n## Platform. ##\n## --------- ##\n\nhostname = `(hostname || uname -n) 2>/dev/null | sed 1q`\nuname -m = `(uname -m) 2>/dev/null || echo unknown`\nuname -r = `(uname -r) 2>/dev/null || echo unknown`\nuname -s = `(uname -s) 2>/dev/null || echo unknown`\nuname -v = `(uname -v) 2>/dev/null || echo unknown`\n\n/usr/bin/uname -p = `(/usr/bin/uname -p) 2>/dev/null || echo unknown`\n/bin/uname -X = `(/bin/uname -X) 2>/dev/null || echo unknown`\n\n/bin/arch = `(/bin/arch) 2>/dev/null || echo unknown`\n/usr/bin/arch -k = `(/usr/bin/arch -k) 2>/dev/null || echo unknown`\n/usr/convex/getsysinfo = `(/usr/convex/getsysinfo) 2>/dev/null || echo unknown`\n/usr/bin/hostinfo = `(/usr/bin/hostinfo) 2>/dev/null || echo unknown`\n/bin/machine = `(/bin/machine) 2>/dev/null || echo unknown`\n/usr/bin/oslevel = `(/usr/bin/oslevel) 2>/dev/null || echo unknown`\n/bin/universe = `(/bin/universe) 2>/dev/null || echo unknown`\n\n_ASUNAME\n\nas_save_IFS=$IFS; IFS=$PATH_SEPARATOR\nfor as_dir in $PATH\ndo\n IFS=$as_save_IFS\n case $as_dir in #(((\n '') as_dir=./ ;;\n */) ;;\n *) as_dir=$as_dir/ ;;\n esac\n printf \"%s\\n\" \"PATH: $as_dir\"\n done\nIFS=$as_save_IFS\n\n} >&5\n\ncat >&5 <<_ACEOF\n\n\n## ----------- ##\n## Core tests. ##\n## ----------- ##\n\n_ACEOF\n\n\n# Keep a trace of the command line.\n# Strip out --no-create and --no-recursion so they do not pile up.\n# Strip out --silent because we don't want to record it for future runs.\n# Also quote any args containing shell meta-characters.\n# Make two passes to allow for proper duplicate-argument suppression.\nac_configure_args=\nac_configure_args0=\nac_configure_args1=\nac_must_keep_next=false\nfor ac_pass in 1 2\ndo\n for ac_arg\n do\n case $ac_arg in\n -no-create | --no-c* | -n | -no-recursion | --no-r*) continue ;;\n -q | -quiet | --quiet | --quie | --qui | --qu | --q \\\n | -silent | --silent | --silen | --sile | --sil)\n continue ;;\n *\\'*)\n ac_arg=`printf \"%s\\n\" \"$ac_arg\" | sed \"s/'/'\\\\\\\\\\\\\\\\''/g\"` ;;\n esac\n case $ac_pass in\n 1) as_fn_append ac_configure_args0 \" '$ac_arg'\" ;;\n 2)\n as_fn_append ac_configure_args1 \" '$ac_arg'\"\n if test $ac_must_keep_next = true; then\n\tac_must_keep_next=false # Got value, back to normal.\n else\n\tcase $ac_arg in\n\t *=* | --config-cache | -C | -disable-* | --disable-* \\\n\t | -enable-* | --enable-* | -gas | --g* | -nfp | --nf* \\\n\t | -q | -quiet | --q* | -silent | --sil* | -v | -verb* \\\n\t | -with-* | --with-* | -without-* | --without-* | --x)\n\t case \"$ac_configure_args0 \" in\n\t \"$ac_configure_args1\"*\" '$ac_arg' \"* ) continue ;;\n\t esac\n\t ;;\n\t -* ) ac_must_keep_next=true ;;\n\tesac\n fi\n as_fn_append ac_configure_args \" '$ac_arg'\"\n ;;\n esac\n done\ndone\n{ ac_configure_args0=; unset ac_configure_args0;}\n{ ac_configure_args1=; unset ac_configure_args1;}\n\n# When interrupted or exit'd, cleanup temporary files, and complete\n# config.log. We remove comments because anyway the quotes in there\n# would cause problems or look ugly.\n# WARNING: Use '\\'' to represent an apostrophe within the trap.\n# WARNING: Do not start the trap code with a newline, due to a FreeBSD 4.0 bug.\ntrap 'exit_status=$?\n # Sanitize IFS.\n IFS=\" \"\"\t$as_nl\"\n # Save into config.log some information that might help in debugging.\n {\n echo\n\n printf \"%s\\n\" \"## ---------------- ##\n## Cache variables. ##\n## ---------------- ##\"\n echo\n # The following way of writing the cache mishandles newlines in values,\n(\n for ac_var in `(set) 2>&1 | sed -n '\\''s/^\\([a-zA-Z_][a-zA-Z0-9_]*\\)=.*/\\1/p'\\''`; do\n eval ac_val=\\$$ac_var\n case $ac_val in #(\n *${as_nl}*)\n case $ac_var in #(\n *_cv_*) { printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: WARNING: cache variable $ac_var contains a newline\" >&5\nprintf \"%s\\n\" \"$as_me: WARNING: cache variable $ac_var contains a newline\" >&2;} ;;\n esac\n case $ac_var in #(\n _ | IFS | as_nl) ;; #(\n BASH_ARGV | BASH_SOURCE) eval $ac_var= ;; #(\n *) { eval $ac_var=; unset $ac_var;} ;;\n esac ;;\n esac\n done\n (set) 2>&1 |\n case $as_nl`(ac_space='\\'' '\\''; set) 2>&1` in #(\n *${as_nl}ac_space=\\ *)\n sed -n \\\n\t\"s/'\\''/'\\''\\\\\\\\'\\'''\\''/g;\n\t s/^\\\\([_$as_cr_alnum]*_cv_[_$as_cr_alnum]*\\\\)=\\\\(.*\\\\)/\\\\1='\\''\\\\2'\\''/p\"\n ;; #(\n *)\n sed -n \"/^[_$as_cr_alnum]*_cv_[_$as_cr_alnum]*=/p\"\n ;;\n esac |\n sort\n)\n echo\n\n printf \"%s\\n\" \"## ----------------- ##\n## Output variables. ##\n## ----------------- ##\"\n echo\n for ac_var in $ac_subst_vars\n do\n eval ac_val=\\$$ac_var\n case $ac_val in\n *\\'\\''*) ac_val=`printf \"%s\\n\" \"$ac_val\" | sed \"s/'\\''/'\\''\\\\\\\\\\\\\\\\'\\'''\\''/g\"`;;\n esac\n printf \"%s\\n\" \"$ac_var='\\''$ac_val'\\''\"\n done | sort\n echo\n\n if test -n \"$ac_subst_files\"; then\n printf \"%s\\n\" \"## ------------------- ##\n## File substitutions. ##\n## ------------------- ##\"\n echo\n for ac_var in $ac_subst_files\n do\n\teval ac_val=\\$$ac_var\n\tcase $ac_val in\n\t*\\'\\''*) ac_val=`printf \"%s\\n\" \"$ac_val\" | sed \"s/'\\''/'\\''\\\\\\\\\\\\\\\\'\\'''\\''/g\"`;;\n\tesac\n\tprintf \"%s\\n\" \"$ac_var='\\''$ac_val'\\''\"\n done | sort\n echo\n fi\n\n if test -s confdefs.h; then\n printf \"%s\\n\" \"## ----------- ##\n## confdefs.h. ##\n## ----------- ##\"\n echo\n cat confdefs.h\n echo\n fi\n test \"$ac_signal\" != 0 &&\n printf \"%s\\n\" \"$as_me: caught signal $ac_signal\"\n printf \"%s\\n\" \"$as_me: exit $exit_status\"\n } >&5\n rm -f core *.core core.conftest.* &&\n rm -f -r conftest* confdefs* conf$$* $ac_clean_files &&\n exit $exit_status\n' 0\nfor ac_signal in 1 2 13 15; do\n trap 'ac_signal='$ac_signal'; as_fn_exit 1' $ac_signal\ndone\nac_signal=0\n\n# confdefs.h avoids OS command line length limits that DEFS can exceed.\nrm -f -r conftest* confdefs.h\n\nprintf \"%s\\n\" \"/* confdefs.h */\" > confdefs.h\n\n# Predefined preprocessor variables.\n\nprintf \"%s\\n\" \"#define PACKAGE_NAME \\\"$PACKAGE_NAME\\\"\" >>confdefs.h\n\nprintf \"%s\\n\" \"#define PACKAGE_TARNAME \\\"$PACKAGE_TARNAME\\\"\" >>confdefs.h\n\nprintf \"%s\\n\" \"#define PACKAGE_VERSION \\\"$PACKAGE_VERSION\\\"\" >>confdefs.h\n\nprintf \"%s\\n\" \"#define PACKAGE_STRING \\\"$PACKAGE_STRING\\\"\" >>confdefs.h\n\nprintf \"%s\\n\" \"#define PACKAGE_BUGREPORT \\\"$PACKAGE_BUGREPORT\\\"\" >>confdefs.h\n\nprintf \"%s\\n\" \"#define PACKAGE_URL \\\"$PACKAGE_URL\\\"\" >>confdefs.h\n\n\n# Let the site file select an alternate cache file if it wants to.\n# Prefer an explicitly selected file to automatically selected ones.\nif test -n \"$CONFIG_SITE\"; then\n ac_site_files=\"$CONFIG_SITE\"\nelif test \"x$prefix\" != xNONE; then\n ac_site_files=\"$prefix/share/config.site $prefix/etc/config.site\"\nelse\n ac_site_files=\"$ac_default_prefix/share/config.site $ac_default_prefix/etc/config.site\"\nfi\n\nfor ac_site_file in $ac_site_files\ndo\n case $ac_site_file in #(\n */*) :\n ;; #(\n *) :\n ac_site_file=./$ac_site_file ;;\nesac\n if test -f \"$ac_site_file\" && test -r \"$ac_site_file\"; then\n { printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: loading site script $ac_site_file\" >&5\nprintf \"%s\\n\" \"$as_me: loading site script $ac_site_file\" >&6;}\n sed 's/^/| /' \"$ac_site_file\" >&5\n . \"$ac_site_file\" \\\n || { { printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: error: in \\`$ac_pwd':\" >&5\nprintf \"%s\\n\" \"$as_me: error: in \\`$ac_pwd':\" >&2;}\nas_fn_error $? \"failed to load site script $ac_site_file\nSee \\`config.log' for more details\" \"$LINENO\" 5; }\n fi\ndone\n\nif test -r \"$cache_file\"; then\n # Some versions of bash will fail to source /dev/null (special files\n # actually), so we avoid doing that. DJGPP emulates it as a regular file.\n if test /dev/null != \"$cache_file\" && test -f \"$cache_file\"; then\n { printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: loading cache $cache_file\" >&5\nprintf \"%s\\n\" \"$as_me: loading cache $cache_file\" >&6;}\n case $cache_file in\n [\\\\/]* | ?:[\\\\/]* ) . \"$cache_file\";;\n *) . \"./$cache_file\";;\n esac\n fi\nelse\n { printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: creating cache $cache_file\" >&5\nprintf \"%s\\n\" \"$as_me: creating cache $cache_file\" >&6;}\n >$cache_file\nfi\n\n# Test code for whether the C compiler supports C89 (global declarations)\nac_c_conftest_c89_globals='\n/* Does the compiler advertise C89 conformance?\n Do not test the value of __STDC__, because some compilers set it to 0\n while being otherwise adequately conformant. */\n#if !defined __STDC__\n# error \"Compiler does not advertise C89 conformance\"\n#endif\n\n#include \n#include \nstruct stat;\n/* Most of the following tests are stolen from RCS 5.7 src/conf.sh. */\nstruct buf { int x; };\nstruct buf * (*rcsopen) (struct buf *, struct stat *, int);\nstatic char *e (p, i)\n char **p;\n int i;\n{\n return p[i];\n}\nstatic char *f (char * (*g) (char **, int), char **p, ...)\n{\n char *s;\n va_list v;\n va_start (v,p);\n s = g (p, va_arg (v,int));\n va_end (v);\n return s;\n}\n\n/* OSF 4.0 Compaq cc is some sort of almost-ANSI by default. It has\n function prototypes and stuff, but not \\xHH hex character constants.\n These do not provoke an error unfortunately, instead are silently treated\n as an \"x\". The following induces an error, until -std is added to get\n proper ANSI mode. Curiously \\x00 != x always comes out true, for an\n array size at least. It is necessary to write \\x00 == 0 to get something\n that is true only with -std. */\nint osf4_cc_array ['\\''\\x00'\\'' == 0 ? 1 : -1];\n\n/* IBM C 6 for AIX is almost-ANSI by default, but it replaces macro parameters\n inside strings and character constants. */\n#define FOO(x) '\\''x'\\''\nint xlc6_cc_array[FOO(a) == '\\''x'\\'' ? 1 : -1];\n\nint test (int i, double x);\nstruct s1 {int (*f) (int a);};\nstruct s2 {int (*f) (double a);};\nint pairnames (int, char **, int *(*)(struct buf *, struct stat *, int),\n int, int);'\n\n# Test code for whether the C compiler supports C89 (body of main).\nac_c_conftest_c89_main='\nok |= (argc == 0 || f (e, argv, 0) != argv[0] || f (e, argv, 1) != argv[1]);\n'\n\n# Test code for whether the C compiler supports C99 (global declarations)\nac_c_conftest_c99_globals='\n// Does the compiler advertise C99 conformance?\n#if !defined __STDC_VERSION__ || __STDC_VERSION__ < 199901L\n# error \"Compiler does not advertise C99 conformance\"\n#endif\n\n#include \nextern int puts (const char *);\nextern int printf (const char *, ...);\nextern int dprintf (int, const char *, ...);\nextern void *malloc (size_t);\n\n// Check varargs macros. These examples are taken from C99 6.10.3.5.\n// dprintf is used instead of fprintf to avoid needing to declare\n// FILE and stderr.\n#define debug(...) dprintf (2, __VA_ARGS__)\n#define showlist(...) puts (#__VA_ARGS__)\n#define report(test,...) ((test) ? puts (#test) : printf (__VA_ARGS__))\nstatic void\ntest_varargs_macros (void)\n{\n int x = 1234;\n int y = 5678;\n debug (\"Flag\");\n debug (\"X = %d\\n\", x);\n showlist (The first, second, and third items.);\n report (x>y, \"x is %d but y is %d\", x, y);\n}\n\n// Check long long types.\n#define BIG64 18446744073709551615ull\n#define BIG32 4294967295ul\n#define BIG_OK (BIG64 / BIG32 == 4294967297ull && BIG64 % BIG32 == 0)\n#if !BIG_OK\n #error \"your preprocessor is broken\"\n#endif\n#if BIG_OK\n#else\n #error \"your preprocessor is broken\"\n#endif\nstatic long long int bignum = -9223372036854775807LL;\nstatic unsigned long long int ubignum = BIG64;\n\nstruct incomplete_array\n{\n int datasize;\n double data[];\n};\n\nstruct named_init {\n int number;\n const wchar_t *name;\n double average;\n};\n\ntypedef const char *ccp;\n\nstatic inline int\ntest_restrict (ccp restrict text)\n{\n // See if C++-style comments work.\n // Iterate through items via the restricted pointer.\n // Also check for declarations in for loops.\n for (unsigned int i = 0; *(text+i) != '\\''\\0'\\''; ++i)\n continue;\n return 0;\n}\n\n// Check varargs and va_copy.\nstatic bool\ntest_varargs (const char *format, ...)\n{\n va_list args;\n va_start (args, format);\n va_list args_copy;\n va_copy (args_copy, args);\n\n const char *str = \"\";\n int number = 0;\n float fnumber = 0;\n\n while (*format)\n {\n switch (*format++)\n\t{\n\tcase '\\''s'\\'': // string\n\t str = va_arg (args_copy, const char *);\n\t break;\n\tcase '\\''d'\\'': // int\n\t number = va_arg (args_copy, int);\n\t break;\n\tcase '\\''f'\\'': // float\n\t fnumber = va_arg (args_copy, double);\n\t break;\n\tdefault:\n\t break;\n\t}\n }\n va_end (args_copy);\n va_end (args);\n\n return *str && number && fnumber;\n}\n'\n\n# Test code for whether the C compiler supports C99 (body of main).\nac_c_conftest_c99_main='\n // Check bool.\n _Bool success = false;\n success |= (argc != 0);\n\n // Check restrict.\n if (test_restrict (\"String literal\") == 0)\n success = true;\n char *restrict newvar = \"Another string\";\n\n // Check varargs.\n success &= test_varargs (\"s, d'\\'' f .\", \"string\", 65, 34.234);\n test_varargs_macros ();\n\n // Check flexible array members.\n struct incomplete_array *ia =\n malloc (sizeof (struct incomplete_array) + (sizeof (double) * 10));\n ia->datasize = 10;\n for (int i = 0; i < ia->datasize; ++i)\n ia->data[i] = i * 1.234;\n\n // Check named initializers.\n struct named_init ni = {\n .number = 34,\n .name = L\"Test wide string\",\n .average = 543.34343,\n };\n\n ni.number = 58;\n\n int dynamic_array[ni.number];\n dynamic_array[0] = argv[0][0];\n dynamic_array[ni.number - 1] = 543;\n\n // work around unused variable warnings\n ok |= (!success || bignum == 0LL || ubignum == 0uLL || newvar[0] == '\\''x'\\''\n\t || dynamic_array[ni.number - 1] != 543);\n'\n\n# Test code for whether the C compiler supports C11 (global declarations)\nac_c_conftest_c11_globals='\n// Does the compiler advertise C11 conformance?\n#if !defined __STDC_VERSION__ || __STDC_VERSION__ < 201112L\n# error \"Compiler does not advertise C11 conformance\"\n#endif\n\n// Check _Alignas.\nchar _Alignas (double) aligned_as_double;\nchar _Alignas (0) no_special_alignment;\nextern char aligned_as_int;\nchar _Alignas (0) _Alignas (int) aligned_as_int;\n\n// Check _Alignof.\nenum\n{\n int_alignment = _Alignof (int),\n int_array_alignment = _Alignof (int[100]),\n char_alignment = _Alignof (char)\n};\n_Static_assert (0 < -_Alignof (int), \"_Alignof is signed\");\n\n// Check _Noreturn.\nint _Noreturn does_not_return (void) { for (;;) continue; }\n\n// Check _Static_assert.\nstruct test_static_assert\n{\n int x;\n _Static_assert (sizeof (int) <= sizeof (long int),\n \"_Static_assert does not work in struct\");\n long int y;\n};\n\n// Check UTF-8 literals.\n#define u8 syntax error!\nchar const utf8_literal[] = u8\"happens to be ASCII\" \"another string\";\n\n// Check duplicate typedefs.\ntypedef long *long_ptr;\ntypedef long int *long_ptr;\ntypedef long_ptr long_ptr;\n\n// Anonymous structures and unions -- taken from C11 6.7.2.1 Example 1.\nstruct anonymous\n{\n union {\n struct { int i; int j; };\n struct { int k; long int l; } w;\n };\n int m;\n} v1;\n'\n\n# Test code for whether the C compiler supports C11 (body of main).\nac_c_conftest_c11_main='\n _Static_assert ((offsetof (struct anonymous, i)\n\t\t == offsetof (struct anonymous, w.k)),\n\t\t \"Anonymous union alignment botch\");\n v1.i = 2;\n v1.w.k = 5;\n ok |= v1.i != 5;\n'\n\n# Test code for whether the C compiler supports C11 (complete).\nac_c_conftest_c11_program=\"${ac_c_conftest_c89_globals}\n${ac_c_conftest_c99_globals}\n${ac_c_conftest_c11_globals}\n\nint\nmain (int argc, char **argv)\n{\n int ok = 0;\n ${ac_c_conftest_c89_main}\n ${ac_c_conftest_c99_main}\n ${ac_c_conftest_c11_main}\n return ok;\n}\n\"\n\n# Test code for whether the C compiler supports C99 (complete).\nac_c_conftest_c99_program=\"${ac_c_conftest_c89_globals}\n${ac_c_conftest_c99_globals}\n\nint\nmain (int argc, char **argv)\n{\n int ok = 0;\n ${ac_c_conftest_c89_main}\n ${ac_c_conftest_c99_main}\n return ok;\n}\n\"\n\n# Test code for whether the C compiler supports C89 (complete).\nac_c_conftest_c89_program=\"${ac_c_conftest_c89_globals}\n\nint\nmain (int argc, char **argv)\n{\n int ok = 0;\n ${ac_c_conftest_c89_main}\n return ok;\n}\n\"\n\nas_fn_append ac_header_c_list \" stdio.h stdio_h HAVE_STDIO_H\"\nas_fn_append ac_header_c_list \" stdlib.h stdlib_h HAVE_STDLIB_H\"\nas_fn_append ac_header_c_list \" string.h string_h HAVE_STRING_H\"\nas_fn_append ac_header_c_list \" inttypes.h inttypes_h HAVE_INTTYPES_H\"\nas_fn_append ac_header_c_list \" stdint.h stdint_h HAVE_STDINT_H\"\nas_fn_append ac_header_c_list \" strings.h strings_h HAVE_STRINGS_H\"\nas_fn_append ac_header_c_list \" sys/stat.h sys_stat_h HAVE_SYS_STAT_H\"\nas_fn_append ac_header_c_list \" sys/types.h sys_types_h HAVE_SYS_TYPES_H\"\nas_fn_append ac_header_c_list \" unistd.h unistd_h HAVE_UNISTD_H\"\n# Check that the precious variables saved in the cache have kept the same\n# value.\nac_cache_corrupted=false\nfor ac_var in $ac_precious_vars; do\n eval ac_old_set=\\$ac_cv_env_${ac_var}_set\n eval ac_new_set=\\$ac_env_${ac_var}_set\n eval ac_old_val=\\$ac_cv_env_${ac_var}_value\n eval ac_new_val=\\$ac_env_${ac_var}_value\n case $ac_old_set,$ac_new_set in\n set,)\n { printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: error: \\`$ac_var' was set to \\`$ac_old_val' in the previous run\" >&5\nprintf \"%s\\n\" \"$as_me: error: \\`$ac_var' was set to \\`$ac_old_val' in the previous run\" >&2;}\n ac_cache_corrupted=: ;;\n ,set)\n { printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: error: \\`$ac_var' was not set in the previous run\" >&5\nprintf \"%s\\n\" \"$as_me: error: \\`$ac_var' was not set in the previous run\" >&2;}\n ac_cache_corrupted=: ;;\n ,);;\n *)\n if test \"x$ac_old_val\" != \"x$ac_new_val\"; then\n\t# differences in whitespace do not lead to failure.\n\tac_old_val_w=`echo x $ac_old_val`\n\tac_new_val_w=`echo x $ac_new_val`\n\tif test \"$ac_old_val_w\" != \"$ac_new_val_w\"; then\n\t { printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: error: \\`$ac_var' has changed since the previous run:\" >&5\nprintf \"%s\\n\" \"$as_me: error: \\`$ac_var' has changed since the previous run:\" >&2;}\n\t ac_cache_corrupted=:\n\telse\n\t { printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: warning: ignoring whitespace changes in \\`$ac_var' since the previous run:\" >&5\nprintf \"%s\\n\" \"$as_me: warning: ignoring whitespace changes in \\`$ac_var' since the previous run:\" >&2;}\n\t eval $ac_var=\\$ac_old_val\n\tfi\n\t{ printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: former value: \\`$ac_old_val'\" >&5\nprintf \"%s\\n\" \"$as_me: former value: \\`$ac_old_val'\" >&2;}\n\t{ printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: current value: \\`$ac_new_val'\" >&5\nprintf \"%s\\n\" \"$as_me: current value: \\`$ac_new_val'\" >&2;}\n fi;;\n esac\n # Pass precious variables to config.status.\n if test \"$ac_new_set\" = set; then\n case $ac_new_val in\n *\\'*) ac_arg=$ac_var=`printf \"%s\\n\" \"$ac_new_val\" | sed \"s/'/'\\\\\\\\\\\\\\\\''/g\"` ;;\n *) ac_arg=$ac_var=$ac_new_val ;;\n esac\n case \" $ac_configure_args \" in\n *\" '$ac_arg' \"*) ;; # Avoid dups. Use of quotes ensures accuracy.\n *) as_fn_append ac_configure_args \" '$ac_arg'\" ;;\n esac\n fi\ndone\nif $ac_cache_corrupted; then\n { printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: error: in \\`$ac_pwd':\" >&5\nprintf \"%s\\n\" \"$as_me: error: in \\`$ac_pwd':\" >&2;}\n { printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: error: changes in the environment can compromise the build\" >&5\nprintf \"%s\\n\" \"$as_me: error: changes in the environment can compromise the build\" >&2;}\n as_fn_error $? \"run \\`${MAKE-make} distclean' and/or \\`rm $cache_file'\n\t and start over\" \"$LINENO\" 5\nfi\n## -------------------- ##\n## Main body of script. ##\n## -------------------- ##\n\nac_ext=c\nac_cpp='$CPP $CPPFLAGS'\nac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'\nac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'\nac_compiler_gnu=$ac_cv_c_compiler_gnu\n\n\n\n\n: ${R_HOME=`R RHOME`}\nif test -z \"${R_HOME}\"; then\n echo \"could not determine R_HOME\"\n exit 1\nfi\n\nRBIN=\"${R_HOME}/bin/R\"\n# https://github.com/r-spatial/sf/issues/1054:\n# RVER=`\"${RBIN}\" --version | head -1 | cut -f3 -d\" \"`\nRSCRIPT=\"${R_HOME}/bin/Rscript\"\nRVER=`\"${RSCRIPT}\" -e 'writeLines(paste(sep=\".\", base::version$major, base::version$minor))'`\n\nRVER_MAJOR=`echo ${RVER} | cut -f1 -d\".\"`\nRVER_MINOR=`echo ${RVER} | cut -f2 -d\".\"`\nRVER_PATCH=`echo ${RVER} | cut -f3 -d\".\"`\n\n#if test [$RVER_MAJOR = \"development\"]; then\n CXX=`\"${RBIN}\" CMD config CXX`\n#else\n# if test [$RVER_MAJOR -lt 3] -o [$RVER_MAJOR -eq 3 -a $RVER_MINOR -lt 3]; then\n# AC_MSG_ERROR([sf is not compatible with R versions before 3.3.0])\n# else\n# CXX=`\"${RBIN}\" CMD config CXX`\n# fi\n#fi\n\n# pick all flags for testing from R\n: ${CC=`\"${RBIN}\" CMD config CC`}\n: ${CFLAGS=`\"${RBIN}\" CMD config CFLAGS`}\n: ${CPPFLAGS=`\"${RBIN}\" CMD config CPPFLAGS`}\n: ${CXXFLAGS=`\"${RBIN}\" CMD config CXXFLAGS`}\n: ${LDFLAGS=`\"${RBIN}\" CMD config LDFLAGS`}\n# AC_SUBST([CC],[\"clang\"])\n# AC_SUBST([CXX],[\"clang++\"])\n{ printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: CC: ${CC}\" >&5\nprintf \"%s\\n\" \"$as_me: CC: ${CC}\" >&6;}\n{ printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: CXX: ${CXX}\" >&5\nprintf \"%s\\n\" \"$as_me: CXX: ${CXX}\" >&6;}\n\n# AC_MSG_NOTICE([${PACKAGE_NAME}: ${PACKAGE_VERSION}])\n\nGENERIC_INSTALL_MESSAGE=\"\n*** Installing this package from source requires the prior\n*** installation of external software, see for details\n*** https://r-spatial.github.io/sf/#installing\"\n\n#GDAL\nGDAL_CONFIG=\"gdal-config\"\n\nGDAL_CONFIG_SET=\"no\"\n\n\n# Check whether --with-gdal-config was given.\nif test ${with_gdal_config+y}\nthen :\n withval=$with_gdal_config; gdal_config=$withval\nfi\n\nif test -n \"$gdal_config\" ; then\n GDAL_CONFIG_SET=\"yes\"\n GDAL_CONFIG=\"${gdal_config}\"\n\n { printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: gdal-config set to $GDAL_CONFIG\" >&5\nprintf \"%s\\n\" \"$as_me: gdal-config set to $GDAL_CONFIG\" >&6;}\nfi\n\nif test \"$GDAL_CONFIG_SET\" = \"no\" ; then\n # Extract the first word of \"\"$GDAL_CONFIG\"\", so it can be a program name with args.\nset dummy \"$GDAL_CONFIG\"; ac_word=$2\n{ printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: checking for $ac_word\" >&5\nprintf %s \"checking for $ac_word... \" >&6; }\nif test ${ac_cv_path_GDAL_CONFIG+y}\nthen :\n printf %s \"(cached) \" >&6\nelse $as_nop\n case $GDAL_CONFIG in\n [\\\\/]* | ?:[\\\\/]*)\n ac_cv_path_GDAL_CONFIG=\"$GDAL_CONFIG\" # Let the user override the test with a path.\n ;;\n *)\n as_save_IFS=$IFS; IFS=$PATH_SEPARATOR\nfor as_dir in $PATH\ndo\n IFS=$as_save_IFS\n case $as_dir in #(((\n '') as_dir=./ ;;\n */) ;;\n *) as_dir=$as_dir/ ;;\n esac\n for ac_exec_ext in '' $ac_executable_extensions; do\n if as_fn_executable_p \"$as_dir$ac_word$ac_exec_ext\"; then\n ac_cv_path_GDAL_CONFIG=\"$as_dir$ac_word$ac_exec_ext\"\n printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: found $as_dir$ac_word$ac_exec_ext\" >&5\n break 2\n fi\ndone\n done\nIFS=$as_save_IFS\n\n test -z \"$ac_cv_path_GDAL_CONFIG\" && ac_cv_path_GDAL_CONFIG=\"\"no\"\"\n ;;\nesac\nfi\nGDAL_CONFIG=$ac_cv_path_GDAL_CONFIG\nif test -n \"$GDAL_CONFIG\"; then\n { printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: result: $GDAL_CONFIG\" >&5\nprintf \"%s\\n\" \"$GDAL_CONFIG\" >&6; }\nelse\n { printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: result: no\" >&5\nprintf \"%s\\n\" \"no\" >&6; }\nfi\n\n\n if test \"$GDAL_CONFIG\" = \"no\" ; then\n { printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: result: no\" >&5\nprintf \"%s\\n\" \"no\" >&6; }\n as_fn_error $? \"gdal-config not found or not executable. ${GENERIC_INSTALL_MESSAGE}\" \"$LINENO\" 5\n fi\nelse\n { printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: checking gdal-config exists\" >&5\nprintf %s \"checking gdal-config exists... \" >&6; }\n if test -r \"${GDAL_CONFIG}\"; then\n { printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: result: yes\" >&5\nprintf \"%s\\n\" \"yes\" >&6; }\n else\n { printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: result: no\" >&5\nprintf \"%s\\n\" \"no\" >&6; }\n as_fn_error $? \"gdal-config not found - configure argument error. ${GENERIC_INSTALL_MESSAGE}\" \"$LINENO\" 5\n fi\n { printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: checking gdal-config executable\" >&5\nprintf %s \"checking gdal-config executable... \" >&6; }\n if test -x \"${GDAL_CONFIG}\"; then\n { printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: result: yes\" >&5\nprintf \"%s\\n\" \"yes\" >&6; }\n else\n { printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: result: no\" >&5\nprintf \"%s\\n\" \"no\" >&6; }\n as_fn_error $? \"gdal-config not executable. ${GENERIC_INSTALL_MESSAGE}\" \"$LINENO\" 5\n fi\nfi\n\n{ printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: checking gdal-config usability\" >&5\nprintf %s \"checking gdal-config usability... \" >&6; }\nif test `${GDAL_CONFIG} --version`;\nthen\n\tGDAL_CPPFLAGS=`${GDAL_CONFIG} --cflags`\n\tGDAL_VERSION=`${GDAL_CONFIG} --version`\n\tGDAL_LIBS=`${GDAL_CONFIG} --libs`\n\tGDAL_DEP_LIBS=`${GDAL_CONFIG} --dep-libs`\n\tGDAL_DATADIR=`${GDAL_CONFIG} --datadir`\n\t{ printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: result: yes\" >&5\nprintf \"%s\\n\" \"yes\" >&6; }\nelse\n\tas_fn_error $? \"gdal-config not found. ${GENERIC_INSTALL_MESSAGE}\" \"$LINENO\" 5\nfi\n\n{ printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: GDAL: ${GDAL_VERSION}\" >&5\nprintf \"%s\\n\" \"$as_me: GDAL: ${GDAL_VERSION}\" >&6;}\n{ printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: checking GDAL version >= 2.0.1\" >&5\nprintf %s \"checking GDAL version >= 2.0.1... \" >&6; }\n\nGDAL_MAJ_VER=`echo $GDAL_VERSION | cut -d \".\" -f1`\nGDAL_MIN_VER=`echo $GDAL_VERSION | cut -d \".\" -f2`\nGDAL_PATCH_VER=`echo $GDAL_VERSION | cut -d \".\" -f3`\nif test ${GDAL_MAJ_VER} -lt 2 ; then\n { printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: result: no\" >&5\nprintf \"%s\\n\" \"no\" >&6; }\n as_fn_error $? \"sf is not compatible with GDAL versions below 2.0.1\" \"$LINENO\" 5\nelse\n { printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: result: yes\" >&5\nprintf \"%s\\n\" \"yes\" >&6; }\nfi\n\n#if test [${GDAL_MAJ_VER} -eq 3] -a [${GDAL_MIN_VER} -eq 6] -a [${GDAL_PATCH_VER} -eq 0] ; then\nif test \"${GDAL_VERSION}\" = \"3.6.0\" ; then\n as_fn_error $? \"GDAL version 3.6.0 has been withdrawn, please update GDAL\" \"$LINENO\" 5\nfi\n\nINLIBS=\"${LIBS}\"\nINCPPFLAGS=\"${CPPFLAGS}\"\nINPKG_CPPFLAGS=\"${PKG_CPPFLAGS}\"\nINPKG_LIBS=\"${PKG_LIBS}\"\n\nPKG_CPPFLAGS=\"${INPKG_CPPFLAGS} ${GDAL_CPPFLAGS}\"\n\nPKG_LIBS=\"${INPKG_LIBS} ${GDAL_LIBS}\"\n\n\n# honor PKG_xx overrides\n# for CPPFLAGS we will superfluously double R's flags\n# since we'll set PKG_CPPFLAGS with this, but that shouldn't hurt\nCPPFLAGS=\"${INCPPFLAGS} ${PKG_CPPFLAGS}\"\n\ngdalok=yes\n\n\n\n\n\n\n\n\n\nac_ext=c\nac_cpp='$CPP $CPPFLAGS'\nac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'\nac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'\nac_compiler_gnu=$ac_cv_c_compiler_gnu\nif test -n \"$ac_tool_prefix\"; then\n # Extract the first word of \"${ac_tool_prefix}gcc\", so it can be a program name with args.\nset dummy ${ac_tool_prefix}gcc; ac_word=$2\n{ printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: checking for $ac_word\" >&5\nprintf %s \"checking for $ac_word... \" >&6; }\nif test ${ac_cv_prog_CC+y}\nthen :\n printf %s \"(cached) \" >&6\nelse $as_nop\n if test -n \"$CC\"; then\n ac_cv_prog_CC=\"$CC\" # Let the user override the test.\nelse\nas_save_IFS=$IFS; IFS=$PATH_SEPARATOR\nfor as_dir in $PATH\ndo\n IFS=$as_save_IFS\n case $as_dir in #(((\n '') as_dir=./ ;;\n */) ;;\n *) as_dir=$as_dir/ ;;\n esac\n for ac_exec_ext in '' $ac_executable_extensions; do\n if as_fn_executable_p \"$as_dir$ac_word$ac_exec_ext\"; then\n ac_cv_prog_CC=\"${ac_tool_prefix}gcc\"\n printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: found $as_dir$ac_word$ac_exec_ext\" >&5\n break 2\n fi\ndone\n done\nIFS=$as_save_IFS\n\nfi\nfi\nCC=$ac_cv_prog_CC\nif test -n \"$CC\"; then\n { printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: result: $CC\" >&5\nprintf \"%s\\n\" \"$CC\" >&6; }\nelse\n { printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: result: no\" >&5\nprintf \"%s\\n\" \"no\" >&6; }\nfi\n\n\nfi\nif test -z \"$ac_cv_prog_CC\"; then\n ac_ct_CC=$CC\n # Extract the first word of \"gcc\", so it can be a program name with args.\nset dummy gcc; ac_word=$2\n{ printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: checking for $ac_word\" >&5\nprintf %s \"checking for $ac_word... \" >&6; }\nif test ${ac_cv_prog_ac_ct_CC+y}\nthen :\n printf %s \"(cached) \" >&6\nelse $as_nop\n if test -n \"$ac_ct_CC\"; then\n ac_cv_prog_ac_ct_CC=\"$ac_ct_CC\" # Let the user override the test.\nelse\nas_save_IFS=$IFS; IFS=$PATH_SEPARATOR\nfor as_dir in $PATH\ndo\n IFS=$as_save_IFS\n case $as_dir in #(((\n '') as_dir=./ ;;\n */) ;;\n *) as_dir=$as_dir/ ;;\n esac\n for ac_exec_ext in '' $ac_executable_extensions; do\n if as_fn_executable_p \"$as_dir$ac_word$ac_exec_ext\"; then\n ac_cv_prog_ac_ct_CC=\"gcc\"\n printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: found $as_dir$ac_word$ac_exec_ext\" >&5\n break 2\n fi\ndone\n done\nIFS=$as_save_IFS\n\nfi\nfi\nac_ct_CC=$ac_cv_prog_ac_ct_CC\nif test -n \"$ac_ct_CC\"; then\n { printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: result: $ac_ct_CC\" >&5\nprintf \"%s\\n\" \"$ac_ct_CC\" >&6; }\nelse\n { printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: result: no\" >&5\nprintf \"%s\\n\" \"no\" >&6; }\nfi\n\n if test \"x$ac_ct_CC\" = x; then\n CC=\"\"\n else\n case $cross_compiling:$ac_tool_warned in\nyes:)\n{ printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet\" >&5\nprintf \"%s\\n\" \"$as_me: WARNING: using cross tools not prefixed with host triplet\" >&2;}\nac_tool_warned=yes ;;\nesac\n CC=$ac_ct_CC\n fi\nelse\n CC=\"$ac_cv_prog_CC\"\nfi\n\nif test -z \"$CC\"; then\n if test -n \"$ac_tool_prefix\"; then\n # Extract the first word of \"${ac_tool_prefix}cc\", so it can be a program name with args.\nset dummy ${ac_tool_prefix}cc; ac_word=$2\n{ printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: checking for $ac_word\" >&5\nprintf %s \"checking for $ac_word... \" >&6; }\nif test ${ac_cv_prog_CC+y}\nthen :\n printf %s \"(cached) \" >&6\nelse $as_nop\n if test -n \"$CC\"; then\n ac_cv_prog_CC=\"$CC\" # Let the user override the test.\nelse\nas_save_IFS=$IFS; IFS=$PATH_SEPARATOR\nfor as_dir in $PATH\ndo\n IFS=$as_save_IFS\n case $as_dir in #(((\n '') as_dir=./ ;;\n */) ;;\n *) as_dir=$as_dir/ ;;\n esac\n for ac_exec_ext in '' $ac_executable_extensions; do\n if as_fn_executable_p \"$as_dir$ac_word$ac_exec_ext\"; then\n ac_cv_prog_CC=\"${ac_tool_prefix}cc\"\n printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: found $as_dir$ac_word$ac_exec_ext\" >&5\n break 2\n fi\ndone\n done\nIFS=$as_save_IFS\n\nfi\nfi\nCC=$ac_cv_prog_CC\nif test -n \"$CC\"; then\n { printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: result: $CC\" >&5\nprintf \"%s\\n\" \"$CC\" >&6; }\nelse\n { printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: result: no\" >&5\nprintf \"%s\\n\" \"no\" >&6; }\nfi\n\n\n fi\nfi\nif test -z \"$CC\"; then\n # Extract the first word of \"cc\", so it can be a program name with args.\nset dummy cc; ac_word=$2\n{ printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: checking for $ac_word\" >&5\nprintf %s \"checking for $ac_word... \" >&6; }\nif test ${ac_cv_prog_CC+y}\nthen :\n printf %s \"(cached) \" >&6\nelse $as_nop\n if test -n \"$CC\"; then\n ac_cv_prog_CC=\"$CC\" # Let the user override the test.\nelse\n ac_prog_rejected=no\nas_save_IFS=$IFS; IFS=$PATH_SEPARATOR\nfor as_dir in $PATH\ndo\n IFS=$as_save_IFS\n case $as_dir in #(((\n '') as_dir=./ ;;\n */) ;;\n *) as_dir=$as_dir/ ;;\n esac\n for ac_exec_ext in '' $ac_executable_extensions; do\n if as_fn_executable_p \"$as_dir$ac_word$ac_exec_ext\"; then\n if test \"$as_dir$ac_word$ac_exec_ext\" = \"/usr/ucb/cc\"; then\n ac_prog_rejected=yes\n continue\n fi\n ac_cv_prog_CC=\"cc\"\n printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: found $as_dir$ac_word$ac_exec_ext\" >&5\n break 2\n fi\ndone\n done\nIFS=$as_save_IFS\n\nif test $ac_prog_rejected = yes; then\n # We found a bogon in the path, so make sure we never use it.\n set dummy $ac_cv_prog_CC\n shift\n if test $# != 0; then\n # We chose a different compiler from the bogus one.\n # However, it has the same basename, so the bogon will be chosen\n # first if we set CC to just the basename; use the full file name.\n shift\n ac_cv_prog_CC=\"$as_dir$ac_word${1+' '}$@\"\n fi\nfi\nfi\nfi\nCC=$ac_cv_prog_CC\nif test -n \"$CC\"; then\n { printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: result: $CC\" >&5\nprintf \"%s\\n\" \"$CC\" >&6; }\nelse\n { printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: result: no\" >&5\nprintf \"%s\\n\" \"no\" >&6; }\nfi\n\n\nfi\nif test -z \"$CC\"; then\n if test -n \"$ac_tool_prefix\"; then\n for ac_prog in cl.exe\n do\n # Extract the first word of \"$ac_tool_prefix$ac_prog\", so it can be a program name with args.\nset dummy $ac_tool_prefix$ac_prog; ac_word=$2\n{ printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: checking for $ac_word\" >&5\nprintf %s \"checking for $ac_word... \" >&6; }\nif test ${ac_cv_prog_CC+y}\nthen :\n printf %s \"(cached) \" >&6\nelse $as_nop\n if test -n \"$CC\"; then\n ac_cv_prog_CC=\"$CC\" # Let the user override the test.\nelse\nas_save_IFS=$IFS; IFS=$PATH_SEPARATOR\nfor as_dir in $PATH\ndo\n IFS=$as_save_IFS\n case $as_dir in #(((\n '') as_dir=./ ;;\n */) ;;\n *) as_dir=$as_dir/ ;;\n esac\n for ac_exec_ext in '' $ac_executable_extensions; do\n if as_fn_executable_p \"$as_dir$ac_word$ac_exec_ext\"; then\n ac_cv_prog_CC=\"$ac_tool_prefix$ac_prog\"\n printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: found $as_dir$ac_word$ac_exec_ext\" >&5\n break 2\n fi\ndone\n done\nIFS=$as_save_IFS\n\nfi\nfi\nCC=$ac_cv_prog_CC\nif test -n \"$CC\"; then\n { printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: result: $CC\" >&5\nprintf \"%s\\n\" \"$CC\" >&6; }\nelse\n { printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: result: no\" >&5\nprintf \"%s\\n\" \"no\" >&6; }\nfi\n\n\n test -n \"$CC\" && break\n done\nfi\nif test -z \"$CC\"; then\n ac_ct_CC=$CC\n for ac_prog in cl.exe\ndo\n # Extract the first word of \"$ac_prog\", so it can be a program name with args.\nset dummy $ac_prog; ac_word=$2\n{ printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: checking for $ac_word\" >&5\nprintf %s \"checking for $ac_word... \" >&6; }\nif test ${ac_cv_prog_ac_ct_CC+y}\nthen :\n printf %s \"(cached) \" >&6\nelse $as_nop\n if test -n \"$ac_ct_CC\"; then\n ac_cv_prog_ac_ct_CC=\"$ac_ct_CC\" # Let the user override the test.\nelse\nas_save_IFS=$IFS; IFS=$PATH_SEPARATOR\nfor as_dir in $PATH\ndo\n IFS=$as_save_IFS\n case $as_dir in #(((\n '') as_dir=./ ;;\n */) ;;\n *) as_dir=$as_dir/ ;;\n esac\n for ac_exec_ext in '' $ac_executable_extensions; do\n if as_fn_executable_p \"$as_dir$ac_word$ac_exec_ext\"; then\n ac_cv_prog_ac_ct_CC=\"$ac_prog\"\n printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: found $as_dir$ac_word$ac_exec_ext\" >&5\n break 2\n fi\ndone\n done\nIFS=$as_save_IFS\n\nfi\nfi\nac_ct_CC=$ac_cv_prog_ac_ct_CC\nif test -n \"$ac_ct_CC\"; then\n { printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: result: $ac_ct_CC\" >&5\nprintf \"%s\\n\" \"$ac_ct_CC\" >&6; }\nelse\n { printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: result: no\" >&5\nprintf \"%s\\n\" \"no\" >&6; }\nfi\n\n\n test -n \"$ac_ct_CC\" && break\ndone\n\n if test \"x$ac_ct_CC\" = x; then\n CC=\"\"\n else\n case $cross_compiling:$ac_tool_warned in\nyes:)\n{ printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet\" >&5\nprintf \"%s\\n\" \"$as_me: WARNING: using cross tools not prefixed with host triplet\" >&2;}\nac_tool_warned=yes ;;\nesac\n CC=$ac_ct_CC\n fi\nfi\n\nfi\nif test -z \"$CC\"; then\n if test -n \"$ac_tool_prefix\"; then\n # Extract the first word of \"${ac_tool_prefix}clang\", so it can be a program name with args.\nset dummy ${ac_tool_prefix}clang; ac_word=$2\n{ printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: checking for $ac_word\" >&5\nprintf %s \"checking for $ac_word... \" >&6; }\nif test ${ac_cv_prog_CC+y}\nthen :\n printf %s \"(cached) \" >&6\nelse $as_nop\n if test -n \"$CC\"; then\n ac_cv_prog_CC=\"$CC\" # Let the user override the test.\nelse\nas_save_IFS=$IFS; IFS=$PATH_SEPARATOR\nfor as_dir in $PATH\ndo\n IFS=$as_save_IFS\n case $as_dir in #(((\n '') as_dir=./ ;;\n */) ;;\n *) as_dir=$as_dir/ ;;\n esac\n for ac_exec_ext in '' $ac_executable_extensions; do\n if as_fn_executable_p \"$as_dir$ac_word$ac_exec_ext\"; then\n ac_cv_prog_CC=\"${ac_tool_prefix}clang\"\n printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: found $as_dir$ac_word$ac_exec_ext\" >&5\n break 2\n fi\ndone\n done\nIFS=$as_save_IFS\n\nfi\nfi\nCC=$ac_cv_prog_CC\nif test -n \"$CC\"; then\n { printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: result: $CC\" >&5\nprintf \"%s\\n\" \"$CC\" >&6; }\nelse\n { printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: result: no\" >&5\nprintf \"%s\\n\" \"no\" >&6; }\nfi\n\n\nfi\nif test -z \"$ac_cv_prog_CC\"; then\n ac_ct_CC=$CC\n # Extract the first word of \"clang\", so it can be a program name with args.\nset dummy clang; ac_word=$2\n{ printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: checking for $ac_word\" >&5\nprintf %s \"checking for $ac_word... \" >&6; }\nif test ${ac_cv_prog_ac_ct_CC+y}\nthen :\n printf %s \"(cached) \" >&6\nelse $as_nop\n if test -n \"$ac_ct_CC\"; then\n ac_cv_prog_ac_ct_CC=\"$ac_ct_CC\" # Let the user override the test.\nelse\nas_save_IFS=$IFS; IFS=$PATH_SEPARATOR\nfor as_dir in $PATH\ndo\n IFS=$as_save_IFS\n case $as_dir in #(((\n '') as_dir=./ ;;\n */) ;;\n *) as_dir=$as_dir/ ;;\n esac\n for ac_exec_ext in '' $ac_executable_extensions; do\n if as_fn_executable_p \"$as_dir$ac_word$ac_exec_ext\"; then\n ac_cv_prog_ac_ct_CC=\"clang\"\n printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: found $as_dir$ac_word$ac_exec_ext\" >&5\n break 2\n fi\ndone\n done\nIFS=$as_save_IFS\n\nfi\nfi\nac_ct_CC=$ac_cv_prog_ac_ct_CC\nif test -n \"$ac_ct_CC\"; then\n { printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: result: $ac_ct_CC\" >&5\nprintf \"%s\\n\" \"$ac_ct_CC\" >&6; }\nelse\n { printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: result: no\" >&5\nprintf \"%s\\n\" \"no\" >&6; }\nfi\n\n if test \"x$ac_ct_CC\" = x; then\n CC=\"\"\n else\n case $cross_compiling:$ac_tool_warned in\nyes:)\n{ printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet\" >&5\nprintf \"%s\\n\" \"$as_me: WARNING: using cross tools not prefixed with host triplet\" >&2;}\nac_tool_warned=yes ;;\nesac\n CC=$ac_ct_CC\n fi\nelse\n CC=\"$ac_cv_prog_CC\"\nfi\n\nfi\n\n\ntest -z \"$CC\" && { { printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: error: in \\`$ac_pwd':\" >&5\nprintf \"%s\\n\" \"$as_me: error: in \\`$ac_pwd':\" >&2;}\nas_fn_error $? \"no acceptable C compiler found in \\$PATH\nSee \\`config.log' for more details\" \"$LINENO\" 5; }\n\n# Provide some information about the compiler.\nprintf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: checking for C compiler version\" >&5\nset X $ac_compile\nac_compiler=$2\nfor ac_option in --version -v -V -qversion -version; do\n { { ac_try=\"$ac_compiler $ac_option >&5\"\ncase \"(($ac_try\" in\n *\\\"* | *\\`* | *\\\\*) ac_try_echo=\\$ac_try;;\n *) ac_try_echo=$ac_try;;\nesac\neval ac_try_echo=\"\\\"\\$as_me:${as_lineno-$LINENO}: $ac_try_echo\\\"\"\nprintf \"%s\\n\" \"$ac_try_echo\"; } >&5\n (eval \"$ac_compiler $ac_option >&5\") 2>conftest.err\n ac_status=$?\n if test -s conftest.err; then\n sed '10a\\\n... rest of stderr output deleted ...\n 10q' conftest.err >conftest.er1\n cat conftest.er1 >&5\n fi\n rm -f conftest.er1 conftest.err\n printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: \\$? = $ac_status\" >&5\n test $ac_status = 0; }\ndone\n\ncat confdefs.h - <<_ACEOF >conftest.$ac_ext\n/* end confdefs.h. */\n\nint\nmain (void)\n{\n\n ;\n return 0;\n}\n_ACEOF\nac_clean_files_save=$ac_clean_files\nac_clean_files=\"$ac_clean_files a.out a.out.dSYM a.exe b.out\"\n# Try to create an executable without -o first, disregard a.out.\n# It will help us diagnose broken compilers, and finding out an intuition\n# of exeext.\n{ printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: checking whether the C compiler works\" >&5\nprintf %s \"checking whether the C compiler works... \" >&6; }\nac_link_default=`printf \"%s\\n\" \"$ac_link\" | sed 's/ -o *conftest[^ ]*//'`\n\n# The possible output files:\nac_files=\"a.out conftest.exe conftest a.exe a_out.exe b.out conftest.*\"\n\nac_rmfiles=\nfor ac_file in $ac_files\ndo\n case $ac_file in\n *.$ac_ext | *.xcoff | *.tds | *.d | *.pdb | *.xSYM | *.bb | *.bbg | *.map | *.inf | *.dSYM | *.o | *.obj ) ;;\n * ) ac_rmfiles=\"$ac_rmfiles $ac_file\";;\n esac\ndone\nrm -f $ac_rmfiles\n\nif { { ac_try=\"$ac_link_default\"\ncase \"(($ac_try\" in\n *\\\"* | *\\`* | *\\\\*) ac_try_echo=\\$ac_try;;\n *) ac_try_echo=$ac_try;;\nesac\neval ac_try_echo=\"\\\"\\$as_me:${as_lineno-$LINENO}: $ac_try_echo\\\"\"\nprintf \"%s\\n\" \"$ac_try_echo\"; } >&5\n (eval \"$ac_link_default\") 2>&5\n ac_status=$?\n printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: \\$? = $ac_status\" >&5\n test $ac_status = 0; }\nthen :\n # Autoconf-2.13 could set the ac_cv_exeext variable to `no'.\n# So ignore a value of `no', otherwise this would lead to `EXEEXT = no'\n# in a Makefile. We should not override ac_cv_exeext if it was cached,\n# so that the user can short-circuit this test for compilers unknown to\n# Autoconf.\nfor ac_file in $ac_files ''\ndo\n test -f \"$ac_file\" || continue\n case $ac_file in\n *.$ac_ext | *.xcoff | *.tds | *.d | *.pdb | *.xSYM | *.bb | *.bbg | *.map | *.inf | *.dSYM | *.o | *.obj )\n\t;;\n [ab].out )\n\t# We found the default executable, but exeext='' is most\n\t# certainly right.\n\tbreak;;\n *.* )\n\tif test ${ac_cv_exeext+y} && test \"$ac_cv_exeext\" != no;\n\tthen :; else\n\t ac_cv_exeext=`expr \"$ac_file\" : '[^.]*\\(\\..*\\)'`\n\tfi\n\t# We set ac_cv_exeext here because the later test for it is not\n\t# safe: cross compilers may not add the suffix if given an `-o'\n\t# argument, so we may need to know it at that point already.\n\t# Even if this section looks crufty: it has the advantage of\n\t# actually working.\n\tbreak;;\n * )\n\tbreak;;\n esac\ndone\ntest \"$ac_cv_exeext\" = no && ac_cv_exeext=\n\nelse $as_nop\n ac_file=''\nfi\nif test -z \"$ac_file\"\nthen :\n { printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: result: no\" >&5\nprintf \"%s\\n\" \"no\" >&6; }\nprintf \"%s\\n\" \"$as_me: failed program was:\" >&5\nsed 's/^/| /' conftest.$ac_ext >&5\n\n{ { printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: error: in \\`$ac_pwd':\" >&5\nprintf \"%s\\n\" \"$as_me: error: in \\`$ac_pwd':\" >&2;}\nas_fn_error 77 \"C compiler cannot create executables\nSee \\`config.log' for more details\" \"$LINENO\" 5; }\nelse $as_nop\n { printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: result: yes\" >&5\nprintf \"%s\\n\" \"yes\" >&6; }\nfi\n{ printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: checking for C compiler default output file name\" >&5\nprintf %s \"checking for C compiler default output file name... \" >&6; }\n{ printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: result: $ac_file\" >&5\nprintf \"%s\\n\" \"$ac_file\" >&6; }\nac_exeext=$ac_cv_exeext\n\nrm -f -r a.out a.out.dSYM a.exe conftest$ac_cv_exeext b.out\nac_clean_files=$ac_clean_files_save\n{ printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: checking for suffix of executables\" >&5\nprintf %s \"checking for suffix of executables... \" >&6; }\nif { { ac_try=\"$ac_link\"\ncase \"(($ac_try\" in\n *\\\"* | *\\`* | *\\\\*) ac_try_echo=\\$ac_try;;\n *) ac_try_echo=$ac_try;;\nesac\neval ac_try_echo=\"\\\"\\$as_me:${as_lineno-$LINENO}: $ac_try_echo\\\"\"\nprintf \"%s\\n\" \"$ac_try_echo\"; } >&5\n (eval \"$ac_link\") 2>&5\n ac_status=$?\n printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: \\$? = $ac_status\" >&5\n test $ac_status = 0; }\nthen :\n # If both `conftest.exe' and `conftest' are `present' (well, observable)\n# catch `conftest.exe'. For instance with Cygwin, `ls conftest' will\n# work properly (i.e., refer to `conftest.exe'), while it won't with\n# `rm'.\nfor ac_file in conftest.exe conftest conftest.*; do\n test -f \"$ac_file\" || continue\n case $ac_file in\n *.$ac_ext | *.xcoff | *.tds | *.d | *.pdb | *.xSYM | *.bb | *.bbg | *.map | *.inf | *.dSYM | *.o | *.obj ) ;;\n *.* ) ac_cv_exeext=`expr \"$ac_file\" : '[^.]*\\(\\..*\\)'`\n\t break;;\n * ) break;;\n esac\ndone\nelse $as_nop\n { { printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: error: in \\`$ac_pwd':\" >&5\nprintf \"%s\\n\" \"$as_me: error: in \\`$ac_pwd':\" >&2;}\nas_fn_error $? \"cannot compute suffix of executables: cannot compile and link\nSee \\`config.log' for more details\" \"$LINENO\" 5; }\nfi\nrm -f conftest conftest$ac_cv_exeext\n{ printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: result: $ac_cv_exeext\" >&5\nprintf \"%s\\n\" \"$ac_cv_exeext\" >&6; }\n\nrm -f conftest.$ac_ext\nEXEEXT=$ac_cv_exeext\nac_exeext=$EXEEXT\ncat confdefs.h - <<_ACEOF >conftest.$ac_ext\n/* end confdefs.h. */\n#include \nint\nmain (void)\n{\nFILE *f = fopen (\"conftest.out\", \"w\");\n return ferror (f) || fclose (f) != 0;\n\n ;\n return 0;\n}\n_ACEOF\nac_clean_files=\"$ac_clean_files conftest.out\"\n# Check that the compiler produces executables we can run. If not, either\n# the compiler is broken, or we cross compile.\n{ printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: checking whether we are cross compiling\" >&5\nprintf %s \"checking whether we are cross compiling... \" >&6; }\nif test \"$cross_compiling\" != yes; then\n { { ac_try=\"$ac_link\"\ncase \"(($ac_try\" in\n *\\\"* | *\\`* | *\\\\*) ac_try_echo=\\$ac_try;;\n *) ac_try_echo=$ac_try;;\nesac\neval ac_try_echo=\"\\\"\\$as_me:${as_lineno-$LINENO}: $ac_try_echo\\\"\"\nprintf \"%s\\n\" \"$ac_try_echo\"; } >&5\n (eval \"$ac_link\") 2>&5\n ac_status=$?\n printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: \\$? = $ac_status\" >&5\n test $ac_status = 0; }\n if { ac_try='./conftest$ac_cv_exeext'\n { { case \"(($ac_try\" in\n *\\\"* | *\\`* | *\\\\*) ac_try_echo=\\$ac_try;;\n *) ac_try_echo=$ac_try;;\nesac\neval ac_try_echo=\"\\\"\\$as_me:${as_lineno-$LINENO}: $ac_try_echo\\\"\"\nprintf \"%s\\n\" \"$ac_try_echo\"; } >&5\n (eval \"$ac_try\") 2>&5\n ac_status=$?\n printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: \\$? = $ac_status\" >&5\n test $ac_status = 0; }; }; then\n cross_compiling=no\n else\n if test \"$cross_compiling\" = maybe; then\n\tcross_compiling=yes\n else\n\t{ { printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: error: in \\`$ac_pwd':\" >&5\nprintf \"%s\\n\" \"$as_me: error: in \\`$ac_pwd':\" >&2;}\nas_fn_error 77 \"cannot run C compiled programs.\nIf you meant to cross compile, use \\`--host'.\nSee \\`config.log' for more details\" \"$LINENO\" 5; }\n fi\n fi\nfi\n{ printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: result: $cross_compiling\" >&5\nprintf \"%s\\n\" \"$cross_compiling\" >&6; }\n\nrm -f conftest.$ac_ext conftest$ac_cv_exeext conftest.out\nac_clean_files=$ac_clean_files_save\n{ printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: checking for suffix of object files\" >&5\nprintf %s \"checking for suffix of object files... \" >&6; }\nif test ${ac_cv_objext+y}\nthen :\n printf %s \"(cached) \" >&6\nelse $as_nop\n cat confdefs.h - <<_ACEOF >conftest.$ac_ext\n/* end confdefs.h. */\n\nint\nmain (void)\n{\n\n ;\n return 0;\n}\n_ACEOF\nrm -f conftest.o conftest.obj\nif { { ac_try=\"$ac_compile\"\ncase \"(($ac_try\" in\n *\\\"* | *\\`* | *\\\\*) ac_try_echo=\\$ac_try;;\n *) ac_try_echo=$ac_try;;\nesac\neval ac_try_echo=\"\\\"\\$as_me:${as_lineno-$LINENO}: $ac_try_echo\\\"\"\nprintf \"%s\\n\" \"$ac_try_echo\"; } >&5\n (eval \"$ac_compile\") 2>&5\n ac_status=$?\n printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: \\$? = $ac_status\" >&5\n test $ac_status = 0; }\nthen :\n for ac_file in conftest.o conftest.obj conftest.*; do\n test -f \"$ac_file\" || continue;\n case $ac_file in\n *.$ac_ext | *.xcoff | *.tds | *.d | *.pdb | *.xSYM | *.bb | *.bbg | *.map | *.inf | *.dSYM ) ;;\n *) ac_cv_objext=`expr \"$ac_file\" : '.*\\.\\(.*\\)'`\n break;;\n esac\ndone\nelse $as_nop\n printf \"%s\\n\" \"$as_me: failed program was:\" >&5\nsed 's/^/| /' conftest.$ac_ext >&5\n\n{ { printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: error: in \\`$ac_pwd':\" >&5\nprintf \"%s\\n\" \"$as_me: error: in \\`$ac_pwd':\" >&2;}\nas_fn_error $? \"cannot compute suffix of object files: cannot compile\nSee \\`config.log' for more details\" \"$LINENO\" 5; }\nfi\nrm -f conftest.$ac_cv_objext conftest.$ac_ext\nfi\n{ printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: result: $ac_cv_objext\" >&5\nprintf \"%s\\n\" \"$ac_cv_objext\" >&6; }\nOBJEXT=$ac_cv_objext\nac_objext=$OBJEXT\n{ printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: checking whether the compiler supports GNU C\" >&5\nprintf %s \"checking whether the compiler supports GNU C... \" >&6; }\nif test ${ac_cv_c_compiler_gnu+y}\nthen :\n printf %s \"(cached) \" >&6\nelse $as_nop\n cat confdefs.h - <<_ACEOF >conftest.$ac_ext\n/* end confdefs.h. */\n\nint\nmain (void)\n{\n#ifndef __GNUC__\n choke me\n#endif\n\n ;\n return 0;\n}\n_ACEOF\nif ac_fn_c_try_compile \"$LINENO\"\nthen :\n ac_compiler_gnu=yes\nelse $as_nop\n ac_compiler_gnu=no\nfi\nrm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext\nac_cv_c_compiler_gnu=$ac_compiler_gnu\n\nfi\n{ printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: result: $ac_cv_c_compiler_gnu\" >&5\nprintf \"%s\\n\" \"$ac_cv_c_compiler_gnu\" >&6; }\nac_compiler_gnu=$ac_cv_c_compiler_gnu\n\nif test $ac_compiler_gnu = yes; then\n GCC=yes\nelse\n GCC=\nfi\nac_test_CFLAGS=${CFLAGS+y}\nac_save_CFLAGS=$CFLAGS\n{ printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: checking whether $CC accepts -g\" >&5\nprintf %s \"checking whether $CC accepts -g... \" >&6; }\nif test ${ac_cv_prog_cc_g+y}\nthen :\n printf %s \"(cached) \" >&6\nelse $as_nop\n ac_save_c_werror_flag=$ac_c_werror_flag\n ac_c_werror_flag=yes\n ac_cv_prog_cc_g=no\n CFLAGS=\"-g\"\n cat confdefs.h - <<_ACEOF >conftest.$ac_ext\n/* end confdefs.h. */\n\nint\nmain (void)\n{\n\n ;\n return 0;\n}\n_ACEOF\nif ac_fn_c_try_compile \"$LINENO\"\nthen :\n ac_cv_prog_cc_g=yes\nelse $as_nop\n CFLAGS=\"\"\n cat confdefs.h - <<_ACEOF >conftest.$ac_ext\n/* end confdefs.h. */\n\nint\nmain (void)\n{\n\n ;\n return 0;\n}\n_ACEOF\nif ac_fn_c_try_compile \"$LINENO\"\nthen :\n\nelse $as_nop\n ac_c_werror_flag=$ac_save_c_werror_flag\n\t CFLAGS=\"-g\"\n\t cat confdefs.h - <<_ACEOF >conftest.$ac_ext\n/* end confdefs.h. */\n\nint\nmain (void)\n{\n\n ;\n return 0;\n}\n_ACEOF\nif ac_fn_c_try_compile \"$LINENO\"\nthen :\n ac_cv_prog_cc_g=yes\nfi\nrm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext\nfi\nrm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext\nfi\nrm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext\n ac_c_werror_flag=$ac_save_c_werror_flag\nfi\n{ printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: result: $ac_cv_prog_cc_g\" >&5\nprintf \"%s\\n\" \"$ac_cv_prog_cc_g\" >&6; }\nif test $ac_test_CFLAGS; then\n CFLAGS=$ac_save_CFLAGS\nelif test $ac_cv_prog_cc_g = yes; then\n if test \"$GCC\" = yes; then\n CFLAGS=\"-g -O2\"\n else\n CFLAGS=\"-g\"\n fi\nelse\n if test \"$GCC\" = yes; then\n CFLAGS=\"-O2\"\n else\n CFLAGS=\n fi\nfi\nac_prog_cc_stdc=no\nif test x$ac_prog_cc_stdc = xno\nthen :\n { printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: checking for $CC option to enable C11 features\" >&5\nprintf %s \"checking for $CC option to enable C11 features... \" >&6; }\nif test ${ac_cv_prog_cc_c11+y}\nthen :\n printf %s \"(cached) \" >&6\nelse $as_nop\n ac_cv_prog_cc_c11=no\nac_save_CC=$CC\ncat confdefs.h - <<_ACEOF >conftest.$ac_ext\n/* end confdefs.h. */\n$ac_c_conftest_c11_program\n_ACEOF\nfor ac_arg in '' -std=gnu11\ndo\n CC=\"$ac_save_CC $ac_arg\"\n if ac_fn_c_try_compile \"$LINENO\"\nthen :\n ac_cv_prog_cc_c11=$ac_arg\nfi\nrm -f core conftest.err conftest.$ac_objext conftest.beam\n test \"x$ac_cv_prog_cc_c11\" != \"xno\" && break\ndone\nrm -f conftest.$ac_ext\nCC=$ac_save_CC\nfi\n\nif test \"x$ac_cv_prog_cc_c11\" = xno\nthen :\n { printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: result: unsupported\" >&5\nprintf \"%s\\n\" \"unsupported\" >&6; }\nelse $as_nop\n if test \"x$ac_cv_prog_cc_c11\" = x\nthen :\n { printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: result: none needed\" >&5\nprintf \"%s\\n\" \"none needed\" >&6; }\nelse $as_nop\n { printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: result: $ac_cv_prog_cc_c11\" >&5\nprintf \"%s\\n\" \"$ac_cv_prog_cc_c11\" >&6; }\n CC=\"$CC $ac_cv_prog_cc_c11\"\nfi\n ac_cv_prog_cc_stdc=$ac_cv_prog_cc_c11\n ac_prog_cc_stdc=c11\nfi\nfi\nif test x$ac_prog_cc_stdc = xno\nthen :\n { printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: checking for $CC option to enable C99 features\" >&5\nprintf %s \"checking for $CC option to enable C99 features... \" >&6; }\nif test ${ac_cv_prog_cc_c99+y}\nthen :\n printf %s \"(cached) \" >&6\nelse $as_nop\n ac_cv_prog_cc_c99=no\nac_save_CC=$CC\ncat confdefs.h - <<_ACEOF >conftest.$ac_ext\n/* end confdefs.h. */\n$ac_c_conftest_c99_program\n_ACEOF\nfor ac_arg in '' -std=gnu99 -std=c99 -c99 -qlanglvl=extc1x -qlanglvl=extc99 -AC99 -D_STDC_C99=\ndo\n CC=\"$ac_save_CC $ac_arg\"\n if ac_fn_c_try_compile \"$LINENO\"\nthen :\n ac_cv_prog_cc_c99=$ac_arg\nfi\nrm -f core conftest.err conftest.$ac_objext conftest.beam\n test \"x$ac_cv_prog_cc_c99\" != \"xno\" && break\ndone\nrm -f conftest.$ac_ext\nCC=$ac_save_CC\nfi\n\nif test \"x$ac_cv_prog_cc_c99\" = xno\nthen :\n { printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: result: unsupported\" >&5\nprintf \"%s\\n\" \"unsupported\" >&6; }\nelse $as_nop\n if test \"x$ac_cv_prog_cc_c99\" = x\nthen :\n { printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: result: none needed\" >&5\nprintf \"%s\\n\" \"none needed\" >&6; }\nelse $as_nop\n { printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: result: $ac_cv_prog_cc_c99\" >&5\nprintf \"%s\\n\" \"$ac_cv_prog_cc_c99\" >&6; }\n CC=\"$CC $ac_cv_prog_cc_c99\"\nfi\n ac_cv_prog_cc_stdc=$ac_cv_prog_cc_c99\n ac_prog_cc_stdc=c99\nfi\nfi\nif test x$ac_prog_cc_stdc = xno\nthen :\n { printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: checking for $CC option to enable C89 features\" >&5\nprintf %s \"checking for $CC option to enable C89 features... \" >&6; }\nif test ${ac_cv_prog_cc_c89+y}\nthen :\n printf %s \"(cached) \" >&6\nelse $as_nop\n ac_cv_prog_cc_c89=no\nac_save_CC=$CC\ncat confdefs.h - <<_ACEOF >conftest.$ac_ext\n/* end confdefs.h. */\n$ac_c_conftest_c89_program\n_ACEOF\nfor ac_arg in '' -qlanglvl=extc89 -qlanglvl=ansi -std -Ae \"-Aa -D_HPUX_SOURCE\" \"-Xc -D__EXTENSIONS__\"\ndo\n CC=\"$ac_save_CC $ac_arg\"\n if ac_fn_c_try_compile \"$LINENO\"\nthen :\n ac_cv_prog_cc_c89=$ac_arg\nfi\nrm -f core conftest.err conftest.$ac_objext conftest.beam\n test \"x$ac_cv_prog_cc_c89\" != \"xno\" && break\ndone\nrm -f conftest.$ac_ext\nCC=$ac_save_CC\nfi\n\nif test \"x$ac_cv_prog_cc_c89\" = xno\nthen :\n { printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: result: unsupported\" >&5\nprintf \"%s\\n\" \"unsupported\" >&6; }\nelse $as_nop\n if test \"x$ac_cv_prog_cc_c89\" = x\nthen :\n { printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: result: none needed\" >&5\nprintf \"%s\\n\" \"none needed\" >&6; }\nelse $as_nop\n { printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: result: $ac_cv_prog_cc_c89\" >&5\nprintf \"%s\\n\" \"$ac_cv_prog_cc_c89\" >&6; }\n CC=\"$CC $ac_cv_prog_cc_c89\"\nfi\n ac_cv_prog_cc_stdc=$ac_cv_prog_cc_c89\n ac_prog_cc_stdc=c89\nfi\nfi\n\nac_ext=c\nac_cpp='$CPP $CPPFLAGS'\nac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'\nac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'\nac_compiler_gnu=$ac_cv_c_compiler_gnu\n\n\nac_header= ac_cache=\nfor ac_item in $ac_header_c_list\ndo\n if test $ac_cache; then\n ac_fn_c_check_header_compile \"$LINENO\" $ac_header ac_cv_header_$ac_cache \"$ac_includes_default\"\n if eval test \\\"x\\$ac_cv_header_$ac_cache\\\" = xyes; then\n printf \"%s\\n\" \"#define $ac_item 1\" >> confdefs.h\n fi\n ac_header= ac_cache=\n elif test $ac_header; then\n ac_cache=$ac_item\n else\n ac_header=$ac_item\n fi\ndone\n\n\n\n\n\n\n\n\nif test $ac_cv_header_stdlib_h = yes && test $ac_cv_header_string_h = yes\nthen :\n\nprintf \"%s\\n\" \"#define STDC_HEADERS 1\" >>confdefs.h\n\nfi\n for ac_header in gdal.h\ndo :\n ac_fn_c_check_header_compile \"$LINENO\" \"gdal.h\" \"ac_cv_header_gdal_h\" \"$ac_includes_default\"\nif test \"x$ac_cv_header_gdal_h\" = xyes\nthen :\n printf \"%s\\n\" \"#define HAVE_GDAL_H 1\" >>confdefs.h\n\nelse $as_nop\n gdalok=no\nfi\n\ndone\nif test \"${gdalok}\" = no; then\n as_fn_error $? \"gdal.h not found in given locations. ${GENERIC_INSTALL_MESSAGE}\" \"$LINENO\" 5\nfi\n\nNEED_DEPS=no\nLIBS=\"${INLIBS} ${PKG_LIBS}\"\ncat > gdal_test.cpp <<_EOCONF\n#include \n#ifdef __cplusplus\nextern \"C\" {\n#endif\nint main(void) {\nGDALAllRegister();\n}\n#ifdef __cplusplus\n}\n#endif\n_EOCONF\n\n{ printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: checking GDAL: linking with --libs only\" >&5\nprintf %s \"checking GDAL: linking with --libs only... \" >&6; }\n${CXX} ${CPPFLAGS} -o gdal_test gdal_test.cpp ${LIBS} 2> errors.txt\nif test `echo $?` -ne 0 ; then\ngdalok=no\n{ printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: result: no\" >&5\nprintf \"%s\\n\" \"no\" >&6; }\nelse\n{ printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: result: yes\" >&5\nprintf \"%s\\n\" \"yes\" >&6; }\nfi\n\nif test \"${gdalok}\" = no; then\n{ printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: checking GDAL: linking with --libs and --dep-libs\" >&5\nprintf %s \"checking GDAL: linking with --libs and --dep-libs... \" >&6; }\nLIBS=\"${LIBS} ${GDAL_DEP_LIBS}\"\ngdalok=yes\n${CXX} ${CPPFLAGS} -o gdal_test gdal_test.cpp ${LIBS} 2>> errors.txt\nif test `echo $?` -ne 0 ; then\ngdalok=no\nfi\nif test \"${gdalok}\" = yes; then\n NEED_DEPS=yes\n { printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: result: yes\" >&5\nprintf \"%s\\n\" \"yes\" >&6; }\nelse\n { printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: result: no\" >&5\nprintf \"%s\\n\" \"no\" >&6; }\nfi\nfi\n\nif test \"${gdalok}\" = no; then\n cat errors.txt\n { printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: Install failure: compilation and/or linkage problems.\" >&5\nprintf \"%s\\n\" \"$as_me: Install failure: compilation and/or linkage problems.\" >&6;}\n as_fn_error $? \"GDALAllRegister not found in libgdal. ${GENERIC_INSTALL_MESSAGE}\" \"$LINENO\" 5\nfi\n\nrm -f gdal_test errors.txt gdal_test.cpp\n\nGDAL_GE_250=\"no\"\nGDAL_MAJ_VER=`echo $GDAL_VERSION | cut -d \".\" -f1`\nGDAL_MOD_VER=`echo $GDAL_VERSION | cut -d \".\" -f2`\nif test \"${GDAL_MAJ_VER}\" = 2 ; then\n if test \"${GDAL_MOD_VER}\" -ge 5 ; then\n GDAL_GE_250=\"yes\"\n fi\nelse\n if test \"${GDAL_MAJ_VER}\" -ge 3 ; then\n GDAL_GE_250=\"yes\"\n fi\nfi\n\nGDAL_DATA_TEST_FILE=\"${GDAL_DATADIR}/pcs.csv\"\n{ printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: checking GDAL: ${GDAL_DATADIR}/pcs.csv readable\" >&5\nprintf %s \"checking GDAL: ${GDAL_DATADIR}/pcs.csv readable... \" >&6; }\nif test -r \"${GDAL_DATA_TEST_FILE}\" ; then\n { printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: result: yes\" >&5\nprintf \"%s\\n\" \"yes\" >&6; }\nelse\n { printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: result: no\" >&5\nprintf \"%s\\n\" \"no\" >&6; }\n if test \"${GDAL_GE_250}\" = \"no\" ; then\n as_fn_error $? \"pcs.csv not found in GDAL data directory.\" \"$LINENO\" 5\n fi\nfi\n\n# Optional local copy of GDAL datadir and PROJ_LIB\n\ndata_copy=no\nif test \"${PROJ_GDAL_DATA_COPY}\" ; then\n data_copy=yes\n { printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: PROJ_GDAL_DATA_COPY used.\" >&5\nprintf \"%s\\n\" \"$as_me: PROJ_GDAL_DATA_COPY used.\" >&6;}\nelse\n\n# Check whether --with-data-copy was given.\nif test ${with_data_copy+y}\nthen :\n withval=$with_data_copy; data_copy=$withval\nfi\n\nfi\nif test \"${data_copy}\" = \"yes\" ; then\n{ printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: Copy data for:\" >&5\nprintf \"%s\\n\" \"$as_me: Copy data for:\" >&6;}\n proj_lib0=\"${PROJ_LIB}\"\n\n# Check whether --with-proj-data was given.\nif test ${with_proj_data+y}\nthen :\n withval=$with_proj_data; proj_lib1=$withval\nfi\n\n if test -n \"${proj_lib0}\" ; then\n proj_lib=\"${proj_lib0}\"\n else\n proj_lib=\"${proj_lib1}\"\n fi\n if test -n \"${proj_lib}\" ; then\n if test -d \"${proj_lib}\" ; then\n cp -r \"${proj_lib}\" \"${R_PACKAGE_DIR}\"\n { printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: PROJ: ${proj_lib}\" >&5\nprintf \"%s\\n\" \"$as_me: PROJ: ${proj_lib}\" >&6;}\n else\n as_fn_error $? \"PROJ data files not found; set environment variable PROJ_LIB=DIR or --with-proj-data=DIR.\" \"$LINENO\" 5\n fi\n else\n as_fn_error $? \"PROJ data files not found; set environment variable PROJ_LIB=DIR or --with-proj-data=DIR.\" \"$LINENO\" 5\n fi\n\n if test -d \"${GDAL_DATADIR}\" ; then\n cp -r \"${GDAL_DATADIR}\" \"${R_PACKAGE_DIR}\"\n { printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: GDAL: ${GDAL_DATADIR}\" >&5\nprintf \"%s\\n\" \"$as_me: GDAL: ${GDAL_DATADIR}\" >&6;}\n else\n as_fn_error $? \"GDAL data files not found.\" \"$LINENO\" 5\n fi\nfi\n\n#\n# test whether PROJ is available to gdal:\n#\n\ngdal_has_proj=no\ncat > gdal_proj.cpp <<_EOCONF\n#include \n#include \n#include \nint main(int argc, char *argv[]) {\n\tOGRSpatialReference *dest = new OGRSpatialReference;\n\tOGRSpatialReference *src = new OGRSpatialReference;\n src->importFromEPSG(4326);\n dest->importFromEPSG(3857);\n\tOGRCoordinateTransformation *ct = OGRCreateCoordinateTransformation(src, dest);\n\treturn(ct == NULL); // signals PROJ is not available through gdal\n}\n_EOCONF\n\n{ printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: checking GDAL: checking whether PROJ is available for linking:\" >&5\nprintf %s \"checking GDAL: checking whether PROJ is available for linking:... \" >&6; }\n${CXX} ${CPPFLAGS} -o gdal_proj gdal_proj.cpp ${LIBS} 2> errors.txt\nif test `echo $?` -ne 0 ; then\ngdal_has_proj=no\n{ printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: result: no\" >&5\nprintf \"%s\\n\" \"no\" >&6; }\nelse\ngdal_has_proj=yes\n{ printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: result: yes\" >&5\nprintf \"%s\\n\" \"yes\" >&6; }\nfi\n\nif test \"${gdal_has_proj}\" = no; then\n cat errors.txt\n { printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: Install failure: compilation and/or linkage problems.\" >&5\nprintf \"%s\\n\" \"$as_me: Install failure: compilation and/or linkage problems.\" >&6;}\n as_fn_error $? \"cannot link projection code\" \"$LINENO\" 5\nfi\n\n{ printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: checking GDAL: checking whether PROJ is available for running:\" >&5\nprintf %s \"checking GDAL: checking whether PROJ is available for running:... \" >&6; }\nif test \"x$cross_compiling\" = \"xyes\"; then\n{ printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: result: cross compiling\" >&5\nprintf \"%s\\n\" \"cross compiling\" >&6; }\nelse\n./gdal_proj\nif test `echo $?` -ne 0 ; then\ngdal_has_proj=no\n{ printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: result: no\" >&5\nprintf \"%s\\n\" \"no\" >&6; }\nelse\ngdal_has_proj=yes\n{ printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: result: yes\" >&5\nprintf \"%s\\n\" \"yes\" >&6; }\nfi\nif test \"${gdal_has_proj}\" = no; then\n as_fn_error $? \"OGRCoordinateTransformation() does not return a coord.trans: PROJ not available?\" \"$LINENO\" 5\nfi\nfi\nrm -fr errors.txt gdal_proj.cpp gdal_proj\n{ printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: GDAL: ${GDAL_VERSION}\" >&5\nprintf \"%s\\n\" \"$as_me: GDAL: ${GDAL_VERSION}\" >&6;}\n\n\n# sqlite3\n\n# Check whether --with-sqlite3-lib was given.\nif test ${with_sqlite3_lib+y}\nthen :\n withval=$with_sqlite3_lib; sqlite3_lib_path=$withval\nfi\n\nif test -n \"$sqlite3_lib_path\" ; then\n SQLITE3_LIBS=\"-L${sqlite3_lib_path}\"\n\nfi\n\n\n#\n# PROJ\n#\n\nPROJ_CONFIG=\"pkg-config proj\"\n\nif `$PROJ_CONFIG --exists` ; then\n { printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: pkg-config proj exists, will use it\" >&5\nprintf \"%s\\n\" \"$as_me: pkg-config proj exists, will use it\" >&6;}\n proj_config_ok=yes\nelse\n proj_config_ok=no\nfi\n\n\n# Check whether --with-proj-include was given.\nif test ${with_proj_include+y}\nthen :\n withval=$with_proj_include; proj_include_path=$withval\nfi\n\nif test -n \"$proj_include_path\" ; then\n PROJ_CPPFLAGS=\"-I${proj_include_path}\"\n\nelse\n if test \"${proj_config_ok}\" = yes; then\n PROJ_INCLUDE_PATH=`${PROJ_CONFIG} --cflags`\n PROJ_CPPFLAGS=\"${PROJ_INCLUDE_PATH}\"\n\n fi\nfi\n\n# honor PKG_xx overrides\n# for CPPFLAGS we will superfluously double R's flags\n# since we'll set PKG_CPPFLAGS with this, but that shouldn't hurt\n\n\n# Check whether --with-proj-api was given.\nif test ${with_proj_api+y}\nthen :\n withval=$with_proj_api; proj_api=$withval\nfi\n\nPROJ6=\"no\"\nPROJH=\"no\"\nif test \"${proj_config_ok}\" = yes; then\n PROJ_VERSION=`${PROJ_CONFIG} --modversion`\n PROJV1=`echo \"${PROJ_VERSION}\" | cut -c 1`\n if test \"${PROJV1}\" -ge 6; then\n PROJ6=\"yes\"\n PROJ_CPPFLAGS=\"${PROJ_CPPFLAGS} -DHAVE_PROJ_H\"\n if test \"${proj_api}\" = yes; then\n { printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: using proj_api.h even with PROJ 5/6\" >&5\nprintf \"%s\\n\" \"$as_me: using proj_api.h even with PROJ 5/6\" >&6;}\n PROJ_CPPFLAGS=\"${PROJ_CPPFLAGS} -DACCEPT_USE_OF_DEPRECATED_PROJ_API_H\"\n else\n { printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: using proj.h.\" >&5\nprintf \"%s\\n\" \"$as_me: using proj.h.\" >&6;}\n PROJH=\"yes\"\n fi\n fi\nelse\n if test \"${PROJH}\" = no ; then\n PROJH=yes\n for ac_header in proj.h\ndo :\n ac_fn_c_check_header_compile \"$LINENO\" \"proj.h\" \"ac_cv_header_proj_h\" \"$ac_includes_default\"\nif test \"x$ac_cv_header_proj_h\" = xyes\nthen :\n printf \"%s\\n\" \"#define HAVE_PROJ_H 1\" >>confdefs.h\n\nelse $as_nop\n PROJH=no\nfi\n\ndone\n if test \"${PROJH}\" = yes; then\n PROJ6=\"yes\"\n PROJ_CPPFLAGS=\"${PROJ_CPPFLAGS} -DHAVE_PROJ_H\"\n fi\n fi\nfi\n\nCPPFLAGS=\"${INCPPFLAGS} ${PKG_CPPFLAGS} ${PROJ_CPPFLAGS}\"\n\nif test \"${PROJH}\" = no\nthen\n proj4ok=yes\n for ac_header in proj_api.h\ndo :\n ac_fn_c_check_header_compile \"$LINENO\" \"proj_api.h\" \"ac_cv_header_proj_api_h\" \"$ac_includes_default\"\nif test \"x$ac_cv_header_proj_api_h\" = xyes\nthen :\n printf \"%s\\n\" \"#define HAVE_PROJ_API_H 1\" >>confdefs.h\n\nelse $as_nop\n proj4ok=no\nfi\n\ndone\n if test \"${proj4ok}\" = no; then\n as_fn_error $? \"proj_api.h not found in standard or given locations.\" \"$LINENO\" 5\n fi\nfi\n\n# dnl ditto for a library path\n\n# Check whether --with-proj-lib was given.\nif test ${with_proj_lib+y}\nthen :\n withval=$with_proj_lib; proj_lib_path=$withval\nfi\n\nif test -n \"$proj_lib_path\" ; then\n PROJ_LIBS=\"-L${proj_lib_path} ${INPKG_LIBS} -lproj\"\n\nelse\n if test \"${proj_config_ok}\" = yes; then\n if test `uname` = \"Darwin\"; then\n PROJ_LIB_PATH=`${PROJ_CONFIG} --libs --static`\n else\n PROJ_LIB_PATH=`${PROJ_CONFIG} --libs`\n fi\n PROJ_LIBS=\"${PROJ_LIB_PATH} ${INPKG_LIBS}\"\n\n\tproj_version=`${PROJ_CONFIG} --modversion`\n\t{ printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: PROJ: ${proj_version}\" >&5\nprintf \"%s\\n\" \"$as_me: PROJ: ${proj_version}\" >&6;}\n else\n PROJ_LIBS=\"${PKG_LIBS} -lproj\"\n fi\nfi\n\nLIBS=\"${PROJ_LIBS} ${INLIBS} ${PKG_LIBS}\"\n\nif test \"${PROJH}\" = no; then\n proj4ok=yes\n { printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: checking for pj_init_plus in -lproj\" >&5\nprintf %s \"checking for pj_init_plus in -lproj... \" >&6; }\nif test ${ac_cv_lib_proj_pj_init_plus+y}\nthen :\n printf %s \"(cached) \" >&6\nelse $as_nop\n ac_check_lib_save_LIBS=$LIBS\nLIBS=\"-lproj $LIBS\"\ncat confdefs.h - <<_ACEOF >conftest.$ac_ext\n/* end confdefs.h. */\n\n/* Override any GCC internal prototype to avoid an error.\n Use char because int might match the return type of a GCC\n builtin and then its argument prototype would still apply. */\nchar pj_init_plus ();\nint\nmain (void)\n{\nreturn pj_init_plus ();\n ;\n return 0;\n}\n_ACEOF\nif ac_fn_c_try_link \"$LINENO\"\nthen :\n ac_cv_lib_proj_pj_init_plus=yes\nelse $as_nop\n ac_cv_lib_proj_pj_init_plus=no\nfi\nrm -f core conftest.err conftest.$ac_objext conftest.beam \\\n conftest$ac_exeext conftest.$ac_ext\nLIBS=$ac_check_lib_save_LIBS\nfi\n{ printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_proj_pj_init_plus\" >&5\nprintf \"%s\\n\" \"$ac_cv_lib_proj_pj_init_plus\" >&6; }\nif test \"x$ac_cv_lib_proj_pj_init_plus\" = xyes\nthen :\n printf \"%s\\n\" \"#define HAVE_LIBPROJ 1\" >>confdefs.h\n\n LIBS=\"-lproj $LIBS\"\n\nelse $as_nop\n proj4ok=no\nfi\n\n if test \"${proj4ok}\" = no; then\n as_fn_error $? \"libproj not found in standard or given locations. ${GENERIC_INSTALL_MESSAGE}\" \"$LINENO\" 5\n fi\ncat > proj_conf_test.c <<_EOCONF\n#include \n#include \n#include \n\nint main(void) {\n printf(\"%d\\n\", PJ_VERSION);\n exit(0);\n}\n_EOCONF\nelse\ncat > proj_conf_test.cpp <<_EOCONF\n#include \n#include \n#include \n\nint main(void) {\n\tproj_context_create();\n exit(0);\n}\n_EOCONF\n #AC_CHECK_LIB(proj,proj_context_create,,proj6ok=no)\n { printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: checking PROJ: checking whether PROJ and sqlite3 are available for linking:\" >&5\nprintf %s \"checking PROJ: checking whether PROJ and sqlite3 are available for linking:... \" >&6; }\n ${CXX} ${CPPFLAGS} -o proj_conf_test proj_conf_test.cpp ${LIBS} $SQLITE3_LIBS -lsqlite3 2> errors.txt\n if test `echo $?` -ne 0 ; then\n proj6ok=no\n { printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: result: no\" >&5\nprintf \"%s\\n\" \"no\" >&6; }\n else\n proj6ok=yes\n { printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: result: yes\" >&5\nprintf \"%s\\n\" \"yes\" >&6; }\n fi\n if test \"${proj6ok}\" = no; then\n as_fn_error $? \"libproj or sqlite3 not found in standard or given locations. ${GENERIC_INSTALL_MESSAGE}\" \"$LINENO\" 5\n fi\n\ncat > proj_conf_test.c <<_EOCONF\n#include \n#include \n#include \n\nint main(void) {\n printf(\"%d.%d.%d\\n\", PROJ_VERSION_MAJOR, PROJ_VERSION_MINOR, PROJ_VERSION_PATCH);\n exit(0);\n}\n_EOCONF\nfi\n\n#AC_MSG_NOTICE([PKG_LIBS: ${PKG_LIBS}])\n\n${CC} ${CFLAGS} -o proj_conf_test proj_conf_test.c ${PROJ_LIBS}\n\nproj_version=`./proj_conf_test`\n\n\n# Check whether --with-proj-share was given.\nif test ${with_proj_share+y}\nthen :\n withval=$with_proj_share; proj_share_path=$withval\nfi\n\nif test -n \"$proj_share_path\" ; then\n { printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: PROJ_LIB: ${proj_share_path}\" >&5\nprintf \"%s\\n\" \"$as_me: PROJ_LIB: ${proj_share_path}\" >&6;}\nfi\n\nif test ${PROJ6} = \"no\"; then\n\ncat > proj_conf_test.c <<_EOCONF\n#include \n#include \n#if PJ_VERSION <= 480\nFILE *pj_open_lib(projCtx, const char *, const char *);\n#endif\n\nint main(void) {\n#if PJ_VERSION <= 480\n FILE *fp;\n#else\n PAFile fp;\n#endif\n projCtx ctx;\n ctx = pj_get_default_ctx();\n fp = pj_open_lib(ctx, \"epsg\", \"rb\");\n if (fp == NULL) exit(1);\n#if PJ_VERSION <= 480\n fclose(fp);\n#else\n pj_ctx_fclose(ctx, fp);\n#endif\n exit(0);\n}\n_EOCONF\n\n${CC} ${CFLAGS} -o proj_conf_test proj_conf_test.c ${PROJ_LIBS}\nif test -n \"$proj_share_path\" ; then\n PROJ_LIB=\"${proj_share_path}\" ./proj_conf_test\n proj_share=`echo $?`\nelse\n ./proj_conf_test\n proj_share=`echo $?`\nfi\n\n{ printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: checking PROJ: epsg found and readable\" >&5\nprintf %s \"checking PROJ: epsg found and readable... \" >&6; }\nif test ${proj_share} -eq 1 ; then\n { printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: result: no\" >&5\nprintf \"%s\\n\" \"no\" >&6; }\n STOP=\"stop\"\nelse\n { printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: result: yes\" >&5\nprintf \"%s\\n\" \"yes\" >&6; }\nfi\n\nrm -f proj_conf_test.c proj_conf_test\n\nif test \"$STOP\" = \"stop\" ; then\n echo \"Error: proj/epsg not found\"\n echo \"Either install missing proj support files, for example\"\n echo \"the proj-nad and proj-epsg RPMs on systems using RPMs,\"\n echo \"or if installed but not autodetected, set PROJ_LIB to the\"\n echo \"correct path, and if need be use the --with-proj-share=\"\n echo \"configure argument.\"\n exit 1\nfi\n\nelse # proj >= 6\n\nif test \"${PROJH}\" = no; then\n\ncat > proj_conf_test.c <<_EOCONF\n#include \n#include \n\nint main(void) {\n PAFile fp;\n projCtx ctx;\n ctx = pj_get_default_ctx();\n fp = pj_open_lib(ctx, \"proj.db\", \"rb\");\n if (fp == NULL) exit(1);\n pj_ctx_fclose(ctx, fp);\n exit(0);\n}\n_EOCONF\n\n${CC} ${CFLAGS} -o proj_conf_test proj_conf_test.c ${PROJ_LIBS}\nif test -n \"$proj_share_path\" ; then\n PROJ_LIB=\"${proj_share_path}\" ./proj_conf_test\n proj_share=`echo $?`\nelse\n ./proj_conf_test\n proj_share=`echo $?`\nfi\n\n{ printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: checking PROJ: proj.db found and readable\" >&5\nprintf %s \"checking PROJ: proj.db found and readable... \" >&6; }\nif test ${proj_share} -eq 1 ; then\n { printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: result: no\" >&5\nprintf \"%s\\n\" \"no\" >&6; }\n STOP=\"stop\"\nelse\n { printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: result: yes\" >&5\nprintf \"%s\\n\" \"yes\" >&6; }\nfi\n\nrm -f proj_conf_test.c proj_conf_test\n\nif test \"$STOP\" = \"stop\" ; then\n echo \"Error: proj/proj.db not found\"\n echo \"Either install missing proj support files, set PROJ_LIB to the\"\n echo \"correct path, and if need be use the --with-proj-share=\"\n echo \"configure argument.\"\n exit 1\nfi\n\ncat > proj_conf_test.c <<_EOCONF\n#include \n#include \n#if PJ_VERSION <= 480\nFILE *pj_open_lib(projCtx, const char *, const char *);\n#endif\n\nint main(void) {\n#if PJ_VERSION <= 480\n FILE *fp;\n#else\n PAFile fp;\n#endif\n projCtx ctx;\n ctx = pj_get_default_ctx();\n fp = pj_open_lib(ctx, \"conus\", \"rb\");\n if (fp == NULL) exit(1);\n#if PJ_VERSION <= 480\n fclose(fp);\n#else\n pj_ctx_fclose(ctx, fp);\n#endif\n exit(0);\n}\n_EOCONF\n\n${CC} ${CFLAGS} -o proj_conf_test proj_conf_test.c ${PROJ_LIBS}\nif test -n \"$proj_share_path\" ; then\n PROJ_LIB=\"${proj_share_path}\" ./proj_conf_test\n proj_share=`echo $?`\nelse\n ./proj_conf_test\n proj_share=`echo $?`\nfi\n\n{ printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: checking PROJ: conus found and readable\" >&5\nprintf %s \"checking PROJ: conus found and readable... \" >&6; }\nif test ${proj_share} -eq 1 ; then\n WARN=\"warn\"\n { printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: result: no\" >&5\nprintf \"%s\\n\" \"no\" >&6; }\nelse\n { printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: result: yes\" >&5\nprintf \"%s\\n\" \"yes\" >&6; }\nfi\n\nrm -f proj_conf_test.c proj_conf_test\n\nif test \"$WARN\" = \"warn\" ; then\n echo \"Note: proj/conus not found\"\n echo \"No support available in PROJ4 for NAD grid datum transformations\"\n echo \"If required, consider re-installing from source with the contents\"\n echo \"of proj-datumgrid-1..zip from http://download.osgeo.org/proj/ in nad/.\"\nfi\n\nfi # PROJH = no\n\nfi # proj >= 6\n\n\n\n\n#\n# GEOS:\n#\nGEOS_CONFIG=\"geos-config\"\n\nGEOS_CONFIG_SET=\"no\"\n\n\n# Check whether --with-geos-config was given.\nif test ${with_geos_config+y}\nthen :\n withval=$with_geos_config; geos_config=$withval\nfi\n\nif test -n \"$geos_config\" ; then\n GEOS_CONFIG_SET=\"yes\"\n GEOS_CONFIG=\"${geos_config}\"\n\n { printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: geos-config set to $GEOS_CONFIG\" >&5\nprintf \"%s\\n\" \"$as_me: geos-config set to $GEOS_CONFIG\" >&6;}\nfi\n\nif test \"$GEOS_CONFIG_SET\" = \"no\" ; then\n # Extract the first word of \"\"$GEOS_CONFIG\"\", so it can be a program name with args.\nset dummy \"$GEOS_CONFIG\"; ac_word=$2\n{ printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: checking for $ac_word\" >&5\nprintf %s \"checking for $ac_word... \" >&6; }\nif test ${ac_cv_path_GEOS_CONFIG+y}\nthen :\n printf %s \"(cached) \" >&6\nelse $as_nop\n case $GEOS_CONFIG in\n [\\\\/]* | ?:[\\\\/]*)\n ac_cv_path_GEOS_CONFIG=\"$GEOS_CONFIG\" # Let the user override the test with a path.\n ;;\n *)\n as_save_IFS=$IFS; IFS=$PATH_SEPARATOR\nfor as_dir in $PATH\ndo\n IFS=$as_save_IFS\n case $as_dir in #(((\n '') as_dir=./ ;;\n */) ;;\n *) as_dir=$as_dir/ ;;\n esac\n for ac_exec_ext in '' $ac_executable_extensions; do\n if as_fn_executable_p \"$as_dir$ac_word$ac_exec_ext\"; then\n ac_cv_path_GEOS_CONFIG=\"$as_dir$ac_word$ac_exec_ext\"\n printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: found $as_dir$ac_word$ac_exec_ext\" >&5\n break 2\n fi\ndone\n done\nIFS=$as_save_IFS\n\n test -z \"$ac_cv_path_GEOS_CONFIG\" && ac_cv_path_GEOS_CONFIG=\"\"no\"\"\n ;;\nesac\nfi\nGEOS_CONFIG=$ac_cv_path_GEOS_CONFIG\nif test -n \"$GEOS_CONFIG\"; then\n { printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: result: $GEOS_CONFIG\" >&5\nprintf \"%s\\n\" \"$GEOS_CONFIG\" >&6; }\nelse\n { printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: result: no\" >&5\nprintf \"%s\\n\" \"no\" >&6; }\nfi\n\n\n if test \"$GEOS_CONFIG\" = \"no\" ; then\n { printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: result: no\" >&5\nprintf \"%s\\n\" \"no\" >&6; }\n as_fn_error $? \"geos-config not found or not executable. ${GENERIC_INSTALL_MESSAGE}\" \"$LINENO\" 5\n fi\nelse\n { printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: checking geos-config exists\" >&5\nprintf %s \"checking geos-config exists... \" >&6; }\n if test -r \"${GEOS_CONFIG}\"; then\n { printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: result: yes\" >&5\nprintf \"%s\\n\" \"yes\" >&6; }\n else\n { printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: result: no\" >&5\nprintf \"%s\\n\" \"no\" >&6; }\n as_fn_error $? \"geos-config not found - configure argument error. ${GENERIC_INSTALL_MESSAGE}\" \"$LINENO\" 5\n fi\n { printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: checking geos-config executable\" >&5\nprintf %s \"checking geos-config executable... \" >&6; }\n if test -x \"${GEOS_CONFIG}\"; then\n { printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: result: yes\" >&5\nprintf \"%s\\n\" \"yes\" >&6; }\n else\n { printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: result: no\" >&5\nprintf \"%s\\n\" \"no\" >&6; }\n as_fn_error $? \"geos-config not executable. ${GENERIC_INSTALL_MESSAGE}\" \"$LINENO\" 5\n fi\nfi\n\n{ printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: checking geos-config usability\" >&5\nprintf %s \"checking geos-config usability... \" >&6; }\nif test `${GEOS_CONFIG} --version`\nthen\n GEOS_CLIBS=\"`${GEOS_CONFIG} --clibs`\"\n #GEOS_DEP_CLIBS=`geos-config --static-clibs` -- this gives -m instead of -lm, which breaks clang\n # fixed in 3.7.0 at https://github.com/libgeos/libgeos/pull/73#issuecomment-262208677\n GEOS_DEP_CLIBS=`${GEOS_CONFIG} --static-clibs | sed 's/-m/-lm/g'`\n GEOS_CPPFLAGS=`${GEOS_CONFIG} --cflags`\n { printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: result: yes\" >&5\nprintf \"%s\\n\" \"yes\" >&6; }\nelse\n { printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: result: no\" >&5\nprintf \"%s\\n\" \"no\" >&6; }\n as_fn_error $? \"${GEOS_CONFIG} not usable\" \"$LINENO\" 5\nfi\n\nGEOS_VERSION=`${GEOS_CONFIG} --version`\n{ printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: GEOS: ${GEOS_VERSION}\" >&5\nprintf \"%s\\n\" \"$as_me: GEOS: ${GEOS_VERSION}\" >&6;}\n{ printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: checking GEOS version >= 3.4.0\" >&5\nprintf %s \"checking GEOS version >= 3.4.0... \" >&6; } # GDAL 2.0.1 requires GEOS 3.1.0\nGEOS_VER_DOT=`echo $GEOS_VERSION | tr -d \".[:alpha:]\"`\nif test ${GEOS_VER_DOT} -lt 340 ; then\n { printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: result: no\" >&5\nprintf \"%s\\n\" \"no\" >&6; }\n as_fn_error $? \"upgrade GEOS to 3.4.0 or later\" \"$LINENO\" 5\nelse\n { printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: result: yes\" >&5\nprintf \"%s\\n\" \"yes\" >&6; }\nfi\n\nPKG_CPPFLAGS=\"${INPKG_CPPFLAGS} ${PROJ_CPPFLAGS} ${GDAL_CPPFLAGS} ${GEOS_CPPFLAGS}\"\n\nPKG_LIBS=\"${INPKG_LIBS} ${GDAL_LIBS}\"\n\nif test \"${NEED_DEPS}\" = yes; then\n PKG_LIBS=\"${PKG_LIBS} ${GDAL_DEP_LIBS}\"\n\nfi\n\n# honor PKG_xx overrides\n# for CPPFLAGS we will superfluously double R's flags\n# since we'll set PKG_CPPFLAGS with this, but that shouldn't hurt\nCPPFLAGS=\"${CPPFLAGS} ${PKG_CPPFLAGS}\"\nLIBS=\"${LIBS} ${PKG_LIBS}\"\n\ngeosok=yes\n for ac_header in geos_c.h\ndo :\n ac_fn_c_check_header_compile \"$LINENO\" \"geos_c.h\" \"ac_cv_header_geos_c_h\" \"$ac_includes_default\"\nif test \"x$ac_cv_header_geos_c_h\" = xyes\nthen :\n printf \"%s\\n\" \"#define HAVE_GEOS_C_H 1\" >>confdefs.h\n\nelse $as_nop\n geosok=no\nfi\n\ndone\nif test \"${geosok}\" = no; then\n as_fn_error $? \"geos_c.h not found in given locations. ${GENERIC_INSTALL_MESSAGE}\" \"$LINENO\" 5\nfi\n\ncat > geos_test.cpp <<_EOCONF\n#include \n#ifdef __cplusplus\nextern \"C\" {\n#endif\nstatic void __errorHandler(const char *fmt, ...) {\n return;\n}\nstatic void __warningHandler(const char *fmt, ...) {\n return;\n}\nint main(void) {\n GEOSContextHandle_t r = initGEOS_r((GEOSMessageHandler) __warningHandler, (GEOSMessageHandler) __errorHandler);\n finishGEOS_r(r);\n}\n#ifdef __cplusplus\n}\n#endif\n_EOCONF\n\n#echo \"${CXX} ${CPPFLAGS} -o geos_test geos_test.cpp ${LIBS}\"\n{ printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: checking geos: linking with ${GEOS_CLIBS}\" >&5\nprintf %s \"checking geos: linking with ${GEOS_CLIBS}... \" >&6; }\n${CXX} ${CPPFLAGS} -o geos_test geos_test.cpp ${GEOS_CLIBS} 2> errors.txt\nif test `echo $?` -ne 0 ; then\n geosok=no\n { printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: result: no\" >&5\nprintf \"%s\\n\" \"no\" >&6; }\nelse\n PKG_LIBS=\"${PKG_LIBS} ${GEOS_CLIBS}\"\n\n { printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: result: yes\" >&5\nprintf \"%s\\n\" \"yes\" >&6; }\nfi\n\nif test \"${geosok}\" = no; then\n { printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: checking geos: linking with ${GEOS_DEP_CLIBS}\" >&5\nprintf %s \"checking geos: linking with ${GEOS_DEP_CLIBS}... \" >&6; }\n ${CXX} ${CPPFLAGS} -o geos_test geos_test.cpp ${GEOS_DEP_CLIBS} 2> errors.txt\n if test `echo $?` -ne 0 ; then\n geosok=no\n { printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: result: no\" >&5\nprintf \"%s\\n\" \"no\" >&6; }\n cat errors.txt\n { printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: Install failure: compilation and/or linkage problems.\" >&5\nprintf \"%s\\n\" \"$as_me: Install failure: compilation and/or linkage problems.\" >&6;}\n as_fn_error $? \"initGEOS_r not found in libgeos_c. ${GENERIC_INSTALL_MESSAGE}\" \"$LINENO\" 5\n else\n PKG_LIBS=\"${PKG_LIBS} ${GEOS_DEP_CLIBS}\"\n\n { printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: result: yes\" >&5\nprintf \"%s\\n\" \"yes\" >&6; }\n fi\nfi\n\nrm -f geos_test errors.txt geos_test.cpp\n\n#\n# add PROJ_LIBS\n#\nPKG_LIBS=\"${PROJ_LIBS} ${PKG_LIBS}\"\n\n\n#\n# concluding substitution\n#\n{ printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: Package CPP flags: ${PKG_CPPFLAGS}\" >&5\nprintf \"%s\\n\" \"$as_me: Package CPP flags: ${PKG_CPPFLAGS}\" >&6;}\n{ printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: Package LIBS: ${PKG_LIBS}\" >&5\nprintf \"%s\\n\" \"$as_me: Package LIBS: ${PKG_LIBS}\" >&6;}\n\nac_config_files=\"$ac_config_files src/Makevars\"\n\ncat >confcache <<\\_ACEOF\n# This file is a shell script that caches the results of configure\n# tests run on this system so they can be shared between configure\n# scripts and configure runs, see configure's option --config-cache.\n# It is not useful on other systems. If it contains results you don't\n# want to keep, you may remove or edit it.\n#\n# config.status only pays attention to the cache file if you give it\n# the --recheck option to rerun configure.\n#\n# `ac_cv_env_foo' variables (set or unset) will be overridden when\n# loading this file, other *unset* `ac_cv_foo' will be assigned the\n# following values.\n\n_ACEOF\n\n# The following way of writing the cache mishandles newlines in values,\n# but we know of no workaround that is simple, portable, and efficient.\n# So, we kill variables containing newlines.\n# Ultrix sh set writes to stderr and can't be redirected directly,\n# and sets the high bit in the cache file unless we assign to the vars.\n(\n for ac_var in `(set) 2>&1 | sed -n 's/^\\([a-zA-Z_][a-zA-Z0-9_]*\\)=.*/\\1/p'`; do\n eval ac_val=\\$$ac_var\n case $ac_val in #(\n *${as_nl}*)\n case $ac_var in #(\n *_cv_*) { printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: WARNING: cache variable $ac_var contains a newline\" >&5\nprintf \"%s\\n\" \"$as_me: WARNING: cache variable $ac_var contains a newline\" >&2;} ;;\n esac\n case $ac_var in #(\n _ | IFS | as_nl) ;; #(\n BASH_ARGV | BASH_SOURCE) eval $ac_var= ;; #(\n *) { eval $ac_var=; unset $ac_var;} ;;\n esac ;;\n esac\n done\n\n (set) 2>&1 |\n case $as_nl`(ac_space=' '; set) 2>&1` in #(\n *${as_nl}ac_space=\\ *)\n # `set' does not quote correctly, so add quotes: double-quote\n # substitution turns \\\\\\\\ into \\\\, and sed turns \\\\ into \\.\n sed -n \\\n\t\"s/'/'\\\\\\\\''/g;\n\t s/^\\\\([_$as_cr_alnum]*_cv_[_$as_cr_alnum]*\\\\)=\\\\(.*\\\\)/\\\\1='\\\\2'/p\"\n ;; #(\n *)\n # `set' quotes correctly as required by POSIX, so do not add quotes.\n sed -n \"/^[_$as_cr_alnum]*_cv_[_$as_cr_alnum]*=/p\"\n ;;\n esac |\n sort\n) |\n sed '\n /^ac_cv_env_/b end\n t clear\n :clear\n s/^\\([^=]*\\)=\\(.*[{}].*\\)$/test ${\\1+y} || &/\n t end\n s/^\\([^=]*\\)=\\(.*\\)$/\\1=${\\1=\\2}/\n :end' >>confcache\nif diff \"$cache_file\" confcache >/dev/null 2>&1; then :; else\n if test -w \"$cache_file\"; then\n if test \"x$cache_file\" != \"x/dev/null\"; then\n { printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: updating cache $cache_file\" >&5\nprintf \"%s\\n\" \"$as_me: updating cache $cache_file\" >&6;}\n if test ! -f \"$cache_file\" || test -h \"$cache_file\"; then\n\tcat confcache >\"$cache_file\"\n else\n case $cache_file in #(\n */* | ?:*)\n\t mv -f confcache \"$cache_file\"$$ &&\n\t mv -f \"$cache_file\"$$ \"$cache_file\" ;; #(\n *)\n\t mv -f confcache \"$cache_file\" ;;\n\tesac\n fi\n fi\n else\n { printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: not updating unwritable cache $cache_file\" >&5\nprintf \"%s\\n\" \"$as_me: not updating unwritable cache $cache_file\" >&6;}\n fi\nfi\nrm -f confcache\n\ntest \"x$prefix\" = xNONE && prefix=$ac_default_prefix\n# Let make expand exec_prefix.\ntest \"x$exec_prefix\" = xNONE && exec_prefix='${prefix}'\n\n# Transform confdefs.h into DEFS.\n# Protect against shell expansion while executing Makefile rules.\n# Protect against Makefile macro expansion.\n#\n# If the first sed substitution is executed (which looks for macros that\n# take arguments), then branch to the quote section. Otherwise,\n# look for a macro that doesn't take arguments.\nac_script='\n:mline\n/\\\\$/{\n N\n s,\\\\\\n,,\n b mline\n}\nt clear\n:clear\ns/^[\t ]*#[\t ]*define[\t ][\t ]*\\([^\t (][^\t (]*([^)]*)\\)[\t ]*\\(.*\\)/-D\\1=\\2/g\nt quote\ns/^[\t ]*#[\t ]*define[\t ][\t ]*\\([^\t ][^\t ]*\\)[\t ]*\\(.*\\)/-D\\1=\\2/g\nt quote\nb any\n:quote\ns/[\t `~#$^&*(){}\\\\|;'\\''\"<>?]/\\\\&/g\ns/\\[/\\\\&/g\ns/\\]/\\\\&/g\ns/\\$/$$/g\nH\n:any\n${\n\tg\n\ts/^\\n//\n\ts/\\n/ /g\n\tp\n}\n'\nDEFS=`sed -n \"$ac_script\" confdefs.h`\n\n\nac_libobjs=\nac_ltlibobjs=\nU=\nfor ac_i in : $LIBOBJS; do test \"x$ac_i\" = x: && continue\n # 1. Remove the extension, and $U if already installed.\n ac_script='s/\\$U\\././;s/\\.o$//;s/\\.obj$//'\n ac_i=`printf \"%s\\n\" \"$ac_i\" | sed \"$ac_script\"`\n # 2. Prepend LIBOBJDIR. When used with automake>=1.10 LIBOBJDIR\n # will be set to the directory where LIBOBJS objects are built.\n as_fn_append ac_libobjs \" \\${LIBOBJDIR}$ac_i\\$U.$ac_objext\"\n as_fn_append ac_ltlibobjs \" \\${LIBOBJDIR}$ac_i\"'$U.lo'\ndone\nLIBOBJS=$ac_libobjs\n\nLTLIBOBJS=$ac_ltlibobjs\n\n\n\n: \"${CONFIG_STATUS=./config.status}\"\nac_write_fail=0\nac_clean_files_save=$ac_clean_files\nac_clean_files=\"$ac_clean_files $CONFIG_STATUS\"\n{ printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: creating $CONFIG_STATUS\" >&5\nprintf \"%s\\n\" \"$as_me: creating $CONFIG_STATUS\" >&6;}\nas_write_fail=0\ncat >$CONFIG_STATUS <<_ASEOF || as_write_fail=1\n#! $SHELL\n# Generated by $as_me.\n# Run this file to recreate the current configuration.\n# Compiler output produced by configure, useful for debugging\n# configure, is in config.log if it exists.\n\ndebug=false\nac_cs_recheck=false\nac_cs_silent=false\n\nSHELL=\\${CONFIG_SHELL-$SHELL}\nexport SHELL\n_ASEOF\ncat >>$CONFIG_STATUS <<\\_ASEOF || as_write_fail=1\n## -------------------- ##\n## M4sh Initialization. ##\n## -------------------- ##\n\n# Be more Bourne compatible\nDUALCASE=1; export DUALCASE # for MKS sh\nas_nop=:\nif test ${ZSH_VERSION+y} && (emulate sh) >/dev/null 2>&1\nthen :\n emulate sh\n NULLCMD=:\n # Pre-4.2 versions of Zsh do word splitting on ${1+\"$@\"}, which\n # is contrary to our usage. Disable this feature.\n alias -g '${1+\"$@\"}'='\"$@\"'\n setopt NO_GLOB_SUBST\nelse $as_nop\n case `(set -o) 2>/dev/null` in #(\n *posix*) :\n set -o posix ;; #(\n *) :\n ;;\nesac\nfi\n\n\n\n# Reset variables that may have inherited troublesome values from\n# the environment.\n\n# IFS needs to be set, to space, tab, and newline, in precisely that order.\n# (If _AS_PATH_WALK were called with IFS unset, it would have the\n# side effect of setting IFS to empty, thus disabling word splitting.)\n# Quoting is to prevent editors from complaining about space-tab.\nas_nl='\n'\nexport as_nl\nIFS=\" \"\"\t$as_nl\"\n\nPS1='$ '\nPS2='> '\nPS4='+ '\n\n# Ensure predictable behavior from utilities with locale-dependent output.\nLC_ALL=C\nexport LC_ALL\nLANGUAGE=C\nexport LANGUAGE\n\n# We cannot yet rely on \"unset\" to work, but we need these variables\n# to be unset--not just set to an empty or harmless value--now, to\n# avoid bugs in old shells (e.g. pre-3.0 UWIN ksh). This construct\n# also avoids known problems related to \"unset\" and subshell syntax\n# in other old shells (e.g. bash 2.01 and pdksh 5.2.14).\nfor as_var in BASH_ENV ENV MAIL MAILPATH CDPATH\ndo eval test \\${$as_var+y} \\\n && ( (unset $as_var) || exit 1) >/dev/null 2>&1 && unset $as_var || :\ndone\n\n# Ensure that fds 0, 1, and 2 are open.\nif (exec 3>&0) 2>/dev/null; then :; else exec 0&1) 2>/dev/null; then :; else exec 1>/dev/null; fi\nif (exec 3>&2) ; then :; else exec 2>/dev/null; fi\n\n# The user is always right.\nif ${PATH_SEPARATOR+false} :; then\n PATH_SEPARATOR=:\n (PATH='/bin;/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 && {\n (PATH='/bin:/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 ||\n PATH_SEPARATOR=';'\n }\nfi\n\n\n# Find who we are. Look in the path if we contain no directory separator.\nas_myself=\ncase $0 in #((\n *[\\\\/]* ) as_myself=$0 ;;\n *) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR\nfor as_dir in $PATH\ndo\n IFS=$as_save_IFS\n case $as_dir in #(((\n '') as_dir=./ ;;\n */) ;;\n *) as_dir=$as_dir/ ;;\n esac\n test -r \"$as_dir$0\" && as_myself=$as_dir$0 && break\n done\nIFS=$as_save_IFS\n\n ;;\nesac\n# We did not find ourselves, most probably we were run as `sh COMMAND'\n# in which case we are not to be found in the path.\nif test \"x$as_myself\" = x; then\n as_myself=$0\nfi\nif test ! -f \"$as_myself\"; then\n printf \"%s\\n\" \"$as_myself: error: cannot find myself; rerun with an absolute file name\" >&2\n exit 1\nfi\n\n\n\n# as_fn_error STATUS ERROR [LINENO LOG_FD]\n# ----------------------------------------\n# Output \"`basename $0`: error: ERROR\" to stderr. If LINENO and LOG_FD are\n# provided, also output the error to LOG_FD, referencing LINENO. Then exit the\n# script with STATUS, using 1 if that was 0.\nas_fn_error ()\n{\n as_status=$1; test $as_status -eq 0 && as_status=1\n if test \"$4\"; then\n as_lineno=${as_lineno-\"$3\"} as_lineno_stack=as_lineno_stack=$as_lineno_stack\n printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: error: $2\" >&$4\n fi\n printf \"%s\\n\" \"$as_me: error: $2\" >&2\n as_fn_exit $as_status\n} # as_fn_error\n\n\n\n# as_fn_set_status STATUS\n# -----------------------\n# Set $? to STATUS, without forking.\nas_fn_set_status ()\n{\n return $1\n} # as_fn_set_status\n\n# as_fn_exit STATUS\n# -----------------\n# Exit the shell with STATUS, even in a \"trap 0\" or \"set -e\" context.\nas_fn_exit ()\n{\n set +e\n as_fn_set_status $1\n exit $1\n} # as_fn_exit\n\n# as_fn_unset VAR\n# ---------------\n# Portably unset VAR.\nas_fn_unset ()\n{\n { eval $1=; unset $1;}\n}\nas_unset=as_fn_unset\n\n# as_fn_append VAR VALUE\n# ----------------------\n# Append the text in VALUE to the end of the definition contained in VAR. Take\n# advantage of any shell optimizations that allow amortized linear growth over\n# repeated appends, instead of the typical quadratic growth present in naive\n# implementations.\nif (eval \"as_var=1; as_var+=2; test x\\$as_var = x12\") 2>/dev/null\nthen :\n eval 'as_fn_append ()\n {\n eval $1+=\\$2\n }'\nelse $as_nop\n as_fn_append ()\n {\n eval $1=\\$$1\\$2\n }\nfi # as_fn_append\n\n# as_fn_arith ARG...\n# ------------------\n# Perform arithmetic evaluation on the ARGs, and store the result in the\n# global $as_val. Take advantage of shells that can avoid forks. The arguments\n# must be portable across $(()) and expr.\nif (eval \"test \\$(( 1 + 1 )) = 2\") 2>/dev/null\nthen :\n eval 'as_fn_arith ()\n {\n as_val=$(( $* ))\n }'\nelse $as_nop\n as_fn_arith ()\n {\n as_val=`expr \"$@\" || test $? -eq 1`\n }\nfi # as_fn_arith\n\n\nif expr a : '\\(a\\)' >/dev/null 2>&1 &&\n test \"X`expr 00001 : '.*\\(...\\)'`\" = X001; then\n as_expr=expr\nelse\n as_expr=false\nfi\n\nif (basename -- /) >/dev/null 2>&1 && test \"X`basename -- / 2>&1`\" = \"X/\"; then\n as_basename=basename\nelse\n as_basename=false\nfi\n\nif (as_dir=`dirname -- /` && test \"X$as_dir\" = X/) >/dev/null 2>&1; then\n as_dirname=dirname\nelse\n as_dirname=false\nfi\n\nas_me=`$as_basename -- \"$0\" ||\n$as_expr X/\"$0\" : '.*/\\([^/][^/]*\\)/*$' \\| \\\n\t X\"$0\" : 'X\\(//\\)$' \\| \\\n\t X\"$0\" : 'X\\(/\\)' \\| . 2>/dev/null ||\nprintf \"%s\\n\" X/\"$0\" |\n sed '/^.*\\/\\([^/][^/]*\\)\\/*$/{\n\t s//\\1/\n\t q\n\t }\n\t /^X\\/\\(\\/\\/\\)$/{\n\t s//\\1/\n\t q\n\t }\n\t /^X\\/\\(\\/\\).*/{\n\t s//\\1/\n\t q\n\t }\n\t s/.*/./; q'`\n\n# Avoid depending upon Character Ranges.\nas_cr_letters='abcdefghijklmnopqrstuvwxyz'\nas_cr_LETTERS='ABCDEFGHIJKLMNOPQRSTUVWXYZ'\nas_cr_Letters=$as_cr_letters$as_cr_LETTERS\nas_cr_digits='0123456789'\nas_cr_alnum=$as_cr_Letters$as_cr_digits\n\n\n# Determine whether it's possible to make 'echo' print without a newline.\n# These variables are no longer used directly by Autoconf, but are AC_SUBSTed\n# for compatibility with existing Makefiles.\nECHO_C= ECHO_N= ECHO_T=\ncase `echo -n x` in #(((((\n-n*)\n case `echo 'xy\\c'` in\n *c*) ECHO_T='\t';;\t# ECHO_T is single tab character.\n xy) ECHO_C='\\c';;\n *) echo `echo ksh88 bug on AIX 6.1` > /dev/null\n ECHO_T='\t';;\n esac;;\n*)\n ECHO_N='-n';;\nesac\n\n# For backward compatibility with old third-party macros, we provide\n# the shell variables $as_echo and $as_echo_n. New code should use\n# AS_ECHO([\"message\"]) and AS_ECHO_N([\"message\"]), respectively.\nas_echo='printf %s\\n'\nas_echo_n='printf %s'\n\nrm -f conf$$ conf$$.exe conf$$.file\nif test -d conf$$.dir; then\n rm -f conf$$.dir/conf$$.file\nelse\n rm -f conf$$.dir\n mkdir conf$$.dir 2>/dev/null\nfi\nif (echo >conf$$.file) 2>/dev/null; then\n if ln -s conf$$.file conf$$ 2>/dev/null; then\n as_ln_s='ln -s'\n # ... but there are two gotchas:\n # 1) On MSYS, both `ln -s file dir' and `ln file dir' fail.\n # 2) DJGPP < 2.04 has no symlinks; `ln -s' creates a wrapper executable.\n # In both cases, we have to default to `cp -pR'.\n ln -s conf$$.file conf$$.dir 2>/dev/null && test ! -f conf$$.exe ||\n as_ln_s='cp -pR'\n elif ln conf$$.file conf$$ 2>/dev/null; then\n as_ln_s=ln\n else\n as_ln_s='cp -pR'\n fi\nelse\n as_ln_s='cp -pR'\nfi\nrm -f conf$$ conf$$.exe conf$$.dir/conf$$.file conf$$.file\nrmdir conf$$.dir 2>/dev/null\n\n\n# as_fn_mkdir_p\n# -------------\n# Create \"$as_dir\" as a directory, including parents if necessary.\nas_fn_mkdir_p ()\n{\n\n case $as_dir in #(\n -*) as_dir=./$as_dir;;\n esac\n test -d \"$as_dir\" || eval $as_mkdir_p || {\n as_dirs=\n while :; do\n case $as_dir in #(\n *\\'*) as_qdir=`printf \"%s\\n\" \"$as_dir\" | sed \"s/'/'\\\\\\\\\\\\\\\\''/g\"`;; #'(\n *) as_qdir=$as_dir;;\n esac\n as_dirs=\"'$as_qdir' $as_dirs\"\n as_dir=`$as_dirname -- \"$as_dir\" ||\n$as_expr X\"$as_dir\" : 'X\\(.*[^/]\\)//*[^/][^/]*/*$' \\| \\\n\t X\"$as_dir\" : 'X\\(//\\)[^/]' \\| \\\n\t X\"$as_dir\" : 'X\\(//\\)$' \\| \\\n\t X\"$as_dir\" : 'X\\(/\\)' \\| . 2>/dev/null ||\nprintf \"%s\\n\" X\"$as_dir\" |\n sed '/^X\\(.*[^/]\\)\\/\\/*[^/][^/]*\\/*$/{\n\t s//\\1/\n\t q\n\t }\n\t /^X\\(\\/\\/\\)[^/].*/{\n\t s//\\1/\n\t q\n\t }\n\t /^X\\(\\/\\/\\)$/{\n\t s//\\1/\n\t q\n\t }\n\t /^X\\(\\/\\).*/{\n\t s//\\1/\n\t q\n\t }\n\t s/.*/./; q'`\n test -d \"$as_dir\" && break\n done\n test -z \"$as_dirs\" || eval \"mkdir $as_dirs\"\n } || test -d \"$as_dir\" || as_fn_error $? \"cannot create directory $as_dir\"\n\n\n} # as_fn_mkdir_p\nif mkdir -p . 2>/dev/null; then\n as_mkdir_p='mkdir -p \"$as_dir\"'\nelse\n test -d ./-p && rmdir ./-p\n as_mkdir_p=false\nfi\n\n\n# as_fn_executable_p FILE\n# -----------------------\n# Test if FILE is an executable regular file.\nas_fn_executable_p ()\n{\n test -f \"$1\" && test -x \"$1\"\n} # as_fn_executable_p\nas_test_x='test -x'\nas_executable_p=as_fn_executable_p\n\n# Sed expression to map a string onto a valid CPP name.\nas_tr_cpp=\"eval sed 'y%*$as_cr_letters%P$as_cr_LETTERS%;s%[^_$as_cr_alnum]%_%g'\"\n\n# Sed expression to map a string onto a valid variable name.\nas_tr_sh=\"eval sed 'y%*+%pp%;s%[^_$as_cr_alnum]%_%g'\"\n\n\nexec 6>&1\n## ----------------------------------- ##\n## Main body of $CONFIG_STATUS script. ##\n## ----------------------------------- ##\n_ASEOF\ntest $as_write_fail = 0 && chmod +x $CONFIG_STATUS || ac_write_fail=1\n\ncat >>$CONFIG_STATUS <<\\_ACEOF || ac_write_fail=1\n# Save the log message, to keep $0 and so on meaningful, and to\n# report actual input values of CONFIG_FILES etc. instead of their\n# values after options handling.\nac_log=\"\nThis file was extended by $as_me, which was\ngenerated by GNU Autoconf 2.71. Invocation command line was\n\n CONFIG_FILES = $CONFIG_FILES\n CONFIG_HEADERS = $CONFIG_HEADERS\n CONFIG_LINKS = $CONFIG_LINKS\n CONFIG_COMMANDS = $CONFIG_COMMANDS\n $ $0 $@\n\non `(hostname || uname -n) 2>/dev/null | sed 1q`\n\"\n\n_ACEOF\n\ncase $ac_config_files in *\"\n\"*) set x $ac_config_files; shift; ac_config_files=$*;;\nesac\n\n\n\ncat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1\n# Files that config.status was made for.\nconfig_files=\"$ac_config_files\"\n\n_ACEOF\n\ncat >>$CONFIG_STATUS <<\\_ACEOF || ac_write_fail=1\nac_cs_usage=\"\\\n\\`$as_me' instantiates files and other configuration actions\nfrom templates according to the current configuration. Unless the files\nand actions are specified as TAGs, all are instantiated by default.\n\nUsage: $0 [OPTION]... [TAG]...\n\n -h, --help print this help, then exit\n -V, --version print version number and configuration settings, then exit\n --config print configuration, then exit\n -q, --quiet, --silent\n do not print progress messages\n -d, --debug don't remove temporary files\n --recheck update $as_me by reconfiguring in the same conditions\n --file=FILE[:TEMPLATE]\n instantiate the configuration file FILE\n\nConfiguration files:\n$config_files\n\nReport bugs to the package provider.\"\n\n_ACEOF\nac_cs_config=`printf \"%s\\n\" \"$ac_configure_args\" | sed \"$ac_safe_unquote\"`\nac_cs_config_escaped=`printf \"%s\\n\" \"$ac_cs_config\" | sed \"s/^ //; s/'/'\\\\\\\\\\\\\\\\''/g\"`\ncat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1\nac_cs_config='$ac_cs_config_escaped'\nac_cs_version=\"\\\\\nconfig.status\nconfigured by $0, generated by GNU Autoconf 2.71,\n with options \\\\\"\\$ac_cs_config\\\\\"\n\nCopyright (C) 2021 Free Software Foundation, Inc.\nThis config.status script is free software; the Free Software Foundation\ngives unlimited permission to copy, distribute and modify it.\"\n\nac_pwd='$ac_pwd'\nsrcdir='$srcdir'\ntest -n \"\\$AWK\" || AWK=awk\n_ACEOF\n\ncat >>$CONFIG_STATUS <<\\_ACEOF || ac_write_fail=1\n# The default lists apply if the user does not specify any file.\nac_need_defaults=:\nwhile test $# != 0\ndo\n case $1 in\n --*=?*)\n ac_option=`expr \"X$1\" : 'X\\([^=]*\\)='`\n ac_optarg=`expr \"X$1\" : 'X[^=]*=\\(.*\\)'`\n ac_shift=:\n ;;\n --*=)\n ac_option=`expr \"X$1\" : 'X\\([^=]*\\)='`\n ac_optarg=\n ac_shift=:\n ;;\n *)\n ac_option=$1\n ac_optarg=$2\n ac_shift=shift\n ;;\n esac\n\n case $ac_option in\n # Handling of the options.\n -recheck | --recheck | --rechec | --reche | --rech | --rec | --re | --r)\n ac_cs_recheck=: ;;\n --version | --versio | --versi | --vers | --ver | --ve | --v | -V )\n printf \"%s\\n\" \"$ac_cs_version\"; exit ;;\n --config | --confi | --conf | --con | --co | --c )\n printf \"%s\\n\" \"$ac_cs_config\"; exit ;;\n --debug | --debu | --deb | --de | --d | -d )\n debug=: ;;\n --file | --fil | --fi | --f )\n $ac_shift\n case $ac_optarg in\n *\\'*) ac_optarg=`printf \"%s\\n\" \"$ac_optarg\" | sed \"s/'/'\\\\\\\\\\\\\\\\''/g\"` ;;\n '') as_fn_error $? \"missing file argument\" ;;\n esac\n as_fn_append CONFIG_FILES \" '$ac_optarg'\"\n ac_need_defaults=false;;\n --he | --h | --help | --hel | -h )\n printf \"%s\\n\" \"$ac_cs_usage\"; exit ;;\n -q | -quiet | --quiet | --quie | --qui | --qu | --q \\\n | -silent | --silent | --silen | --sile | --sil | --si | --s)\n ac_cs_silent=: ;;\n\n # This is an error.\n -*) as_fn_error $? \"unrecognized option: \\`$1'\nTry \\`$0 --help' for more information.\" ;;\n\n *) as_fn_append ac_config_targets \" $1\"\n ac_need_defaults=false ;;\n\n esac\n shift\ndone\n\nac_configure_extra_args=\n\nif $ac_cs_silent; then\n exec 6>/dev/null\n ac_configure_extra_args=\"$ac_configure_extra_args --silent\"\nfi\n\n_ACEOF\ncat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1\nif \\$ac_cs_recheck; then\n set X $SHELL '$0' $ac_configure_args \\$ac_configure_extra_args --no-create --no-recursion\n shift\n \\printf \"%s\\n\" \"running CONFIG_SHELL=$SHELL \\$*\" >&6\n CONFIG_SHELL='$SHELL'\n export CONFIG_SHELL\n exec \"\\$@\"\nfi\n\n_ACEOF\ncat >>$CONFIG_STATUS <<\\_ACEOF || ac_write_fail=1\nexec 5>>config.log\n{\n echo\n sed 'h;s/./-/g;s/^.../## /;s/...$/ ##/;p;x;p;x' <<_ASBOX\n## Running $as_me. ##\n_ASBOX\n printf \"%s\\n\" \"$ac_log\"\n} >&5\n\n_ACEOF\ncat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1\n_ACEOF\n\ncat >>$CONFIG_STATUS <<\\_ACEOF || ac_write_fail=1\n\n# Handling of arguments.\nfor ac_config_target in $ac_config_targets\ndo\n case $ac_config_target in\n \"src/Makevars\") CONFIG_FILES=\"$CONFIG_FILES src/Makevars\" ;;\n\n *) as_fn_error $? \"invalid argument: \\`$ac_config_target'\" \"$LINENO\" 5;;\n esac\ndone\n\n\n# If the user did not use the arguments to specify the items to instantiate,\n# then the envvar interface is used. Set only those that are not.\n# We use the long form for the default assignment because of an extremely\n# bizarre bug on SunOS 4.1.3.\nif $ac_need_defaults; then\n test ${CONFIG_FILES+y} || CONFIG_FILES=$config_files\nfi\n\n# Have a temporary directory for convenience. Make it in the build tree\n# simply because there is no reason against having it here, and in addition,\n# creating and moving files from /tmp can sometimes cause problems.\n# Hook for its removal unless debugging.\n# Note that there is a small window in which the directory will not be cleaned:\n# after its creation but before its name has been assigned to `$tmp'.\n$debug ||\n{\n tmp= ac_tmp=\n trap 'exit_status=$?\n : \"${ac_tmp:=$tmp}\"\n { test ! -d \"$ac_tmp\" || rm -fr \"$ac_tmp\"; } && exit $exit_status\n' 0\n trap 'as_fn_exit 1' 1 2 13 15\n}\n# Create a (secure) tmp directory for tmp files.\n\n{\n tmp=`(umask 077 && mktemp -d \"./confXXXXXX\") 2>/dev/null` &&\n test -d \"$tmp\"\n} ||\n{\n tmp=./conf$$-$RANDOM\n (umask 077 && mkdir \"$tmp\")\n} || as_fn_error $? \"cannot create a temporary directory in .\" \"$LINENO\" 5\nac_tmp=$tmp\n\n# Set up the scripts for CONFIG_FILES section.\n# No need to generate them if there are no CONFIG_FILES.\n# This happens for instance with `./config.status config.h'.\nif test -n \"$CONFIG_FILES\"; then\n\n\nac_cr=`echo X | tr X '\\015'`\n# On cygwin, bash can eat \\r inside `` if the user requested igncr.\n# But we know of no other shell where ac_cr would be empty at this\n# point, so we can use a bashism as a fallback.\nif test \"x$ac_cr\" = x; then\n eval ac_cr=\\$\\'\\\\r\\'\nfi\nac_cs_awk_cr=`$AWK 'BEGIN { print \"a\\rb\" }' /dev/null`\nif test \"$ac_cs_awk_cr\" = \"a${ac_cr}b\"; then\n ac_cs_awk_cr='\\\\r'\nelse\n ac_cs_awk_cr=$ac_cr\nfi\n\necho 'BEGIN {' >\"$ac_tmp/subs1.awk\" &&\n_ACEOF\n\n\n{\n echo \"cat >conf$$subs.awk <<_ACEOF\" &&\n echo \"$ac_subst_vars\" | sed 's/.*/&!$&$ac_delim/' &&\n echo \"_ACEOF\"\n} >conf$$subs.sh ||\n as_fn_error $? \"could not make $CONFIG_STATUS\" \"$LINENO\" 5\nac_delim_num=`echo \"$ac_subst_vars\" | grep -c '^'`\nac_delim='%!_!# '\nfor ac_last_try in false false false false false :; do\n . ./conf$$subs.sh ||\n as_fn_error $? \"could not make $CONFIG_STATUS\" \"$LINENO\" 5\n\n ac_delim_n=`sed -n \"s/.*$ac_delim\\$/X/p\" conf$$subs.awk | grep -c X`\n if test $ac_delim_n = $ac_delim_num; then\n break\n elif $ac_last_try; then\n as_fn_error $? \"could not make $CONFIG_STATUS\" \"$LINENO\" 5\n else\n ac_delim=\"$ac_delim!$ac_delim _$ac_delim!! \"\n fi\ndone\nrm -f conf$$subs.sh\n\ncat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1\ncat >>\"\\$ac_tmp/subs1.awk\" <<\\\\_ACAWK &&\n_ACEOF\nsed -n '\nh\ns/^/S[\"/; s/!.*/\"]=/\np\ng\ns/^[^!]*!//\n:repl\nt repl\ns/'\"$ac_delim\"'$//\nt delim\n:nl\nh\ns/\\(.\\{148\\}\\)..*/\\1/\nt more1\ns/[\"\\\\]/\\\\&/g; s/^/\"/; s/$/\\\\n\"\\\\/\np\nn\nb repl\n:more1\ns/[\"\\\\]/\\\\&/g; s/^/\"/; s/$/\"\\\\/\np\ng\ns/.\\{148\\}//\nt nl\n:delim\nh\ns/\\(.\\{148\\}\\)..*/\\1/\nt more2\ns/[\"\\\\]/\\\\&/g; s/^/\"/; s/$/\"/\np\nb\n:more2\ns/[\"\\\\]/\\\\&/g; s/^/\"/; s/$/\"\\\\/\np\ng\ns/.\\{148\\}//\nt delim\n' >$CONFIG_STATUS || ac_write_fail=1\nrm -f conf$$subs.awk\ncat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1\n_ACAWK\ncat >>\"\\$ac_tmp/subs1.awk\" <<_ACAWK &&\n for (key in S) S_is_set[key] = 1\n FS = \"\u0007\"\n\n}\n{\n line = $ 0\n nfields = split(line, field, \"@\")\n substed = 0\n len = length(field[1])\n for (i = 2; i < nfields; i++) {\n key = field[i]\n keylen = length(key)\n if (S_is_set[key]) {\n value = S[key]\n line = substr(line, 1, len) \"\" value \"\" substr(line, len + keylen + 3)\n len += length(value) + length(field[++i])\n substed = 1\n } else\n len += 1 + keylen\n }\n\n print line\n}\n\n_ACAWK\n_ACEOF\ncat >>$CONFIG_STATUS <<\\_ACEOF || ac_write_fail=1\nif sed \"s/$ac_cr//\" < /dev/null > /dev/null 2>&1; then\n sed \"s/$ac_cr\\$//; s/$ac_cr/$ac_cs_awk_cr/g\"\nelse\n cat\nfi < \"$ac_tmp/subs1.awk\" > \"$ac_tmp/subs.awk\" \\\n || as_fn_error $? \"could not setup config files machinery\" \"$LINENO\" 5\n_ACEOF\n\n# VPATH may cause trouble with some makes, so we remove sole $(srcdir),\n# ${srcdir} and @srcdir@ entries from VPATH if srcdir is \".\", strip leading and\n# trailing colons and then remove the whole line if VPATH becomes empty\n# (actually we leave an empty line to preserve line numbers).\nif test \"x$srcdir\" = x.; then\n ac_vpsub='/^[\t ]*VPATH[\t ]*=[\t ]*/{\nh\ns///\ns/^/:/\ns/[\t ]*$/:/\ns/:\\$(srcdir):/:/g\ns/:\\${srcdir}:/:/g\ns/:@srcdir@:/:/g\ns/^:*//\ns/:*$//\nx\ns/\\(=[\t ]*\\).*/\\1/\nG\ns/\\n//\ns/^[^=]*=[\t ]*$//\n}'\nfi\n\ncat >>$CONFIG_STATUS <<\\_ACEOF || ac_write_fail=1\nfi # test -n \"$CONFIG_FILES\"\n\n\neval set X \" :F $CONFIG_FILES \"\nshift\nfor ac_tag\ndo\n case $ac_tag in\n :[FHLC]) ac_mode=$ac_tag; continue;;\n esac\n case $ac_mode$ac_tag in\n :[FHL]*:*);;\n :L* | :C*:*) as_fn_error $? \"invalid tag \\`$ac_tag'\" \"$LINENO\" 5;;\n :[FH]-) ac_tag=-:-;;\n :[FH]*) ac_tag=$ac_tag:$ac_tag.in;;\n esac\n ac_save_IFS=$IFS\n IFS=:\n set x $ac_tag\n IFS=$ac_save_IFS\n shift\n ac_file=$1\n shift\n\n case $ac_mode in\n :L) ac_source=$1;;\n :[FH])\n ac_file_inputs=\n for ac_f\n do\n case $ac_f in\n -) ac_f=\"$ac_tmp/stdin\";;\n *) # Look for the file first in the build tree, then in the source tree\n\t # (if the path is not absolute). The absolute path cannot be DOS-style,\n\t # because $ac_f cannot contain `:'.\n\t test -f \"$ac_f\" ||\n\t case $ac_f in\n\t [\\\\/$]*) false;;\n\t *) test -f \"$srcdir/$ac_f\" && ac_f=\"$srcdir/$ac_f\";;\n\t esac ||\n\t as_fn_error 1 \"cannot find input file: \\`$ac_f'\" \"$LINENO\" 5;;\n esac\n case $ac_f in *\\'*) ac_f=`printf \"%s\\n\" \"$ac_f\" | sed \"s/'/'\\\\\\\\\\\\\\\\''/g\"`;; esac\n as_fn_append ac_file_inputs \" '$ac_f'\"\n done\n\n # Let's still pretend it is `configure' which instantiates (i.e., don't\n # use $as_me), people would be surprised to read:\n # /* config.h. Generated by config.status. */\n configure_input='Generated from '`\n\t printf \"%s\\n\" \"$*\" | sed 's|^[^:]*/||;s|:[^:]*/|, |g'\n\t`' by configure.'\n if test x\"$ac_file\" != x-; then\n configure_input=\"$ac_file. $configure_input\"\n { printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: creating $ac_file\" >&5\nprintf \"%s\\n\" \"$as_me: creating $ac_file\" >&6;}\n fi\n # Neutralize special characters interpreted by sed in replacement strings.\n case $configure_input in #(\n *\\&* | *\\|* | *\\\\* )\n ac_sed_conf_input=`printf \"%s\\n\" \"$configure_input\" |\n sed 's/[\\\\\\\\&|]/\\\\\\\\&/g'`;; #(\n *) ac_sed_conf_input=$configure_input;;\n esac\n\n case $ac_tag in\n *:-:* | *:-) cat >\"$ac_tmp/stdin\" \\\n || as_fn_error $? \"could not create $ac_file\" \"$LINENO\" 5 ;;\n esac\n ;;\n esac\n\n ac_dir=`$as_dirname -- \"$ac_file\" ||\n$as_expr X\"$ac_file\" : 'X\\(.*[^/]\\)//*[^/][^/]*/*$' \\| \\\n\t X\"$ac_file\" : 'X\\(//\\)[^/]' \\| \\\n\t X\"$ac_file\" : 'X\\(//\\)$' \\| \\\n\t X\"$ac_file\" : 'X\\(/\\)' \\| . 2>/dev/null ||\nprintf \"%s\\n\" X\"$ac_file\" |\n sed '/^X\\(.*[^/]\\)\\/\\/*[^/][^/]*\\/*$/{\n\t s//\\1/\n\t q\n\t }\n\t /^X\\(\\/\\/\\)[^/].*/{\n\t s//\\1/\n\t q\n\t }\n\t /^X\\(\\/\\/\\)$/{\n\t s//\\1/\n\t q\n\t }\n\t /^X\\(\\/\\).*/{\n\t s//\\1/\n\t q\n\t }\n\t s/.*/./; q'`\n as_dir=\"$ac_dir\"; as_fn_mkdir_p\n ac_builddir=.\n\ncase \"$ac_dir\" in\n.) ac_dir_suffix= ac_top_builddir_sub=. ac_top_build_prefix= ;;\n*)\n ac_dir_suffix=/`printf \"%s\\n\" \"$ac_dir\" | sed 's|^\\.[\\\\/]||'`\n # A \"..\" for each directory in $ac_dir_suffix.\n ac_top_builddir_sub=`printf \"%s\\n\" \"$ac_dir_suffix\" | sed 's|/[^\\\\/]*|/..|g;s|/||'`\n case $ac_top_builddir_sub in\n \"\") ac_top_builddir_sub=. ac_top_build_prefix= ;;\n *) ac_top_build_prefix=$ac_top_builddir_sub/ ;;\n esac ;;\nesac\nac_abs_top_builddir=$ac_pwd\nac_abs_builddir=$ac_pwd$ac_dir_suffix\n# for backward compatibility:\nac_top_builddir=$ac_top_build_prefix\n\ncase $srcdir in\n .) # We are building in place.\n ac_srcdir=.\n ac_top_srcdir=$ac_top_builddir_sub\n ac_abs_top_srcdir=$ac_pwd ;;\n [\\\\/]* | ?:[\\\\/]* ) # Absolute name.\n ac_srcdir=$srcdir$ac_dir_suffix;\n ac_top_srcdir=$srcdir\n ac_abs_top_srcdir=$srcdir ;;\n *) # Relative name.\n ac_srcdir=$ac_top_build_prefix$srcdir$ac_dir_suffix\n ac_top_srcdir=$ac_top_build_prefix$srcdir\n ac_abs_top_srcdir=$ac_pwd/$srcdir ;;\nesac\nac_abs_srcdir=$ac_abs_top_srcdir$ac_dir_suffix\n\n\n case $ac_mode in\n :F)\n #\n # CONFIG_FILE\n #\n\n_ACEOF\n\ncat >>$CONFIG_STATUS <<\\_ACEOF || ac_write_fail=1\n# If the template does not know about datarootdir, expand it.\n# FIXME: This hack should be removed a few years after 2.60.\nac_datarootdir_hack=; ac_datarootdir_seen=\nac_sed_dataroot='\n/datarootdir/ {\n p\n q\n}\n/@datadir@/p\n/@docdir@/p\n/@infodir@/p\n/@localedir@/p\n/@mandir@/p'\ncase `eval \"sed -n \\\"\\$ac_sed_dataroot\\\" $ac_file_inputs\"` in\n*datarootdir*) ac_datarootdir_seen=yes;;\n*@datadir@*|*@docdir@*|*@infodir@*|*@localedir@*|*@mandir@*)\n { printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: WARNING: $ac_file_inputs seems to ignore the --datarootdir setting\" >&5\nprintf \"%s\\n\" \"$as_me: WARNING: $ac_file_inputs seems to ignore the --datarootdir setting\" >&2;}\n_ACEOF\ncat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1\n ac_datarootdir_hack='\n s&@datadir@&$datadir&g\n s&@docdir@&$docdir&g\n s&@infodir@&$infodir&g\n s&@localedir@&$localedir&g\n s&@mandir@&$mandir&g\n s&\\\\\\${datarootdir}&$datarootdir&g' ;;\nesac\n_ACEOF\n\n# Neutralize VPATH when `$srcdir' = `.'.\n# Shell code in configure.ac might set extrasub.\n# FIXME: do we really want to maintain this feature?\ncat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1\nac_sed_extra=\"$ac_vpsub\n$extrasub\n_ACEOF\ncat >>$CONFIG_STATUS <<\\_ACEOF || ac_write_fail=1\n:t\n/@[a-zA-Z_][a-zA-Z_0-9]*@/!b\ns|@configure_input@|$ac_sed_conf_input|;t t\ns&@top_builddir@&$ac_top_builddir_sub&;t t\ns&@top_build_prefix@&$ac_top_build_prefix&;t t\ns&@srcdir@&$ac_srcdir&;t t\ns&@abs_srcdir@&$ac_abs_srcdir&;t t\ns&@top_srcdir@&$ac_top_srcdir&;t t\ns&@abs_top_srcdir@&$ac_abs_top_srcdir&;t t\ns&@builddir@&$ac_builddir&;t t\ns&@abs_builddir@&$ac_abs_builddir&;t t\ns&@abs_top_builddir@&$ac_abs_top_builddir&;t t\n$ac_datarootdir_hack\n\"\neval sed \\\"\\$ac_sed_extra\\\" \"$ac_file_inputs\" | $AWK -f \"$ac_tmp/subs.awk\" \\\n >$ac_tmp/out || as_fn_error $? \"could not create $ac_file\" \"$LINENO\" 5\n\ntest -z \"$ac_datarootdir_hack$ac_datarootdir_seen\" &&\n { ac_out=`sed -n '/\\${datarootdir}/p' \"$ac_tmp/out\"`; test -n \"$ac_out\"; } &&\n { ac_out=`sed -n '/^[\t ]*datarootdir[\t ]*:*=/p' \\\n \"$ac_tmp/out\"`; test -z \"$ac_out\"; } &&\n { printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: WARNING: $ac_file contains a reference to the variable \\`datarootdir'\nwhich seems to be undefined. Please make sure it is defined\" >&5\nprintf \"%s\\n\" \"$as_me: WARNING: $ac_file contains a reference to the variable \\`datarootdir'\nwhich seems to be undefined. Please make sure it is defined\" >&2;}\n\n rm -f \"$ac_tmp/stdin\"\n case $ac_file in\n -) cat \"$ac_tmp/out\" && rm -f \"$ac_tmp/out\";;\n *) rm -f \"$ac_file\" && mv \"$ac_tmp/out\" \"$ac_file\";;\n esac \\\n || as_fn_error $? \"could not create $ac_file\" \"$LINENO\" 5\n ;;\n\n\n\n esac\n\ndone # for ac_tag\n\n\nas_fn_exit 0\n_ACEOF\nac_clean_files=$ac_clean_files_save\n\ntest $ac_write_fail = 0 ||\n as_fn_error $? \"write failure creating $CONFIG_STATUS\" \"$LINENO\" 5\n\n\n# configure is writing to config.log, and then calls config.status.\n# config.status does its own redirection, appending to config.log.\n# Unfortunately, on DOS this fails, as config.log is still kept open\n# by configure, so config.status won't be able to write to it; its\n# output is simply discarded. So we exec the FD to /dev/null,\n# effectively closing config.log, so it can be properly (re)opened and\n# appended to by config.status. When coming back to configure, we\n# need to make the FD available again.\nif test \"$no_create\" != yes; then\n ac_cs_success=:\n ac_config_status_args=\n test \"$silent\" = yes &&\n ac_config_status_args=\"$ac_config_status_args --quiet\"\n exec 5>/dev/null\n $SHELL $CONFIG_STATUS $ac_config_status_args || ac_cs_success=false\n exec 5>>config.log\n # Use ||, not &&, to avoid exiting from the if with $? = 1, which\n # would make configure fail if this is the last instruction.\n $ac_cs_success || as_fn_exit 1\nfi\nif test -n \"$ac_unrecognized_opts\" && test \"$enable_option_checking\" != no; then\n { printf \"%s\\n\" \"$as_me:${as_lineno-$LINENO}: WARNING: unrecognized options: $ac_unrecognized_opts\" >&5\nprintf \"%s\\n\" \"$as_me: WARNING: unrecognized options: $ac_unrecognized_opts\" >&2;}\nfi\n\n\n"
},
{
"path": "configure.ac",
"content": "dnl Process this file with autoconf to produce a configure script.\ndnl GDAL stuff largely copied from rgdal, (c) Roger Bivand\nAC_INIT\nAC_CONFIG_SRCDIR([src/wkb.cpp])\n\n: ${R_HOME=`R RHOME`}\nif test -z \"${R_HOME}\"; then\n echo \"could not determine R_HOME\"\n exit 1\nfi\n\nRBIN=\"${R_HOME}/bin/R\"\n# https://github.com/r-spatial/sf/issues/1054:\n# RVER=`\"${RBIN}\" --version | head -1 | cut -f3 -d\" \"`\nRSCRIPT=\"${R_HOME}/bin/Rscript\"\nRVER=`\"${RSCRIPT}\" -e 'writeLines(paste(sep=\".\", base::version$major, base::version$minor))'`\n\nRVER_MAJOR=`echo ${RVER} | cut -f1 -d\".\"`\nRVER_MINOR=`echo ${RVER} | cut -f2 -d\".\"`\nRVER_PATCH=`echo ${RVER} | cut -f3 -d\".\"`\n\n#if test [$RVER_MAJOR = \"development\"]; then\n CXX=`\"${RBIN}\" CMD config CXX`\n#else\n# if test [$RVER_MAJOR -lt 3] -o [$RVER_MAJOR -eq 3 -a $RVER_MINOR -lt 3]; then\n# AC_MSG_ERROR([sf is not compatible with R versions before 3.3.0])\n# else\n# CXX=`\"${RBIN}\" CMD config CXX`\n# fi\n#fi\n\n# pick all flags for testing from R\n: ${CC=`\"${RBIN}\" CMD config CC`}\n: ${CFLAGS=`\"${RBIN}\" CMD config CFLAGS`}\n: ${CPPFLAGS=`\"${RBIN}\" CMD config CPPFLAGS`}\n: ${CXXFLAGS=`\"${RBIN}\" CMD config CXXFLAGS`}\n: ${LDFLAGS=`\"${RBIN}\" CMD config LDFLAGS`}\n# AC_SUBST([CC],[\"clang\"])\n# AC_SUBST([CXX],[\"clang++\"])\nAC_MSG_NOTICE([CC: ${CC}])\nAC_MSG_NOTICE([CXX: ${CXX}])\n\n# AC_MSG_NOTICE([${PACKAGE_NAME}: ${PACKAGE_VERSION}])\n\nGENERIC_INSTALL_MESSAGE=\"\n*** Installing this package from source requires the prior \n*** installation of external software, see for details \n*** https://r-spatial.github.io/sf/#installing\"\n\n#GDAL\nGDAL_CONFIG=\"gdal-config\"\n\nGDAL_CONFIG_SET=\"no\"\n\nAC_ARG_WITH([gdal-config],\n AS_HELP_STRING([--with-gdal-config=GDAL_CONFIG],[the location of gdal-config]),\n [gdal_config=$withval])\nif test [ -n \"$gdal_config\" ] ; then\n GDAL_CONFIG_SET=\"yes\"\n AC_SUBST([GDAL_CONFIG],[\"${gdal_config}\"])\n AC_MSG_NOTICE(gdal-config set to $GDAL_CONFIG)\nfi\n\nif test [\"$GDAL_CONFIG_SET\" = \"no\"] ; then\n AC_PATH_PROG([GDAL_CONFIG], [\"$GDAL_CONFIG\"],[\"no\"])\n if test [\"$GDAL_CONFIG\" = \"no\"] ; then\n AC_MSG_RESULT(no)\n AC_MSG_ERROR([gdal-config not found or not executable. ${GENERIC_INSTALL_MESSAGE}])\n fi\nelse\n AC_MSG_CHECKING(gdal-config exists)\n if test -r \"${GDAL_CONFIG}\"; then\n AC_MSG_RESULT(yes)\n else\n AC_MSG_RESULT(no)\n AC_MSG_ERROR([gdal-config not found - configure argument error. ${GENERIC_INSTALL_MESSAGE}])\n fi\n AC_MSG_CHECKING(gdal-config executable)\n if test -x \"${GDAL_CONFIG}\"; then\n AC_MSG_RESULT(yes)\n else\n AC_MSG_RESULT(no)\n AC_MSG_ERROR([gdal-config not executable. ${GENERIC_INSTALL_MESSAGE}])\n fi\nfi\n\nAC_MSG_CHECKING(gdal-config usability)\nif test `${GDAL_CONFIG} --version`;\nthen\n\tGDAL_CPPFLAGS=`${GDAL_CONFIG} --cflags`\n\tGDAL_VERSION=`${GDAL_CONFIG} --version`\n\tGDAL_LIBS=`${GDAL_CONFIG} --libs`\n\tGDAL_DEP_LIBS=`${GDAL_CONFIG} --dep-libs`\n\tGDAL_DATADIR=`${GDAL_CONFIG} --datadir`\n\tAC_MSG_RESULT(yes)\nelse\n\tAC_MSG_ERROR([gdal-config not found. ${GENERIC_INSTALL_MESSAGE}])\nfi\n\nAC_MSG_NOTICE([GDAL: ${GDAL_VERSION}])\nAC_MSG_CHECKING([GDAL version >= 2.0.1])\n\nGDAL_MAJ_VER=`echo $GDAL_VERSION | cut -d \".\" -f1`\nGDAL_MIN_VER=`echo $GDAL_VERSION | cut -d \".\" -f2`\nGDAL_PATCH_VER=`echo $GDAL_VERSION | cut -d \".\" -f3`\nif test ${GDAL_MAJ_VER} -lt 2 ; then\n AC_MSG_RESULT(no)\n AC_MSG_ERROR([sf is not compatible with GDAL versions below 2.0.1])\nelse\n AC_MSG_RESULT(yes)\nfi\n\n#if test [${GDAL_MAJ_VER} -eq 3] -a [${GDAL_MIN_VER} -eq 6] -a [${GDAL_PATCH_VER} -eq 0] ; then\nif test \"${GDAL_VERSION}\" = \"3.6.0\" ; then\n AC_MSG_ERROR([GDAL version 3.6.0 has been withdrawn, please update GDAL])\nfi\n\nINLIBS=\"${LIBS}\"\nINCPPFLAGS=\"${CPPFLAGS}\"\nINPKG_CPPFLAGS=\"${PKG_CPPFLAGS}\"\nINPKG_LIBS=\"${PKG_LIBS}\"\n\nAC_SUBST([PKG_CPPFLAGS], [\"${INPKG_CPPFLAGS} ${GDAL_CPPFLAGS}\"])\nAC_SUBST([PKG_LIBS], [\"${INPKG_LIBS} ${GDAL_LIBS}\"])\n\n# honor PKG_xx overrides\n# for CPPFLAGS we will superfluously double R's flags\n# since we'll set PKG_CPPFLAGS with this, but that shouldn't hurt\nCPPFLAGS=\"${INCPPFLAGS} ${PKG_CPPFLAGS}\"\n\ngdalok=yes\nAC_CHECK_HEADERS(gdal.h,,gdalok=no)\nif test \"${gdalok}\" = no; then\n AC_MSG_ERROR([gdal.h not found in given locations. ${GENERIC_INSTALL_MESSAGE}])\nfi\n\nNEED_DEPS=no\nLIBS=\"${INLIBS} ${PKG_LIBS}\"\n[cat > gdal_test.cpp <<_EOCONF\n#include \n#ifdef __cplusplus\nextern \"C\" {\n#endif\nint main(void) {\nGDALAllRegister();\n}\n#ifdef __cplusplus\n}\n#endif\n_EOCONF]\n\nAC_MSG_CHECKING(GDAL: linking with --libs only)\n${CXX} ${CPPFLAGS} -o gdal_test gdal_test.cpp ${LIBS} 2> errors.txt\nif test `echo $?` -ne 0 ; then\ngdalok=no\nAC_MSG_RESULT(no)\nelse\nAC_MSG_RESULT(yes)\nfi\n\nif test \"${gdalok}\" = no; then\nAC_MSG_CHECKING(GDAL: linking with --libs and --dep-libs)\nLIBS=\"${LIBS} ${GDAL_DEP_LIBS}\"\ngdalok=yes\n${CXX} ${CPPFLAGS} -o gdal_test gdal_test.cpp ${LIBS} 2>> errors.txt\nif test `echo $?` -ne 0 ; then\ngdalok=no\nfi\nif test \"${gdalok}\" = yes; then\n NEED_DEPS=yes\n AC_MSG_RESULT(yes)\nelse\n AC_MSG_RESULT(no)\nfi\nfi\n\nif test \"${gdalok}\" = no; then\n cat errors.txt\n AC_MSG_NOTICE([Install failure: compilation and/or linkage problems.])\n AC_MSG_ERROR([GDALAllRegister not found in libgdal. ${GENERIC_INSTALL_MESSAGE}])\nfi\n\nrm -f gdal_test errors.txt gdal_test.cpp\n\nGDAL_GE_250=\"no\"\nGDAL_MAJ_VER=`echo $GDAL_VERSION | cut -d \".\" -f1`\nGDAL_MOD_VER=`echo $GDAL_VERSION | cut -d \".\" -f2`\nif test \"${GDAL_MAJ_VER}\" = 2 ; then\n if test \"${GDAL_MOD_VER}\" -ge 5 ; then\n GDAL_GE_250=\"yes\" \n fi\nelse \n if test \"${GDAL_MAJ_VER}\" -ge 3 ; then\n GDAL_GE_250=\"yes\" \n fi\nfi\n\nGDAL_DATA_TEST_FILE=\"${GDAL_DATADIR}/pcs.csv\"\nAC_MSG_CHECKING(GDAL: ${GDAL_DATADIR}/pcs.csv readable)\nif test -r \"${GDAL_DATA_TEST_FILE}\" ; then\n AC_MSG_RESULT(yes)\nelse\n AC_MSG_RESULT(no)\n if test \"${GDAL_GE_250}\" = \"no\" ; then\n AC_MSG_ERROR([pcs.csv not found in GDAL data directory.])\n fi\nfi\n\n# Optional local copy of GDAL datadir and PROJ_LIB\n\ndata_copy=no\nif test \"${PROJ_GDAL_DATA_COPY}\" ; then\n data_copy=yes\n AC_MSG_NOTICE([PROJ_GDAL_DATA_COPY used.])\nelse\n AC_ARG_WITH([data-copy],\n AS_HELP_STRING([--with-data-copy=yes/no],[local copy of data directories in package, default no]),\n [data_copy=$withval])\nfi\nif test \"${data_copy}\" = \"yes\" ; then\nAC_MSG_NOTICE([Copy data for:])\n proj_lib0=\"${PROJ_LIB}\"\n AC_ARG_WITH([proj-data],\n AS_HELP_STRING([--with-proj-data=DIR],[location of PROJ data directory]),\n [proj_lib1=$withval])\n if test -n \"${proj_lib0}\" ; then\n proj_lib=\"${proj_lib0}\"\n else\n proj_lib=\"${proj_lib1}\"\n fi\n if test -n \"${proj_lib}\" ; then\n if test -d \"${proj_lib}\" ; then\n cp -r \"${proj_lib}\" \"${R_PACKAGE_DIR}\"\n AC_MSG_NOTICE([ PROJ: ${proj_lib}])\n else\n AC_MSG_ERROR([PROJ data files not found; set environment variable PROJ_LIB=DIR or --with-proj-data=DIR.])\n fi\n else\n AC_MSG_ERROR([PROJ data files not found; set environment variable PROJ_LIB=DIR or --with-proj-data=DIR.])\n fi\n\n if test -d \"${GDAL_DATADIR}\" ; then\n cp -r \"${GDAL_DATADIR}\" \"${R_PACKAGE_DIR}\"\n AC_MSG_NOTICE([ GDAL: ${GDAL_DATADIR}])\n else\n AC_MSG_ERROR([GDAL data files not found.])\n fi\nfi\n\n#\n# test whether PROJ is available to gdal:\n#\n\ngdal_has_proj=no\n[cat > gdal_proj.cpp <<_EOCONF\n#include \n#include \n#include \nint main(int argc, char *argv[]) {\n\tOGRSpatialReference *dest = new OGRSpatialReference;\n\tOGRSpatialReference *src = new OGRSpatialReference;\n src->importFromEPSG(4326);\n dest->importFromEPSG(3857);\n\tOGRCoordinateTransformation *ct = OGRCreateCoordinateTransformation(src, dest);\n\treturn(ct == NULL); // signals PROJ is not available through gdal\n}\n_EOCONF]\n\nAC_MSG_CHECKING(GDAL: checking whether PROJ is available for linking:)\n${CXX} ${CPPFLAGS} -o gdal_proj gdal_proj.cpp ${LIBS} 2> errors.txt\nif test `echo $?` -ne 0 ; then\ngdal_has_proj=no\nAC_MSG_RESULT(no)\nelse\ngdal_has_proj=yes\nAC_MSG_RESULT(yes)\nfi\n\nif test \"${gdal_has_proj}\" = no; then\n cat errors.txt\n AC_MSG_NOTICE([Install failure: compilation and/or linkage problems.])\n AC_MSG_ERROR([cannot link projection code])\nfi\n\nAC_MSG_CHECKING(GDAL: checking whether PROJ is available for running:)\nif test \"x$cross_compiling\" = \"xyes\"; then\nAC_MSG_RESULT(cross compiling, assuming yes)\nelse\n./gdal_proj\nif test `echo $?` -ne 0 ; then\ngdal_has_proj=no\nAC_MSG_RESULT(no)\nelse\ngdal_has_proj=yes\nAC_MSG_RESULT(yes)\nfi\nif test \"${gdal_has_proj}\" = no; then\n AC_MSG_ERROR([OGRCoordinateTransformation() does not return a coord.trans: PROJ not available?])\nfi\nfi\nrm -fr errors.txt gdal_proj.cpp gdal_proj\nAC_MSG_NOTICE([GDAL: ${GDAL_VERSION}])\n\n\n# sqlite3\nAC_ARG_WITH([sqlite3-lib],\n AS_HELP_STRING([--with-sqlite3-lib=LIB_PATH],[the location of sqlite3 libraries]),\n [sqlite3_lib_path=$withval])\nif test [ -n \"$sqlite3_lib_path\" ] ; then\n AC_SUBST([SQLITE3_LIBS], [\"-L${sqlite3_lib_path}\"])\nfi\n\n\n#\n# PROJ\n#\n\nPROJ_CONFIG=\"pkg-config proj\"\n\nif `$PROJ_CONFIG --exists` ; then\n AC_MSG_NOTICE([pkg-config proj exists, will use it])\n proj_config_ok=yes\nelse\n proj_config_ok=no\nfi\n\nAC_ARG_WITH([proj-include],\n AS_HELP_STRING([--with-proj-include=DIR],[location of proj header files]),\n [proj_include_path=$withval])\nif test [ -n \"$proj_include_path\" ] ; then\n AC_SUBST([PROJ_CPPFLAGS],[\"-I${proj_include_path}\"])\nelse\n if test \"${proj_config_ok}\" = yes; then\n PROJ_INCLUDE_PATH=`${PROJ_CONFIG} --cflags`\n AC_SUBST([PROJ_CPPFLAGS],[\"${PROJ_INCLUDE_PATH}\"])\n fi\nfi\n\n# honor PKG_xx overrides\n# for CPPFLAGS we will superfluously double R's flags\n# since we'll set PKG_CPPFLAGS with this, but that shouldn't hurt\n\nAC_ARG_WITH([proj-api],\n AS_HELP_STRING([--with-proj-api=yes/no],[use the deprecated proj_api.h even when PROJ 6 is available; default no]),\n [proj_api=$withval])\nPROJ6=\"no\"\nPROJH=\"no\"\nif test \"${proj_config_ok}\" = yes; then\n PROJ_VERSION=`${PROJ_CONFIG} --modversion`\n PROJV1=`echo \"${PROJ_VERSION}\" | cut -c 1`\n if test \"${PROJV1}\" -ge 6; then\n PROJ6=\"yes\"\n PROJ_CPPFLAGS=\"${PROJ_CPPFLAGS} -DHAVE_PROJ_H\"\n if test \"${proj_api}\" = yes; then\n AC_MSG_NOTICE([using proj_api.h even with PROJ 5/6])\n PROJ_CPPFLAGS=\"${PROJ_CPPFLAGS} -DACCEPT_USE_OF_DEPRECATED_PROJ_API_H\"\n else\n AC_MSG_NOTICE([using proj.h.])\n PROJH=\"yes\"\n fi\n fi\nelse\n if test \"${PROJH}\" = no ; then\n PROJH=yes\n AC_CHECK_HEADERS(proj.h,,PROJH=no)\n if test \"${PROJH}\" = yes; then\n PROJ6=\"yes\"\n PROJ_CPPFLAGS=\"${PROJ_CPPFLAGS} -DHAVE_PROJ_H\"\n fi\n fi\nfi\n\nCPPFLAGS=\"${INCPPFLAGS} ${PKG_CPPFLAGS} ${PROJ_CPPFLAGS}\"\n\nif test \"${PROJH}\" = no\nthen\n proj4ok=yes\n AC_CHECK_HEADERS(proj_api.h,,proj4ok=no)\n if test \"${proj4ok}\" = no; then\n AC_MSG_ERROR([proj_api.h not found in standard or given locations.])\n fi\nfi\n\n# dnl ditto for a library path\nAC_ARG_WITH([proj-lib],\n AS_HELP_STRING([--with-proj-lib=LIB_PATH],[the location of proj libraries]),\n [proj_lib_path=$withval])\nif test [ -n \"$proj_lib_path\" ] ; then\n AC_SUBST([PROJ_LIBS], [\"-L${proj_lib_path} ${INPKG_LIBS} -lproj\"])\nelse\n if test \"${proj_config_ok}\" = yes; then\n if test `uname` = \"Darwin\"; then\n PROJ_LIB_PATH=`${PROJ_CONFIG} --libs --static`\n else\n PROJ_LIB_PATH=`${PROJ_CONFIG} --libs`\n fi\n AC_SUBST([PROJ_LIBS], [\"${PROJ_LIB_PATH} ${INPKG_LIBS}\"])\n\tproj_version=`${PROJ_CONFIG} --modversion`\n\tAC_MSG_NOTICE([PROJ: ${proj_version}])\n else\n PROJ_LIBS=\"${PKG_LIBS} -lproj\"\n fi\nfi\n\nLIBS=\"${PROJ_LIBS} ${INLIBS} ${PKG_LIBS}\"\n\nif test \"${PROJH}\" = no; then\n proj4ok=yes\n AC_CHECK_LIB(proj,pj_init_plus,,proj4ok=no)\n if test \"${proj4ok}\" = no; then\n AC_MSG_ERROR([libproj not found in standard or given locations. ${GENERIC_INSTALL_MESSAGE}])\n fi\n[cat > proj_conf_test.c <<_EOCONF\n#include \n#include \n#include \n\nint main(void) {\n printf(\"%d\\n\", PJ_VERSION);\n exit(0);\n}\n_EOCONF]\nelse\n[cat > proj_conf_test.cpp <<_EOCONF\n#include \n#include \n#include \n\nint main(void) {\n\tproj_context_create();\n exit(0);\n}\n_EOCONF]\n #AC_CHECK_LIB(proj,proj_context_create,,proj6ok=no)\n AC_MSG_CHECKING(PROJ: checking whether PROJ and sqlite3 are available for linking:)\n ${CXX} ${CPPFLAGS} -o proj_conf_test proj_conf_test.cpp ${LIBS} $SQLITE3_LIBS -lsqlite3 2> errors.txt\n if test `echo $?` -ne 0 ; then\n proj6ok=no\n AC_MSG_RESULT(no)\n else\n proj6ok=yes\n AC_MSG_RESULT(yes)\n fi\n if test \"${proj6ok}\" = no; then\n AC_MSG_ERROR([libproj or sqlite3 not found in standard or given locations. ${GENERIC_INSTALL_MESSAGE}])\n fi\n\n[cat > proj_conf_test.c <<_EOCONF\n#include \n#include \n#include \n\nint main(void) {\n printf(\"%d.%d.%d\\n\", PROJ_VERSION_MAJOR, PROJ_VERSION_MINOR, PROJ_VERSION_PATCH);\n exit(0);\n}\n_EOCONF]\nfi\n\n#AC_MSG_NOTICE([PKG_LIBS: ${PKG_LIBS}])\n\n${CC} ${CFLAGS} -o proj_conf_test proj_conf_test.c ${PROJ_LIBS}\n\nproj_version=`./proj_conf_test`\n\nAC_ARG_WITH([proj-share],\n AS_HELP_STRING([--with-proj-share=SHARE_PATH],[the location of proj metadata files]),\n [proj_share_path=$withval])\nif test [ -n \"$proj_share_path\" ] ; then\n AC_MSG_NOTICE([PROJ_LIB: ${proj_share_path}])\nfi\n\nif test ${PROJ6} = \"no\"; then\n\n[cat > proj_conf_test.c <<_EOCONF\n#include \n#include \n#if PJ_VERSION <= 480\nFILE *pj_open_lib(projCtx, const char *, const char *);\n#endif\n\nint main(void) {\n#if PJ_VERSION <= 480\n FILE *fp;\n#else\n PAFile fp;\n#endif\n projCtx ctx;\n ctx = pj_get_default_ctx();\n fp = pj_open_lib(ctx, \"epsg\", \"rb\");\n if (fp == NULL) exit(1);\n#if PJ_VERSION <= 480\n fclose(fp);\n#else\n pj_ctx_fclose(ctx, fp);\n#endif\n exit(0);\n}\n_EOCONF]\n\n${CC} ${CFLAGS} -o proj_conf_test proj_conf_test.c ${PROJ_LIBS}\nif test [ -n \"$proj_share_path\" ] ; then\n PROJ_LIB=\"${proj_share_path}\" ./proj_conf_test\n proj_share=`echo $?`\nelse\n ./proj_conf_test\n proj_share=`echo $?`\nfi\n\nAC_MSG_CHECKING(PROJ: epsg found and readable)\nif test ${proj_share} -eq 1 ; then\n AC_MSG_RESULT(no)\n STOP=\"stop\"\nelse\n AC_MSG_RESULT(yes)\nfi\n\nrm -f proj_conf_test.c proj_conf_test\n\nif test \"$STOP\" = \"stop\" ; then\n echo \"Error: proj/epsg not found\"\n echo \"Either install missing proj support files, for example\"\n echo \"the proj-nad and proj-epsg RPMs on systems using RPMs,\"\n echo \"or if installed but not autodetected, set PROJ_LIB to the\"\n echo \"correct path, and if need be use the --with-proj-share=\"\n echo \"configure argument.\"\n exit 1\nfi\n\nelse # proj >= 6\n\nif test \"${PROJH}\" = no; then\n\n[cat > proj_conf_test.c <<_EOCONF\n#include \n#include \n\nint main(void) {\n PAFile fp;\n projCtx ctx;\n ctx = pj_get_default_ctx();\n fp = pj_open_lib(ctx, \"proj.db\", \"rb\");\n if (fp == NULL) exit(1);\n pj_ctx_fclose(ctx, fp);\n exit(0);\n}\n_EOCONF]\n\n${CC} ${CFLAGS} -o proj_conf_test proj_conf_test.c ${PROJ_LIBS}\nif test [ -n \"$proj_share_path\" ] ; then\n PROJ_LIB=\"${proj_share_path}\" ./proj_conf_test\n proj_share=`echo $?`\nelse\n ./proj_conf_test\n proj_share=`echo $?`\nfi\n\nAC_MSG_CHECKING(PROJ: proj.db found and readable)\nif test ${proj_share} -eq 1 ; then\n AC_MSG_RESULT(no)\n STOP=\"stop\"\nelse\n AC_MSG_RESULT(yes)\nfi\n\nrm -f proj_conf_test.c proj_conf_test\n\nif test \"$STOP\" = \"stop\" ; then\n echo \"Error: proj/proj.db not found\"\n echo \"Either install missing proj support files, set PROJ_LIB to the\"\n echo \"correct path, and if need be use the --with-proj-share=\"\n echo \"configure argument.\"\n exit 1\nfi\n\n[cat > proj_conf_test.c <<_EOCONF\n#include \n#include \n#if PJ_VERSION <= 480\nFILE *pj_open_lib(projCtx, const char *, const char *);\n#endif\n\nint main(void) {\n#if PJ_VERSION <= 480\n FILE *fp;\n#else\n PAFile fp;\n#endif\n projCtx ctx;\n ctx = pj_get_default_ctx();\n fp = pj_open_lib(ctx, \"conus\", \"rb\");\n if (fp == NULL) exit(1);\n#if PJ_VERSION <= 480\n fclose(fp);\n#else\n pj_ctx_fclose(ctx, fp);\n#endif\n exit(0);\n}\n_EOCONF]\n\n${CC} ${CFLAGS} -o proj_conf_test proj_conf_test.c ${PROJ_LIBS}\nif test [ -n \"$proj_share_path\" ] ; then\n PROJ_LIB=\"${proj_share_path}\" ./proj_conf_test\n proj_share=`echo $?`\nelse\n ./proj_conf_test\n proj_share=`echo $?`\nfi\n\nAC_MSG_CHECKING(PROJ: conus found and readable)\nif test ${proj_share} -eq 1 ; then\n WARN=\"warn\"\n AC_MSG_RESULT(no)\nelse\n AC_MSG_RESULT(yes)\nfi\n\nrm -f proj_conf_test.c proj_conf_test\n\nif test \"$WARN\" = \"warn\" ; then\n echo \"Note: proj/conus not found\"\n echo \"No support available in PROJ4 for NAD grid datum transformations\"\n echo \"If required, consider re-installing from source with the contents\"\n echo \"of proj-datumgrid-1..zip from http://download.osgeo.org/proj/ in nad/.\"\nfi\n\nfi # PROJH = no\n\nfi # proj >= 6\n\n\n\n\n#\n# GEOS:\n#\nGEOS_CONFIG=\"geos-config\"\n\nGEOS_CONFIG_SET=\"no\"\n\nAC_ARG_WITH([geos-config],\n AS_HELP_STRING([--with-geos-config=GEOS_CONFIG],[the location of geos-config]),\n [geos_config=$withval])\nif test [ -n \"$geos_config\" ] ; then\n GEOS_CONFIG_SET=\"yes\"\n AC_SUBST([GEOS_CONFIG],[\"${geos_config}\"])\n AC_MSG_NOTICE(geos-config set to $GEOS_CONFIG)\nfi\n\nif test [\"$GEOS_CONFIG_SET\" = \"no\"] ; then\n AC_PATH_PROG([GEOS_CONFIG], [\"$GEOS_CONFIG\"],[\"no\"])\n if test [\"$GEOS_CONFIG\" = \"no\"] ; then\n AC_MSG_RESULT(no)\n AC_MSG_ERROR([geos-config not found or not executable. ${GENERIC_INSTALL_MESSAGE}])\n fi\nelse\n AC_MSG_CHECKING(geos-config exists)\n if test -r \"${GEOS_CONFIG}\"; then\n AC_MSG_RESULT(yes)\n else\n AC_MSG_RESULT(no)\n AC_MSG_ERROR([geos-config not found - configure argument error. ${GENERIC_INSTALL_MESSAGE}])\n fi\n AC_MSG_CHECKING(geos-config executable)\n if test -x \"${GEOS_CONFIG}\"; then\n AC_MSG_RESULT(yes)\n else\n AC_MSG_RESULT(no)\n AC_MSG_ERROR([geos-config not executable. ${GENERIC_INSTALL_MESSAGE}])\n fi\nfi\n\nAC_MSG_CHECKING(geos-config usability)\nif test `${GEOS_CONFIG} --version`\nthen\n GEOS_CLIBS=\"`${GEOS_CONFIG} --clibs`\"\n #GEOS_DEP_CLIBS=`geos-config --static-clibs` -- this gives -m instead of -lm, which breaks clang\n # fixed in 3.7.0 at https://github.com/libgeos/libgeos/pull/73#issuecomment-262208677\n GEOS_DEP_CLIBS=`${GEOS_CONFIG} --static-clibs | sed 's/-m/-lm/g'`\n GEOS_CPPFLAGS=`${GEOS_CONFIG} --cflags`\n AC_MSG_RESULT(yes)\nelse\n AC_MSG_RESULT(no)\n AC_MSG_ERROR([${GEOS_CONFIG} not usable])\nfi\n\nGEOS_VERSION=`${GEOS_CONFIG} --version`\nAC_MSG_NOTICE([GEOS: ${GEOS_VERSION}])\nAC_MSG_CHECKING([GEOS version >= 3.4.0]) # GDAL 2.0.1 requires GEOS 3.1.0\nGEOS_VER_DOT=`echo $GEOS_VERSION | tr -d \".[[:alpha:]]\"`\nif test ${GEOS_VER_DOT} -lt 340 ; then\n AC_MSG_RESULT(no)\n AC_MSG_ERROR([upgrade GEOS to 3.4.0 or later])\nelse\n AC_MSG_RESULT(yes)\nfi\n\nAC_SUBST([PKG_CPPFLAGS], [\"${INPKG_CPPFLAGS} ${PROJ_CPPFLAGS} ${GDAL_CPPFLAGS} ${GEOS_CPPFLAGS}\"])\nAC_SUBST([PKG_LIBS], [\"${INPKG_LIBS} ${GDAL_LIBS}\"])\nif test \"${NEED_DEPS}\" = yes; then\n AC_SUBST([PKG_LIBS], [\"${PKG_LIBS} ${GDAL_DEP_LIBS}\"])\nfi\n\n# honor PKG_xx overrides\n# for CPPFLAGS we will superfluously double R's flags\n# since we'll set PKG_CPPFLAGS with this, but that shouldn't hurt\nCPPFLAGS=\"${CPPFLAGS} ${PKG_CPPFLAGS}\"\nLIBS=\"${LIBS} ${PKG_LIBS}\"\n\ngeosok=yes\nAC_CHECK_HEADERS(geos_c.h,,geosok=no)\nif test \"${geosok}\" = no; then\n AC_MSG_ERROR([geos_c.h not found in given locations. ${GENERIC_INSTALL_MESSAGE}])\nfi\n\n[cat > geos_test.cpp <<_EOCONF\n#include \n#ifdef __cplusplus\nextern \"C\" {\n#endif\nstatic void __errorHandler(const char *fmt, ...) {\n return;\n}\nstatic void __warningHandler(const char *fmt, ...) {\n return;\n}\nint main(void) {\n GEOSContextHandle_t r = initGEOS_r((GEOSMessageHandler) __warningHandler, (GEOSMessageHandler) __errorHandler);\n finishGEOS_r(r);\n}\n#ifdef __cplusplus\n}\n#endif\n_EOCONF]\n\n#echo \"${CXX} ${CPPFLAGS} -o geos_test geos_test.cpp ${LIBS}\"\nAC_MSG_CHECKING(geos: linking with ${GEOS_CLIBS})\n${CXX} ${CPPFLAGS} -o geos_test geos_test.cpp ${GEOS_CLIBS} 2> errors.txt\nif test `echo $?` -ne 0 ; then\n geosok=no\n AC_MSG_RESULT(no)\nelse\n AC_SUBST([PKG_LIBS], [\"${PKG_LIBS} ${GEOS_CLIBS}\"])\n AC_MSG_RESULT(yes)\nfi\n\nif test \"${geosok}\" = no; then\n AC_MSG_CHECKING(geos: linking with ${GEOS_DEP_CLIBS})\n ${CXX} ${CPPFLAGS} -o geos_test geos_test.cpp ${GEOS_DEP_CLIBS} 2> errors.txt\n if test `echo $?` -ne 0 ; then\n geosok=no\n AC_MSG_RESULT(no)\n cat errors.txt\n AC_MSG_NOTICE([Install failure: compilation and/or linkage problems.])\n AC_MSG_ERROR([initGEOS_r not found in libgeos_c. ${GENERIC_INSTALL_MESSAGE}])\n else\n AC_SUBST([PKG_LIBS], [\"${PKG_LIBS} ${GEOS_DEP_CLIBS}\"])\n AC_MSG_RESULT(yes)\n fi\nfi\n\nrm -f geos_test errors.txt geos_test.cpp\n\n#\n# add PROJ_LIBS\n#\nAC_SUBST([PKG_LIBS], [\"${PROJ_LIBS} ${PKG_LIBS}\"])\n\n#\n# concluding substitution\n#\nAC_MSG_NOTICE([Package CPP flags: ${PKG_CPPFLAGS}])\nAC_MSG_NOTICE([Package LIBS: ${PKG_LIBS}])\n\nAC_CONFIG_FILES(src/Makevars)\nAC_OUTPUT\n"
},
{
"path": "demo/00Index",
"content": "affine\t\tdemo script for affine transformations\nbasic\t\tsimple feature test script\nggplot\t\tshows use of geom_sf\nmeuse_sf\tcreate meuse simple feature table from data.frame\nnc\t\t\tload (read) North Carolina sids data set from a geopackage file\ntwitter\t\ttwitter globe demo\n"
},
{
"path": "demo/affine.R",
"content": "library(sf)\n\na = 0.95\nb = 0.8\nang = 3 * pi / 180\nrot = function(a) matrix(c(cos(a), sin(a), -sin(a), cos(a)), 2, 2)\nn = 12\ndrift = c(.12, .07)\n\nouter = rbind(c(-1,-1), c(1, -1), c(1, 1), c(-1, 1), c(-1, -1))\nhole = a * outer[5:1,]\n\n# only shift:\np = st_sfc(lapply(0:n, \n\tfunction(i) { st_polygon(list(outer, hole)) * rot(0) * b^i + drift * i * b ^ i } ))\nplot(p, col = grey(0:n/n), border = 0)\n\n# shift + rotate:\np = st_sfc(lapply(0:n, \n\tfunction(i) { st_polygon(list(outer, hole)) * rot(i * ang) * b ^ i + drift * i * b ^ i } ))\np\nplot(p, col = grey(0:n/n), border = 0)\ng = st_geometrycollection(p)\nplot(g)\nmp = st_multipolygon(p)\nopar = par(mfrow = c(2,2), mar = rep(0,4))\nplot(mp * rot(10))\nplot(mp * rot(20))\nplot(mp * rot(30))\nplot(mp * rot(40))\npar(opar)\n"
},
{
"path": "demo/basic.R",
"content": "## ----error=TRUE----------------------------------------------------------\nlibrary(sf)\n(p1 = st_point(c(1,2)))\nclass(p1)\nst_bbox(p1)\n(p2 = st_point(c(1,2,3)))\nclass(p2)\n(p3 = st_point(c(1,2,3), \"XYM\"))\n(p4 = st_point(c(1,2,3,4)))\nattr(try(st_point(1)), \"condition\") # Error:\nattr(try(st_point(1:5)), \"condition\") # Error:\n\n## ----error=TRUE----------------------------------------------------------\npts = matrix(1:10, , 2)\n(mp1 = st_multipoint(pts))\npts = matrix(1:15, , 3)\n(mp2 = st_multipoint(pts))\n(mp3 = st_multipoint(pts, \"XYM\"))\npts = matrix(1:20, , 4)\n(mp4 = st_multipoint(pts))\nattr(try(st_multipoint(1)), \"condition\") # Error:\nattr(try(st_multipoint(1:5)), \"condition\") # Error:\nst_bbox(mp1)\n\n## ----error=TRUE----------------------------------------------------------\npts = matrix(1:10, , 2)\n(ls1 = st_linestring(pts))\npts = matrix(1:15, , 3)\n(ls2 = st_linestring(pts))\n(ls3 = st_linestring(pts, \"XYM\"))\npts = matrix(1:20, , 4)\n(ls4 = st_linestring(pts))\nattr(try(st_linestring(pts[1,])), \"condition\") # Error:\nattr(try(st_linestring(matrix(1:10, 2))), \"condition\")# Error:\nst_bbox(ls1)\n\n## ----error=TRUE----------------------------------------------------------\nouter = matrix(c(0,0,10,0,10,10,0,10,0,0),ncol=2, byrow=TRUE)\nhole1 = matrix(c(1,1,1,2,2,2,2,1,1,1),ncol=2, byrow=TRUE)\nhole2 = matrix(c(5,5,5,6,6,6,6,5,5,5),ncol=2, byrow=TRUE)\npts = list(outer, hole1, hole2)\n(ml1 = st_multilinestring(pts))\npts3 = lapply(pts, function(x) cbind(x, 0))\n(ml2 = st_multilinestring(pts3))\n(ml3 = st_multilinestring(pts3, \"XYM\"))\npts4 = lapply(pts3, function(x) cbind(x, 0))\n(ml4 = st_multilinestring(pts4))\nst_bbox(ml1)\n\n## ----error=TRUE----------------------------------------------------------\nouter = matrix(c(0,0,10,0,10,10,0,10,0,0),ncol=2, byrow=TRUE)\nouter\nhole1 = matrix(c(1,1,1,2,2,2,2,1,1,1),ncol=2, byrow=TRUE)\nhole2 = matrix(c(5,5,5,6,6,6,6,5,5,5),ncol=2, byrow=TRUE)\npts = list(outer, hole1, hole2)\n(pl1 = st_polygon(pts))\npts3 = lapply(pts, function(x) cbind(x, 0))\n(pl2 = st_polygon(pts3))\n(pl3 = st_polygon(pts3, \"XYM\"))\npts4 = lapply(pts3, function(x) cbind(x, 0))\n(pl4 = st_polygon(pts4))\nst_bbox(pl1)\n\n## ----error=TRUE----------------------------------------------------------\nouter = matrix(c(0,0,10,0,10,10,0,10,0,0),ncol=2, byrow=TRUE)\nouter\nhole1 = matrix(c(1,1,1,2,2,2,2,1,1,1),ncol=2, byrow=TRUE)\nhole2 = matrix(c(5,5,5,6,6,6,6,5,5,5),ncol=2, byrow=TRUE)\npol1 = list(outer, hole1, hole2)\npol2 = list(outer + 12, hole1 + 12)\npol3 = list(outer + 24)\nmp = list(pol1,pol2,pol3)\n(mp1 = st_multipolygon(mp))\npts3 = lapply(mp, function(x) lapply(x, function(y) cbind(y, 0)))\n(mp2 = st_multipolygon(pts3))\n(mp3 = st_multipolygon(pts3, \"XYM\"))\npts4 = lapply(mp2, function(x) lapply(x, function(y) cbind(y, 0)))\n(mp4 = st_multipolygon(pts4))\nst_bbox(mp1)\n\n## ----error=TRUE----------------------------------------------------------\nouter = matrix(c(0,0,10,0,10,10,0,10,0,0),ncol=2, byrow=TRUE)\nouter\nhole1 = matrix(c(1,1,1,2,2,2,2,1,1,1),ncol=2, byrow=TRUE)\nhole2 = matrix(c(5,5,5,6,6,6,6,5,5,5),ncol=2, byrow=TRUE)\npol1 = list(outer, hole1, hole2)\npol2 = list(outer + 12, hole1 + 12)\npol3 = list(outer + 24)\nmp = list(pol1,pol2,pol3)\nmp1 = st_multipolygon(mp)\n(gc = st_geometrycollection(list(p1, ls1, pl1, mp1)))\nst_bbox(gc)\nattr(try(st_geometrycollection(list(mp3, pl1))), \"condition\") # Error:\n"
},
{
"path": "demo/ggplot.R",
"content": "library(sf)\nnc = st_read(system.file(\"shape/nc.shp\", package=\"sf\"), quiet = TRUE)\n\n# single map:\nlibrary(ggplot2)\nggplot(nc) + geom_sf(aes(fill = SID79))\n\n# multiple plot with facet_grid:\nlibrary(dplyr)\nlibrary(tidyr)\n\nnc$row = 1:100\nnc.g <- nc %>% select(SID74, SID79, row) %>% gather(VAR, SID, -row, -geometry)\nggplot(nc.g) + geom_sf(aes(fill = SID)) + facet_grid(. ~ VAR)\nggplot(nc.g) + geom_sf(aes(fill = SID)) + facet_grid(VAR ~ .)\n\n"
},
{
"path": "demo/meuse_sf.R",
"content": "data(meuse, package = \"sp\") # load data.frame from sp\nlibrary(sf)\nmeuse_sf = st_as_sf(meuse, coords = c(\"x\", \"y\"), crs = 28992)\nmeuse_sf[1:5,]\nsummary(meuse_sf[1:5,])\n"
},
{
"path": "demo/nc.R",
"content": "## this object was created as follows:\nlibrary(sf)\n# nc = st_read(system.file(\"shapes/\", package=\"maptools\"), \"sids\")\n# st_crs(nc) = 4267 # \"+proj=longlat +ellps=clrk66\" or \"+proj=longlat +datum=NAD27\"\n# print(nc, n = 3)\n# st_write(nc, \"nc.gpkg\", \"nc.gpkg\", driver = \"GPKG\")\n\n# description of the dataset, see vignette in package spdep:\n# https://cran.r-project.org/web/packages/spdep/vignettes/sids.pdf\n\ndatasource = { if (\"GPKG\" %in% st_drivers()$name)\n\tsystem.file(\"gpkg/nc.gpkg\", package=\"sf\")\nelse\n\tsystem.file(\"shape/nc.shp\", package=\"sf\")\n}\n\nagr = c(AREA = \"aggregate\", PERIMETER = \"aggregate\", CNTY_ = \"identity\",\n\t\tCNTY_ID = \"identity\", NAME = \"identity\", FIPS = \"identity\", FIPSNO = \"identity\",\n\t\tCRESS_ID = \"identity\", BIR74 = \"aggregate\", SID74 = \"aggregate\", NWBIR74 = \"aggregate\",\n\t\tBIR79 = \"aggregate\", SID79 = \"aggregate\", NWBIR79 = \"aggregate\")\n\nnc = st_read(datasource, agr = agr, quiet = TRUE)\n"
},
{
"path": "demo/twitter.R",
"content": "# see https://gist.github.com/edzer/9c5c24434ffcaf42917796a98c4dd9a6\nlibrary(sf)\ndata(wrld_simpl, package = \"maptools\")\nw <- st_as_sf(wrld_simpl)\nw = st_make_valid(w)\nst_crs(w) = st_crs(4326)\nset.seed(131)\nw$f = factor(sample(1:12, nrow(w), replace = TRUE))\n\n# all points long l, lat p for which cos(c) = 0; l0 = lon0, p0 = lat0\n\n# cos(c) = sin(p0)*sin(p) + cos(p0)*cos(p)*cos(l-l0) = 0\n# sin(p0)*sin(p) = - cos(p0)*cos(p)*cos(l-l0)\n# sin(p)/cos(p) = -cos(p0)*cos(l-l0)/sin(p0)\n# tan(p) = -cos(l-l0)/tan(p0)\n# p = atan(-cos(l-l0)/tan(p0))\n\n# vary l, compute corresponding p;\n# all gc's have all longitudes, except when the poles are part of it;\n# in that case, lat0 == p0 = 0 and p is always pi/2\n\ncirc = function(l = c(-180:180), lon0 = 0, lat0 = 30) {\n\tdeg2rad = pi / 180\n\tlat = atan(-cos((l - lon0) * deg2rad)/tan(lat0 * deg2rad)) / deg2rad\n\txy = if (lat0 == 0) {\n\t\tl1 = lon0 - 90\n\t\tl2 = lon0 + 90\n\t\trbind(c(l1,-90), c(l2,-90), c(l2,0), c(l2,90), c(l1,90), c(l1,0), c(l1,-90))\n\t} else if (lat0 > 0) {\n\t\txy = cbind(lon = l, lat = lat)\n\t\trbind(c(-180,90),xy,c(180,90),c(-180,90))\n\t} else {\n\t\txy = cbind(lon = l, lat = lat)[length(l):1,]\n\t\trbind(c(180,-90), xy, c(-180,-90),c(180,-90))\n\t}\n\tst_sfc(st_polygon(list(xy)), crs = st_crs(4326))\n\t# TODO: break at dateline, guarantee within -180,180\n}\n\nm = st_make_grid()\nm = st_segmentize(m, 4e5)\n#library(animation)\n#saveGIF(\n#for (i in 0:100) {\n#\tpar(mar = rep(0,4))\n#\tlat=30+(i/2)\n#\tlon=-10-(i/2)\n#\tprint(c(i,lon,lat))\n#\tp4s=paste0(\"+proj=ortho +lat_0=\", lat, \" +lon_0=\", lon)\n#\tplot(st_transform(m, st_crs(p4s), check = TRUE), col = 'lightblue', border = 'grey')\n#\tcrc = circ(lat0 = lat, lon0 = lon)\n#\tw0 = suppressWarnings(st_intersection(w, crc))\n#\tw0 = st_cast(w0, \"MULTIPOLYGON\")\n#\tplot(st_transform(w0[\"f\"], st_crs(p4s), check = TRUE), add = TRUE)\n#}\n#, interval = 0.05, clean = FALSE)\n"
},
{
"path": "inst/CITATION",
"content": "citHeader(\"To cite package sf in publications, please use:\")\n\nbibentry(bibtype = \"Book\",\n author= \"Edzer Pebesma and Roger Bivand\",\n title = \"{Spatial Data Science: With applications in R}\",\n year = 2023,\n publisher = \"{Chapman and Hall/CRC}\",\n url = \"https://r-spatial.org/book/\",\n doi = \"10.1201/9780429459016\",\n textVersion = \"Pebesma, E., & Bivand, R. (2023). Spatial Data Science: With Applications in R. Chapman and Hall/CRC. https://doi.org/10.1201/9780429459016\"\n)\n\nbibentry(bibtype = \"Article\",\n author = \"Edzer Pebesma\",\n title = \"{Simple Features for R: Standardized Support for Spatial Vector Data}\",\n year = 2018,\n journal = \"{The R Journal}\",\n doi = \"10.32614/RJ-2018-009\",\n url = \"https://doi.org/10.32614/RJ-2018-009\",\n pages = \"439--446\",\n volume = 10,\n number = 1,\n textVersion = \"Pebesma, E., 2018. Simple Features for R: Standardized Support for Spatial Vector Data. The R Journal 10 (1), 439-446, https://doi.org/10.32614/RJ-2018-009\"\n)\n"
},
{
"path": "inst/csv/pt.csv",
"content": "Id,Int64,Int32,WKT\n1,0,33,POINT(0 1)\n2,4294967297,44,POINT(44 55)\n3,,,POINT(0 0)\n"
},
{
"path": "inst/docker/README.md",
"content": "# Build and check sf against r-release and r-devel\n\nSee [here](https://github.com/rocker-org/geospatial) for general docker files building R with a significant number of spatial extension packages and external dependencies, based on [rocker](https://github.com/rocker-org/rocker) and debian.\n\nTo allows building `sf` in alternative environments with all\nexternal system requirements (udunits, proj, gdal, geos, lwgeom),\nthis directory has subdirectories with Docker files:\n\n* [base](base): for installing R-release with all system dependencies required by `sf`, \n* [devel](devel): for building R-devel from source (downloaded from svn, without X11) on top of that. \n* [gdal](gdal): for testing with newer/newst gdal/geos/proj versions\n* [custom](custom): for testing with libraries (gdal, geos, proj.4) installed in custom, non-standard directories\n* [lowest](lowest): for checking sf against the lowest required PROJ, GDAL and GEOS versions\n* [fedora](fedora): for checking sf against the fedora/clang platform\n* [cran](cran): using the debian setup used by several of the CRAN linux servers\n\nExcept for the cran image, all images are built on ubuntu:16.04 (xenial). They use [ubuntugis-unstable](https://launchpad.net/~ubuntugis/+archive/ubuntu/ubuntugis-unstable) for GIS package system dependencies.\n\n## run check under R release\n\nIn directory `base`, type\n\n docker build . -t sf\n\nthis will build a docker image of approx. 3.8 Gb size, called `sf`. It will also install package `sf` with its dependencies from CRAN, and run a check on the github sources.\n\nRun a container from this image interactively with \n\n\tdocker run -ti sf\n\nIf you want to run it while mounting the current working directory (`pwd`) to `/pkg` inside the container, and want to remove the container after you exit, use:\n\n\tdocker run -v `pwd`:/pkg --rm -ti sf\n\n## build R-devel, check with R-devel\n\n_After_ you built docker image `sf` above, on top of that you can install r-devel; it counts up to 4 Gb. Build it by executing the following command in the `devel` directory: \n\n docker build . -t sf_devel\n\nRun a container from this image interactively with\n\n\tdocker run -ti sf_devel\n\nto start R-devel in the container, use the `Rdevel` command. Building the image checks sf from github.\n\nIf you want to run R with `gdb` in a container, use e.g.\n\n docker run --cap-add=SYS_PTRACE --security-opt seccomp=unconfined -ti gdal3\n\n## with custom gdal, geos and proj installs\n"
},
{
"path": "inst/docker/alma/Dockerfile",
"content": "#\n# Do not edit: NOW CONTINUED IN\n# https://github.com/Open-EO/openeo-udf-python-to-r/tree/main/docker\n#\nARG SPARK_VERSION\nARG PYTHON_PACKAGE\n\nFROM almalinux:8.5\n\nARG SPARK_VERSION\nARG PYTHON_PACKAGE\n\nCOPY vito.repo /etc/yum.repos.d/vito.repo\n\nWORKDIR /opt/spark/work-dir\n\nRUN adduser -u 18585 -d /opt/spark/work-dir spark && \\\n chown 18585:18585 /opt/spark/work-dir\n\nRUN yum install -y epel-release\nRUN yum install -y dnf --enablerepo=powertools spark-bin-${SPARK_VERSION}\nRUN yum install -y --enablerepo=powertools \\\n gdal-3.4.0 \\\n gdal-devel-3.4.0 \\\n python38-gdal-3.4.0 \\\n gdal-libs-3.4.0 \\\n unzip \\\n java-11-openjdk-headless \\\n krb5-workstation \\\n krb5-libs \\\n sssd-client \\\n ipa-client \\\n nss \\\n orfeo-toolbox-py38 \\\n procps-ng \\\n ${PYTHON_PACKAGE} \\\n python38-pytz \\\n python38-Cython \\\n fftw-libs-double \\\n fftw-libs-single \\\n openeo-vito-aux-data \\\n tinyxml \\\n compat-libgfortran-48-4.8.5-36.1.el8.x86_64 && \\\n ln -s /usr/lib64/libgdal.so.30 /usr/lib64/libgdal.so.26 && \\\n ln -s /usr/lib64/libgdal.so.30 /usr/lib64/libgdal.so.27 && \\\n pip3 install --upgrade pip setuptools && \\\n rm -r /root/.cache && \\\n yum clean all && \\\n rm -rf /var/cache/yum/*\n\nENV SPARK_HOME /usr/local/spark\nENV JAVA_HOME /usr/lib/jvm/jre\nENV PYSPARK_PYTHON=python3\nENV HADOOP_HOME=/usr/hdp/current/hadoop-client\nENV HADOOP_CONF_DIR=/etc/hadoop/conf\nENV YARN_CONF_DIR=/etc/hadoop/conf\nENV ACCUMULO_CLIENT_CONF_PATH=client.conf\nENV OTB_HOME=/usr\nENV OTB_APPLICATION_PATH=/usr/lib/otb/applications\n\n# EP: install R, system requirements of R-spatial packages, and R package stars\nRUN yum install -y dnf --enablerepo=powertools R-core-devel\nRUN yum install -y dnf --enablerepo=powertools \\\n udunits2-devel \\\n openssl-devel \\\n sqlite-devel \\\n geos-devel \\\n proj-devel \\\n libcurl-devel \\\n git\nRUN R -e 'install.packages(c(\"stars\", \"jsonlite\", \"curl\", \"lubridate\"), repos = \"https://cloud.r-project.org\")'\nRUN pip3 install rpy2 xarray requests dask\n\n# original:\nUSER 18585\n\n# EP: install UDF test script and run it:\nRUN git clone https://github.com/Open-EO/openeo-udf-python-to-r.git\nRUN (cd openeo-udf-python-to-r; python3 test.py)\n"
},
{
"path": "inst/docker/alma/README.md",
"content": "VITO openEO backend image; build this docker container with\n```\ndocker build . -t alma --build-arg SPARK_VERSION=3.2.0 --build-arg PYTHON_PACKAGE=python38-devel \n```\n\n"
},
{
"path": "inst/docker/alma/build_command",
"content": "docker build . -t alma --build-arg SPARK_VERSION=3.2.0 --build-arg PYTHON_PACKAGE=python38-devel \n"
},
{
"path": "inst/docker/alma/vito.repo",
"content": "[vito-public-alma]\nname=vito-yum-centos-public\nbaseurl=https://artifactory.vgt.vito.be/vito-yum-almalinux8-public/\ngpgcheck=0\n\n[vito-public]\nname=vito-yum-centos-public\nbaseurl=https://artifactory.vgt.vito.be/vito-yum-centos8-public/\ngpgcheck=0\n"
},
{
"path": "inst/docker/arrow/Dockerfile",
"content": "FROM ubuntu:22.04\n# minimal docker file to get sf running on ubunty 22.04 image,\n# compiling geos/proj/gdal from source, using cmake\n\nMAINTAINER \"edzerpebesma\" edzer.pebesma@uni-muenster.de\n\nRUN apt-get update && apt-get install -y software-properties-common dirmngr\nRUN add-apt-repository ppa:ubuntugis/ubuntugis-unstable\n\nRUN apt-key adv --keyserver keyserver.ubuntu.com --recv-keys E298A3A825C0D65DFD57CBB651716619E084DAB9\n\n# add the R 4.0 repo from CRAN -- adjust 'focal' to 'groovy' or 'bionic' as needed\nRUN add-apt-repository \"deb https://cloud.r-project.org/bin/linux/ubuntu $(lsb_release -cs)-cran40/\"\n\nRUN apt-key adv --keyserver keyserver.ubuntu.com --recv-keys E084DAB9\n\nRUN apt-get update\nRUN apt-get upgrade -y\n\nRUN export DEBIAN_FRONTEND=noninteractive; apt-get -y update \\\n && apt-get install -y \\\n\tgdb \\\n\tgit \\\n\tlibcairo2-dev \\\n\tlibcurl4-openssl-dev \\\n\tlibexpat1-dev \\\n\tlibpq-dev \\\n\tlibsqlite3-dev \\\n\tlibudunits2-dev \\\n\tlibblosc-dev \\\n\tmake \\\n\tpandoc \\\n\tqpdf \\\n\tr-base-dev \\\n \tsqlite3 \\\n\tsubversion \\\n\tvalgrind \\\n\tvim \\\n\ttk-dev \\\n\twget \\\n\tcmake \\\n\tlibtiff5-dev \\\n\tlibjq-dev \\\n\tlibprotobuf-dev \\\n\tlibxml2-dev \\\n\tlibprotobuf-dev \\\n\tprotobuf-compiler \\\n\tunixodbc-dev \\\n\tlibssh2-1-dev \\\n\tlibgit2-dev \\\n\tlibnetcdf-dev \\\n\tlocales \\\n\tlocales-all \\\n\tlibssl-dev \\\n libhdf4-alt-dev \\\n\tlibtiff-dev \\\n\tdevscripts\n\nENV LC_ALL en_US.UTF-8\nENV LANG en_US.UTF-8\nENV LANGUAGE en_US.UTF-8\n\n# add arrow/parquet:\n# RUN apt install -y -V ca-certificates lsb-release wget # done\nRUN wget https://apache.jfrog.io/artifactory/arrow/$(lsb_release --id --short | tr 'A-Z' 'a-z')/apache-arrow-apt-source-latest-$(lsb_release --codename --short).deb\nRUN apt install -y -V ./apache-arrow-apt-source-latest-$(lsb_release --codename --short).deb\nRUN apt update\nRUN apt install -y -V libarrow-dev # For C++\nRUN apt install -y -V libarrow-glib-dev # For GLib (C)\nRUN apt install -y -V libarrow-dataset-dev # For Apache Arrow Dataset C++\nRUN apt install -y -V libarrow-dataset-glib-dev # For Apache Arrow Dataset GLib (C)\nRUN apt install -y -V libarrow-flight-dev # For Apache Arrow Flight C++\nRUN apt install -y -V libarrow-flight-glib-dev # For Apache Arrow Flight GLib (C)\n# Notes for Plasma related packages:\n# * You need to enable \"non-free\" component on Debian GNU/Linux\n# * You need to enable \"multiverse\" component on Ubuntu\n# * You can use Plasma related packages only on amd64\nRUN apt install -y -V libplasma-dev # For Plasma C++\nRUN apt install -y -V libplasma-glib-dev # For Plasma GLib (C)\nRUN apt install -y -V libgandiva-dev # For Gandiva C++\nRUN apt install -y -V libgandiva-glib-dev # For Gandiva GLib (C)\nRUN apt install -y -V libparquet-dev # For Apache Parquet C++\nRUN apt install -y -V libparquet-glib-dev # For Apache Parquet GLib (C)\n\nRUN locale-gen en_US.UTF-8\n\nENV LD_LIBRARY_PATH=/usr/local/lib:$LD_LIBRARY_PATH\n\n# GEOS:\nENV GEOS_VERSION 3.11.0\n\nRUN wget -q http://download.osgeo.org/geos/geos-${GEOS_VERSION}.tar.bz2 \\\n && bzip2 -d geos-*bz2 \\\n && tar xf geos*tar \\\n && cd geos* \\\n && mkdir build \\\n && cd build \\\n && cmake .. \\\n && make \\\n && make install \\\n && cd ../.. \\\n && ldconfig\n\n#RUN git clone --depth 1 https://github.com/OSGeo/PROJ.git\n# https://download.osgeo.org/proj/proj-9.0.0RC1.tar.gz\nENV PROJ_VERSION 9.0.1\nRUN wget -q http://download.osgeo.org/proj/proj-${PROJ_VERSION}.tar.gz\nRUN tar zxvf proj-${PROJ_VERSION}.tar.gz\nRUN cd proj* \\\n && ls -l \\\n && mkdir build \\\n && cd build \\\n && cmake .. \\\n && make \\\n && make install \\\n && cd ../.. \\\n && ldconfig\n\n# GDAL:\nENV GDAL_VERSION 3.5.1\nENV GDAL_VERSION_NAME 3.5.1\n\nRUN wget -q http://download.osgeo.org/gdal/${GDAL_VERSION}/gdal-${GDAL_VERSION_NAME}.tar.gz \\\n && tar -xf gdal-${GDAL_VERSION_NAME}.tar.gz \\\n && cd gdal* \\\n && mkdir build \\\n && cd ./build \\\n && cmake -DCMAKE_BUILD_TYPE=Release .. \\\n && make \\\n && make install \\\n && ldconfig\n\nRUN Rscript -e 'install.packages(c(\"sp\", \"rgeos\", \"rgdal\", \"RPostgreSQL\", \"RSQLite\", \"testthat\", \"knitr\", \"tidyr\", \"geosphere\", \"maptools\", \"maps\", \"microbenchmark\", \"raster\", \"dplyr\", \"tibble\", \"units\", \"DBI\", \"covr\", \"protolite\", \"tmap\", \"mapview\", \"odbc\", \"pool\", \"rmarkdown\", \"RPostgres\",\"spatstat\", \"stars\", \"XML\", \"tmaptools\", \"tmap\", \"terra\", \"PCICt\", \"RNetCDF\", \"future.apply\", \"ggforce\", \"ggthemes\", \"gstat\", \"ncmeta\", \"pbapply\", \"plm\", \"spacetime\", \"xts\", \"zoo\", \"tidync\", \"ncdfgeom\", \"cubelyr\", \"clue\", \"rmarkdown\", \"classInt\", \"mapview\", \"tmap\", \"exactextractr\"))'\n\nRUN git clone --depth 10 https://github.com/r-spatial/sf.git\nRUN git clone --depth 10 https://github.com/r-spatial/lwgeom.git\nRUN git clone --depth 10 https://github.com/r-spatial/stars.git\n#RUN git config --global user.email \"edzer.pebesma@uni-muenster.de\"\n\nRUN R CMD build --no-build-vignettes --no-manual lwgeom\nRUN R CMD build --no-build-vignettes --no-manual sf\n# RUN pkg-config proj --modversion\nRUN R CMD INSTALL sf\nRUN R CMD INSTALL lwgeom\nRUN R CMD INSTALL stars\n\n#RUN R CMD build --no-build-vignettes --no-manual sf\n#RUN R CMD check --no-build-vignettes --no-manual --as-cran sf_*.tar.gz \n#RUN R CMD check --no-build-vignettes --no-manual --as-cran lwgeom_*.tar.gz \n\n#RUN Rscript -e 'install.packages(\"starsdata\", repos=\"http://gis-bigdata.uni-muenster.de/pebesma/\")'\n#RUN R CMD build --no-manual stars\n#RUN _R_CHECK_FORCE_SUGGESTS_=false R CMD check --no-build-vignettes --no-manual --as-cran stars_*.tar.gz \n"
},
{
"path": "inst/docker/base/Dockerfile",
"content": "FROM ubuntu:16.04\n# minimal docker file to get sp and sf running on ubunty 16.04 image,\n# using gdal/geos/proj from ppa:ubuntugis/ubuntugis-unstable\n\nMAINTAINER \"edzerpebesma\" edzer.pebesma@uni-muenster.de\n\nRUN apt-get update && apt-get install -y software-properties-common\nRUN add-apt-repository ppa:ubuntugis/ubuntugis-unstable\n\nRUN echo \"deb http://cran.rstudio.com/bin/linux/ubuntu xenial/ \" >> /etc/apt/sources.list\nRUN apt-key adv --keyserver keyserver.ubuntu.com --recv-keys E084DAB9\n\nRUN apt-get update\nRUN apt-get upgrade -y\n\nRUN export DEBIAN_FRONTEND=noninteractive; apt-get -y update \\\n && apt-get install -y \\\n\tlibcurl4-openssl-dev \\\n\tqpdf \\\n\tpandoc \\\n\tmake \\\n\twget \\\n\tgit \\\n\tlibgdal-dev \\\n\tlibgeos-dev \\\n\tlibproj-dev \\\n\tliblwgeom-dev \\\n\tlibudunits2-dev \\\n\tpostgis \\\n\tr-base-dev\n\nRUN apt-get install -y texinfo \\\n texlive-base \\\n texlive-extra-utils \\\n texlive-fonts-extra \\\n texlive-fonts-recommended \\\n texlive-generic-recommended \\\n texlive-latex-base \\\n texlive-latex-extra \\\n texlive-latex-recommended\n\n# stuff for the tmaptools/rmapshaper/geojsonio etc stack:\nRUN apt-get install -y libv8-3.14-dev libprotobuf-dev protobuf-compiler libcairo2-dev\nRUN add-apt-repository -y ppa:opencpu/jq\nRUN apt-get update\nRUN apt-get install -y libjq-dev\n\nRUN Rscript -e 'install.packages(c(\"sf\", \"lwgeom\", \"covr\", \"raster\"), dependencies = TRUE, repos = \"https://cloud.r-project.org\")'\nRUN git clone https://github.com/r-spatial/sf.git\nRUN R CMD build --no-build-vignettes sf\nRUN R CMD INSTALL sf_*tar.gz\n\nRUN apt-get install -y pandoc pandoc-citeproc\n\nRUN R CMD check --as-cran sf_*tar.gz\n\nCMD [\"/bin/bash\"]\n"
},
{
"path": "inst/docker/bionic/Dockerfile",
"content": "FROM ubuntu:18.04\n# minimal docker file to get sp and sf running on ubunty 16.04 image,\n# using gdal/geos/proj from ppa:ubuntugis/ubuntugis-unstable\n\nMAINTAINER \"edzerpebesma\" edzer.pebesma@uni-muenster.de\n\nRUN apt-get update && apt-get install -y software-properties-common\n#RUN add-apt-repository ppa:ubuntugis/ubuntugis-unstable\n\n#RUN echo \"deb http://cran.rstudio.com/bin/linux/ubuntu bionic/ \" >> /etc/apt/sources.list\nRUN echo \"deb http://cran.rstudio.com/bin/linux/ubuntu bionic-cran35/ \" >> /etc/apt/sources.list\n#RUN apt-key adv --keyserver keyserver.ubuntu.com --recv-keys E084DAB9\nRUN apt-key adv --keyserver keyserver.ubuntu.com --recv-keys E298A3A825C0D65DFD57CBB651716619E084DAB9\n\n\nRUN apt-get update\nRUN apt-get upgrade -y\n\nRUN export DEBIAN_FRONTEND=noninteractive; apt-get -y update \\\n && apt-get install -y \\\n\tlibcurl4-openssl-dev \\\n\tqpdf \\\n\tpandoc \\\n\tmake \\\n\twget \\\n\tgit \\\n\tlibgdal-dev \\\n\tlibgeos-dev \\\n\tlibproj-dev \\\n\tliblwgeom-dev \\\n\tlibudunits2-dev \\\n\tpostgis \\\n\tr-base-dev\n\n# stuff for the tmaptools/rmapshaper/geojsonio etc stack:\nRUN apt-get install -y libv8-3.14-dev libprotobuf-dev protobuf-compiler libcairo2-dev\n#RUN add-apt-repository -y ppa:opencpu/jq\n#RUN apt-get update\nRUN apt-get install -y libjq-dev\n\nRUN Rscript -e 'install.packages(c(\"sf\", \"lwgeom\", \"covr\", \"raster\"), dependencies = TRUE, repos = \"https://cloud.r-project.org\")'\nRUN git clone https://github.com/r-spatial/sf.git\nRUN R CMD build --no-build-vignettes sf\nRUN R CMD INSTALL sf_*tar.gz\n\nRUN apt-get install -y pandoc pandoc-citeproc\n\n#RUN R CMD check --as-cran sf_*tar.gz\n\nCMD [\"/bin/bash\"]\n"
},
{
"path": "inst/docker/cran/Dockerfile",
"content": "FROM debian:testing\n# minimal docker file to get sp and sf running on ubunty 16.04 image,\n# using gdal/geos/proj from ppa:ubuntugis/ubuntugis-unstable\n\nMAINTAINER \"edzerpebesma\" edzer.pebesma@uni-muenster.de\n\nRUN apt-get update\nRUN export DEBIAN_FRONTEND=noninteractive; apt-get -y update \\\n && apt-get install -y \\\n ca-certificates \\\n\t gnupg2\n\nRUN echo \"deb https://statmath.wu.ac.at/AASC/debian testing main non-free\" >> /etc/apt/sources.list\nRUN echo \"deb http://ftp.de.debian.org/debian unstable main contrib non-free\" >> /etc/apt/sources.list\nRUN echo 'APT::Default-Release \"testing\";' >> /etc/apt/apt.conf\n\nRUN apt-key adv --keyserver keyserver.ubuntu.com --recv-keys 2302BCB1\n\nRUN apt-get update\nRUN apt-get upgrade -y\n\nRUN export DEBIAN_FRONTEND=noninteractive; apt-get install -y libv8-dev pdftk\nRUN apt-get -y clean\nRUN apt-get -y autoclean\nRUN apt-get install -y kdelibs-bin kdelibs5-dev\n\nRUN export DEBIAN_FRONTEND=noninteractive; apt-get install -y \\\n rcheckserver\n\n### From here on: spatial R stack\n\nRUN export DEBIAN_FRONTEND=noninteractive; apt-get install -y git\n\nRUN Rscript -e 'install.packages(c(\"sp\",\"rgeos\",\"rgdal\",\"RPostgreSQL\",\"RSQLite\",\"testthat\",\"knitr\",\"tidyr\",\"geosphere\",\"maptools\",\"maps\",\"microbenchmark\", \"raster\", \"dplyr\", \"tibble\", \"units\", \"DBI\", \"covr\", \"protolite\", \"tmap\", \"mapview\", \"pool\", \"odbc\"), repos = \"https://cloud.r-project.org\")'\n\nRUN Rscript -e 'install.packages(\"sf\", dependencies = TRUE, repos = \"https://cloud.r-project.org\")'\n\n#RUN svn checkout svn://scm.r-forge.r-project.org/svnroot/rgdal/\n# or:\n# svn checkout svn+ssh://edzer@scm.r-forge.r-project.org/svnroot/rgdal/\n#RUN R CMD build rgdal/pkg --no-build-vignettes\n#RUN R CMD INSTALL rgdal_*.tar.gz \n\nRUN ls\nRUN git clone --depth 1 https://github.com/r-spatial/sf.git\nRUN R CMD build sf\nRUN R CMD INSTALL sf_*gz\n\n#RUN apt-get install -y unixodbc-dev\n\n#RUN Rscript -e 'install.packages(c(\"lwgeom\", \"tmap\", \"pool\", \"odbc\", \"mapview\"), repos = \"https://cloud.r-project.org\")'\n\n#RUN R CMD check --no-build-vignettes --no-manual --as-cran --run-dontrun sf_*tar.gz\nRUN R CMD check --as-cran sf_*tar.gz\n\nCMD [\"/bin/bash\"]\n"
},
{
"path": "inst/docker/custom/Dockerfile",
"content": "FROM ubuntu:18.04\n# minimal docker file to get sf running on an ubunty 16.04 image,\n# installing gdal, geos and proj.4 from source in a non-standard location\n\nMAINTAINER \"edzerpebesma\" edzer.pebesma@uni-muenster.de\n\nRUN apt-get update && apt-get install -y software-properties-common\nRUN add-apt-repository ppa:ubuntugis/ubuntugis-unstable\n\nRUN echo \"deb http://cran.rstudio.com/bin/linux/ubuntu bionic-cran35/ \" >> /etc/apt/sources.list\nRUN apt-key adv --keyserver keyserver.ubuntu.com --recv-keys E298A3A825C0D65DFD57CBB651716619E084DAB9\n\nRUN apt-get update\nRUN apt-get upgrade -y\n\nRUN export DEBIAN_FRONTEND=noninteractive; apt-get -y update \\\n && apt-get install -y \\\n\tlibcurl4-openssl-dev \\\n\tlibsqlite3-dev \\\n\tsqlite3 \\\n\tqpdf \\\n\tpandoc \\\n\tmake \\\n\twget \\\n\tgit \\\n\tcmake \\\n\tlibudunits2-dev \\\n\tlibtiff5-dev \\\n\tpkg-config \\\n\tr-base-dev\n\nRUN cd \\\n\t&& mkdir /opt/proj /opt/share \\\n\t&& wget http://download.osgeo.org/proj/proj-7.0.0.tar.gz \\\n\t&& tar zxvf proj-7.0.0.tar.gz \\\n\t&& cd proj-7.0.0 \\\n\t&& ./configure --prefix=/opt/proj --datadir=/opt/share \\\n\t&& make \\\n\t&& make install install-am\n\nRUN\tcd \\\n\t&& wget http://download.osgeo.org/gdal/3.0.4/gdal-3.0.4.tar.gz \\\n\t&& tar zxvf gdal-3.0.4.tar.gz \\\n\t&& cd gdal-3.0.4 \\\n\t&& mkdir /opt/gdal \\\n\t&& ./configure --prefix=/opt/gdal --with-proj=/opt/proj \\\n\t&& make \\\n\t&& make install\n\nRUN\tmkdir /opt/geos \\\n\t&& cd \\\n\t&& wget http://download.osgeo.org/geos/geos-3.8.1.tar.bz2 \\\n\t&& bunzip2 -c geos-3.8.1.tar.bz2 | tar xvf - \\\n\t&& cd geos-3.8.1 \\\n\t&& mkdir build \\\n\t&& cd build \\\n\t&& cmake -DCMAKE_INSTALL_PREFIX:PATH=/opt/geos .. \\\n\t&& make \\\n\t&& make install\n\t\nRUN R -e 'install.packages(c(\"Rcpp\", \"DBI\", \"units\", \"magrittr\", \"classInt\"), repos = \"https://cran.uni-muenster.de\")'\n\n#RUN\tcd /usr/share \\\n#\t&& mkdir proj \\\n#\t&& cd proj \\\n#\t&& wget https://download.osgeo.org/proj/proj-datumgrid-1.7.zip \\\n#\t&& unzip proj*zip\n\nRUN git clone --depth=1 https://github.com/r-spatial/sf.git\n\nRUN\tcd / \\\n\t&& R CMD build sf --no-build-vignettes\n\n# RUN PKG_CONFIG_PATH=/opt/proj/lib/pkgconfig PROJ_DATA=/opt/proj/share/proj GDAL_DATA=/opt/gdal/share/gdal/ LD_LIBRARY_PATH=/opt/gdal/lib:/opt/geos/lib:/opt/proj/lib R CMD INSTALL --configure-args='--with-gdal-config=/opt/gdal/bin/gdal-config --with-proj-include=/opt/proj/include --with-proj-lib=/opt/proj/lib --with-proj-share=/opt/proj/share/proj --with-proj-api=no --with-geos-config=/opt/geos/bin/geos-config' sf_*.tar.gz \\\n# LD_LIBRARY_PATH=/opt/gdal/lib:/opt/geos/lib:/opt/proj/lib \n\nRUN export LD_LIBRARY_PATH=/opt/gdal/lib:/opt/geos/lib:/opt/proj/lib\n\nRUN LD_LIBRARY_PATH=/opt/gdal/lib:/opt/geos/lib:/opt/proj/lib \\\n\tPKG_CONFIG_PATH=/opt/proj/lib/pkgconfig \\\n\tPROJ_DATA=/opt/proj/share/proj \\\n\tGDAL_DATA=/opt/gdal/share/gdal/ \\\n\tR CMD INSTALL --configure-args='--with-gdal-config=/opt/gdal/bin/gdal-config \\\n\t\t--with-proj-include=/opt/proj/include --with-proj-lib=/opt/proj/lib \\\n\t\t--with-geos-config=/opt/geos/bin/geos-config' sf_*.tar.gz \n\nRUN LD_LIBRARY_PATH=/opt/gdal/lib:/opt/geos/lib:/opt/proj/lib R -e 'library(sf)'\n\nRUN git clone --depth=1 https://github.com/r-spatial/lwgeom.git\nRUN R CMD build --no-build-vignettes lwgeom\nRUN PKG_CONFIG_PATH=/opt/proj/lib/pkgconfig \\ \n\tLD_LIBRARY_PATH=/opt/gdal/lib:/opt/geos/lib:/opt/proj/lib R CMD INSTALL --configure-args='--with-proj-include=/opt/proj/include --with-proj-lib=/opt/proj/lib --with-geos-config=/opt/geos/bin/geos-config' lwgeom_*.tar.gz\n\nRUN PKG_CONFIG_PATH=/opt/proj/lib/pkgconfig LD_LIBRARY_PATH=/opt/gdal/lib:/opt/geos/lib:/opt/proj/lib PROJ_DATA=/opt/proj/share/proj GDAL_DATA=/opt/gdal/share/gdal/ R CMD INSTALL --configure-args='--with-proj-include=/opt/proj/include --with-proj-lib=/opt/proj/lib --with-geos-config=/opt/geos/bin/geos-config' lwgeom_*.tar.gz \\\n\t\nRUN LD_LIBRARY_PATH=/opt/gdal/lib:/opt/geos/lib:/opt/proj/lib R -e 'library(lwgeom)'\n\nRUN git clone --depth=1 https://github.com/r-spatial/stars.git\nRUN R CMD build --no-build-vignettes stars\nRUN R -e 'install.packages(c(\"abind\", \"rlang\"))'\nRUN LD_LIBRARY_PATH=/opt/gdal/lib:/opt/geos/lib:/opt/proj/lib R CMD INSTALL stars_*.tar.gz\nRUN LD_LIBRARY_PATH=/opt/gdal/lib:/opt/geos/lib:/opt/proj/lib R -e 'library(stars)'\n\nCMD [\"/bin/bash\"]\n"
},
{
"path": "inst/docker/devel/Dockerfile",
"content": "FROM ubuntu:24.04\n# minimal docker file to get sp and sf running on ubunty 16.04 image,\n# using gdal/geos/proj from ppa:ubuntugis/ubuntugis-unstable\n# \n\nMAINTAINER \"edzerpebesma\" edzer.pebesma@uni-muenster.de\n\n# update indices\nRUN apt-get update -qq\n# install two helper packages we need\nRUN apt-get install -y --no-install-recommends software-properties-common dirmngr\n# add the signing key (by Michael Rutter) for these repos\n# To verify key, run gpg --show-keys /etc/apt/trusted.gpg.d/cran_ubuntu_key.asc\n# Fingerprint: E298A3A825C0D65DFD57CBB651716619E084DAB9\n\nRUN export DEBIAN_FRONTEND=noninteractive; apt-get install -y wget\nRUN wget -qO- https://cloud.r-project.org/bin/linux/ubuntu/marutter_pubkey.asc | tee -a /etc/apt/trusted.gpg.d/cran_ubuntu_key.asc\n# add the R 4.0 repo from CRAN -- adjust 'focal' to 'groovy' or 'bionic' as needed\n\nRUN add-apt-repository \"deb https://cloud.r-project.org/bin/linux/ubuntu $(lsb_release -cs)-cran40/\"\n\nRUN apt-get update\nRUN apt-get upgrade -y\n\nRUN export DEBIAN_FRONTEND=noninteractive; apt-get -y update \\\n && apt-get install -y \\\n\tlibcurl4-openssl-dev \\\n\tqpdf \\\n\tpandoc \\\n\tmake \\\n\twget \\\n\tgit \\\n\tlibgdal-dev \\\n\tlibgeos-dev \\\n\tlibproj-dev \\\n\tlibudunits2-dev\n\nRUN export DEBIAN_FRONTEND=noninteractive; apt-get install -y \\\n texinfo \\\n texlive-base \\\n texlive-extra-utils \\\n texlive-fonts-extra \\\n texlive-fonts-recommended \\\n texlive-latex-base \\\n texlive-latex-extra \\\n texlive-latex-recommended\n\n# texlive-generic-recommended \\\n\n# stuff for the tmaptools/rmapshaper/geojsonio etc stack:\nRUN apt-get install -y libv8-dev libprotobuf-dev protobuf-compiler libcairo2-dev pandoc # pandoc-citeproc \n#RUN add-apt-repository -y ppa:opencpu/jq\n#RUN apt-get update\nRUN apt-get install -y libjq-dev\n\n## Check out & build R-devel:\nRUN apt-get install -y subversion\n\nRUN cd /tmp && svn co https://svn.r-project.org/R/trunk R-devel\n\nRUN apt-get install -y rsync\nRUN /tmp/R-devel/tools/rsync-recommended\n## Build and install according the standard 'recipe' I emailed/posted years ago\n\nRUN apt-get install -y libreadline-dev libbz2-dev\n#RUN apt-get install -y gfortran\nRUN apt-get install -y r-base-dev\n\nRUN cd /tmp/R-devel \\\n\t&& R_PAPERSIZE=letter \\\n\t\tR_BATCHSAVE=\"--no-save --no-restore\" \\\n\t\tR_BROWSER=xdg-open \\\n\t\tPAGER=/usr/bin/pager \\\n\t\tPERL=/usr/bin/perl \\\n\t\tR_UNZIPCMD=/usr/bin/unzip \\\n\t\tR_ZIPCMD=/usr/bin/zip \\\n\t\tR_PRINTCMD=/usr/bin/lpr \\\n\t\tLIBnn=lib \\\n\t\tAWK=/usr/bin/awk \\\n\t\tCFLAGS=$(R CMD config CFLAGS) \\\n\t\tCXXFLAGS=$(R CMD config CXXFLAGS) \\\n\t./configure --enable-R-shlib \\\n --without-blas \\\n --without-lapack \\\n --with-readline \\\n --with-recommended-packages \\\n --program-suffix=dev \\\n\t\t\t --with-x=no \\\n\t&& make \\\n\t&& make install \\\n\t&& rm -rf /tmp/R-devel\n\n## Set default CRAN repo\nRUN echo 'options(repos = c(CRAN = \"https://cran.rstudio.com/\"), download.file.method = \"libcurl\")' >> /usr/local/lib/R/etc/Rprofile.site\n\nRUN Rscript -e 'install.packages(c(\"sf\", \"lwgeom\", \"covr\", \"raster\"), dependencies = TRUE, repos = \"https://cloud.r-project.org\")'\n\nRUN rm -fr sf\n\nRUN git clone https://github.com/r-spatial/sf.git\n\n# RUN R CMD build sf\n\n#ENV PROJ_VERSION 5.0.1\n#ENV LD_LIBRARY_PATH=/usr/local/lib:$LD_LIBRARY_PATH\n#RUN wget http://download.osgeo.org/proj/proj-${PROJ_VERSION}.tar.gz \\\n# && tar zxf proj-*tar.gz \\\n# && cd proj* \\\n# && ./configure \\\n# && make \\\n# && make install \\\n# && cd .. \\\n# && ldconfig\n\nRUN apt-get install -y cmake\nRUN Rscript -e 'install.packages(c(\"s2\"), dependencies = FALSE, repos = \"https://cloud.r-project.org\")'\n#RUN Rscript -e 'install.packages(c(\"RPostgres\"), dependencies = FALSE, repos = \"https://cloud.r-project.org\")'\n\nRUN cd sf && git pull\nRUN R CMD build --no-build-vignettes sf\nRUN R CMD INSTALL sf_*tar.gz\nRUN Rscript -e 'install.packages(c(\"lwgeom\"), dependencies = FALSE, repos = \"https://cloud.r-project.org\")'\n\n# RUN Rscript -e 'install.packages(c(\"RPostgreSQL\"), dependencies = FALSE, repos = \"https://cloud.r-project.org\")'\nRUN _R_CHECK_FORCE_SUGGESTS_=false PROJ_LIB=/usr/share/proj R CMD check --as-cran sf_*tar.gz\n\nRUN wget https://cran.r-project.org/src/contrib/gstat_2.1-6.tar.gz\nRUN Rscript -e 'install.packages(c(\"stars\", \"sftime\"), dependencies = FALSE, repos = \"https://cloud.r-project.org\")'\nRUN Rscript -e 'install.packages(c(\"mapdata\"), repos = \"https://cloud.r-project.org\")'\nRUN _R_CHECK_FORCE_SUGGESTS_=false R CMD check gstat*gz\n\nCMD [\"/bin/bash\"]\n"
},
{
"path": "inst/docker/fedora/Dockerfile",
"content": "FROM fedora:latest\n\nMAINTAINER \"edzerpebesma\" edzer.pebesma@uni-muenster.de\n\nRUN yum install -y gdal-devel geos-devel udunits2-devel proj-devel\n# RUN yum install -y proj-devel proj-epsg proj-nad \nRUN yum install -y pandoc\nRUN yum install -y readline-devel curl-devel wget clang vim git autoconf sqlite-devel\nRUN yum install -y R-devel\n# needed by R packages:\nRUN yum install -y libxml2-devel openssl-devel cairo-devel postgresql-devel unixODBC-devel libuv-devel\n\n# install R-devel from source, with clang:\nRUN wget https://stat.ethz.ch/R/daily/R-devel.tar.gz\nRUN tar zxvf R-devel.tar.gz \n# Get https://www.stats.ox.ac.uk/pub/bdr/Rconfig/r-devel-linux-x86_64-fedora-clang into ./config.site:\nRUN echo $'CC=clang \\n\\\nOBJC=clang \\n\\\nCXX=clang++ \\n\\\nFC=gfortran \\n\\\nF77=gfortran \\n\\\nCFLAGS=\"-g -O3 -Wall -pedantic -mtune=native\" \\n\\\nFFLAGS=\"-g -O2 -mtune=native -Wall -pedantic\" \\n\\\nFCFLAGS=\"-g -O2 -mtune=native -Wall -pedantic\" \\n\\\nCXXFLAGS=\"-g -O3 -Wall -pedantic -mtune=native -frtti\" \\n\\\nCPPFLAGS=\"-I/usr/local/clang/include -I/usr/local/include\" \\n\\\nJAVA_HOME=/usr/lib/jvm/jre-11 \\n\\\nLDFLAGS=\"-L/usr/local/clang/lib64 -L/usr/local/lib64\"' > R-devel/config.site\n\nRUN (cd R-devel; ./configure --with-x=no --enable-R-shlib --without-lapack; make clean; make; make install)\n\nRUN /usr/local/bin/Rscript -e 'install.packages(c(\"XML\", \"Rcpp\", \"units\", \"DBI\", \"classInt\", \"magrittr\", \"lwgeom\", \"tibble\", \"knitr\", \"sp\", \"maps\", \"markdown\", \"testthat\", \"maptools\", \"dplyr\", \"rgeos\", \"rgdal\", \"tidyr\", \"stars\", \"rmarkdown\", \"covr\", \"ggplot2\", \"mapview\", \"microbenchmark\", \"odbc\", \"pool\", \"raster\", \"rmarkdown\", \"RPostgres\", \"RPostgreSQL\", \"RSQLite\", \"spatstat\", \"tmap\"), repos = \"https://cloud.r-project.org\")'\n\nRUN yum install -y abseil-cpp-devel\nRUN /usr/local/bin/Rscript -e 'install.packages(c(\"s2\", \"sf\"), repos = \"https://cloud.r-project.org\")'\n\n# get CRAN version of sf/lwgeom:\nRUN cd ..\n#RUN wget https://cran.r-project.org/src/contrib/lwgeom_0.2-2.tar.gz\nRUN /usr/local/bin/R -e 'install.packages(\"remotes\", repos = \"https://cloud.r-project.org\"); remotes::install_github(\"r-spatial/lwgeom\")'\nRUN /usr/local/bin/R -e 'install.packages(c(\"stars\", \"tmap\"), repos = \"https://cloud.r-project.org\")'\n#RUN /usr/local/bin/R CMD check --as-cran sf_0.8-1.tar.gz\nRUN rm -fr lwgeom\nRUN git clone --depth 1 https://github.com/r-spatial/lwgeom.git\nRUN R CMD build lwgeom\nRUN /usr/local/bin/Rscript -e 'install.packages(c(\"geosphere\"), repos = \"https://cloud.r-project.org\")'\n#RUN yum install -y xorg-x11-apps\n# RUN yum install -y xorg-x11-server-Xvfb\n# RUN yum /usr/bin/Xvfb :99 -screen 0 1280x1024x24 &\n# RUN /usr/local/bin/Rscript -e 'install.packages(c(\"Cairo\"), repos = \"https://cloud.r-project.org\")'\n\nRUN wget https://cran.r-project.org/src/contrib/gstat_2.1-5.tar.gz\nRUN /usr/local/bin/Rscript -e 'install.packages(c(\"zoo\", \"sftime\", \"spacetime\", \"FNN\"), repos = \"https://cloud.r-project.org\")'\nRUN /usr/local/bin/Rscript -e 'install.packages(c(\"mapdata\"), repos = \"https://cloud.r-project.org\")'\nRUN _R_CHECK_FORCE_SUGGESTS_=false /usr/local/bin/R CMD check --no-build-vignettes --no-build-manuals gstat_2.1-5.tar.gz\n\nCMD [\"/bin/bash\"]\n"
},
{
"path": "inst/docker/gdal/Dockerfile",
"content": "FROM ubuntu:24.04\n# minimal docker file to get sp and sf running on ubunty 16.04 image,\n# using gdal/geos/proj from ppa:ubuntugis/ubuntugis-unstable\n\nMAINTAINER \"edzerpebesma\" edzer.pebesma@uni-muenster.de\n\nRUN apt-get update && apt-get install -y software-properties-common dirmngr\nRUN add-apt-repository ppa:ubuntugis/ubuntugis-unstable\n\nRUN apt-key adv --keyserver keyserver.ubuntu.com --recv-keys E298A3A825C0D65DFD57CBB651716619E084DAB9\n\n# add the R 4.0 repo from CRAN -- adjust 'focal' to 'groovy' or 'bionic' as needed\nRUN add-apt-repository \"deb https://cloud.r-project.org/bin/linux/ubuntu $(lsb_release -cs)-cran40/\"\n\nRUN apt-key adv --keyserver keyserver.ubuntu.com --recv-keys E084DAB9\n\nRUN apt-get update\nRUN apt-get upgrade -y\n\nRUN export DEBIAN_FRONTEND=noninteractive; apt-get -y update \\\n && apt-get install -y \\\n\tdevscripts \\\n\tgdb \\\n\tgit \\\n\tlibcairo2-dev \\\n\tlibcurl4-openssl-dev \\\n\tlibexpat1-dev \\\n\tlibpq-dev \\\n\tlibblosc-dev \\\n\tlibsqlite3-dev \\\n\tlibudunits2-dev \\\n\tmake \\\n\tpandoc \\\n\tqpdf \\\n\tr-base-dev \\\n \tsqlite3 \\\n\tsubversion \\\n\tvalgrind \\\n\tvim \\\n\ttk-dev \\\n\twget\n\n#libv8-3.14-dev \\\nRUN apt-get update && apt-get install -y --fix-missing \\\n\tlibjq-dev \\\n\tlibprotobuf-dev \\\n\tlibxml2-dev \\\n\tlibprotobuf-dev \\\n\tprotobuf-compiler \\\n\tunixodbc-dev \\\n\tlibssh2-1-dev \\\n\tlibgit2-dev \\\n\tlibnetcdf-dev \\\n\tlocales \\\n\tlibssl-dev \\\n\tlibtiff-dev \\\n\tcmake \\\n\tlibtiff5-dev \\\n\tlibopenjp2-7-dev \\\n\tlibharfbuzz-dev \\\n\tlibharfbuzz-dev \\\n\tlibfribidi-dev\n\nRUN locale-gen en_US.UTF-8\nENV LANG en_US.UTF-8\nENV LANGUAGE en_US:en\nENV LC_ALL en_US.UTF-8\n\n#ENV PROJ_VERSION=7.1.0\nENV LD_LIBRARY_PATH=/usr/local/lib:$LD_LIBRARY_PATH\n\n# GEOS:\nENV GEOS_VERSION 3.14.1\nRUN wget -q http://download.osgeo.org/geos/geos-${GEOS_VERSION}.tar.bz2 \\\n && bzip2 -d geos-*bz2 \\\n && tar xf geos*tar \\\n && cd geos* \\\n && mkdir build \\\n && cd build \\\n && cmake .. \\\n && make \\\n && make install \\\n && cd ../.. \\\n && ldconfig\n\n# PROJ\nENV PROJ_VERSION 9.7.1\nRUN wget -q http://download.osgeo.org/proj/proj-${PROJ_VERSION}.tar.gz\nRUN tar zxvf proj-${PROJ_VERSION}.tar.gz\nRUN cd proj* \\\n && ls -l \\\n && mkdir build \\\n && cd build \\\n && cmake .. \\\n && make \\\n && make install \\\n && cd ../.. \\\n && ldconfig\n\n# GDAL:\nENV GDAL_VERSION 3.13.0\nENV GDAL_VERSION_NAME 3.13.0beta1\nRUN wget -q http://download.osgeo.org/gdal/${GDAL_VERSION}/gdal-${GDAL_VERSION_NAME}.tar.gz \\\n && tar -xf gdal-${GDAL_VERSION_NAME}.tar.gz \\\n && cd gdal* \\\n && mkdir build \\\n && cd ./build \\\n && cmake -DCMAKE_BUILD_TYPE=Release .. \\\n && make \\\n && make install \\\n && ldconfig\n\nRUN Rscript -e 'install.packages(c(\"sp\", \"RPostgreSQL\", \"RSQLite\", \"testthat\", \"knitr\", \"tidyr\", \"geosphere\", \"maps\", \"microbenchmark\", \"raster\", \"dplyr\", \"tibble\", \"units\", \"DBI\", \"covr\", \"protolite\", \"tmap\", \"mapview\", \"odbc\", \"pool\", \"rmarkdown\", \"RPostgres\",\"spatstat\", \"stars\", \"XML\", \"tmaptools\", \"tmap\", \"terra\", \"PCICt\", \"RNetCDF\", \"future.apply\", \"ggforce\", \"ggthemes\", \"gstat\", \"ncmeta\", \"pbapply\", \"plm\", \"spacetime\", \"xts\", \"zoo\", \"tidync\", \"ncdfgeom\", \"cubelyr\", \"clue\", \"classInt\", \"mapdata\", \"ncdfgeom\", \"exactextractr\", \"randomForest\", \"nanoarrow\", \"tmap\", \"spatstat\", \"spatstat.linnet\", \"viridis\", \"CFtime\", \"tinytest\", \"lwgeom\", \"stars\"))'\n\n# sf:\nRUN git clone --depth 10 https://github.com/r-spatial/sf.git\nRUN (cd sf; git pull)\nRUN R CMD build --no-build-vignettes --no-manual sf\nRUN R CMD INSTALL sf_*.tar.gz\nRUN R CMD check --no-build-vignettes --no-manual --as-cran sf_*.tar.gz \n\n# lwgeom:\n#RUN git clone --depth 10 https://github.com/r-spatial/lwgeom.git\n#RUN R CMD build --no-build-vignettes --no-manual lwgeom\n#RUN R CMD INSTALL lwgeom_*.tar.gz\n#RUN R CMD check --no-build-vignettes --no-manual --as-cran lwgeom_*.tar.gz \n\n# stars:\n#RUN git clone --depth 10 https://github.com/r-spatial/stars.git\n#RUN R CMD build --no-manual stars\n#RUN R CMD INSTALL stars_*.tar.gz\n#RUN Rscript -e 'options(timeout=1200); install.packages(\"starsdata\", repos=\"http://cran.uni-muenster.de/pebesma/\")'\n#RUN _R_CHECK_FORCE_SUGGESTS_=false R CMD check --no-build-vignettes --no-manual --as-cran stars_*.tar.gz \n\n#\n#RUN export DEBIAN_FRONTEND=noninteractive; apt-get install -y --fix-missing libmagick++-dev\n#RUN Rscript -e 'install.packages(\"animation\")'\n\n# terra:\n#RUN wget -q https://cran.r-project.org/src/contrib/terra_1.8-80.tar.gz\n#RUN R CMD check --no-manual terra_1.8-80.tar.gz\n\n#RUN wget -q https://cran.r-project.org/src/contrib/vapour_0.12.0.tar.gz\n#RUN R -e 'install.packages(c(\"markdown\", \"spelling\"))'\n#RUN R CMD INSTALL vapour*gz\n#RUN R CMD check --no-manual vapour*gz\n\n#RUN R -e 'install.packages(c(\"gt\"))'\n#RUN wget -q https://cran.r-project.org/src/contrib/gdalraster_2.2.1.tar.gz\n#RUN R -e 'install.packages(c(\"RcppInt64\"))'\n#RUN R CMD INSTALL gdalraster*gz\n#RUN R CMD check --no-manual gdalraster*gz\n"
},
{
"path": "inst/docker/gdal304/Dockerfile",
"content": "FROM ubuntu:22.04\n# minimal docker file to get sp and sf running on ubunty 16.04 image,\n# using gdal/geos/proj from ppa:ubuntugis/ubuntugis-unstable\n\nMAINTAINER \"edzerpebesma\" edzer.pebesma@uni-muenster.de\n\nRUN apt-get update && apt-get install -y software-properties-common dirmngr\nRUN add-apt-repository ppa:ubuntugis/ubuntugis-unstable\n\nRUN apt-key adv --keyserver keyserver.ubuntu.com --recv-keys E298A3A825C0D65DFD57CBB651716619E084DAB9\n\n# add the R 4.0 repo from CRAN -- adjust 'focal' to 'groovy' or 'bionic' as needed\nRUN add-apt-repository \"deb https://cloud.r-project.org/bin/linux/ubuntu $(lsb_release -cs)-cran40/\"\n\nRUN apt-key adv --keyserver keyserver.ubuntu.com --recv-keys E084DAB9\n\nRUN apt-get update\nRUN apt-get upgrade -y\n\nRUN export DEBIAN_FRONTEND=noninteractive; apt-get -y update \\\n && apt-get install -y \\\n\tgdb \\\n\tgit \\\n\tlibcairo2-dev \\\n\tlibcurl4-openssl-dev \\\n\tlibexpat1-dev \\\n\tlibpq-dev \\\n\tlibsqlite3-dev \\\n\tlibudunits2-dev \\\n\tmake \\\n\tpandoc \\\n\tqpdf \\\n\tr-base-dev \\\n \tsqlite3 \\\n\tsubversion \\\n\tvalgrind \\\n\tvim \\\n\ttk-dev \\\n\twget\n\n#libv8-3.14-dev \\\nRUN apt-get install -y \\\n\tlibjq-dev \\\n\tlibprotobuf-dev \\\n\tlibxml2-dev \\\n\tlibprotobuf-dev \\\n\tprotobuf-compiler \\\n\tunixodbc-dev \\\n\tlibssh2-1-dev \\\n\tlibgit2-dev \\\n\tlibnetcdf-dev \\\n\tlocales \\\n\tlibssl-dev \\\n\tlibtiff-dev\n\nRUN locale-gen en_US.UTF-8\n\n#ENV PROJ_VERSION=7.1.0\nENV LD_LIBRARY_PATH=/usr/local/lib:$LD_LIBRARY_PATH\n\nRUN export DEBIAN_FRONTEND=noninteractive; apt-get -y update \\\n && apt-get install -y \\\n\tcmake \\\n\tlibtiff5-dev\n\n# GEOS:\nENV GEOS_VERSION 3.8.0\n\nRUN wget -q http://download.osgeo.org/geos/geos-${GEOS_VERSION}.tar.bz2 \\\n && bzip2 -d geos-*bz2 \\\n && tar xf geos*tar \\\n && cd geos* \\\n && mkdir build \\\n && cd build \\\n && cmake .. \\\n && make \\\n && make install \\\n && cd ../.. \\\n && ldconfig\n\n#RUN git clone --depth 1 https://github.com/OSGeo/PROJ.git\n# https://download.osgeo.org/proj/proj-9.0.0RC1.tar.gz\nENV PROJ_VERSION 6.3.1\nRUN wget -q http://download.osgeo.org/proj/proj-${PROJ_VERSION}.tar.gz\nRUN tar zxvf proj-${PROJ_VERSION}.tar.gz\nRUN cd proj* \\\n && ls -l \\\n && mkdir build \\\n && cd build \\\n && cmake .. \\\n && make \\\n && make install \\\n && cd ../.. \\\n && ldconfig\n\n# install proj-data:\n#RUN cd /usr/local/share/proj \\\n# && wget http://download.osgeo.org/proj/proj-data-1.1RC1.zip \\\n# && unzip -o proj-data*zip \\\n# && rm proj-data*zip \\\n# && cd -\n\n# GDAL:\n\nENV GDAL_VERSION 3.0.4\nENV GDAL_VERSION_NAME 3.0.4\n\nRUN wget -q http://download.osgeo.org/gdal/${GDAL_VERSION}/gdal-${GDAL_VERSION_NAME}.tar.gz \\\n && tar -xf gdal-${GDAL_VERSION_NAME}.tar.gz \\\n && cd gdal* \\\n && ./configure --disable-driver-cad \\\n && make \\\n && make install\n\nRUN R -e 'install.packages(c(\"remotes\", \"Rcpp\", \"s2\", \"e1071\", \"classInt\", \"units\", \"magrittr\", \"DBI\"))'\nRUN echo \"OK223\"\nRUN R -e 'remotes::install_github(\"r-spatial/sf\")'\nRUN R -e 'library(sf)'\n\nRUN Rscript -e 'install.packages(c(\"sp\", \"rgeos\", \"rgdal\", \"RPostgreSQL\", \"RSQLite\", \"testthat\", \"knitr\", \"tidyr\", \"geosphere\", \"maptools\", \"maps\", \"microbenchmark\", \"raster\", \"dplyr\", \"tibble\", \"units\", \"DBI\", \"covr\", \"protolite\", \"tmap\", \"mapview\", \"odbc\", \"pool\", \"rmarkdown\", \"RPostgres\",\"spatstat\", \"stars\", \"XML\", \"tmaptools\", \"tmap\", \"terra\", \"PCICt\", \"RNetCDF\", \"future.apply\", \"ggforce\", \"ggthemes\", \"gstat\", \"ncmeta\", \"pbapply\", \"plm\", \"spacetime\", \"xts\", \"zoo\", \"tidync\", \"ncdfgeom\", \"cubelyr\", \"clue\", \"classInt\"))'\n\nRUN git clone --depth 10 https://github.com/r-spatial/sf.git\nRUN git clone --depth 10 https://github.com/r-spatial/lwgeom.git\nRUN git clone --depth 10 https://github.com/r-spatial/stars.git\n#RUN git config --global user.email \"edzer.pebesma@uni-muenster.de\"\n\nRUN R CMD build --no-build-vignettes --no-manual lwgeom\nRUN R CMD build --no-build-vignettes --no-manual sf\n# RUN pkg-config proj --modversion\nRUN R CMD INSTALL sf\nRUN R CMD INSTALL lwgeom\nRUN R CMD INSTALL stars\n\nRUN Rscript -e 'install.packages(c(\"mapview\", \"tmap\"))'\nRUN Rscript -e 'install.packages(c(\"spatstat\", \"spatstat.linnet\"))'\n\nRUN R CMD build --no-build-vignettes --no-manual sf\nRUN R CMD check --no-build-vignettes --no-manual --as-cran sf_*.tar.gz \nRUN R CMD check --no-build-vignettes --no-manual --as-cran lwgeom_*.tar.gz \n\n#RUN Rscript -e 'install.packages(\"starsdata\", repos=\"http://gis-bigdata.uni-muenster.de/pebesma/\")'\nRUN R CMD build --no-manual stars\nRUN Rscript -e 'install.packages(c(\"ncdfgeom\"))'\nRUN _R_CHECK_FORCE_SUGGESTS_=false R CMD check --no-build-vignettes --no-manual --as-cran stars_*.tar.gz \n"
},
{
"path": "inst/docker/geos/Dockerfile",
"content": "FROM ubuntu:18.04\n# minimal docker file to get sp and sf running on ubunty 16.04 image,\n# using gdal/geos/proj from ppa:ubuntugis/ubuntugis-unstable\n\nMAINTAINER \"edzerpebesma\" edzer.pebesma@uni-muenster.de\n\nRUN apt-get update && apt-get install -y software-properties-common\nRUN add-apt-repository ppa:ubuntugis/ubuntugis-unstable\n\nRUN apt-key adv --keyserver keyserver.ubuntu.com --recv-keys E298A3A825C0D65DFD57CBB651716619E084DAB9\nRUN echo \"deb https://cloud.r-project.org/bin/linux/ubuntu bionic-cran40/\" >> /etc/apt/sources.list\n\nRUN apt-key adv --keyserver keyserver.ubuntu.com --recv-keys E084DAB9\n\nRUN apt-get update\nRUN apt-get upgrade -y\n\nRUN export DEBIAN_FRONTEND=noninteractive; apt-get -y update \\\n && apt-get install -y \\\n\tgdb \\\n\tgit \\\n\tlibcairo2-dev \\\n\tlibcurl4-openssl-dev \\\n\tlibexpat1-dev \\\n\tlibpq-dev \\\n\tlibsqlite3-dev \\\n\tlibudunits2-dev \\\n\tmake \\\n\tpandoc \\\n\tqpdf \\\n\tr-base-dev \\\n \tsqlite3 \\\n\tsubversion \\\n\tvalgrind \\\n\tvim \\\n\ttk-dev \\\n\twget\n\nRUN apt-get install -y \\\n\tlibv8-3.14-dev \\\n\tlibjq-dev \\\n\tlibprotobuf-dev \\\n\tlibxml2-dev \\\n\tlibprotobuf-dev \\\n\tprotobuf-compiler \\\n\tunixodbc-dev \\\n\tlibssh2-1-dev \\\n\tlibgit2-dev \\\n\tlibnetcdf-dev \\\n\tlocales \\\n\tlibssl-dev \\\n\tlibtiff-dev\n\nRUN locale-gen en_US.UTF-8\n\nENV PROJ_VERSION=7.1.0\nENV LD_LIBRARY_PATH=/usr/local/lib:$LD_LIBRARY_PATH\n\nRUN export DEBIAN_FRONTEND=noninteractive; apt-get -y update \\\n && apt-get install -y \\\n\tcmake \\\n\tlibtiff5-dev\n\nRUN export DEBIAN_FRONTEND=noninteractive; apt-get -y update \\\n && apt-get install -y autoconf\n\nRUN git clone --depth 1 https://github.com/libgeos/geos.git\nRUN (cd geos; git pull)\nRUN cd geos \\\n\t&& mkdir build \\\n\t&& cd build \\\n\t&& cmake .. \\\n\t&& make \\\n\t&& make install\n\n#RUN git clone --depth 1 https://github.com/OSGeo/PROJ.git\nRUN wget http://download.osgeo.org/proj/proj-8.0.0.tar.gz\nRUN tar zxvf proj-8.0.0.tar.gz\nRUN cd proj-8.0.0 \\\n && ls -l \\\n && mkdir build \\\n && cd build \\\n && cmake .. \\\n && make \\\n && make install \\\n && cd ../.. \\\n && ldconfig\n\n# install proj-data:\n#RUN cd /usr/local/share/proj \\\n# && wget http://download.osgeo.org/proj/proj-data-1.1RC1.zip \\\n# && unzip -o proj-data*zip \\\n# && rm proj-data*zip \\\n# && cd -\n\n# GDAL:\n\n# https://download.osgeo.org/gdal/3.1.0/gdal-3.1.0rc2.tar.gz\nENV GDAL_VERSION 3.3.0\nENV GDAL_VERSION_NAME 3.3.0rc1\n\nRUN wget http://download.osgeo.org/gdal/${GDAL_VERSION}/gdal-${GDAL_VERSION_NAME}.tar.gz \\\n && tar -xf gdal-${GDAL_VERSION_NAME}.tar.gz \\\n && cd gdal* \\\n && ./configure \\\n && make \\\n && make install \\\n && cd .. \\\n && ldconfig\n\n# RUN svn checkout svn://scm.r-forge.r-project.org/svnroot/rgdal/\n# RUN R CMD build rgdal/pkg --no-build-vignettes\n# RUN R CMD INSTALL rgdal_*.tar.gz \n\nRUN Rscript -e 'install.packages(c(\"sp\", \"rgeos\", \"rgdal\", \"RPostgreSQL\", \"RSQLite\", \"testthat\", \"knitr\", \"tidyr\", \"geosphere\", \"maptools\", \"maps\", \"microbenchmark\", \"raster\", \"dplyr\", \"tibble\", \"units\", \"DBI\", \"covr\", \"protolite\", \"tmap\", \"mapview\", \"odbc\", \"pool\", \"rmarkdown\", \"RPostgres\",\"spatstat\", \"stars\"))'\n\nRUN git clone --depth 10 https://github.com/r-spatial/sf.git\nRUN git clone --depth 10 https://github.com/r-spatial/lwgeom.git\nRUN git clone --depth 10 https://github.com/r-spatial/stars.git\n#RUN git config --global user.email \"edzer.pebesma@uni-muenster.de\"\n\nRUN R CMD build --no-build-vignettes --no-manual lwgeom\nRUN (cd sf; git pull)\nRUN R CMD build --no-build-vignettes --no-manual sf\n# RUN pkg-config proj --modversion\nRUN R CMD INSTALL sf\nRUN R CMD INSTALL lwgeom\nRUN R CMD build --no-build-vignettes --no-manual stars\nRUN R CMD INSTALL stars\n\n\n#RUN svn checkout svn://scm.r-forge.r-project.org/svnroot/rgdal/\n# or:\n# svn checkout svn+ssh://edzer@scm.r-forge.r-project.org/svnroot/rgdal/\n#RUN R CMD build rgdal/pkg --no-build-vignettes\n#RUN R CMD INSTALL rgdal_*.tar.gz \n#RUN R CMD check --no-vignettes --no-manual rgdal_*.tar.gz \n#RUN Rscript -e 'install.packages(c(\"stars\", \"tmap\"), repos = \"https://cloud.r-project.org\")'\n\nRUN Rscript -e 'install.packages(\"rgdal\", repos=\"http://R-Forge.R-project.org\")'\n# after rgdal:\nRUN Rscript -e 'install.packages(c(\"XML\"))'\nRUN Rscript -e 'install.packages(c(\"tmaptools\", \"tmap\", \"mapview\", \"s2\", \"terra\"))'\nRUN Rscript -e 'install.packages(\"rgeos\", repos=\"http://R-Forge.R-project.org\")'\n\nRUN echo\nRUN (cd sf; git pull)\nRUN R CMD build --no-build-vignettes --no-manual sf\nRUN R CMD check --no-manual --as-cran sf_*.tar.gz \n\n#RUN R CMD check --no-build-vignettes --no-manual --as-cran lwgeom_*.tar.gz \n\n#RUN Rscript -e 'install.packages(\"starsdata\", repos=\"http://gis-bigdata.uni-muenster.de/pebesma/\")'\n#RUN Rscript -e 'install.packages(c(\"PCICt\", \"RNetCDF\", \"future.apply\", \"ggforce\", \"ggthemes\", \"gstat\", \"ncmeta\", \"pbapply\", \"plm\", \"spacetime\", \"xts\", \"zoo\"))'\n#RUN Rscript -e 'install.packages(c(\"tidync\", \"ncdfgeom\", \"cubelyr\"))'\n#RUN echo echo\n#RUN (cd stars; git pull)\n#RUN R CMD build --no-manual stars\n#RUN _R_CHECK_FORCE_SUGGESTS_=false R CMD check --no-build-vignettes --no-manual --as-cran stars_*.tar.gz \n"
},
{
"path": "inst/docker/lowest/Dockerfile",
"content": "FROM rocker/r-ver\n# minimal docker file to get sf running on an ubunty 16.04 image,\n# installing gdal, geos and proj.4 from source in a non-standard location\n\nMAINTAINER \"edzerpebesma\" edzer.pebesma@uni-muenster.de\n\nRUN apt-get update\n#RUN apt-get -y remove libgdal-dev gdal-bin libgeos-dev libproj-dev \\\n#\tlibgeos-3.8.0 libgdal20 libproj15 proj-data\n\nRUN apt-get update && apt-get install -y software-properties-common wget\n#RUN add-apt-repository ppa:ubuntugis/ubuntugis-unstable\n\n#RUN echo \"deb http://cran.rstudio.com/bin/linux/ubuntu xenial/ \" >> /etc/apt/sources.list\n#RUN apt-key adv --keyserver keyserver.ubuntu.com --recv-keys E084DAB9\n\n#RUN apt-get update\n#RUN apt-get upgrade -y\n\n#RUN export DEBIAN_FRONTEND=noninteractive; apt-get -y update \\\n# && apt-get install -y \\\n#\tlibcurl4-openssl-dev \\\n#\tqpdf \\\n#\tpandoc \\\n#\tpandoc-citeproc \\\n#\tmake \\\n#\twget \\\n#\tgit \\\n#\tsubversion \\\n#\tlibudunits2-dev \\\n#\tlibsqlite3-dev \\\n#\tlibexpat1-dev \\\n# libprotobuf-dev \\\n# libv8-3.14-dev \\\n# libcairo2-dev \\\n#\tprotobuf-compiler \\\n#\tlibxml2-dev \\\n#\tlibpq-dev \\\n#\tlibssh2-1-dev \\\n# unixodbc-dev \\\n#\tr-base-dev\n#\n#RUN export DEBIAN_FRONTEND=noninteractive; \\\n# add-apt-repository -y ppa:opencpu/jq; \\\n# apt-get update; \\\n# apt-get install -y \\\n# libjq-dev\n\nRUN cd \\\n\t&& wget http://download.osgeo.org/proj/proj-4.8.0.tar.gz \\\n\t&& tar zxvf proj-4.8.0.tar.gz \\\n\t&& cd proj-4.8.0/ \\\n\t&& ./configure \\\n\t&& make \\\n\t&& make install\n\n# for now, rgdal needs:\nRUN export DEBIAN_FRONTEND=noninteractive; apt-get -y update \\\n && apt-get install -y \\\n\tlibcurl4-openssl-dev \\\n\tqpdf \\\n\tpandoc \\\n\tpandoc-citeproc \\\n\tmake \\\n\twget \\\n\tgit \\\n\tsubversion \\\n\tlibudunits2-dev \\\n\tlibsqlite3-dev \\\n\tlibexpat1-dev \\\n libprotobuf-dev \\\n libcairo2-dev \\\n\tprotobuf-compiler \\\n\tlibxml2-dev \\\n\tlibpq-dev \\\n\tlibssh2-1-dev \\\n unixodbc-dev \\\n libjq-dev\n\n#RUN export DEBIAN_FRONTEND=noninteractive; \\\n# add-apt-repository -y ppa:opencpu/jq; \\\n# apt-get update; \\\n# apt-get install -y \\\n# libjq-dev\n\nRUN\tcd \\\n\t&& wget http://download.osgeo.org/gdal/2.2.3/gdal-2.2.3.tar.gz \\\n\t&& tar zxvf gdal-2.2.3.tar.gz \\\n\t&& cd gdal-2.2.3 \\\n\t&& ./configure \\\n\t&& make \\\n\t&& make install\n\t\nRUN\tcd \\\n\t&& wget http://download.osgeo.org/geos/geos-3.6.0.tar.bz2 \\\n\t&& bunzip2 geos-3.6.0.tar.bz2 \\\n\t&& tar xvf geos-3.6.0.tar \\\n\t&& cd geos-3.6.0 \\\n\t&& ./configure \\\n\t&& make \\\n\t&& make install\n\nRUN ldconfig\n\nRUN svn checkout svn://scm.r-forge.r-project.org/svnroot/rgdal/\nRUN R CMD build rgdal/pkg --no-build-vignettes\nRUN R -e 'install.packages(c(\"sp\"))'\nRUN R CMD INSTALL rgdal_*.tar.gz\n\nRUN R -e 'install.packages(\"remotes\")'\n\nRUN echo \"ok\"\n#RUN R -e 'install.packages(\"sf\")'\nRUN R -e 'install.packages(c(\"Rcpp\", \"s2\", \"e1071\", \"classInt\", \"units\", \"magrittr\", \"DBI\"))'\nRUN ls\nRUN echo \"xxyyzz\"\nRUN R -e 'remotes::install_github(\"r-spatial/sf\")'\nRUN R -e 'library(sf)'\n\n# no rgdal:\nRUN R -e 'install.packages(c(\"Rcpp\", \"DBI\", \"units\", \"magrittr\", \"lwgeom\", \"maps\", \"rgeos\", \"sp\", \"raster\", \"spatstat\", \"tmap\", \"maptools\", \"RSQLite\", \"tibble\", \"pillar\", \"rlang\", \"dplyr\", \"tidyr\", \"RPostgres\", \"tidyselect\", \"ggplot2\", \"mapview\", \"testthat\", \"knitr\", \"covr\", \"microbenchmark\", \"rmarkdown\", \"RPostgreSQL\", \"devtools\", \"odbc\", \"pool\"))'\n\nRUN R -e 'library(sf)'\n\nRUN git clone https://github.com/r-spatial/sf.git\n\nRUN\tR CMD build sf\n\nRUN apt-get install -y libssl-dev\nRUN R -e 'install.packages(c(\"covr\", \"stars\"))'\nRUN ls\nRUN (cd sf; git pull)\nRUN R CMD build sf\nRUN\tR CMD check --no-manual sf_*.tar.gz\n\nCMD [\"/bin/bash\"]\n"
},
{
"path": "inst/docker/parquet/Dockerfile",
"content": "FROM ubuntu:22.04\n# minimal docker file to get sp and sf running on ubunty 16.04 image,\n# using gdal/geos/proj from ppa:ubuntugis/ubuntugis-unstable\n\nMAINTAINER \"edzerpebesma\" edzer.pebesma@uni-muenster.de\n\nRUN apt-get update && apt-get install -y software-properties-common dirmngr\nRUN add-apt-repository ppa:ubuntugis/ubuntugis-unstable\n\nRUN apt-key adv --keyserver keyserver.ubuntu.com --recv-keys E298A3A825C0D65DFD57CBB651716619E084DAB9\n\n# add the R 4.0 repo from CRAN -- adjust 'focal' to 'groovy' or 'bionic' as needed\nRUN add-apt-repository \"deb https://cloud.r-project.org/bin/linux/ubuntu $(lsb_release -cs)-cran40/\"\n\nRUN apt-key adv --keyserver keyserver.ubuntu.com --recv-keys E084DAB9\n\nRUN apt-get update\nRUN apt-get upgrade -y\n\nRUN export DEBIAN_FRONTEND=noninteractive; apt-get -y update \\\n && apt-get install -y \\\n\tdevscripts \\\n\tgdb \\\n\tgit \\\n\tlibcairo2-dev \\\n\tlibcurl4-openssl-dev \\\n\tlibexpat1-dev \\\n\tlibpq-dev \\\n\tlibsqlite3-dev \\\n\tlibudunits2-dev \\\n\tmake \\\n\tpandoc \\\n\tqpdf \\\n\tr-base-dev \\\n \tsqlite3 \\\n\tsubversion \\\n\tvalgrind \\\n\tvim \\\n\ttk-dev \\\n\twget\n\n#libv8-3.14-dev \\\nRUN apt-get update && apt-get install -y --fix-missing \\\n\tlibjq-dev \\\n\tlibprotobuf-dev \\\n\tlibxml2-dev \\\n\tlibprotobuf-dev \\\n\tprotobuf-compiler \\\n\tunixodbc-dev \\\n\tlibssh2-1-dev \\\n\tlibgit2-dev \\\n\tlibnetcdf-dev \\\n\tlocales \\\n\tlibssl-dev \\\n\tlibtiff-dev \\\n\tcmake \\\n\tlibtiff5-dev \\\n\tlibopenjp2-7-dev\n\nRUN locale-gen en_US.UTF-8\n\n#ENV PROJ_VERSION=7.1.0\nENV LD_LIBRARY_PATH=/usr/local/lib:$LD_LIBRARY_PATH\n\n# GEOS:\nENV GEOS_VERSION 3.14.0\n\nRUN wget -q http://download.osgeo.org/geos/geos-${GEOS_VERSION}.tar.bz2 \\\n && bzip2 -d geos-*bz2 \\\n && tar xf geos*tar \\\n && cd geos* \\\n && mkdir build \\\n && cd build \\\n && cmake .. \\\n && make \\\n && make install \\\n && cd ../.. \\\n && ldconfig\n\n#RUN git clone --depth 1 https://github.com/OSGeo/PROJ.git\n# https://download.osgeo.org/proj/proj-9.0.0RC1.tar.gz\nENV PROJ_VERSION 9.7.1\nRUN wget -q http://download.osgeo.org/proj/proj-${PROJ_VERSION}.tar.gz\nRUN tar zxvf proj-${PROJ_VERSION}.tar.gz\nRUN cd proj* \\\n && ls -l \\\n && mkdir build \\\n && cd build \\\n && cmake .. \\\n && make \\\n && make install \\\n && cd ../.. \\\n && ldconfig\n\n# install proj-data:\n#RUN cd /usr/local/share/proj \\\n# && wget http://download.osgeo.org/proj/proj-data-1.1RC1.zip \\\n# && unzip -o proj-data*zip \\\n# && rm proj-data*zip \\\n# && cd -\n\n# FROM https://arrow.apache.org/install/ ; probably only a subset is needed:\nRUN apt update\nRUN apt install -y -V ca-certificates lsb-release wget\nRUN wget https://apache.jfrog.io/artifactory/arrow/$(lsb_release --id --short | tr 'A-Z' 'a-z')/apache-arrow-apt-source-latest-$(lsb_release --codename --short).deb\nRUN apt install -y -V ./apache-arrow-apt-source-latest-$(lsb_release --codename --short).deb\nRUN apt update\nRUN apt install -y -V libarrow-dev # For C++\nRUN apt install -y -V libarrow-glib-dev # For GLib (C)\nRUN apt install -y -V libarrow-dataset-dev # For Apache Arrow Dataset C++\nRUN apt install -y -V libarrow-dataset-glib-dev # For Apache Arrow Dataset GLib (C)\nRUN apt install -y -V libparquet-dev # For Apache Parquet C++\nRUN apt install -y -V libparquet-glib-dev # For Apache Parquet GLib (C)\n\n# GDAL:\nENV GDAL_VERSION 3.12.2\nENV GDAL_VERSION_NAME 3.12.2\n\nRUN wget -q http://download.osgeo.org/gdal/${GDAL_VERSION}/gdal-${GDAL_VERSION_NAME}.tar.gz \\\n && tar -xf gdal-${GDAL_VERSION_NAME}.tar.gz \\\n && cd gdal* \\\n && mkdir build \\\n && cd ./build \\\n && cmake -DCMAKE_BUILD_TYPE=Release .. \\\n && make \\\n && make install \\\n && ldconfig\n\nRUN gdalinfo --formats\n\nRUN Rscript -e 'install.packages(c(\"sf\"))'\nRUN Rscript -e 'sf::st_drivers(\"vector\", \"Arrow\")'\nRUN Rscript -e 'sf::st_drivers(\"vector\", \"Parquet\")'\n"
},
{
"path": "inst/gml/fmi_test.gml",
"content": "\n\n \n\t \n \n\n\t\t \n \n 2014-01-01T00:00:00Z\n 2014-01-01T00:00:00Z\n \n \n \n \n 2014-01-01T00:00:00Z\n \n \n\n\t\t\n \t\t \n \n \n \n\t\t\tatmosphere\n \n \n \n\n \n\t\t\t\t\n \n \n\t\t\n\t\t \n\t\t \n\t\t 100965\n\t\t\tRaasepori Jussarö\n\t\t\t-16000041\n\t\t\t2757\n\t\t\t\n\t\t\t\n\t\t\t\n\t\t\tRaasepori\n\t\t\t\n\t\t \n\t\t\n \t \n \n \n\t\t\t \n Raasepori Jussarö\n 59.82076 23.57309 \n \n \n \n \n \n\t\t \n \n \n \n 2014-01-01T00:00:00Z\n\t\t\t\t 3.3\n \n \n \n \n\n \n \n\t \n \n\n\t\t \n \n 2014-01-01T00:00:00Z\n 2014-01-01T00:00:00Z\n \n \n \n \n 2014-01-01T00:00:00Z\n \n \n\n\t\t\n \t\t \n \n \n \n\t\t\tatmosphere\n \n \n \n\n \n\t\t\t\t\n \n \n\t\t\n\t\t \n\t\t \n\t\t 100967\n\t\t\tSalo Kiikala lentokenttä\n\t\t\t-16000126\n\t\t\t2777\n\t\t\t\n\t\t\t\n\t\t\t\n\t\t\tSalo\n\t\t\t\n\t\t \n\t\t\n \t \n \n \n\t\t\t \n Salo Kiikala lentokenttä\n 60.46415 23.64976 \n \n \n \n \n \n\t\t \n \n \n \n 2014-01-01T00:00:00Z\n\t\t\t\t 2.6\n \n \n \n \n\n \n \n\t \n \n\n\t\t \n \n 2014-01-01T00:00:00Z\n 2014-01-01T00:00:00Z\n \n \n \n \n 2014-01-01T00:00:00Z\n \n \n\n\t\t\n \t\t \n \n \n \n\t\t\tatmosphere\n \n \n \n\n \n\t\t\t\t\n \n \n\t\t\n\t\t \n\t\t \n\t\t 100968\n\t\t\tVantaa Helsinki-Vantaan lentoasema\n\t\t\t-16000063\n\t\t\t2974\n\t\t\t\n\t\t\t\n\t\t\t\n\t\t\tVantaa\n\t\t\t\n\t\t \n\t\t\n \t \n \n \n\t\t\t \n Vantaa Helsinki-Vantaan lentoasema\n 60.32670 24.95675 \n \n \n \n \n \n\t\t \n \n \n \n 2014-01-01T00:00:00Z\n\t\t\t\t 3.1\n \n \n \n \n\n \n \n\t \n \n\n\t\t \n \n 2014-01-01T00:00:00Z\n 2014-01-01T00:00:00Z\n \n \n \n \n 2014-01-01T00:00:00Z\n \n \n\n\t\t\n \t\t \n \n \n \n\t\t\tatmosphere\n \n \n \n\n \n\t\t\t\t\n \n \n\t\t\n\t\t \n\t\t \n\t\t 100969\n\t\t\tInkoo Bågaskär\n\t\t\t-16000158\n\t\t\t2984\n\t\t\t\n\t\t\t\n\t\t\t\n\t\t\tInkoo\n\t\t\t\n\t\t \n\t\t\n \t \n \n \n\t\t\t \n Inkoo Bågaskär\n 59.93114 24.01408 \n \n \n \n \n \n\t\t \n \n \n \n 2014-01-01T00:00:00Z\n\t\t\t\t 3.3\n \n \n \n \n\n \n \n\t \n \n\n\t\t \n \n 2014-01-01T00:00:00Z\n 2014-01-01T00:00:00Z\n \n \n \n \n 2014-01-01T00:00:00Z\n \n \n\n\t\t\n \t\t \n \n \n \n\t\t\tatmosphere\n \n \n \n\n \n\t\t\t\t\n \n \n\t\t\n\t\t \n\t\t \n\t\t 100971\n\t\t\tHelsinki Kaisaniemi\n\t\t\t-16000150\n\t\t\t2978\n\t\t\t\n\t\t\t\n\t\t\t\n\t\t\tHelsinki\n\t\t\t\n\t\t \n\t\t\n \t \n \n \n\t\t\t \n Helsinki Kaisaniemi\n 60.17523 24.94459 \n \n \n \n \n \n\t\t \n \n \n \n 2014-01-01T00:00:00Z\n\t\t\t\t 3.6\n \n \n \n \n\n \n \n\t \n \n\n\t\t \n \n 2014-01-01T00:00:00Z\n 2014-01-01T00:00:00Z\n \n \n \n \n 2014-01-01T00:00:00Z\n \n \n\n\t\t\n \t\t \n \n \n \n\t\t\tatmosphere\n \n \n \n\n \n\t\t\t\t\n \n \n\t\t\n\t\t \n\t\t \n\t\t 100974\n\t\t\tLohja Porla\n\t\t\t-16000023\n\t\t\t2706\n\t\t\t\n\t\t\t\n\t\t\t\n\t\t\tLohja\n\t\t\t\n\t\t \n\t\t\n \t \n \n \n\t\t\t \n Lohja Porla\n 60.24446 24.04951 \n \n \n \n \n \n\t\t \n \n \n \n 2014-01-01T00:00:00Z\n\t\t\t\t 3.4\n \n \n \n \n\n \n \n\t \n \n\n\t\t \n \n 2014-01-01T00:00:00Z\n 2014-01-01T00:00:00Z\n \n \n \n \n 2014-01-01T00:00:00Z\n \n \n\n\t\t\n \t\t \n \n \n \n\t\t\tatmosphere\n \n \n \n\n \n\t\t\t\t\n \n \n\t\t\n\t\t \n\t\t \n\t\t 100976\n\t\t\tVihti Maasoja\n\t\t\t-16000165\n\t\t\t2758\n\t\t\t\n\t\t\t\n\t\t\t\n\t\t\tVihti\n\t\t\t\n\t\t \n\t\t\n \t \n \n \n\t\t\t \n Vihti Maasoja\n 60.41875 24.39862 \n \n \n \n \n \n\t\t \n \n \n \n 2014-01-01T00:00:00Z\n\t\t\t\t 3.4\n \n \n \n \n\n \n \n\t \n \n\n\t\t \n \n 2014-01-01T00:00:00Z\n 2014-01-01T00:00:00Z\n \n \n \n \n 2014-01-01T00:00:00Z\n \n \n\n\t\t\n \t\t \n \n \n \n\t\t\tatmosphere\n \n \n \n\n \n\t\t\t\t\n \n \n\t\t\n\t\t \n\t\t \n\t\t 100996\n\t\t\tHelsinki Harmaja\n\t\t\t-16000153\n\t\t\t2795\n\t\t\t\n\t\t\t\n\t\t\t\n\t\t\tHelsinki\n\t\t\t\n\t\t \n\t\t\n \t \n \n \n\t\t\t \n Helsinki Harmaja\n 60.10512 24.97539 \n \n \n \n \n \n\t\t \n \n \n \n 2014-01-01T00:00:00Z\n\t\t\t\t 3.3\n \n \n \n \n\n \n \n\t \n \n\n\t\t \n \n 2014-01-01T00:00:00Z\n 2014-01-01T00:00:00Z\n \n \n \n \n 2014-01-01T00:00:00Z\n \n \n\n\t\t\n \t\t \n \n \n \n\t\t\tatmosphere\n \n \n \n\n \n\t\t\t\t\n \n \n\t\t\n\t\t \n\t\t \n\t\t 100997\n\t\t\tKirkkonummi Mäkiluoto\n\t\t\t-16000119\n\t\t\t2794\n\t\t\t\n\t\t\t\n\t\t\t\n\t\t\tKirkkonummi\n\t\t\t\n\t\t \n\t\t\n \t \n \n \n\t\t\t \n Kirkkonummi Mäkiluoto\n 59.92014 24.34934 \n \n \n \n \n \n\t\t \n \n \n \n 2014-01-01T00:00:00Z\n\t\t\t\t 3.4\n \n \n \n \n\n \n \n\t \n \n\n\t\t \n \n 2014-01-01T00:00:00Z\n 2014-01-01T00:00:00Z\n \n \n \n \n 2014-01-01T00:00:00Z\n \n \n\n\t\t\n \t\t \n \n \n \n\t\t\tatmosphere\n \n \n \n\n \n\t\t\t\t\n \n \n\t\t\n\t\t \n\t\t \n\t\t 101003\n\t\t\tHelsinki Helsingin majakka\n\t\t\t-16000134\n\t\t\t2989\n\t\t\t\n\t\t\t\n\t\t\t\n\t\t\tHelsinki\n\t\t\t\n\t\t \n\t\t\n \t \n \n \n\t\t\t \n Helsinki Helsingin majakka\n 59.94898 24.92631 \n \n \n \n \n \n\t\t \n \n \n \n 2014-01-01T00:00:00Z\n\t\t\t\t 3.0\n \n \n \n \n\n \n \n\t \n \n\n\t\t \n \n 2014-01-01T00:00:00Z\n 2014-01-01T00:00:00Z\n \n \n \n \n 2014-01-01T00:00:00Z\n \n \n\n\t\t\n \t\t \n \n \n \n\t\t\tatmosphere\n \n \n \n\n \n\t\t\t\t\n \n \n\t\t\n\t\t \n\t\t \n\t\t 101004\n\t\t\tHelsinki Kumpula\n\t\t\t-16000138\n\t\t\t2998\n\t\t\t\n\t\t\t\n\t\t\t\n\t\t\tHelsinki\n\t\t\t\n\t\t \n\t\t\n \t \n \n \n\t\t\t \n Helsinki Kumpula\n 60.20307 24.96131 \n \n \n \n \n \n\t\t \n \n \n \n 2014-01-01T00:00:00Z\n\t\t\t\t 3.2\n \n \n \n \n\n \n \n\t \n \n\n\t\t \n \n 2014-01-01T00:00:00Z\n 2014-01-01T00:00:00Z\n \n \n \n \n 2014-01-01T00:00:00Z\n \n \n\n\t\t\n \t\t \n \n \n \n\t\t\tatmosphere\n \n \n \n\n \n\t\t\t\t\n \n \n\t\t\n\t\t \n\t\t \n\t\t 101005\n\t\t\tEspoo Sepänkylä\n\t\t\t-16000137\n\t\t\t2703\n\t\t\t\n\t\t\t\n\t\t\t\n\t\t\tEspoo\n\t\t\t\n\t\t \n\t\t\n \t \n \n \n\t\t\t \n Espoo Sepänkylä\n 60.20761 24.74152 \n \n \n \n \n \n\t\t \n \n \n \n 2014-01-01T00:00:00Z\n\t\t\t\t 3.2\n \n \n \n \n\n \n \n\t \n \n\n\t\t \n \n 2014-01-01T00:00:00Z\n 2014-01-01T00:00:00Z\n \n \n \n \n 2014-01-01T00:00:00Z\n \n \n\n\t\t\n \t\t \n \n \n \n\t\t\tatmosphere\n \n \n \n\n \n\t\t\t\t\n \n \n\t\t\n\t\t \n\t\t \n\t\t 101007\n\t\t\tHelsinki Rautatientori\n\t\t\t-16011680\n\t\t\t2934\n\t\t\t\n\t\t\t\n\t\t\t\n\t\t\tHelsinki\n\t\t\t\n\t\t \n\t\t\n \t \n \n \n\t\t\t \n Helsinki Rautatientori\n 60.17169 24.94460 \n \n \n \n \n \n\t\t \n \n \n \n 2014-01-01T00:00:00Z\n\t\t\t\t 3.7\n \n \n \n \n\n \n \n\t \n \n\n\t\t \n \n 2014-01-01T00:00:00Z\n 2014-01-01T00:00:00Z\n \n \n \n \n 2014-01-01T00:00:00Z\n \n \n\n\t\t\n \t\t \n \n \n \n\t\t\tatmosphere\n \n \n \n\n \n\t\t\t\t\n \n \n\t\t\n\t\t \n\t\t \n\t\t 101022\n\t\t\tPorvoo Kalbådagrund\n\t\t\t-16000007\n\t\t\t2987\n\t\t\t\n\t\t\t\n\t\t\t\n\t\t\tPorvoo\n\t\t\t\n\t\t \n\t\t\n \t \n \n \n\t\t\t \n Porvoo Kalbådagrund\n 59.98518 25.59855 \n \n \n \n \n \n\t\t \n \n \n \n 2014-01-01T00:00:00Z\n\t\t\t\t 2.7\n \n \n \n \n\n \n \n\t \n \n\n\t\t \n \n 2014-01-01T00:00:00Z\n 2014-01-01T00:00:00Z\n \n \n \n \n 2014-01-01T00:00:00Z\n \n \n\n\t\t\n \t\t \n \n \n \n\t\t\tatmosphere\n \n \n \n\n \n\t\t\t\t\n \n \n\t\t\n\t\t \n\t\t \n\t\t 101023\n\t\t\tPorvoo Emäsalo\n\t\t\t-16000110\n\t\t\t2991\n\t\t\t\n\t\t\t\n\t\t\t\n\t\t\tPorvoo\n\t\t\t\n\t\t \n\t\t\n \t \n \n \n\t\t\t \n Porvoo Emäsalo\n 60.20382 25.62546 \n \n \n \n \n \n\t\t \n \n \n \n 2014-01-01T00:00:00Z\n\t\t\t\t 2.9\n \n \n \n \n\n \n \n\t \n \n\n\t\t \n \n 2014-01-01T00:00:00Z\n 2014-01-01T00:00:00Z\n \n \n \n \n 2014-01-01T00:00:00Z\n \n \n\n\t\t\n \t\t \n \n \n \n\t\t\tatmosphere\n \n \n \n\n \n\t\t\t\t\n \n \n\t\t\n\t\t \n\t\t \n\t\t 101028\n\t\t\tPorvoo Harabacka\n\t\t\t-16000142\n\t\t\t2759\n\t\t\t\n\t\t\t\n\t\t\t\n\t\t\tPorvoo\n\t\t\t\n\t\t \n\t\t\n \t \n \n \n\t\t\t \n Porvoo Harabacka\n 60.39172 25.60730 \n \n \n \n \n \n\t\t \n \n \n \n 2014-01-01T00:00:00Z\n\t\t\t\t 3.1\n \n \n \n \n\n \n \n\t \n \n\n\t\t \n \n 2014-01-01T00:00:00Z\n 2014-01-01T00:00:00Z\n \n \n \n \n 2014-01-01T00:00:00Z\n \n \n\n\t\t\n \t\t \n \n \n \n\t\t\tatmosphere\n \n \n \n\n \n\t\t\t\t\n \n \n\t\t\n\t\t \n\t\t \n\t\t 101039\n\t\t\tLoviisa Orrengrund\n\t\t\t-16000050\n\t\t\t2992\n\t\t\t\n\t\t\t\n\t\t\t\n\t\t\tLoviisa\n\t\t\t\n\t\t \n\t\t\n \t \n \n \n\t\t\t \n Loviisa Orrengrund\n 60.27488 26.44457 \n \n \n \n \n \n\t\t \n \n \n \n 2014-01-01T00:00:00Z\n\t\t\t\t 3.0\n \n \n \n \n\n \n \n\t \n \n\n\t\t \n \n 2014-01-01T00:00:00Z\n 2014-01-01T00:00:00Z\n \n \n \n \n 2014-01-01T00:00:00Z\n \n \n\n\t\t\n \t\t \n \n \n \n\t\t\tatmosphere\n \n \n \n\n \n\t\t\t\t\n \n \n\t\t\n\t\t \n\t\t \n\t\t 101128\n\t\t\tSomero Salkola\n\t\t\t-16011860\n\t\t\t2949\n\t\t\t\n\t\t\t\n\t\t\t\n\t\t\tSomero\n\t\t\t\n\t\t \n\t\t\n \t \n \n \n\t\t\t \n Somero Salkola\n 60.64668 23.80559 \n \n \n \n \n \n\t\t \n \n \n \n 2014-01-01T00:00:00Z\n\t\t\t\t 2.4\n \n \n \n \n\n \n \n\t \n \n\n\t\t \n \n 2014-01-01T00:00:00Z\n 2014-01-01T00:00:00Z\n \n \n \n \n 2014-01-01T00:00:00Z\n \n \n\n\t\t\n \t\t \n \n \n \n\t\t\tatmosphere\n \n \n \n\n \n\t\t\t\t\n \n \n\t\t\n\t\t \n\t\t \n\t\t 101130\n\t\t\tHyvinkää Hyvinkäänkylä\n\t\t\t-16000152\n\t\t\t2829\n\t\t\t\n\t\t\t\n\t\t\t\n\t\t\tHyvinkää\n\t\t\t\n\t\t \n\t\t\n \t \n \n \n\t\t\t \n Hyvinkää Hyvinkäänkylä\n 60.59589 24.80300 \n \n \n \n \n \n\t\t \n \n \n \n 2014-01-01T00:00:00Z\n\t\t\t\t 3.2\n \n \n \n \n\n \n \n\t \n \n\n\t\t \n \n 2014-01-01T00:00:00Z\n 2014-01-01T00:00:00Z\n \n \n \n \n 2014-01-01T00:00:00Z\n \n \n\n\t\t\n \t\t \n \n \n \n\t\t\tatmosphere\n \n \n \n\n \n\t\t\t\t\n \n \n\t\t\n\t\t \n\t\t \n\t\t 101149\n\t\t\tNurmijärvi Röykkä\n\t\t\t-16000151\n\t\t\t2983\n\t\t\t\n\t\t\t\n\t\t\t\n\t\t\tNurmijärvi\n\t\t\t\n\t\t \n\t\t\n \t \n \n \n\t\t\t \n Nurmijärvi Röykkä\n 60.50878 24.65373 \n \n \n \n \n \n\t\t \n \n \n \n 2014-01-01T00:00:00Z\n\t\t\t\t 2.8\n \n \n \n \n\n \n \n\t \n \n\n\t\t \n \n 2014-01-01T00:00:00Z\n 2014-01-01T00:00:00Z\n \n \n \n \n 2014-01-01T00:00:00Z\n \n \n\n\t\t\n \t\t \n \n \n \n\t\t\tatmosphere\n \n \n \n\n \n\t\t\t\t\n \n \n\t\t\n\t\t \n\t\t \n\t\t 151028\n\t\t\tHelsinki Vuosaari satama\n\t\t\t-16011877\n\t\t\t5720\n\t\t\t\n\t\t\t\n\t\t\t\n\t\t\tHelsinki\n\t\t\t\n\t\t \n\t\t\n \t \n \n \n\t\t\t \n Helsinki Vuosaari satama\n 60.20867 25.19590 \n \n \n \n \n \n\t\t \n \n \n \n 2014-01-01T00:00:00Z\n\t\t\t\t 3.3\n \n \n \n \n\n \n \n\t \n \n\n\t\t \n \n 2014-01-01T00:00:00Z\n 2014-01-01T00:00:00Z\n \n \n \n \n 2014-01-01T00:00:00Z\n \n \n\n\t\t\n \t\t \n \n \n \n\t\t\tatmosphere\n \n \n \n\n \n\t\t\t\t\n \n \n\t\t\n\t\t \n\t\t \n\t\t 874863\n\t\t\tEspoo Tapiola\n\t\t\t-874863\n\t\t\t2985\n\t\t\t\n\t\t\t\n\t\t\t\n\t\t\tEspoo\n\t\t\t\n\t\t \n\t\t\n \t \n \n \n\t\t\t \n Espoo Tapiola\n 60.17802 24.78732 \n \n \n \n \n \n\t\t \n \n \n \n 2014-01-01T00:00:00Z\n\t\t\t\t 3.4\n \n \n \n \n\n \n \n\n"
},
{
"path": "inst/include/sf.h",
"content": "// Generated by using Rcpp::compileAttributes() -> do not edit by hand\n// Generator token: 10BE3573-1514-4C36-9D1C-5A225CD40393\n\n#ifndef RCPP_sf_H_GEN_\n#define RCPP_sf_H_GEN_\n\n#include \"sf_RcppExports.h\"\n\n#endif // RCPP_sf_H_GEN_\n"
},
{
"path": "inst/include/sf_RcppExports.h",
"content": "// Generated by using Rcpp::compileAttributes() -> do not edit by hand\n// Generator token: 10BE3573-1514-4C36-9D1C-5A225CD40393\n\n#ifndef RCPP_sf_RCPPEXPORTS_H_GEN_\n#define RCPP_sf_RCPPEXPORTS_H_GEN_\n\n#include \n\nnamespace sf {\n\n using namespace Rcpp;\n\n namespace {\n void validateSignature(const char* sig) {\n Rcpp::Function require = Rcpp::Environment::base_env()[\"require\"];\n require(\"sf\", Rcpp::Named(\"quietly\") = true);\n typedef int(*Ptr_validate)(const char*);\n static Ptr_validate p_validate = (Ptr_validate)\n R_GetCCallable(\"sf\", \"_sf_RcppExport_validate\");\n if (!p_validate(sig)) {\n throw Rcpp::function_not_exported(\n \"C++ function with signature '\" + std::string(sig) + \"' not found in sf\");\n }\n }\n }\n\n inline Rcpp::List CPL_read_wkb(Rcpp::List wkb_list, bool EWKB = false, bool spatialite = false) {\n typedef SEXP(*Ptr_CPL_read_wkb)(SEXP,SEXP,SEXP);\n static Ptr_CPL_read_wkb p_CPL_read_wkb = NULL;\n if (p_CPL_read_wkb == NULL) {\n validateSignature(\"Rcpp::List(*CPL_read_wkb)(Rcpp::List,bool,bool)\");\n p_CPL_read_wkb = (Ptr_CPL_read_wkb)R_GetCCallable(\"sf\", \"_sf_CPL_read_wkb\");\n }\n RObject rcpp_result_gen;\n {\n rcpp_result_gen = p_CPL_read_wkb(Shield(Rcpp::wrap(wkb_list)), Shield(Rcpp::wrap(EWKB)), Shield(Rcpp::wrap(spatialite)));\n }\n if (rcpp_result_gen.inherits(\"interrupted-error\"))\n throw Rcpp::internal::InterruptedException();\n if (Rcpp::internal::isLongjumpSentinel(rcpp_result_gen))\n throw Rcpp::LongjumpException(rcpp_result_gen);\n if (rcpp_result_gen.inherits(\"try-error\"))\n throw Rcpp::exception(Rcpp::as(rcpp_result_gen).c_str());\n return Rcpp::as(rcpp_result_gen);\n }\n\n inline Rcpp::List CPL_write_wkb(Rcpp::List sfc, bool EWKB = false) {\n typedef SEXP(*Ptr_CPL_write_wkb)(SEXP,SEXP);\n static Ptr_CPL_write_wkb p_CPL_write_wkb = NULL;\n if (p_CPL_write_wkb == NULL) {\n validateSignature(\"Rcpp::List(*CPL_write_wkb)(Rcpp::List,bool)\");\n p_CPL_write_wkb = (Ptr_CPL_write_wkb)R_GetCCallable(\"sf\", \"_sf_CPL_write_wkb\");\n }\n RObject rcpp_result_gen;\n {\n rcpp_result_gen = p_CPL_write_wkb(Shield(Rcpp::wrap(sfc)), Shield(Rcpp::wrap(EWKB)));\n }\n if (rcpp_result_gen.inherits(\"interrupted-error\"))\n throw Rcpp::internal::InterruptedException();\n if (Rcpp::internal::isLongjumpSentinel(rcpp_result_gen))\n throw Rcpp::LongjumpException(rcpp_result_gen);\n if (rcpp_result_gen.inherits(\"try-error\"))\n throw Rcpp::exception(Rcpp::as(rcpp_result_gen).c_str());\n return Rcpp::as(rcpp_result_gen);\n }\n\n}\n\n#endif // RCPP_sf_RCPPEXPORTS_H_GEN_\n"
},
{
"path": "inst/nc/zarr.py",
"content": "# from https://zarr.readthedocs.io/en/v1.1.0/tutorial.html\nimport zarr\nz = zarr.zeros((100, 100), chunks=(50, 50), dtype='i4')\nz[:] = 1\n#zarr.core.Array((10000, 10000), int32, chunks=(1000, 1000), order=C)\n# compression: blosc; compression_opts: {'clevel': 5, 'cname': 'lz4', 'shuffle': 1}\n# nbytes: 381.5M; nbytes_stored: 313; ratio: 1277955.3; initialized: 0/100\n# store: builtins.dict\n\n# Example: persist in-memory zarr array `z` to disk\n#from zarr import DirectoryStore, open as zopen\nfrom zarr import DirectoryStore, open as zopen\n\nstore = DirectoryStore('ones.zarr') # directory on disk\ndst = zopen(store, mode='w',\n shape=z.shape, chunks=z.chunks,\n dtype=z.dtype, compressor=getattr(z, \"compressor\", None),\n order=getattr(z, \"order\", \"C\"))\ndst[:] = z[:] # copy data\ndst.attrs.update(z.attrs) # copy metadata (if any)\n\n# reopen later:\nz_on_disk = zopen(store, mode='r')\nz_on_disk\n"
},
{
"path": "inst/osm/overpass.osm",
"content": "\n\nThe data included in this document is from www.openstreetmap.org. The data is made available under ODbL.\n\n\n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n\n\n"
},
{
"path": "inst/shape/olinda1.prj",
"content": "GEOGCS[\"GRS 1980(IUGG, 1980)\",DATUM[\"D_unknown\",SPHEROID[\"GRS80\",6378137,298.257222101]],PRIMEM[\"Greenwich\",0],UNIT[\"Degree\",0.017453292519943295]]"
},
{
"path": "man/Ops.Rd",
"content": "% Generated by roxygen2: do not edit by hand\n% Please edit documentation in R/arith.R\n\\name{Ops}\n\\alias{Ops}\n\\alias{Ops.sfg}\n\\alias{Ops.sfc}\n\\title{Arithmetic operators for simple feature geometries}\n\\usage{\n\\method{Ops}{sfg}(e1, e2)\n\n\\method{Ops}{sfc}(e1, e2)\n}\n\\arguments{\n\\item{e1}{object of class \\code{sfg} or \\code{sfc}}\n\n\\item{e2}{numeric, or object of class \\code{sfg}; in case \\code{e1} is of class \\code{sfc} also an object of class \\code{sfc} is allowed}\n}\n\\value{\nobject of class \\code{sfg}\n}\n\\description{\nArithmetic operators for simple feature geometries\n}\n\\details{\nin case \\code{e2} is numeric, +, -, *, /, \\%\\% and \\%/\\% add, subtract, multiply, divide, modulo, or integer-divide by \\code{e2}. In case \\code{e2} is an n x n matrix, * matrix-multiplies and / multiplies by its inverse. If \\code{e2} is an \\code{sfg} object, |, /, & and \\%/\\% result in the geometric union, difference, intersection and symmetric difference respectively, and \\code{==} and \\code{!=} return geometric (in)equality, using \\link{st_equals}. If \\code{e2} is an \\code{sfg} or \\code{sfc} object, for operations \\code{+} and \\code{-} it has to have \\code{POINT} geometries.\n\nIf \\code{e1} is of class \\code{sfc}, and \\code{e2} is a length 2 numeric, then it is considered a two-dimensional point (and if needed repeated as such) only for operations \\code{+} and \\code{-}, in other cases the individual numbers are repeated; see commented examples.\n\nIt has been reported (https://github.com/r-spatial/sf/issues/2067) that\ncertain ATLAS versions result in invalid polygons, where the final point\nin a ring is no longer equal to the first point. In that case, setting\nthe precisions with \\link{st_set_precision} may help.\n}\n\\examples{\nst_point(c(1,2,3)) + 4\nst_point(c(1,2,3)) * 3 + 4\nm = matrix(0, 2, 2)\ndiag(m) = c(1, 3)\n# affine:\nst_point(c(1,2)) * m + c(2,5)\n# world in 0-360 range:\nif (require(maps, quietly = TRUE)) {\n w = st_as_sf(map('world', plot = FALSE, fill = TRUE))\n w2 = (st_geometry(w) + c(360,90)) \\%\\% c(360) - c(0,90)\n w3 = st_wrap_dateline(st_set_crs(w2 - c(180,0), 4326)) + c(180,0)\n plot(st_set_crs(w3, 4326), axes = TRUE)\n}\n(mp <- st_point(c(1,2)) + st_point(c(3,4))) # MULTIPOINT (1 2, 3 4)\nmp - st_point(c(3,4)) # POINT (1 2)\nopar = par(mfrow = c(2,2), mar = c(0, 0, 1, 0))\na = st_buffer(st_point(c(0,0)), 2)\nb = a + c(2, 0)\np = function(m) { plot(c(a,b)); plot(eval(parse(text=m)), col=grey(.9), add = TRUE); title(m) }\no = lapply(c('a | b', 'a / b', 'a & b', 'a \\%/\\% b'), p)\npar(opar)\nsfc = st_sfc(st_point(0:1), st_point(2:3))\nsfc + c(2,3) # added to EACH geometry\nsfc * c(2,3) # first geometry multiplied by 2, second by 3\nnc = st_transform(st_read(system.file(\"gpkg/nc.gpkg\", package=\"sf\")), 32119) # nc state plane, m\nb = st_buffer(st_centroid(st_union(nc)), units::set_units(50, km)) # shoot a hole in nc:\nplot(st_geometry(nc) / b, col = grey(.9))\n}\n"
},
{
"path": "man/aggregate.sf.Rd",
"content": "% Generated by roxygen2: do not edit by hand\n% Please edit documentation in R/aggregate.R\n\\name{aggregate.sf}\n\\alias{aggregate.sf}\n\\alias{aggregate}\n\\title{aggregate an \\code{sf} object}\n\\usage{\n\\method{aggregate}{sf}(\n x,\n by,\n FUN,\n ...,\n do_union = TRUE,\n simplify = TRUE,\n join = st_intersects\n)\n}\n\\arguments{\n\\item{x}{object of class \\link{sf}}\n\n\\item{by}{either a list of grouping vectors with length equal to \\code{nrow(x)} (see \\link[stats]{aggregate}), or an object of class \\code{sf} or \\code{sfc} with geometries that are used to generate groupings, using the binary predicate specified by the argument \\code{join}}\n\n\\item{FUN}{function passed on to \\link[stats]{aggregate}, in case \\code{ids} was specified and attributes need to be grouped}\n\n\\item{...}{arguments passed on to \\code{FUN}}\n\n\\item{do_union}{logical; should grouped geometries be unioned using \\link{st_union}? See details.}\n\n\\item{simplify}{logical; see \\link[stats]{aggregate}}\n\n\\item{join}{logical spatial predicate function to use if \\code{by} is a simple features object or geometry; see \\link{st_join}}\n}\n\\value{\nan \\code{sf} object with aggregated attributes and geometries; additional grouping variables having the names of \\code{names(ids)} or are named \\code{Group.i} for \\code{ids[[i]]}; see \\link[stats]{aggregate}.\n}\n\\description{\naggregate an \\code{sf} object, possibly union-ing geometries\n}\n\\details{\nIn case \\code{do_union} is \\code{FALSE}, \\code{aggregate} will simply combine geometries using \\link{c.sfg}. When polygons sharing a boundary are combined, this leads to geometries that are invalid; see \\url{https://github.com/r-spatial/sf/issues/681}.\n}\n\\note{\nDoes not work using the formula notation involving \\code{~} defined in \\link[stats]{aggregate}.\n}\n\\examples{\nm1 = cbind(c(0, 0, 1, 0), c(0, 1, 1, 0))\nm2 = cbind(c(0, 1, 1, 0), c(0, 0, 1, 0))\npol = st_sfc(st_polygon(list(m1)), st_polygon(list(m2)))\nset.seed(1985)\nd = data.frame(matrix(runif(15), ncol = 3))\np = st_as_sf(x = d, coords = 1:2)\nplot(pol)\nplot(p, add = TRUE)\n(p_ag1 = aggregate(p, pol, mean))\nplot(p_ag1) # geometry same as pol\n# works when x overlaps multiple objects in 'by':\np_buff = st_buffer(p, 0.2)\nplot(p_buff, add = TRUE)\n(p_ag2 = aggregate(p_buff, pol, mean)) # increased mean of second\n# with non-matching features\nm3 = cbind(c(0, 0, -0.1, 0), c(0, 0.1, 0.1, 0))\npol = st_sfc(st_polygon(list(m3)), st_polygon(list(m1)), st_polygon(list(m2)))\n(p_ag3 = aggregate(p, pol, mean))\nplot(p_ag3)\n# In case we need to pass an argument to the join function:\n(p_ag4 = aggregate(p, pol, mean, \n join = function(x, y) st_is_within_distance(x, y, dist = 0.3)))\n}\n"
},
{
"path": "man/bind.Rd",
"content": "% Generated by roxygen2: do not edit by hand\n% Please edit documentation in R/bind.R\n\\name{bind}\n\\alias{bind}\n\\alias{rbind.sf}\n\\alias{cbind.sf}\n\\alias{st_bind_cols}\n\\title{Bind rows (features) of sf objects}\n\\usage{\n\\method{rbind}{sf}(..., deparse.level = 1)\n\n\\method{cbind}{sf}(..., deparse.level = 1, sf_column_name = NULL)\n\nst_bind_cols(...)\n}\n\\arguments{\n\\item{...}{objects to bind; note that for the rbind and cbind methods, all objects have to be of class \\code{sf}; see \\link{dotsMethods}}\n\n\\item{deparse.level}{integer; see \\link{rbind}}\n\n\\item{sf_column_name}{character; specifies active geometry; passed on to \\link{st_sf}}\n}\n\\value{\n\\code{cbind} called with multiple \\code{sf} objects warns about multiple geometry columns present when the geometry column to use is not specified by using argument \\code{sf_column_name}; see also \\link{st_sf}.\n}\n\\description{\nBind rows (features) of sf objects\n\nBind columns (variables) of sf objects\n}\n\\details{\nboth \\code{rbind} and \\code{cbind} have non-standard method dispatch (see \\link[base]{cbind}): the \\code{rbind} or \\code{cbind} method for \\code{sf} objects is only called when all arguments to be binded are of class \\code{sf}.\n\nIf you need to \\code{cbind} e.g. a \\code{data.frame} to an \\code{sf}, use \\link{data.frame} directly and use \\link{st_sf} on its result, or use \\link[dplyr:bind]{bind_cols}; see examples.\n\n\\code{st_bind_cols} is deprecated; use \\code{cbind} instead.\n}\n\\examples{\ncrs = st_crs(3857)\na = st_sf(a=1, geom = st_sfc(st_point(0:1)), crs = crs)\nb = st_sf(a=1, geom = st_sfc(st_linestring(matrix(1:4,2))), crs = crs)\nc = st_sf(a=4, geom = st_sfc(st_multilinestring(list(matrix(1:4,2)))), crs = crs)\nrbind(a,b,c)\nrbind(a,b)\nrbind(a,b)\nrbind(b,c)\ncbind(a,b,c) # warns\nif (require(dplyr, quietly = TRUE))\n dplyr::bind_cols(a,b)\nc = st_sf(a=4, geomc = st_sfc(st_multilinestring(list(matrix(1:4,2)))), crs = crs)\ncbind(a,b,c, sf_column_name = \"geomc\")\ndf = data.frame(x=3)\nst_sf(data.frame(c, df))\nif (require(dplyr, quietly = TRUE))\n dplyr::bind_cols(c, df)\n}\n"
},
{
"path": "man/coerce-methods.Rd",
"content": "% Generated by roxygen2: do not edit by hand\n% Please edit documentation in R/sp.R\n\\name{as}\n\\alias{as}\n\\alias{Spatial}\n\\alias{sf-method}\n\\alias{coerce}\n\\alias{sfc-method}\n\\alias{Spatial-method}\n\\alias{as_Spatial}\n\\alias{crs}\n\\alias{CRS-method}\n\\title{Methods to coerce simple features to \\verb{Spatial*} and \\code{Spatial*DataFrame} objects}\n\\usage{\nas_Spatial(from, cast = TRUE, IDs = paste0(\"ID\", seq_along(from)))\n}\n\\arguments{\n\\item{from}{object of class \\code{sf}, \\code{sfc_POINT}, \\code{sfc_MULTIPOINT}, \\code{sfc_LINESTRING},\n\\code{sfc_MULTILINESTRING}, \\code{sfc_POLYGON}, or \\code{sfc_MULTIPOLYGON}.}\n\n\\item{cast}{logical; if \\code{TRUE}, \\code{\\link[=st_cast]{st_cast()}} \\code{from} before converting, so that e.g.\n\\code{GEOMETRY} objects with a mix of \\code{POLYGON} and \\code{MULTIPOLYGON} are cast to \\code{MULTIPOLYGON}.}\n\n\\item{IDs}{character vector with IDs for the \\verb{Spatial*} geometries}\n}\n\\value{\ngeometry-only object deriving from \\code{Spatial}, of the appropriate class\n}\n\\description{\n\\code{\\link[=as_Spatial]{as_Spatial()}} allows to convert \\code{sf} and \\code{sfc} to \\code{Spatial*DataFrame} and\n\\verb{Spatial*} for \\code{sp} compatibility. You can also use \\code{as(x, \"Spatial\")} To transform\n\\code{sp} objects to \\code{sf} and \\code{sfc} with \\code{as(x, \"sf\")}.\n}\n\\details{\nPackage \\code{sp} supports three dimensions for \\code{POINT} and \\code{MULTIPOINT} (\\verb{SpatialPoint*}).\nOther geometries must be two-dimensional (\\code{XY}). Dimensions can be dropped using\n\\code{\\link[=st_zm]{st_zm()}} with \\code{what = \"M\"} or \\code{what = \"ZM\"}.\n\nFor converting simple features (i.e., \\code{sf} objects) to their \\code{Spatial} counterpart, use \\code{as(obj, \"Spatial\")}\n}\n\\examples{\nnc <- st_read(system.file(\"shape/nc.shp\", package=\"sf\"))\nif (require(sp, quietly = TRUE)) {\n# convert to SpatialPolygonsDataFrame\nspdf <- as_Spatial(nc)\n# identical to\nspdf <- as(nc, \"Spatial\")\n# convert to SpatialPolygons\nas(st_geometry(nc), \"Spatial\")\n# back to sf\nas(spdf, \"sf\")\n}\n}\n"
},
{
"path": "man/dbDataType.Rd",
"content": "% Generated by roxygen2: do not edit by hand\n% Please edit documentation in R/db.R\n\\name{dbDataType,PostgreSQLConnection,sf-method}\n\\alias{dbDataType,PostgreSQLConnection,sf-method}\n\\alias{dbDataType,DBIObject,sf-method}\n\\title{Determine database type for R vector}\n\\usage{\n\\S4method{dbDataType}{PostgreSQLConnection,sf}(dbObj, obj)\n\n\\S4method{dbDataType}{DBIObject,sf}(dbObj, obj)\n}\n\\arguments{\n\\item{dbObj}{DBIObject driver or connection.}\n\n\\item{obj}{Object to convert}\n}\n\\description{\nDetermine database type for R vector\n\nDetermine database type for R vector\n}\n"
},
{
"path": "man/dbWriteTable.Rd",
"content": "% Generated by roxygen2: do not edit by hand\n% Please edit documentation in R/db.R\n\\name{dbWriteTable,PostgreSQLConnection,character,sf-method}\n\\alias{dbWriteTable,PostgreSQLConnection,character,sf-method}\n\\alias{dbWriteTable,DBIObject,character,sf-method}\n\\title{Write \\code{sf} object to Database}\n\\usage{\n\\S4method{dbWriteTable}{PostgreSQLConnection,character,sf}(\n conn,\n name,\n value,\n ...,\n row.names = FALSE,\n overwrite = FALSE,\n append = FALSE,\n field.types = NULL,\n binary = TRUE\n)\n\n\\S4method{dbWriteTable}{DBIObject,character,sf}(\n conn,\n name,\n value,\n ...,\n row.names = FALSE,\n overwrite = FALSE,\n append = FALSE,\n field.types = NULL,\n binary = TRUE\n)\n}\n\\arguments{\n\\item{conn}{DBIObject}\n\n\\item{name}{\n character vector of names (table names, fields, keywords).\n}\n\n\\item{value}{\n a data.frame.\n}\n\n\\item{...}{\n placeholder for future use.\n}\n\n\\item{row.names}{Add a \\code{row.name} column, or a vector of length \\code{nrow(obj)}\ncontaining row.names; default \\code{FALSE}.}\n\n\\item{overwrite}{Will try to \\code{drop} table before writing; default \\code{FALSE}.}\n\n\\item{append}{Append rows to existing table; default \\code{FALSE}.}\n\n\\item{field.types}{default \\code{NULL}. Allows to override type conversion from R\nto PostgreSQL. See \\code{dbDataType()} for details.}\n\n\\item{binary}{Send geometries serialized as Well-Known Binary (WKB);\nif \\code{FALSE}, uses Well-Known Text (WKT). Defaults to \\code{TRUE} (WKB).}\n}\n\\description{\nWrite \\code{sf} object to Database\n\nWrite \\code{sf} object to Database\n}\n"
},
{
"path": "man/db_drivers.Rd",
"content": "% Generated by roxygen2: do not edit by hand\n% Please edit documentation in R/read.R\n\\docType{data}\n\\name{db_drivers}\n\\alias{db_drivers}\n\\title{Drivers for which update should be \\code{TRUE} by default}\n\\usage{\ndb_drivers\n}\n\\description{\nDrivers for which update should be \\code{TRUE} by default\n}\n"
},
{
"path": "man/dot-stop_geos.Rd",
"content": "% Generated by roxygen2: do not edit by hand\n% Please edit documentation in R/geom-transformers.R\n\\name{.stop_geos}\n\\alias{.stop_geos}\n\\title{Internal functions}\n\\usage{\n.stop_geos(msg)\n}\n\\arguments{\n\\item{msg}{error message}\n}\n\\description{\nInternal functions\n}\n\\keyword{internal}\n"
},
{
"path": "man/extension_map.Rd",
"content": "% Generated by roxygen2: do not edit by hand\n% Please edit documentation in R/read.R\n\\docType{data}\n\\name{extension_map}\n\\alias{extension_map}\n\\title{Map extension to driver}\n\\usage{\nextension_map\n}\n\\description{\nMap extension to driver\n}\n"
},
{
"path": "man/gdal.Rd",
"content": "% Generated by roxygen2: do not edit by hand\n% Please edit documentation in R/stars.R\n\\name{gdal}\n\\alias{gdal}\n\\alias{gdal_read}\n\\alias{gdal_write}\n\\alias{gdal_inv_geotransform}\n\\alias{gdal_crs}\n\\alias{gdal_metadata}\n\\alias{gdal_subdatasets}\n\\alias{gdal_polygonize}\n\\alias{gdal_rasterize}\n\\alias{gdal_extract}\n\\alias{gdal_read_mdim}\n\\alias{gdal_write_mdim}\n\\alias{gdal_create}\n\\title{functions to interact with gdal not meant to be called directly by users (but e.g. by stars::read_stars)}\n\\usage{\ngdal_read(\n x,\n ...,\n options = character(0),\n driver = character(0),\n read_data = TRUE,\n NA_value = NA_real_,\n RasterIO_parameters = list()\n)\n\ngdal_write(\n x,\n ...,\n file,\n driver = \"GTiff\",\n options = character(0),\n type = \"Float32\",\n NA_value = NA_real_,\n geotransform,\n update = FALSE,\n scale_offset = c(1, 0)\n)\n\ngdal_inv_geotransform(gt)\n\ngdal_crs(file, options = character(0))\n\ngdal_metadata(\n file,\n domain_item = character(0),\n options = character(0),\n parse = TRUE\n)\n\ngdal_subdatasets(file, options = character(0), name = TRUE)\n\ngdal_polygonize(\n x,\n mask = NULL,\n file = tempfile(),\n driver = \"GTiff\",\n use_integer = TRUE,\n geotransform,\n breaks = classInt::classIntervals(na.omit(as.vector(x[[1]])))$brks,\n use_contours = FALSE,\n contour_lines = FALSE,\n connect8 = FALSE,\n ...\n)\n\ngdal_rasterize(sf, x, gt, file, driver = \"GTiff\", options = character())\n\ngdal_extract(\n f,\n pts,\n resampling = c(\"nearest\", \"bilinear\", \"cubic\", \"cubicspline\")\n)\n\ngdal_read_mdim(\n file,\n array_name = character(0),\n options = character(0),\n offset = integer(0),\n count = integer(0),\n step = integer(0),\n proxy = FALSE,\n debug = FALSE\n)\n\ngdal_write_mdim(\n file,\n driver,\n dimx,\n cdl,\n wkt,\n xy,\n ...,\n root_group_options = character(0),\n options = character(0),\n as_float = TRUE\n)\n\ngdal_create(f, nxy, values, crs, xlim, ylim)\n}\n\\arguments{\n\\item{x}{character vector, possibly of length larger than 1 when more than one raster is read}\n\n\\item{...}{ignored}\n\n\\item{options}{character; driver specific options regarding reading or creating the dataset}\n\n\\item{driver}{character; driver short name; when empty vector, driver is auto-detected.}\n\n\\item{read_data}{logical; if \\code{FALSE}, only the imagery metadata is returned}\n\n\\item{NA_value}{(double) non-NA value to use for missing values; if \\code{NA}, when writing missing values are not specially flagged in output dataset, when reading the default (dataset) missing values are used (if present / set).}\n\n\\item{RasterIO_parameters}{list with named parameters to GDAL's RasterIO; see the stars::read_stars documentation.}\n\n\\item{file}{file name}\n\n\\item{type}{gdal write type}\n\n\\item{geotransform}{length 6 numeric vector with GDAL geotransform parameters.}\n\n\\item{update}{logical; \\code{TRUE} if in an existing raster file pixel values shall be updated.}\n\n\\item{scale_offset}{length 2 numeric; contains scale and offset values}\n\n\\item{gt}{double vector of length 6}\n\n\\item{domain_item}{character vector of length 0, 1 (with domain), or 2 (with domain and item); use \\code{\"\"} for the default domain, use \\code{NA_character_} to query the domain names.}\n\n\\item{parse}{logical; should metadata be parsed into a named list (\\code{TRUE}) or returned as character data?}\n\n\\item{name}{logical; retrieve name of subdataset? If \\code{FALSE}, retrieve description}\n\n\\item{mask}{stars object with NA mask (0 where NA), or NULL}\n\n\\item{use_integer}{boolean; if \\code{TRUE}, raster values are read as (and rounded to) unsigned 32-bit integers values; if \\code{FALSE} they are read as 32-bit floating points numbers. The former is supposedly faster.}\n\n\\item{breaks}{numeric vector with break values for contour polygons (or lines)}\n\n\\item{use_contours}{logical;}\n\n\\item{contour_lines}{logical;}\n\n\\item{connect8}{logical; if \\code{TRUE} use 8 connection algorithm, rather than 4}\n\n\\item{sf}{object of class \\code{sf}}\n\n\\item{f}{character; file name}\n\n\\item{pts}{points matrix}\n\n\\item{resampling}{character; resampling method; for method cubic or cubicspline,\n\\code{stars_proxy} objects should be used and GDAL should have version >= 3.10.0}\n\n\\item{array_name}{array name}\n\n\\item{offset}{offset (pixels)}\n\n\\item{count}{number of pixels to read}\n\n\\item{step}{step size (pixels)}\n\n\\item{proxy}{logical; return proxy object?}\n\n\\item{debug}{logical; print debug messages?}\n\n\\item{dimx}{integer named vector with dimensions of object}\n\n\\item{cdl}{list with variables, each having a named dim attribute}\n\n\\item{wkt}{character; WKT of crs}\n\n\\item{xy}{character; names of the spatial x and y dimension}\n\n\\item{root_group_options}{character; driver specific options regarding the creation of the root group}\n\n\\item{as_float}{logical; when \\code{TRUE} write 4-byte floating point numbers, when \\code{FALSE} write 8-byte doubles.}\n\n\\item{nxy}{integer vector of length 2}\n\n\\item{values}{fill value}\n\n\\item{crs}{object of class \\code{crs}}\n\n\\item{xlim}{numeric}\n\n\\item{ylim}{numeric}\n}\n\\value{\nobject of class \\code{crs}, see \\link{st_crs}.\n\nnamed list with metadata items\n\n\\code{gdal_subdatasets} returns a zero-length list if \\code{file} does not have subdatasets, and else a named list with subdatasets.\n}\n\\description{\nfunctions to interact with gdal not meant to be called directly by users (but e.g. by stars::read_stars)\n}\n\\details{\nThese functions are exported for the single purpose of being used by package stars, they are not meant to be used directly and may change or disappear without prior notice or deprecation warnings.\n\ngdal_inv_geotransform returns the inverse geotransform\n\ngdal_crs reads coordinate reference system from GDAL data set\n\nget_metadata gets metadata of a raster layer\n\ngdal_subdatasets returns the subdatasets of a gdal dataset\n}\n\\examples{\n\\dontrun{\n f = system.file(\"tif/L7_ETMs.tif\", package=\"stars\")\n f = system.file(\"nc/avhrr-only-v2.19810901.nc\", package = \"stars\")\n gdal_metadata(f)\n gdal_metadata(f, NA_character_)\n try(gdal_metadata(f, \"wrongDomain\"))\n gdal_metadata(f, c(\"\", \"AREA_OR_POINT\"))\n}\n}\n\\keyword{internal}\n"
},
{
"path": "man/gdal_addo.Rd",
"content": "% Generated by roxygen2: do not edit by hand\n% Please edit documentation in R/stars.R\n\\name{gdal_addo}\n\\alias{gdal_addo}\n\\title{Add or remove overviews to/from a raster image}\n\\usage{\ngdal_addo(\n file,\n overviews = c(2, 4, 8, 16),\n method = \"NEAREST\",\n layers = integer(0),\n options = character(0),\n config_options = character(0),\n clean = FALSE,\n read_only = FALSE\n)\n}\n\\arguments{\n\\item{file}{character; file name}\n\n\\item{overviews}{integer; overview levels}\n\n\\item{method}{character; method to create overview; one of: nearest, average, rms, gauss, cubic, cubicspline, lanczos, average_mp, average_magphase, mode}\n\n\\item{layers}{integer; layers to create overviews for (default: all)}\n\n\\item{options}{character; dataset opening options}\n\n\\item{config_options}{named character vector with GDAL config options, like \\code{c(option1=value1, option2=value2)}}\n\n\\item{clean}{logical; if \\code{TRUE} only remove overviews, do not add}\n\n\\item{read_only}{logical; if \\code{TRUE}, add overviews to another file with extension \\code{.ovr} added to \\code{file}}\n}\n\\value{\n\\code{TRUE}, invisibly, on success\n}\n\\description{\nadd or remove overviews to/from a raster image\n}\n\\seealso{\n\\link{gdal_utils} for access to other gdal utilities that have a C API\n}\n"
},
{
"path": "man/gdal_compressors.Rd",
"content": "% Generated by roxygen2: do not edit by hand\n% Please edit documentation in R/stars.R\n\\name{gdal_compressors}\n\\alias{gdal_compressors}\n\\title{List GDAL compressors and decompressors}\n\\usage{\ngdal_compressors()\n}\n\\value{\nnamed list with two character vectors, containing compressors and decompressors\n}\n\\description{\nList GDAL compressors and decompressors\n}\n"
},
{
"path": "man/gdal_utils.Rd",
"content": "% Generated by roxygen2: do not edit by hand\n% Please edit documentation in R/gdal_utils.R\n\\name{gdal_utils}\n\\alias{gdal_utils}\n\\title{Native interface to gdal utils}\n\\usage{\ngdal_utils(\n util = \"info\",\n source,\n destination,\n options = character(0),\n quiet = !(util \\%in\\% c(\"info\", \"gdalinfo\", \"ogrinfo\", \"vectorinfo\", \"mdiminfo\")) ||\n (\"-multi\" \\%in\\% options),\n processing = character(0),\n colorfilename = character(0),\n config_options = character(0),\n read_only = FALSE\n)\n}\n\\arguments{\n\\item{util}{character; one of \\code{info}, \\code{warp}, \\code{rasterize}, \\code{translate}, \\code{vectortranslate} (for ogr2ogr), \\code{buildvrt}, \\code{demprocessing}, \\code{nearblack}, \\code{grid}, \\code{mdiminfo} and \\code{mdimtranslate} (the last two requiring GDAL 3.1), \\code{ogrinfo} (requiring GDAL 3.7), \\code{footprint} (requiring GDAL 3.8)}\n\n\\item{source}{character; name of input layer(s); for \\code{warp}, \\code{buidvrt} or \\code{mdimtranslate} this can be more than one}\n\n\\item{destination}{character; name of output layer}\n\n\\item{options}{character; options for the utility}\n\n\\item{quiet}{logical; if \\code{TRUE}, suppress printing the output for \\code{info} and \\code{mdiminfo}, and suppress printing progress}\n\n\\item{processing}{character; processing options for \\code{demprocessing}}\n\n\\item{colorfilename}{character; name of color file for \\code{demprocessing} (mandatory if \\code{processing=\"color-relief\"})}\n\n\\item{config_options}{named character vector with GDAL config options, like \\code{c(option1=value1, option2=value2)}}\n\n\\item{read_only}{logical; only for \\code{ogrinfo}: if \\code{TRUE}, source is opened in read-only mode}\n}\n\\value{\n\\code{info} returns a character vector with the raster metadata; all other utils return (invisibly) a logical indicating success (i.e., \\code{TRUE}); in case of failure, an error is raised.\n}\n\\description{\nNative interface to gdal utils\n}\n\\examples{\n\nif (compareVersion(sf_extSoftVersion()[\"GDAL\"], \"2.1.0\") == 1) {\n# info utils can be used to list information about a raster\n# dataset. More info: https://gdal.org/programs/gdalinfo.html\nin_file <- system.file(\"tif/geomatrix.tif\", package = \"sf\")\ngdal_utils(\"info\", in_file, options = c(\"-mm\", \"-proj4\"))\n\n# vectortranslate utils can be used to convert simple features data between\n# file formats. More info: https://gdal.org/programs/ogr2ogr.html\nin_file <- system.file(\"shape/storms_xyz.shp\", package=\"sf\")\nout_file <- paste0(tempfile(), \".gpkg\")\ngdal_utils(\n util = \"vectortranslate\",\n source = in_file,\n destination = out_file, # output format must be specified for GDAL < 2.3\n options = c(\"-f\", \"GPKG\")\n)\n# The parameters can be specified as c(\"name\") or c(\"name\", \"value\"). The\n# vectortranslate utils can perform also various operations during the\n# conversion process. For example, we can reproject the features during the\n# translation.\ngdal_utils(\n util = \"vectortranslate\",\n source = in_file,\n destination = out_file,\n options = c(\n \"-f\", \"GPKG\", # output file format for GDAL < 2.3\n \"-s_srs\", \"EPSG:4326\", # input file SRS\n \"-t_srs\", \"EPSG:2264\", # output file SRS\n \"-overwrite\"\n )\n)\nst_read(out_file)\n# The parameter s_srs had to be specified because, in this case, the in_file\n# has no associated SRS.\nst_read(in_file)\n}\n}\n\\seealso{\n\\link{gdal_addo} for adding overlays to a raster file; \\link{st_layers} to query geometry type(s) and crs from layers in a (vector) data source\n}\n"
},
{
"path": "man/geos_binary_ops.Rd",
"content": "% Generated by roxygen2: do not edit by hand\n% Please edit documentation in R/geom-transformers.R\n\\name{geos_binary_ops}\n\\alias{geos_binary_ops}\n\\alias{st_intersection}\n\\alias{st_intersection.sfc}\n\\alias{st_intersection.sf}\n\\alias{st_difference}\n\\alias{st_difference.sfc}\n\\alias{st_sym_difference}\n\\alias{st_snap}\n\\title{Geometric operations on pairs of simple feature geometry sets}\n\\usage{\nst_intersection(x, y, ..., by_element = FALSE)\n\n\\method{st_intersection}{sfc}(x, y, ...)\n\n\\method{st_intersection}{sf}(x, y, ...)\n\nst_difference(x, y, ...)\n\n\\method{st_difference}{sfc}(x, y, ...)\n\nst_sym_difference(x, y, ...)\n\nst_snap(x, y, tolerance)\n}\n\\arguments{\n\\item{x}{object of class \\code{sf}, \\code{sfc} or \\code{sfg}}\n\n\\item{y}{object of class \\code{sf}, \\code{sfc} or \\code{sfg}}\n\n\\item{...}{arguments passed on to \\link[s2]{s2_options}}\n\n\\item{by_element}{logical; if \\code{TRUE}, return pair-wise computed geometries, rather than set-wise; can be used for all binary operations}\n\n\\item{tolerance}{tolerance values used for \\code{st_snap}; numeric value or object of class \\code{units}; may have tolerance values for each feature in \\code{x}}\n}\n\\value{\nThe intersection, difference or symmetric difference between two sets of geometries.\nThe returned object has the same class as that of the first argument (\\code{x}) with the non-empty geometries resulting from applying the operation to all geometry pairs in \\code{x} and \\code{y}. In case \\code{x} is of class \\code{sf}, the matching attributes of the original object(s) are added. The \\code{sfc} geometry list-column returned carries an attribute \\code{idx}, which is an \\code{n}-by-2 matrix with every row the index of the corresponding entries of \\code{x} and \\code{y}, respectively.\n}\n\\description{\nPerform geometric set operations with simple feature geometry collections\n}\n\\details{\nWhen using GEOS and not using s2, a spatial index is built on argument \\code{x}; see \\url{https://r-spatial.org/r/2017/06/22/spatial-index.html}. The reference for the STR tree algorithm is: Leutenegger, Scott T., Mario A. Lopez, and Jeffrey Edgington. \"STR: A simple and efficient algorithm for R-tree packing.\" Data Engineering, 1997. Proceedings. 13th international conference on. IEEE, 1997. For the pdf, search Google Scholar.\n\nWhen called with missing \\code{y}, the \\code{sfc} method for \\code{st_intersection} returns all non-empty intersections of the geometries of \\code{x}; an attribute \\code{idx} contains a list-column with the indexes of contributing geometries.\n\nwhen called with a missing \\code{y}, the \\code{sf} method for \\code{st_intersection} returns an \\code{sf} object with attributes taken from the contributing feature with lowest index; two fields are added: \\code{n.overlaps} with the number of overlapping features in \\code{x}, and a list-column \\code{origins} with indexes of all overlapping features.\n\nWhen \\code{st_difference} is called with a single argument,\noverlapping areas are erased from geometries that are indexed at greater\nnumbers in the argument to \\code{x}; geometries that are empty\nor contained fully inside geometries with higher priority are removed entirely.\nThe \\code{st_difference.sfc} method with a single argument returns an object with\nan \\code{\"idx\"} attribute with the original index for returned geometries.\n\n\\code{st_snap} snaps the vertices and segments of a geometry to another geometry's vertices. If \\code{y} contains more than one geometry, its geometries are merged into a collection before snapping to that collection.\n\n(from the GEOS docs:) \"A snap distance tolerance is used to control where snapping is performed. Snapping one geometry to another can improve robustness for overlay operations by eliminating nearly-coincident edges (which cause problems during noding and intersection calculation). Too much snapping can result in invalid topology being created, so the number and location of snapped vertices is decided using heuristics to determine when it is safe to snap. This can result in some potential snaps being omitted, however.\"\n}\n\\note{\nTo find whether pairs of simple feature geometries intersect, use\nthe function \\code{\\link{st_intersects}} instead of \\code{st_intersection}.\n\nWhen using GEOS and not using s2 polygons contain their boundary. When using s2 this is determined by the \\code{model} defaults of \\link[s2]{s2_options}, which can be overridden via the ... argument, e.g. \\code{model = \"closed\"} to force DE-9IM compliant behaviour of polygons (and reproduce GEOS results).\n}\n\\examples{\nset.seed(131)\nlibrary(sf)\nm = rbind(c(0,0), c(1,0), c(1,1), c(0,1), c(0,0))\np = st_polygon(list(m))\nn = 100\nl = vector(\"list\", n)\nfor (i in 1:n)\n l[[i]] = p + 10 * runif(2)\ns = st_sfc(l)\nplot(s, col = sf.colors(categorical = TRUE, alpha = .5))\ntitle(\"overlapping squares\")\nd = st_difference(s) # sequential differences: s1, s2-s1, s3-s2-s1, ...\nplot(d, col = sf.colors(categorical = TRUE, alpha = .5))\ntitle(\"non-overlapping differences\")\ni = st_intersection(s) # all intersections\nplot(i, col = sf.colors(categorical = TRUE, alpha = .5))\ntitle(\"non-overlapping intersections\")\nsummary(lengths(st_overlaps(s, s))) # includes self-counts!\nsummary(lengths(st_overlaps(d, d)))\nsummary(lengths(st_overlaps(i, i)))\nsf = st_sf(s)\ni = st_intersection(sf) # all intersections\nplot(i[\"n.overlaps\"])\nsummary(i$n.overlaps - lengths(i$origins))\n# A helper function that erases all of y from x:\nst_erase = function(x, y) st_difference(x, st_union(st_combine(y)))\npoly = st_polygon(list(cbind(c(0, 0, 1, 1, 0), c(0, 1, 1, 0, 0))))\nlines = st_multilinestring(list(\n cbind(c(0, 1), c(1, 1.05)),\n cbind(c(0, 1), c(0, -.05)),\n cbind(c(1, .95, 1), c(1.05, .5, -.05))\n))\nsnapped = st_snap(poly, lines, tolerance=.1)\nplot(snapped, col='red')\nplot(poly, border='green', add=TRUE)\nplot(lines, lwd=2, col='blue', add=TRUE)\n}\n\\seealso{\n\\link{st_union} for the union of simple features collections; \\link{intersect} and \\link{setdiff} for the base R set operations.\n}\n"
},
{
"path": "man/geos_binary_pred.Rd",
"content": "% Generated by roxygen2: do not edit by hand\n% Please edit documentation in R/geom-predicates.R\n\\name{geos_binary_pred}\n\\alias{geos_binary_pred}\n\\alias{st_intersects}\n\\alias{st_disjoint}\n\\alias{st_touches}\n\\alias{st_crosses}\n\\alias{st_within}\n\\alias{st_contains}\n\\alias{st_contains_properly}\n\\alias{st_overlaps}\n\\alias{st_equals}\n\\alias{st_covers}\n\\alias{st_covered_by}\n\\alias{st_equals_exact}\n\\alias{st_is_within_distance}\n\\title{Geometric binary predicates on pairs of simple feature geometry sets}\n\\usage{\nst_intersects(x, y, sparse = TRUE, ..., by_element = FALSE)\n\nst_disjoint(x, y = x, sparse = TRUE, prepared = TRUE, ...)\n\nst_touches(x, y, sparse = TRUE, prepared = TRUE, ...)\n\nst_crosses(x, y, sparse = TRUE, prepared = TRUE, ...)\n\nst_within(x, y, sparse = TRUE, prepared = TRUE, ...)\n\nst_contains(x, y, sparse = TRUE, prepared = TRUE, ..., model = \"open\")\n\nst_contains_properly(x, y, sparse = TRUE, prepared = TRUE, ...)\n\nst_overlaps(x, y, sparse = TRUE, prepared = TRUE, ...)\n\nst_equals(\n x,\n y,\n sparse = TRUE,\n prepared = FALSE,\n ...,\n retain_unique = FALSE,\n remove_self = FALSE\n)\n\nst_covers(x, y, sparse = TRUE, prepared = TRUE, ..., model = \"closed\")\n\nst_covered_by(x, y = x, sparse = TRUE, prepared = TRUE, ..., model = \"closed\")\n\nst_equals_exact(x, y, par, sparse = TRUE, prepared = FALSE, ...)\n\nst_is_within_distance(x, y = x, dist, sparse = TRUE, ..., remove_self = FALSE)\n}\n\\arguments{\n\\item{x}{object of class \\code{sf}, \\code{sfc} or \\code{sfg}}\n\n\\item{y}{object of class \\code{sf}, \\code{sfc} or \\code{sfg}; if missing, \\code{x} is used}\n\n\\item{sparse}{logical; should a sparse index list be returned (\\code{TRUE}) or a dense logical matrix? See below.}\n\n\\item{...}{\n Arguments passed on to \\code{\\link[s2:s2_options]{s2::s2_options}}\n \\describe{\n \\item{\\code{snap}}{Use \\code{s2_snap_identity()}, \\code{s2_snap_distance()}, \\code{s2_snap_level()},\nor \\code{s2_snap_precision()} to specify how or if coordinate rounding should\noccur.}\n \\item{\\code{snap_radius}}{As opposed to the snap function, which specifies\nthe maximum distance a vertex should move, the snap radius (in radians) sets\nthe minimum distance between vertices of the output that don't cause vertices\nto move more than the distance specified by the snap function. This can be used\nto simplify the result of a boolean operation. Use -1 to specify that any\nminimum distance is acceptable.}\n \\item{\\code{duplicate_edges}}{Use \\code{TRUE} to keep duplicate edges (e.g., duplicate\npoints).}\n \\item{\\code{edge_type}}{One of 'directed' (default) or 'undirected'.}\n \\item{\\code{validate}}{Use \\code{TRUE} to validate the result from the builder.}\n \\item{\\code{polyline_type}}{One of 'path' (default) or 'walk'. If 'walk',\npolylines that backtrack are preserved.}\n \\item{\\code{polyline_sibling_pairs}}{One of 'discard' (default) or 'keep'.}\n \\item{\\code{simplify_edge_chains}}{Use \\code{TRUE} to remove vertices that are within\n\\code{snap_radius} of the original vertex.}\n \\item{\\code{split_crossing_edges}}{Use \\code{TRUE} to split crossing polyline edges\nwhen creating geometries.}\n \\item{\\code{idempotent}}{Use \\code{FALSE} to apply snap even if snapping is not necessary\nto satisfy vertex constraints.}\n \\item{\\code{dimensions}}{A combination of 'point', 'polyline', and/or 'polygon'\nthat can used to constrain the output of \\code{\\link[s2:s2_rebuild]{s2_rebuild()}} or a\nboolean operation.}\n \\item{\\code{level}}{A value from 0 to 30 corresponding to the cell level\nat which snapping should occur.}\n \\item{\\code{precision}}{A number by which coordinates should be multiplied\nbefore being rounded. Rounded to the nearest exponent of 10.}\n \\item{\\code{distance}}{A distance (in radians) denoting the maximum\ndistance a vertex should move in the snapping process.}\n }}\n\n\\item{by_element}{logical; if \\code{TRUE}, return logical vector with x-y pair-wise predicate values}\n\n\\item{prepared}{logical; prepare geometry for \\code{x}, before looping over \\code{y}? See Details.}\n\n\\item{model}{character; polygon/polyline model; one of\n\"open\", \"semi-open\" or \"closed\"; see Details.}\n\n\\item{retain_unique}{logical; if \\code{TRUE} (and \\code{y} is missing) return only indexes of points larger than the current index; this can be used to select unique geometries, see examples. This argument can be used for all geometry predicates; see also \\link{distinct.sf} to find records where geometries AND attributes are distinct.}\n\n\\item{remove_self}{logical; if \\code{TRUE} (and \\code{y} is missing) return only indexes of geometries different from the current index; this can be used to omit self-intersections; see examples. This argument can be used for all geometry predicates}\n\n\\item{par}{numeric; parameter used for \"equals_exact\" (margin);}\n\n\\item{dist}{distance threshold; geometry indexes with distances smaller or equal to this value are returned; numeric value or units value having distance units.}\n}\n\\value{\nIf \\code{sparse=FALSE}, \\code{st_predicate} (with \\code{predicate} e.g. \"intersects\") returns a dense logical matrix with element \\code{i,j} equal to \\code{TRUE} when \\code{predicate(x[i], y[j])} (e.g., when geometry of feature i and j intersect); if \\code{sparse=TRUE}, an object of class \\code{\\link{sgbp}} is returned, which is a sparse list representation of the same matrix, with list element \\code{i} an integer vector with all indices \\code{j} for which \\code{predicate(x[i],y[j])} is \\code{TRUE} (and hence a zero-length integer vector if none of them is \\code{TRUE}). From the dense matrix, one can find out if one or more elements intersect by \\code{apply(mat, 1, any)}, and from the sparse list by \\code{lengths(lst) > 0}, see examples below. If \\code{by_element=TRUE}, return a vector of pair-wise predicate values.\n}\n\\description{\nGeometric binary predicates on pairs of simple feature geometry sets\n}\n\\details{\nIf \\code{prepared} is \\code{TRUE}, and \\code{x} contains POINT geometries and \\code{y} contains polygons, then the polygon geometries are prepared, rather than the points.\n\nFor most predicates, a spatial index is built on argument \\code{x}; see \\url{https://r-spatial.org/r/2017/06/22/spatial-index.html}.\nSpecifically, \\code{st_intersects}, \\code{st_disjoint}, \\code{st_touches} \\code{st_crosses}, \\code{st_within}, \\code{st_contains}, \\code{st_contains_properly}, \\code{st_overlaps}, \\code{st_equals}, \\code{st_covers} and \\code{st_covered_by} all build spatial indexes for more efficient geometry calculations. \\code{st_relate}, \\code{st_equals_exact}, and do not; \\code{st_is_within_distance} uses a spatial index for geographic coordinates when \\code{sf_use_s2()} is true.\n\nIf \\code{y} is missing, \\code{st_predicate(x, x)} is effectively called, and a square matrix is returned with diagonal elements \\code{st_predicate(x[i], x[i])}.\n\nSparse geometry binary predicate (\\code{\\link{sgbp}}) lists have the following attributes: \\code{region.id} with the \\code{row.names} of \\code{x} (if any, else \\code{1:n}), \\code{ncol} with the number of features in \\code{y}, and \\code{predicate} with the name of the predicate used.\n\nfor \\code{model}, see https://github.com/r-spatial/s2/issues/32\n\n\\code{st_contains_properly(A,B)} is true if A intersects B's interior, but not its edges or exterior; A contains A, but A does not properly contain A.\n\nSee also \\link{st_relate} and \\url{https://en.wikipedia.org/wiki/DE-9IM} for a more detailed description of the underlying algorithms.\n\n\\code{st_equals_exact} returns true for two geometries of the same type and their vertices corresponding by index are equal up to a specified tolerance.\n}\n\\note{\nFor intersection on pairs of simple feature geometries, use\nthe function \\code{\\link{st_intersection}} instead of \\code{st_intersects}.\n}\n\\examples{\npts = st_sfc(st_point(c(.5,.5)), st_point(c(1.5, 1.5)), st_point(c(2.5, 2.5)))\npol = st_polygon(list(rbind(c(0,0), c(2,0), c(2,2), c(0,2), c(0,0))))\n(lst = st_intersects(pts, pol))\n(mat = st_intersects(pts, pol, sparse = FALSE))\n# which points fall inside a polygon?\napply(mat, 1, any)\nlengths(lst) > 0\n# which points fall inside the first polygon?\nst_intersects(pol, pts)[[1]]\n# remove duplicate geometries:\np1 = st_point(0:1)\np2 = st_point(2:1)\np = st_sf(a = letters[1:8], geom = st_sfc(p1, p1, p2, p1, p1, p2, p2, p1))\nst_equals(p)\nst_equals(p, remove_self = TRUE)\n(u = st_equals(p, retain_unique = TRUE))\n# retain the records with unique geometries:\np[-unlist(u),]\n}\n"
},
{
"path": "man/geos_combine.Rd",
"content": "% Generated by roxygen2: do not edit by hand\n% Please edit documentation in R/geom-transformers.R\n\\name{geos_combine}\n\\alias{geos_combine}\n\\alias{st_combine}\n\\alias{st_union}\n\\title{Combine or union feature geometries}\n\\usage{\nst_combine(x)\n\nst_union(x, y, ..., by_feature = FALSE, is_coverage = FALSE)\n}\n\\arguments{\n\\item{x}{object of class \\code{sf}, \\code{sfc} or \\code{sfg}}\n\n\\item{y}{object of class \\code{sf}, \\code{sfc} or \\code{sfg} (optional)}\n\n\\item{...}{ignored}\n\n\\item{by_feature}{logical; if \\code{TRUE}, union each feature if \\code{y} is missing or else each pair of features; if \\code{FALSE} return a single feature that is the geometric union of the set of features in \\code{x} if \\code{y} is missing, or else the unions of each of the elements of the Cartesian product of both sets}\n\n\\item{is_coverage}{logical; if \\code{TRUE}, use an optimized algorithm for features that form a polygonal coverage (have no overlaps)}\n}\n\\value{\n\\code{st_combine} returns a single, combined geometry, with no resolved boundaries; returned geometries may well be invalid.\n\nIf \\code{y} is missing, \\code{st_union(x)} returns a single geometry with resolved boundaries, else the geometries for all unioned pairs of \\code{x[i]} and \\code{y[j]}.\n}\n\\description{\nCombine several feature geometries into one, without unioning or resolving internal boundaries\n}\n\\details{\n\\code{st_combine} combines geometries without resolving borders, using \\link{c.sfg} (analogous to \\link[base]{c} for ordinary vectors).\n\nIf \\code{st_union} is called with a single argument, \\code{x}, (with \\code{y} missing) and \\code{by_feature} is \\code{FALSE} all geometries are unioned together and an \\code{sfg} or single-geometry \\code{sfc} object is returned.\nIf \\code{by_feature} is \\code{TRUE} each feature geometry is unioned individually.\nThis can for instance be used to resolve internal boundaries after polygons were combined using \\code{st_combine}.\nIf \\code{y} is provided, all elements of \\code{x} and \\code{y} are unioned, pairwise if \\code{by_feature} is TRUE, or else as the Cartesian product of both sets.\n\nUnioning a set of overlapping polygons has the effect of merging the areas (i.e. the same effect as iteratively unioning all individual polygons together).\nUnioning a set of LineStrings has the effect of fully noding and dissolving the input linework. In this context \"fully noded\" means that there will be a node or endpoint in the output for every endpoint or line segment crossing in the input.\n\"Dissolved\" means that any duplicate (e.g. coincident) line segments or portions of line segments will be reduced to a single line segment in the output.\tUnioning a set of Points has the effect of merging all identical points (producing a set with no duplicates).\n}\n\\examples{\nnc = st_read(system.file(\"shape/nc.shp\", package=\"sf\"))\nst_combine(nc)\nplot(st_union(nc))\n}\n\\seealso{\n\\link{st_intersection}, \\link{st_difference}, \\link{st_sym_difference}\n}\n"
},
{
"path": "man/geos_measures.Rd",
"content": "% Generated by roxygen2: do not edit by hand\n% Please edit documentation in R/geom-measures.R\n\\name{geos_measures}\n\\alias{geos_measures}\n\\alias{st_area}\n\\alias{st_area.sfc}\n\\alias{st_length}\n\\alias{st_perimeter}\n\\alias{st_distance}\n\\title{Compute geometric measurements}\n\\usage{\nst_area(x, ...)\n\n\\method{st_area}{sfc}(x, ...)\n\nst_length(x, ...)\n\nst_perimeter(x, ...)\n\nst_distance(\n x,\n y,\n ...,\n dist_fun,\n by_element = FALSE,\n which = ifelse(isTRUE(st_is_longlat(x)), \"Great Circle\", \"Euclidean\"),\n par = 0,\n tolerance = 0\n)\n}\n\\arguments{\n\\item{x}{object of class \\code{sf}, \\code{sfc} or \\code{sfg}}\n\n\\item{...}{passed on to \\link[s2]{s2_distance}, \\link[s2]{s2_distance_matrix}, or \\link[s2]{s2_perimeter}}\n\n\\item{y}{object of class \\code{sf}, \\code{sfc} or \\code{sfg}, defaults to \\code{x}}\n\n\\item{dist_fun}{deprecated}\n\n\\item{by_element}{logical; if \\code{TRUE}, return a vector with distance between the first elements of \\code{x} and \\code{y}, the second, etc; an error is raised if \\code{x} and \\code{y} are not the same length. If \\code{FALSE}, return the dense matrix with all pairwise distances.}\n\n\\item{which}{character; for Cartesian coordinates only: one of \\code{Euclidean}, \\code{Hausdorff} or \\code{Frechet}; for geodetic coordinates, great circle distances are computed; see details}\n\n\\item{par}{for \\code{which} equal to \\code{Hausdorff} or \\code{Frechet}, optionally use a value between 0 and 1 to densify the geometry}\n\n\\item{tolerance}{ignored if \\code{st_is_longlat(x)} is \\code{FALSE}; otherwise, if set to a positive value, the first distance smaller than \\code{tolerance} will be returned, and true distance may be smaller; this may speed up computation. In meters, or a \\code{units} object convertible to meters.}\n}\n\\value{\nIf the coordinate reference system of \\code{x} was set, these functions return values with unit of measurement; see \\link[units]{set_units}.\n\nst_area returns the area of each feature geometry, computed in the coordinate reference system used. In case \\code{x} has geodetic coordinates (unprojected), then if \\code{sf_use_s2()} is \\code{FALSE} \\link[lwgeom:geod]{st_geod_area} is used for area calculation, if it is \\code{TRUE} then \\link[s2:s2_is_collection]{s2_area} is used: the former assumes an ellipsoidal shape, the latter a spherical shape of the Earth. In case of projected data, areas are computed in flat space. The argument \\code{...} can be used to specify \\code{radius} to \\link[s2:s2_is_collection]{s2_area}, to modify the Earth radius.\n\nst_length returns the length of a \\code{LINESTRING} or \\code{MULTILINESTRING} geometry, using the coordinate reference system. \\code{POINT}, \\code{MULTIPOINT}, \\code{POLYGON} or \\code{MULTIPOLYGON} geometries return zero.\nIf coordinates are geodetic (i.e., long/lat), great circle calculations are carried out on a sphere (if \\code{sf_use_s2()} is \\code{TRUE}), or a geodesic line is computed on an ellipsoid (if \\code{sf_use_s2()} is \\code{FALSE}). For all other non-geodetic, projected coordinate systems, length calculations are planar, Euclidean distance calculations in the units of the coordinate system.\n\nIf \\code{by_element} is \\code{FALSE} \\code{st_distance} returns a dense numeric matrix of dimension length(x) by length(y); otherwise it returns a numeric vector the same length as \\code{x} and \\code{y} with an error raised if the lengths of \\code{x} and \\code{y} are unequal. Distances involving empty geometries are \\code{NA}.\n}\n\\description{\nCompute Euclidean or great circle distance between pairs of geometries; compute, the area or the length of a set of geometries.\n}\n\\details{\ngreat circle distance calculations use by default spherical distances (\\link[s2]{s2_distance} or \\link[s2]{s2_distance_matrix}); if \\code{sf_use_s2()} is \\code{FALSE}, ellipsoidal distances are computed using \\link[lwgeom]{st_geod_distance} which uses function \\code{geod_inverse} from GeographicLib (part of PROJ); see Karney, Charles FF, 2013, Algorithms for geodesics, Journal of Geodesy 87(1), 43--55\n}\n\\examples{\nb0 = st_polygon(list(rbind(c(-1,-1), c(1,-1), c(1,1), c(-1,1), c(-1,-1))))\nb1 = b0 + 2\nb2 = b0 + c(-0.2, 2)\nx = st_sfc(b0, b1, b2)\nst_area(x)\nline = st_sfc(st_linestring(rbind(c(30,30), c(40,40))), crs = 4326)\nst_length(line)\n\nouter = matrix(c(0,0,10,0,10,10,0,10,0,0),ncol=2, byrow=TRUE)\nhole1 = matrix(c(1,1,1,2,2,2,2,1,1,1),ncol=2, byrow=TRUE)\nhole2 = matrix(c(5,5,5,6,6,6,6,5,5,5),ncol=2, byrow=TRUE)\n\npoly = st_polygon(list(outer, hole1, hole2))\nmpoly = st_multipolygon(list(\n\tlist(outer, hole1, hole2),\n\tlist(outer + 12, hole1 + 12)\n))\n\nst_length(st_sfc(poly, mpoly))\nif (requireNamespace(\"lwgeom\", quietly = TRUE)) {\n st_perimeter(poly)\n st_perimeter(mpoly)\n}\np = st_sfc(st_point(c(0,0)), st_point(c(0,1)), st_point(c(0,2)))\nst_distance(p, p)\nst_distance(p, p, by_element = TRUE)\n}\n\\seealso{\n\\link{st_dimension}, \\link{st_cast} to convert geometry types\n}\n"
},
{
"path": "man/geos_query.Rd",
"content": "% Generated by roxygen2: do not edit by hand\n% Please edit documentation in R/geom-measures.R, R/geom-predicates.R\n\\name{geos_query}\n\\alias{geos_query}\n\\alias{st_dimension}\n\\alias{st_is_simple}\n\\alias{st_is_empty}\n\\title{Dimension, simplicity, validity or is_empty queries on simple feature geometries}\n\\usage{\nst_dimension(x, NA_if_empty = TRUE)\n\nst_is_simple(x)\n\nst_is_empty(x)\n}\n\\arguments{\n\\item{x}{object of class \\code{sf}, \\code{sfc} or \\code{sfg}}\n\n\\item{NA_if_empty}{logical; if TRUE, return NA for empty geometries}\n}\n\\value{\nst_dimension returns a numeric vector with 0 for points, 1 for lines, 2 for surfaces, and, if \\code{NA_if_empty} is \\code{TRUE}, \\code{NA} for empty geometries.\n\nst_is_simple returns a logical vector, indicating for each geometry whether it is simple (e.g., not self-intersecting)\n\nst_is_empty returns for each geometry whether it is empty\n}\n\\description{\nDimension, simplicity, validity or is_empty queries on simple feature geometries\n}\n\\examples{\nx = st_sfc(\n\tst_point(0:1),\n\tst_linestring(rbind(c(0,0),c(1,1))),\n\tst_polygon(list(rbind(c(0,0),c(1,0),c(0,1),c(0,0)))),\n\tst_multipoint(),\n\tst_linestring(),\n\tst_geometrycollection())\nst_dimension(x)\nst_dimension(x, FALSE)\nls = st_linestring(rbind(c(0,0), c(1,1), c(1,0), c(0,1)))\nst_is_simple(st_sfc(ls, st_point(c(0,0))))\nls = st_linestring(rbind(c(0,0), c(1,1), c(1,0), c(0,1)))\nst_is_empty(st_sfc(ls, st_point(), st_linestring()))\n}\n"
},
{
"path": "man/geos_unary.Rd",
"content": "% Generated by roxygen2: do not edit by hand\n% Please edit documentation in R/geom-transformers.R\n\\name{geos_unary}\n\\alias{geos_unary}\n\\alias{st_buffer}\n\\alias{st_boundary}\n\\alias{st_convex_hull}\n\\alias{st_concave_hull}\n\\alias{st_simplify}\n\\alias{st_triangulate}\n\\alias{st_triangulate_constrained}\n\\alias{st_inscribed_circle}\n\\alias{st_minimum_rotated_rectangle}\n\\alias{st_minimum_bounding_circle}\n\\alias{st_voronoi}\n\\alias{st_polygonize}\n\\alias{st_line_merge}\n\\alias{st_centroid}\n\\alias{st_point_on_surface}\n\\alias{st_reverse}\n\\alias{st_node}\n\\alias{st_segmentize}\n\\alias{st_exterior_ring}\n\\title{Geometric unary operations on simple feature geometry sets}\n\\usage{\nst_buffer(\n x,\n dist,\n nQuadSegs = 30,\n endCapStyle = \"ROUND\",\n joinStyle = \"ROUND\",\n mitreLimit = 1,\n singleSide = FALSE,\n ...\n)\n\nst_boundary(x)\n\nst_convex_hull(x)\n\nst_concave_hull(x, ratio, ..., allow_holes)\n\nst_simplify(x, preserveTopology, dTolerance = 0)\n\nst_triangulate(x, dTolerance = 0, bOnlyEdges = FALSE)\n\nst_triangulate_constrained(x)\n\nst_inscribed_circle(x, dTolerance, ...)\n\nst_minimum_rotated_rectangle(x, ...)\n\nst_minimum_bounding_circle(x, ...)\n\nst_voronoi(\n x,\n envelope,\n dTolerance = 0,\n bOnlyEdges = FALSE,\n point_order = FALSE\n)\n\nst_polygonize(x)\n\nst_line_merge(x, ..., directed = FALSE)\n\nst_centroid(x, ..., of_largest_polygon = FALSE)\n\nst_point_on_surface(x)\n\nst_reverse(x)\n\nst_node(x)\n\nst_segmentize(x, dfMaxLength, ...)\n\nst_exterior_ring(x, ...)\n}\n\\arguments{\n\\item{x}{object of class \\code{sfg}, \\code{sfc} or \\code{sf}}\n\n\\item{dist}{numeric or object of class \\code{units}; buffer distance(s) for all, or for each of the elements in \\code{x}.\nIn case \\code{x} has geodetic coordinates (lon/lat) and \\code{sf_use_s2()} is \\code{TRUE}, a numeric\n\\code{dist} is taken as distance in meters and a \\code{units} object in \\code{dist} is converted to meters.\nIn case \\code{x} has geodetic coordinates (lon/lat) and \\code{sf_use_s2()} is \\code{FALSE}, a numeric\n\\code{dist} is taken as degrees, and a \\code{units} object in \\code{dist} is converted to \\code{arc_degree} (and warnings are issued).\nIn case \\code{x} does not have geodetic coordinates (projected) then\nnumeric \\code{dist} is assumed to have the units of the coordinates, and a \\code{units} \\code{dist} is converted to those if \\code{st_crs(x)} is not \\code{NA}.}\n\n\\item{nQuadSegs}{integer; number of segments per quadrant (fourth of a circle), for all or per-feature; see details}\n\n\\item{endCapStyle}{character; style of line ends, one of 'ROUND', 'FLAT', 'SQUARE'; see details}\n\n\\item{joinStyle}{character; style of line joins, one of 'ROUND', 'MITRE', 'BEVEL'; see details}\n\n\\item{mitreLimit}{numeric; limit of extension for a join if \\code{joinStyle} 'MITRE' is used (default 1.0, minimum 0.0); see details}\n\n\\item{singleSide}{logical; if \\code{TRUE}, single-sided buffers are returned for linear geometries,\nin which case negative \\code{dist} values give buffers on the right-hand side, positive on the left; see details}\n\n\\item{...}{in \\code{st_buffer} passed on to \\code{\\link[s2:s2_buffer_cells]{s2::s2_buffer_cells()}}, otherwise ignored}\n\n\\item{ratio}{numeric; fraction convex: 1 returns the convex hulls, 0 maximally concave hulls}\n\n\\item{allow_holes}{logical; if \\code{TRUE}, the resulting concave hull may have holes}\n\n\\item{preserveTopology}{logical; carry out topology preserving\nsimplification? May be specified for each, or for all feature geometries.\nNote that topology is preserved only for single feature geometries, not for\nsets of them. If not specified (i.e. the default), then it is internally\nset equal to \\code{FALSE} when the input data is specified with projected\ncoordinates or \\code{sf_use_s2()} returns \\code{FALSE}. Ignored in all the\nother cases (with a warning when set equal to \\code{FALSE}) since the\nfunction implicitly calls \\code{s2::s2_simplify} which always preserve\ntopological relationships (per single feature).}\n\n\\item{dTolerance}{numeric; tolerance parameter, specified for all or for each\nfeature geometry. If you run \\code{st_simplify}, the input data is\nspecified with long-lat coordinates and \\code{sf_use_s2()} returns\n\\code{TRUE}, then the value of \\code{dTolerance} must be specified in\nmeters.}\n\n\\item{bOnlyEdges}{logical; if \\code{TRUE}, return lines, else return polygons}\n\n\\item{envelope}{object of class \\code{sfc} or \\code{sfg} containing a \\code{POLYGON} with the envelope for a voronoi diagram; this only takes effect when it is larger than the default envelope, chosen when \\code{envelope} is an empty polygon}\n\n\\item{point_order}{logical; preserve point order if TRUE and GEOS version >= 3.12; overrides bOnlyEdges}\n\n\\item{directed}{logical; if \\code{TRUE}, lines with opposite directions will not be merged}\n\n\\item{of_largest_polygon}{logical; for \\code{st_centroid}: if \\code{TRUE}, return centroid of the largest (sub)polygon of a \\code{MULTIPOLYGON} rather than of the whole \\code{MULTIPOLYGON}}\n\n\\item{dfMaxLength}{maximum length of a line segment. If \\code{x} has geographical coordinates (long/lat), \\code{dfMaxLength} is either a numeric expressed in meter, or an object of class \\code{units} with length units \\code{rad} or \\code{degree}; segmentation in the long/lat case takes place along the great circle, using \\link[lwgeom:geod]{st_geod_segmentize}.}\n}\n\\value{\nan object of the same class of \\code{x}, with manipulated geometry.\n}\n\\description{\nGeometric unary operations on simple feature geometries. These are all generics, with methods for \\code{sfg}, \\code{sfc} and \\code{sf} objects, returning an object of the same class. All operations work on a per-feature basis, ignoring all other features.\n}\n\\details{\n\\code{st_buffer} computes a buffer around this geometry/each geometry. Depending on the spatial\ncoordinate system, a different engine (GEOS or S2) can be used, which have different function\narguments. The \\code{nQuadSegs}, \\code{endCapsStyle}, \\code{joinStyle}, \\code{mitreLimit} and\n\\code{singleSide} parameters only work if the GEOS engine is used (i.e. projected coordinates or\nwhen \\code{sf_use_s2()} is set to \\code{FALSE}). See \\href{https://postgis.net/docs/ST_Buffer.html}{postgis.net/docs/ST_Buffer.html}\nfor details. The \\code{max_cells} and \\code{min_level} parameters (\\code{\\link[s2:s2_buffer_cells]{s2::s2_buffer_cells()}}) work with the S2\nengine (i.e. geographic coordinates) and can be used to change the buffer shape (e.g. smoothing).\nThe S2 engine returns a polygon \\emph{around} a number of S2 cells that\ncontain the buffer, and hence will always have an area larger than the\ntrue buffer, depending on \\code{max_cells}, and will be non-smooth when sufficiently zoomed in.\nThe GEOS engine will return line segments between points\non the circle, and so will always be \\emph{smaller} than the true\nbuffer, and be smooth, depending on the number of segments \\code{nQuadSegs}.\nA negative \\code{dist} value for geodetic coordinates using S2 does not give a proper (geodetic) buffer.\n\n\\code{st_boundary} returns the boundary of a geometry\n\n\\code{st_convex_hull} creates the convex hull of a set of points\n\n\\code{st_concave_hull} creates the concave hull of a geometry\n\n\\code{st_simplify} simplifies lines by removing vertices.\n\n\\code{st_triangulate} triangulates set of points (not constrained). \\code{st_triangulate} requires GEOS version 3.4 or above\n\n\\code{st_triangulate_constrained} returns the constrained delaunay triangulation of polygons; requires GEOS version 3.10 or above\n\n\\code{st_inscribed_circle} returns the maximum inscribed circle for polygon geometries.\nFor \\code{st_inscribed_circle}, if \\code{nQuadSegs} is 0 a 2-point LINESTRING is returned with the\ncenter point and a boundary point of every circle, otherwise a circle (buffer) is returned where\n\\code{nQuadSegs} controls the number of points per quadrant to approximate the circle.\n\\code{st_inscribed_circle} requires GEOS version 3.9 or above\n\n\\code{st_minimum_rotated_rectangle} returns the minimum\nrotated rectangular POLYGON which encloses the input geometry. The\nrectangle has width equal to the minimum diameter, and a longer\nlength. If the convex hill of the input is degenerate (a line or\npoint) a linestring or point is returned.\n\n\\code{st_minimum_bounding_circle}\nreturns a geometry which represents the \"minimum bounding circle\",\nthe smallest circle that contains the input.\n\n\\code{st_voronoi} creates voronoi tessellation. \\code{st_voronoi} requires GEOS version 3.5 or above\n\n\\code{st_polygonize} creates a polygon from lines that form a closed ring. In case of \\code{st_polygonize}, \\code{x} must be an object of class \\code{LINESTRING} or \\code{MULTILINESTRING}, or an \\code{sfc} geometry list-column object containing these\n\n\\code{st_line_merge} merges lines. In case of \\code{st_line_merge}, \\code{x} must be an object of class \\code{MULTILINESTRING}, or an \\code{sfc} geometry list-column object containing these\n\n\\code{st_centroid} gives the centroid of a geometry\n\n\\code{st_point_on_surface} returns a point guaranteed to be on the (multi)surface.\n\n\\code{st_reverse} reverses the nodes in a line\n\n\\code{st_node} adds nodes to linear geometries at intersections without a node, and only works on individual linear geometries\n\n\\code{st_segmentize} adds points to straight lines\n\n\\code{st_exterior_ring} returns the exterior rings of polygons, removing all holes.\n}\n\\examples{\n\n## st_buffer, style options (taken from rgeos gBuffer)\nl1 = st_as_sfc(\"LINESTRING(0 0,1 5,4 5,5 2,8 2,9 4,4 6.5)\")\nop = par(mfrow=c(2,3))\nplot(st_buffer(l1, dist = 1, endCapStyle=\"ROUND\"), reset = FALSE, main = \"endCapStyle: ROUND\")\nplot(l1,col='blue',add=TRUE)\nplot(st_buffer(l1, dist = 1, endCapStyle=\"FLAT\"), reset = FALSE, main = \"endCapStyle: FLAT\")\nplot(l1,col='blue',add=TRUE)\nplot(st_buffer(l1, dist = 1, endCapStyle=\"SQUARE\"), reset = FALSE, main = \"endCapStyle: SQUARE\")\nplot(l1,col='blue',add=TRUE)\nplot(st_buffer(l1, dist = 1, nQuadSegs=1), reset = FALSE, main = \"nQuadSegs: 1\")\nplot(l1,col='blue',add=TRUE)\nplot(st_buffer(l1, dist = 1, nQuadSegs=2), reset = FALSE, main = \"nQuadSegs: 2\")\nplot(l1,col='blue',add=TRUE)\nplot(st_buffer(l1, dist = 1, nQuadSegs= 5), reset = FALSE, main = \"nQuadSegs: 5\")\nplot(l1,col='blue',add=TRUE)\npar(op)\n\n\nl2 = st_as_sfc(\"LINESTRING(0 0,1 5,3 2)\")\nop = par(mfrow = c(2, 3))\nplot(st_buffer(l2, dist = 1, joinStyle=\"ROUND\"), reset = FALSE, main = \"joinStyle: ROUND\")\nplot(l2, col = 'blue', add = TRUE)\nplot(st_buffer(l2, dist = 1, joinStyle=\"MITRE\"), reset = FALSE, main = \"joinStyle: MITRE\")\nplot(l2, col= 'blue', add = TRUE)\nplot(st_buffer(l2, dist = 1, joinStyle=\"BEVEL\"), reset = FALSE, main = \"joinStyle: BEVEL\")\nplot(l2, col= 'blue', add=TRUE)\nplot(st_buffer(l2, dist = 1, joinStyle=\"MITRE\" , mitreLimit=0.5), reset = FALSE,\n main = \"mitreLimit: 0.5\")\nplot(l2, col = 'blue', add = TRUE)\nplot(st_buffer(l2, dist = 1, joinStyle=\"MITRE\",mitreLimit=1), reset = FALSE,\n main = \"mitreLimit: 1\")\nplot(l2, col = 'blue', add = TRUE)\nplot(st_buffer(l2, dist = 1, joinStyle=\"MITRE\",mitreLimit=3), reset = FALSE,\n main = \"mitreLimit: 3\")\nplot(l2, col = 'blue', add = TRUE)\npar(op)\n\n# compare approximation errors depending on S2 or GEOS backend:\n# geographic coordinates, uses S2:\nx = st_buffer(st_as_sf(data.frame(lon=0,lat=0), coords=c(\"lon\",\"lat\"),crs='OGC:CRS84'), \n units::as_units(1,\"km\"))\ny = units::set_units(st_area(x), \"km^2\")\n# error: postive, default maxcells = 1000\n(units::drop_units(y)-pi)/pi\nx = st_buffer(st_as_sf(data.frame(lon=0,lat=0), coords=c(\"lon\",\"lat\"),crs='OGC:CRS84'), \n units::as_units(1,\"km\"), max_cells=1e5)\ny = units::set_units(st_area(x), \"km^2\")\n# error: positive but smaller:\n(units::drop_units(y)-pi)/pi\n\n# no CRS set: assumes Cartesian (projected) coordinates\nx = st_buffer(st_as_sf(data.frame(lon=0,lat=0), coords=c(\"lon\",\"lat\")), 1)\ny = st_area(x)\n# error: negative, nQuadSegs default at 30\n((y)-pi)/pi\nx = st_buffer(st_as_sf(data.frame(lon=0,lat=0), coords=c(\"lon\",\"lat\")), 1, nQuadSegs = 100)\ny = st_area(x)\n# error: negative but smaller:\n((y)-pi)/pi\nnc = st_read(system.file(\"shape/nc.shp\", package=\"sf\"))\nnc_g = st_geometry(nc)\nplot(st_convex_hull(nc_g))\nplot(nc_g, border = grey(.5), add = TRUE)\npt = st_combine(st_sfc(st_point(c(0,80)), st_point(c(120,80)), st_point(c(240,80))))\nst_convex_hull(pt) # R2\nst_convex_hull(st_set_crs(pt, 'OGC:CRS84')) # S2\nset.seed(131)\nif (compareVersion(sf_extSoftVersion()[[\"GEOS\"]], \"3.11.0\") > -1) {\n pts = cbind(runif(100), runif(100))\n m = st_multipoint(pts)\n co = sf:::st_concave_hull(m, 0.3)\n coh = sf:::st_concave_hull(m, 0.3, allow_holes = TRUE)\n plot(co, col = 'grey')\n plot(coh, add = TRUE, border = 'red')\n plot(m, add = TRUE)\n}\n\n# st_simplify examples:\nop = par(mfrow = c(2, 3), mar = rep(0, 4))\nplot(nc_g[1])\nplot(st_simplify(nc_g[1], dTolerance = 1e3)) # 1000m\nplot(st_simplify(nc_g[1], dTolerance = 5e3)) # 5000m\nnc_g_planar = st_transform(nc_g, 2264) # planar coordinates, US foot\nplot(nc_g_planar[1])\nplot(st_simplify(nc_g_planar[1], dTolerance = 1e3)) # 1000 foot\nplot(st_simplify(nc_g_planar[1], dTolerance = 5e3)) # 5000 foot\npar(op)\n\nif (compareVersion(sf_extSoftVersion()[[\"GEOS\"]], \"3.10.0\") > -1) {\n pts = rbind(c(0,0), c(1,0), c(1,1), c(.5,.5), c(0,1), c(0,0))\n po = st_polygon(list(pts))\n co = st_triangulate_constrained(po)\n tr = st_triangulate(po)\n plot(po, col = NA, border = 'grey', lwd = 15)\n plot(tr, border = 'green', col = NA, lwd = 5, add = TRUE)\n plot(co, border = 'red', col = 'NA', add = TRUE)\n}\nif (compareVersion(sf_extSoftVersion()[[\"GEOS\"]], \"3.9.0\") > -1) {\n nc_t = st_transform(nc, 'EPSG:2264')\n x = st_inscribed_circle(st_geometry(nc_t))\n plot(st_geometry(nc_t), asp = 1, col = grey(.9))\n plot(x, add = TRUE, col = '#ff9999')\n}\nset.seed(1)\nx = st_multipoint(matrix(runif(10),,2))\nbox = st_polygon(list(rbind(c(0,0),c(1,0),c(1,1),c(0,1),c(0,0))))\nif (compareVersion(sf_extSoftVersion()[[\"GEOS\"]], \"3.5.0\") > -1) {\n v = st_sfc(st_voronoi(x, st_sfc(box)))\n plot(v, col = 0, border = 1, axes = TRUE)\n plot(box, add = TRUE, col = 0, border = 1) # a larger box is returned, as documented\n plot(x, add = TRUE, col = 'red', cex=2, pch=16)\n plot(st_intersection(st_cast(v), box)) # clip to smaller box\n plot(x, add = TRUE, col = 'red', cex=2, pch=16)\n # matching Voronoi polygons to data points:\n # https://github.com/r-spatial/sf/issues/1030\n # generate 50 random unif points:\n n = 100\n pts = st_as_sf(data.frame(matrix(runif(n), , 2), id = 1:(n/2)), coords = c(\"X1\", \"X2\"))\n # compute Voronoi polygons:\n pols = st_collection_extract(st_voronoi(do.call(c, st_geometry(pts))))\n # match them to points:\n pts_pol = st_intersects(pts, pols)\n pts$pols = pols[unlist(pts_pol)] # re-order\n if (isTRUE(try(compareVersion(sf_extSoftVersion()[\"GEOS\"], \"3.12.0\") > -1,\n silent = TRUE))) {\n pols_po = st_collection_extract(st_voronoi(do.call(c, st_geometry(pts)),\n point_order = TRUE)) # GEOS >= 3.12 can preserve order of inputs\n pts_pol_po = st_intersects(pts, pols_po)\n print(all(unlist(pts_pol_po) == 1:(n/2)))\n }\n plot(pts[\"id\"], pch = 16) # ID is color\n plot(st_set_geometry(pts, \"pols\")[\"id\"], xlim = c(0,1), ylim = c(0,1), reset = FALSE)\n plot(st_geometry(pts), add = TRUE)\n layout(matrix(1)) # reset plot layout\n}\nmls = st_multilinestring(list(matrix(c(0,0,0,1,1,1,0,0),,2,byrow=TRUE)))\nst_polygonize(st_sfc(mls))\nmls = st_multilinestring(list(rbind(c(0,0), c(1,1)), rbind(c(2,0), c(1,1))))\nst_line_merge(st_sfc(mls))\nplot(nc_g, axes = TRUE)\nplot(st_centroid(nc_g), add = TRUE, pch = 3, col = 'red')\nmp = st_combine(st_buffer(st_sfc(lapply(1:3, function(x) st_point(c(x,x)))), 0.2 * 1:3))\nplot(mp)\nplot(st_centroid(mp), add = TRUE, col = 'red') # centroid of combined geometry\nplot(st_centroid(mp, of_largest_polygon = TRUE), add = TRUE, col = 'blue', pch = 3)\nplot(nc_g, axes = TRUE)\nplot(st_point_on_surface(nc_g), add = TRUE, pch = 3, col = 'red')\nif (compareVersion(sf_extSoftVersion()[[\"GEOS\"]], \"3.7.0\") > -1) {\n st_reverse(st_linestring(rbind(c(1,1), c(2,2), c(3,3))))\n}\n(l = st_linestring(rbind(c(0,0), c(1,1), c(0,1), c(1,0), c(0,0))))\nst_polygonize(st_node(l))\nst_node(st_multilinestring(list(rbind(c(0,0), c(1,1), c(0,1), c(1,0), c(0,0)))))\nsf = st_sf(a=1, geom=st_sfc(st_linestring(rbind(c(0,0),c(1,1)))), crs = 4326)\nif (require(lwgeom, quietly = TRUE)) {\n seg = st_segmentize(sf, units::set_units(100, km))\n seg = st_segmentize(sf, units::set_units(0.01, rad))\n nrow(seg$geom[[1]])\n}\n}\n\\seealso{\n\\link[grDevices]{chull} for a more efficient algorithm for calculating the convex hull\n}\n"
},
{
"path": "man/interpolate_aw.Rd",
"content": "% Generated by roxygen2: do not edit by hand\n% Please edit documentation in R/aggregate.R\n\\name{interpolate_aw}\n\\alias{interpolate_aw}\n\\alias{st_interpolate_aw}\n\\alias{st_interpolate_aw.sf}\n\\title{Area-weighted interpolation or dasymetric mapping of polygon data}\n\\usage{\nst_interpolate_aw(x, to, extensive, ...)\n\n\\method{st_interpolate_aw}{sf}(\n x,\n to,\n extensive,\n ...,\n keep_NA = FALSE,\n na.rm = FALSE,\n include_non_intersected = FALSE,\n weights = character(0)\n)\n}\n\\arguments{\n\\item{x}{object of class \\code{sf}, for which we want to aggregate attributes}\n\n\\item{to}{object of class \\code{sf} or \\code{sfc}, with the target geometries}\n\n\\item{extensive}{logical; if TRUE, the attribute variables are assumed to be spatially extensive (like population) and the sum is preserved, otherwise, spatially intensive (like population density) and the mean is preserved.}\n\n\\item{...}{ignored}\n\n\\item{keep_NA}{logical; if \\code{TRUE}, return all features in \\code{to}, if \\code{FALSE} return only those with non-NA values (but with \\code{row.names} the index corresponding to the feature in \\code{to})}\n\n\\item{na.rm}{logical; if \\code{TRUE} remove features with \\code{NA} attributes from \\code{x} before interpolating}\n\n\\item{include_non_intersected}{logical; for the case when \\code{extensive=FALSE}, when set to \\code{TRUE} divide by the target areas (including non-intersected areas),\nwhen \\code{FALSE} divide by the sum of the source areas.}\n\n\\item{weights}{character; name of column in \\code{to} that indicates (extensive) weights, to be used instead of areas, for redistributing attributes in \\code{x}; currently only works for \\code{extensive=TRUE}.}\n}\n\\description{\nArea-weighted interpolation or dasymetric mapping of polygon data\n}\n\\details{\nif \\code{extensive} is \\code{TRUE} and \\code{na.rm} is set to \\code{TRUE}, geometries with \\code{NA} are effectively treated as having zero attribute values. Dasymetric mapping is obtained when \\code{weights} are specified.\n}\n\\examples{\n# example Area-weighted interpolation:\nnc = st_read(system.file(\"shape/nc.shp\", package=\"sf\"))\ng = st_make_grid(nc, n = c(10, 5))\na1 = st_interpolate_aw(nc[\"BIR74\"], g, extensive = FALSE)\nsum(a1$BIR74) / sum(nc$BIR74) # not close to one: property is assumed spatially intensive\na2 = st_interpolate_aw(nc[\"BIR74\"], g, extensive = TRUE)\n# verify mass preservation (pycnophylactic) property:\nsum(a2$BIR74) / sum(nc$BIR74)\na1$intensive = a1$BIR74\na1$extensive = a2$BIR74\n\\donttest{plot(a1[c(\"intensive\", \"extensive\")], key.pos = 4)}\n\n# example Dasymetric mapping:\n# load nr of addresses per 10 km grid cell, to proxy population -> birth density:\ngrd.addr = system.file(\"gpkg/grd_addr.gpkg\", package=\"sf\") |> read_sf()\nxgrd.addr = grd.addr # copy for plotting\nxgrd.addr$ones[grd.addr$ones==0] = 1 # so that logz shows finite values\n\\donttest{plot(xgrd.addr, logz=TRUE, main = \"nr of addresses per cell\") # log scale}\nnc = st_transform(nc, st_crs(grd.addr))\n# avoid \"assumes attributes are constant or uniform over areas\" warnings:\nst_agr(nc) = c(BIR74 = \"constant\", BIR79 = \"constant\")\nst_agr(grd.addr) = c(ones = \"constant\")\n# dasymetric mapping\nbir.grd = st_interpolate_aw(nc[c(\"BIR74\",\"BIR79\")], extensive = TRUE, grd.addr, weights = \"ones\")\nxbir.grd = bir.grd # copy for plotting\nxbir.grd$BIR74[xbir.grd$BIR74 == 0] = 1 # so that logz shows finite values\n\\donttest{plot(xbir.grd[\"BIR74\"], logz = TRUE, main = \"redistributed birth counts, 1974-\")}\n# verify sums:\napply(as.data.frame(bir.grd)[1:2], 2, sum)\napply(as.data.frame(nc)[c(\"BIR74\", \"BIR79\")], 2, sum)\n# compare county-wise:\nst_agr(bir.grd) = c(BIR74 = \"constant\")\naw = st_interpolate_aw(bir.grd[\"BIR74\"], st_geometry(nc), extensive = TRUE)\nplot(nc$BIR74, aw$BIR74, log = 'xy', xlab = 'county-value', ylab = 'area-w interpolated')\nabline(0,1)\n}\n"
},
{
"path": "man/is_driver_available.Rd",
"content": "% Generated by roxygen2: do not edit by hand\n% Please edit documentation in R/read.R\n\\name{is_driver_available}\n\\alias{is_driver_available}\n\\title{Check if driver is available}\n\\usage{\nis_driver_available(drv, drivers = st_drivers())\n}\n\\arguments{\n\\item{drv}{character. Name of driver}\n\n\\item{drivers}{data.frame. Table containing driver names and support. Default\nis from \\code{\\link{st_drivers}}}\n}\n\\description{\nSearch through the driver table if driver is listed\n}\n"
},
{
"path": "man/is_driver_can.Rd",
"content": "% Generated by roxygen2: do not edit by hand\n% Please edit documentation in R/read.R\n\\name{is_driver_can}\n\\alias{is_driver_can}\n\\title{Check if a driver can perform an action}\n\\usage{\nis_driver_can(drv, drivers = st_drivers(), operation = \"write\")\n}\n\\arguments{\n\\item{drv}{character. Name of driver}\n\n\\item{drivers}{data.frame. Table containing driver names and support. Default\nis from \\code{\\link{st_drivers}}}\n\n\\item{operation}{character. What action to check}\n}\n\\description{\nSearch through the driver table to match a driver name with\nan action (e.g. \\code{\"write\"}) and check if the action is supported.\n}\n"
},
{
"path": "man/is_geometry_column.Rd",
"content": "% Generated by roxygen2: do not edit by hand\n% Please edit documentation in R/db.R\n\\name{is_geometry_column}\n\\alias{is_geometry_column}\n\\title{Check if the columns could be of a coercable type for sf}\n\\usage{\nis_geometry_column(con, x, classes = \"\")\n}\n\\arguments{\n\\item{con}{database connection}\n\n\\item{x}{inherits data.frame}\n\n\\item{classes}{classes inherited}\n}\n\\description{\nCheck if the columns could be of a coercable type for sf\n}\n"
},
{
"path": "man/merge.sf.Rd",
"content": "% Generated by roxygen2: do not edit by hand\n% Please edit documentation in R/sf.R\n\\name{merge.sf}\n\\alias{merge.sf}\n\\title{merge method for sf and data.frame object}\n\\usage{\n\\method{merge}{sf}(x, y, ...)\n}\n\\arguments{\n\\item{x}{object of class \\code{sf}}\n\n\\item{y}{object of class \\code{data.frame}}\n\n\\item{...}{arguments passed on to \\code{merge.data.frame}}\n}\n\\description{\nmerge method for sf and data.frame object\n}\n\\examples{\na = data.frame(a = 1:3, b = 5:7)\nst_geometry(a) = st_sfc(st_point(c(0,0)), st_point(c(1,1)), st_point(c(2,2)))\nb = data.frame(x = c(\"a\", \"b\", \"c\"), b = c(2,5,6))\nmerge(a, b)\nmerge(a, b, all = TRUE)\n}\n"
},
{
"path": "man/nc.Rd",
"content": "% Generated by roxygen2: do not edit by hand\n% Please edit documentation in R/datasets.R\n\\docType{data}\n\\name{nc}\n\\alias{nc}\n\\title{North Carolina SIDS data}\n\\format{\nA \\code{sf} object\n}\n\\description{\nSudden Infant Death Syndrome (SIDS) sample data for North Carolina counties,\ntwo time periods (1974-78 and 1979-84). The details of the columns can be\nfound in a \\href{https://r-spatial.github.io/spdep/articles/sids.html}{spdep package vignette}.\nPlease note that, though this is basically the same as \\code{nc.sids} dataset in spData\npackage, \\code{nc} only contains a subset of variables. The differences are\nalso discussed on the vignette.\n}\n\\examples{\n\\donttest{\nnc <- st_read(system.file(\"shape/nc.shp\", package=\"sf\"))\n}\n}\n\\seealso{\n\\url{https://r-spatial.github.io/spdep/articles/sids.html}\n}\n"
},
{
"path": "man/plot.Rd",
"content": "% Generated by roxygen2: do not edit by hand\n% Please edit documentation in R/plot.R\n\\name{plot}\n\\alias{plot}\n\\alias{plot.sf}\n\\alias{get_key_pos}\n\\alias{plot.sfc_POINT}\n\\alias{plot.sfc_MULTIPOINT}\n\\alias{plot.sfc_LINESTRING}\n\\alias{plot.sfc_CIRCULARSTRING}\n\\alias{plot.sfc_MULTILINESTRING}\n\\alias{plot.sfc_POLYGON}\n\\alias{plot.sfc_MULTIPOLYGON}\n\\alias{plot.sfc_GEOMETRYCOLLECTION}\n\\alias{plot.sfc_GEOMETRY}\n\\alias{plot.sfg}\n\\alias{plot_sf}\n\\alias{sf.colors}\n\\alias{text.sf}\n\\alias{text.sfc}\n\\alias{points.sf}\n\\alias{points.sfc}\n\\title{plot sf object}\n\\usage{\n\\method{plot}{sf}(\n x,\n y,\n ...,\n main,\n pal = NULL,\n nbreaks = 10,\n breaks = \"pretty\",\n max.plot = getOption(\"sf_max.plot\", default = 9),\n key.pos = get_key_pos(x, ...),\n key.length = 0.618,\n key.width = kw_dflt(x, key.pos),\n reset = TRUE,\n logz = FALSE,\n extent = x,\n xlim = st_bbox(extent)[c(1, 3)],\n ylim = st_bbox(extent)[c(2, 4)],\n compact = FALSE\n)\n\nget_key_pos(x, ...)\n\n\\method{plot}{sfc_POINT}(\n x,\n y,\n ...,\n pch = 1,\n cex = 1,\n col = 1,\n bg = 0,\n lwd = 1,\n lty = 1,\n type = \"p\",\n add = FALSE\n)\n\n\\method{plot}{sfc_MULTIPOINT}(\n x,\n y,\n ...,\n pch = 1,\n cex = 1,\n col = 1,\n bg = 0,\n lwd = 1,\n lty = 1,\n type = \"p\",\n add = FALSE\n)\n\n\\method{plot}{sfc_LINESTRING}(x, y, ..., lty = 1, lwd = 1, col = 1, pch = 1, type = \"l\", add = FALSE)\n\n\\method{plot}{sfc_CIRCULARSTRING}(x, y, ...)\n\n\\method{plot}{sfc_MULTILINESTRING}(x, y, ..., lty = 1, lwd = 1, col = 1, pch = 1, type = \"l\", add = FALSE)\n\n\\method{plot}{sfc_POLYGON}(\n x,\n y,\n ...,\n lty = 1,\n lwd = 1,\n col = NA,\n cex = 1,\n pch = NA,\n border = 1,\n add = FALSE,\n rule = \"evenodd\",\n xpd = par(\"xpd\")\n)\n\n\\method{plot}{sfc_MULTIPOLYGON}(\n x,\n y,\n ...,\n lty = 1,\n lwd = 1,\n col = NA,\n border = 1,\n add = FALSE,\n rule = \"evenodd\",\n xpd = par(\"xpd\")\n)\n\n\\method{plot}{sfc_GEOMETRYCOLLECTION}(\n x,\n y,\n ...,\n pch = 1,\n cex = 1,\n bg = 0,\n lty = 1,\n lwd = 1,\n col = 1,\n border = 1,\n add = FALSE\n)\n\n\\method{plot}{sfc_GEOMETRY}(\n x,\n y,\n ...,\n pch = 1,\n cex = 1,\n bg = 0,\n lty = 1,\n lwd = 1,\n col = ifelse(st_dimension(x) == 2, NA, 1),\n border = 1,\n add = FALSE\n)\n\n\\method{plot}{sfg}(x, ...)\n\nplot_sf(\n x,\n xlim = NULL,\n ylim = NULL,\n asp = NA,\n axes = FALSE,\n bgc = par(\"bg\"),\n ...,\n xaxs,\n yaxs,\n lab,\n setParUsrBB = FALSE,\n bgMap = NULL,\n expandBB = c(0, 0, 0, 0),\n graticule = NA_crs_,\n col_graticule = \"grey\",\n border,\n extent = x\n)\n\nsf.colors(n = 10, cutoff.tails = c(0.35, 0.2), alpha = 1, categorical = FALSE)\n\n\\method{text}{sf}(x, labels = row.names(x), ...)\n\n\\method{text}{sfc}(x, labels = seq_along(x), ..., of_largest_polygon = FALSE)\n\n\\method{points}{sf}(x, ...)\n\n\\method{points}{sfc}(x, ..., of_largest_polygon = FALSE)\n}\n\\arguments{\n\\item{x}{object of class sf}\n\n\\item{y}{ignored}\n\n\\item{...}{further specifications, see \\link{plot_sf} and \\link{plot} and details.}\n\n\\item{main}{title for plot (\\code{NULL} to remove)}\n\n\\item{pal}{palette function, similar to \\link{rainbow}, or palette values; if omitted, \\code{sf.colors} is used}\n\n\\item{nbreaks}{number of colors breaks (ignored for \\code{factor} or \\code{character} variables)}\n\n\\item{breaks}{either a numeric vector with the actual breaks, or a name of a method accepted by the \\code{style} argument of \\link[classInt]{classIntervals}}\n\n\\item{max.plot}{integer; lower boundary to maximum number of attributes to plot; the default value (9) can be overridden by setting the global option \\code{sf_max.plot}, e.g. \\code{options(sf_max.plot=2)}}\n\n\\item{key.pos}{numeric; side to plot a color key: 1 bottom, 2 left, 3 top, 4 right; set to \\code{NULL} to omit key completely, 0 to only not plot the key, or -1 to select automatically. If multiple columns are plotted in a single function call by default no key is plotted and every submap is stretched individually; if a key is requested (and \\code{col} is missing) all maps are colored according to a single key. Auto select depends on plot size, map aspect, and, if set, parameter \\code{asp}. If it has lenght 2, the second value, ranging from 0 to 1, determines where the key is placed in the available space (default: 0.5, center).}\n\n\\item{key.length}{amount of space reserved for the key along its axis, length of the scale bar}\n\n\\item{key.width}{amount of space reserved for the key (incl. labels), thickness/width of the scale bar}\n\n\\item{reset}{logical; if \\code{FALSE}, keep the plot in a mode that allows adding further map elements; if \\code{TRUE} restore original mode after plotting \\code{sf} objects with attributes; see details.}\n\n\\item{logz}{logical; if \\code{TRUE}, use log10-scale for the attribute variable. In that case, \\code{breaks} and \\code{at} need to be given as log10-values; see examples.}\n\n\\item{extent}{object with an \\code{st_bbox} method to define plot extent; defaults to \\code{x}}\n\n\\item{xlim}{see \\link{plot.window}}\n\n\\item{ylim}{see \\link{plot.window}}\n\n\\item{compact}{logical; compact sub-plots over plotting space?}\n\n\\item{pch}{plotting symbol}\n\n\\item{cex}{symbol size}\n\n\\item{col}{color for plotting features; if \\code{length(col)} does not equal 1 or \\code{nrow(x)}, a warning is emitted that colors will be recycled. Specifying \\code{col} suppresses plotting the legend key.}\n\n\\item{bg}{symbol background color}\n\n\\item{lwd}{line width}\n\n\\item{lty}{line type}\n\n\\item{type}{plot type: 'p' for points, 'l' for lines, 'b' for both}\n\n\\item{add}{logical; add to current plot? Note that when using \\code{add=TRUE}, you may have to set \\code{reset=FALSE} in the first plot command.}\n\n\\item{border}{color of polygon border(s); using \\code{NA} hides them}\n\n\\item{rule}{see \\link[graphics]{polypath}; for \\code{winding}, exterior ring direction should be opposite that of the holes; with \\code{evenodd}, plotting is robust against misspecified ring directions}\n\n\\item{xpd}{see \\link[graphics]{par}; sets polygon clipping strategy; only implemented for POLYGON and MULTIPOLYGON}\n\n\\item{asp}{see below, and see \\link{par}}\n\n\\item{axes}{logical; should axes be plotted? (default FALSE)}\n\n\\item{bgc}{background color}\n\n\\item{xaxs}{see \\link{par}}\n\n\\item{yaxs}{see \\link{par}}\n\n\\item{lab}{see \\link{par}}\n\n\\item{setParUsrBB}{default FALSE; set the \\code{par} \\dQuote{usr} bounding box; see below}\n\n\\item{bgMap}{object of class \\code{ggmap}, or returned by function \\code{RgoogleMaps::GetMap}}\n\n\\item{expandBB}{numeric; fractional values to expand the bounding box with,\nin each direction (bottom, left, top, right)}\n\n\\item{graticule}{logical, or object of class \\code{crs} (e.g., \\code{st_crs('OGC:CRS84')} for a WGS84 graticule), or object created by \\link{st_graticule}}\n\n\\item{col_graticule}{color to used for the graticule (if present)}\n\n\\item{n}{integer; number of colors}\n\n\\item{cutoff.tails}{numeric, in \\verb{[0,0.5]} start and end values}\n\n\\item{alpha}{numeric, in \\verb{[0,1]}, transparency}\n\n\\item{categorical}{logical; do we want colors for a categorical variable? (see details)}\n\n\\item{labels}{character, text to draw (one per row of input)}\n\n\\item{of_largest_polygon}{logical, passed on to \\link{st_centroid}}\n}\n\\description{\nplot one or more attributes of an sf object on a map\nPlot sf object\n}\n\\details{\n\\code{plot.sf} maximally plots \\code{max.plot} maps with colors following from attribute columns,\none map per attribute. It uses \\code{sf.colors} for default colors. For more control over placement of individual maps,\nset parameter \\code{mfrow} with \\link{par} prior to plotting, and plot single maps one by one; note that this only works\nin combination with setting parameters \\code{key.pos=NULL} (no legend) and \\code{reset=FALSE}.\n\n\\code{plot.sfc} plots the geometry, additional parameters can be passed on\nto control color, lines or symbols.\n\nWhen setting \\code{reset} to \\code{FALSE}, the original device parameters are lost, and the device must be reset using \\code{dev.off()} in order to reset it.\n\nparameter \\code{at} can be set to specify where labels are placed along the key; see examples.\n\nparameter \\code{mar} can be set in \\code{...} to override default margins.\n\nThe features are plotted in the order as they apppear in the sf object. See examples for when a different plotting order is wanted.\n\n\\code{plot_sf} sets up the plotting area, axes, graticule, or webmap background; it\nis called by all \\code{plot} methods before anything is drawn.\n\nThe argument \\code{setParUsrBB} may be used to pass the logical value \\code{TRUE} to functions within \\code{plot.Spatial}. When set to \\code{TRUE}, par(\\dQuote{usr}) will be overwritten with \\code{c(xlim, ylim)}, which defaults to the bounding box of the spatial object. This is only needed in the particular context of graphic output to a specified device with given width and height, to be matched to the spatial object, when using par(\\dQuote{xaxs}) and par(\\dQuote{yaxs}) in addition to \\code{par(mar=c(0,0,0,0))}.\n\nThe default aspect for map plots is 1; if however data are not\nprojected (coordinates are long/lat), the aspect is by default set to\n1/cos(My * pi/180) with My the y coordinate of the middle of the map\n(the mean of \\code{ylim}, which defaults to the y range of bounding box). This\nimplies an \\href{https://en.wikipedia.org/wiki/Equirectangular_projection}{Equirectangular projection}.\n\nnon-categorical colors from \\code{sf.colors} were taken from \\link[sp]{bpy.colors}, with modified \\code{cutoff.tails} defaults\nIf categorical is \\code{TRUE}, default colors are from \\url{https://colorbrewer2.org/} (if n < 9, Set2, else Set3).\n\n\\code{text.sf} adds text to an existing base graphic. Text is placed at the centroid of\neach feature in \\code{x}. Provide POINT features for further control of placement.\n\\code{points.sf} adds point symbols to an existing base graphic. If points of text are not shown\ncorrectly, try setting argument \\code{reset} to \\code{FALSE} in the \\code{plot()} call.\n}\n\\examples{\nnc = st_read(system.file(\"gpkg/nc.gpkg\", package=\"sf\"), quiet = TRUE)\n# plot single attribute, auto-legend:\nplot(nc[\"SID74\"])\n# plot multiple:\nplot(nc[c(\"SID74\", \"SID79\")]) # better use ggplot2::geom_sf to facet and get a single legend!\n# adding to a plot of an sf object only works when using reset=FALSE in the first plot:\nplot(nc[\"SID74\"], reset = FALSE)\nplot(st_centroid(st_geometry(nc)), add = TRUE)\n# log10 z-scale:\nplot(nc[\"SID74\"], logz = TRUE, breaks = c(0,.5,1,1.5,2), at = c(0,.5,1,1.5,2))\n# and we need to reset the plotting device after that, e.g. by\nlayout(1)\n# when plotting only geometries, the reset=FALSE is not needed:\nplot(st_geometry(nc))\nplot(st_geometry(nc)[1], col = 'red', add = TRUE)\n# add a custom legend to an arbitray plot:\nlayout(matrix(1:2, ncol = 2), widths = c(1, lcm(2)))\nplot(1)\n.image_scale(1:10, col = sf.colors(9), key.length = lcm(8), key.pos = 4, at = 1:10)\n# manipulate plotting order, plot largest polygons first:\np = st_polygon(list(rbind(c(0,0), c(1,0), c(1,1), c(0,1), c(0,0))))\nx = st_sf(a=1:4, st_sfc(p, p * 2, p * 3, p * 4)) # plot(x, col=2:5) only shows the largest polygon!\nplot(x[order(st_area(x), decreasing = TRUE),], col = 2:5) # plot largest polygons first\n\nsf.colors(10)\ntext(nc, labels = substring(nc$NAME,1,1))\n}\n"
},
{
"path": "man/prefix_map.Rd",
"content": "% Generated by roxygen2: do not edit by hand\n% Please edit documentation in R/read.R\n\\docType{data}\n\\name{prefix_map}\n\\alias{prefix_map}\n\\title{Map prefix to driver}\n\\usage{\nprefix_map\n}\n\\description{\nMap prefix to driver\n}\n"
},
{
"path": "man/proj_tools.Rd",
"content": "% Generated by roxygen2: do not edit by hand\n% Please edit documentation in R/proj.R\n\\name{proj_tools}\n\\alias{proj_tools}\n\\alias{sf_proj_search_paths}\n\\alias{sf_proj_network}\n\\alias{sf_proj_pipelines}\n\\title{Manage PROJ settings}\n\\usage{\nsf_proj_search_paths(paths = character(0), with_proj = NA)\n\nsf_proj_network(enable = FALSE, url = character(0))\n\nsf_proj_pipelines(\n source_crs,\n target_crs,\n authority = character(0),\n AOI = numeric(0),\n Use = \"NONE\",\n grid_availability = \"USED\",\n desired_accuracy = -1,\n strict_containment = FALSE,\n axis_order_authority_compliant = st_axis_order()\n)\n}\n\\arguments{\n\\item{paths}{the search path to be set; omit if paths need to be queried}\n\n\\item{with_proj}{logical; if \\code{NA} set for both GDAL and PROJ, otherwise set either for PROJ (\\code{TRUE}) or GDAL (\\code{FALSE})}\n\n\\item{enable}{logical; set this to enable (\\code{TRUE}) or disable (\\code{FALSE}) the proj network search facility}\n\n\\item{url}{character; use this to specify and override the default proj network CDN}\n\n\\item{source_crs, target_crs}{object of class \\code{crs} or character}\n\n\\item{authority}{character; constrain output pipelines to those of authority}\n\n\\item{AOI}{length four numeric; desired area of interest for the resulting\ncoordinate transformations (west, south, east, north, in degrees).\nFor an area of interest crossing the anti-meridian, west will be greater than east.}\n\n\\item{Use}{one of \"NONE\", \"BOTH\", \"INTERSECTION\", \"SMALLEST\", indicating how AOI's\nof source_crs and target_crs are being used}\n\n\\item{grid_availability}{character; one of \"USED\" (Grid availability is only used for sorting\nresults. Operations where some grids are missing will be sorted last), \"DISCARD\"\n(Completely discard an operation if a required grid is missing)\n, \"IGNORED\" (Ignore grid availability at all. Results will be presented as if all grids were\navailable.), or \"AVAILABLE\" (Results will be presented as if grids known to PROJ (that is\nregistered in the grid_alternatives table of its database) were available. Used typically when\nnetworking is enabled.)}\n\n\\item{desired_accuracy}{numeric; only return pipelines with at least this accuracy}\n\n\\item{strict_containment}{logical; default \\code{FALSE}; permit partial matching of the area\nof interest; if \\code{TRUE} strictly contain the area of interest.\nThe area of interest is either as given in AOI, or as implied by the\nsource/target coordinate reference systems}\n\n\\item{axis_order_authority_compliant}{logical; if \\code{FALSE} always\nchoose ‘x’ or longitude for the first\naxis; if TRUE, follow the axis orders given by the coordinate reference systems when\nconstructing the for the first axis; if \\code{FALSE}, follow the axis orders given by}\n}\n\\value{\n\\code{sf_proj_search_paths()} returns the search path (possibly after setting it)\n\n\\code{sf_proj_network} when called without arguments returns a logical indicating whether\nnetwork search of datum grids is enabled, when called with arguments it returns a character\nvector with the URL of the CDN used (or specified with \\code{url}).\n\n\\code{sf_proj_pipelines()} returns a table with candidate coordinate transformation\npipelines along with their accuracy; \\code{NA} accuracy indicates ballpark accuracy.\n}\n\\description{\nQuery or manage PROJ search path and network settings\n}\n"
},
{
"path": "man/rawToHex.Rd",
"content": "% Generated by roxygen2: do not edit by hand\n% Please edit documentation in R/wkb.R\n\\name{rawToHex}\n\\alias{rawToHex}\n\\title{Convert raw vector(s) into hexadecimal character string(s)}\n\\usage{\nrawToHex(x)\n}\n\\arguments{\n\\item{x}{raw vector, or list with raw vectors}\n}\n\\description{\nConvert raw vector(s) into hexadecimal character string(s)\n}\n"
},
{
"path": "man/s2.Rd",
"content": "% Generated by roxygen2: do not edit by hand\n% Please edit documentation in R/s2.R\n\\name{s2}\n\\alias{s2}\n\\alias{sf_use_s2}\n\\alias{st_as_s2}\n\\alias{st_as_s2.sf}\n\\alias{st_as_s2.sfc}\n\\title{functions for spherical geometry, using s2 package}\n\\usage{\nsf_use_s2(use_s2)\n\nst_as_s2(x, ...)\n\n\\method{st_as_s2}{sf}(x, ...)\n\n\\method{st_as_s2}{sfc}(\n x,\n ...,\n oriented = getOption(\"s2_oriented\", FALSE) || isTRUE(attr(x, \"oriented\")),\n rebuild = FALSE\n)\n}\n\\arguments{\n\\item{use_s2}{logical; if \\code{TRUE}, use the s2 spherical geometry package\nfor geographical coordinate operations}\n\n\\item{x}{object of class \\code{sf}, \\code{sfc} or \\code{sfg}}\n\n\\item{...}{passed on}\n\n\\item{oriented}{logical; if \\code{FALSE}, polygons that\ncover more than half of the globe are inverted; if \\code{TRUE}, no reversal\ntakes place and it is assumed that the inside of the polygon is to the\nleft of the polygon's path.}\n\n\\item{rebuild}{logical; call \\link[s2]{s2_rebuild} on the geometry (think of this as a \\code{st_make_valid} on the sphere)}\n}\n\\value{\n\\code{sf_use_s2} returns the value of this variable before (re)setting it,\ninvisibly if \\code{use_s2} is not missing.\n}\n\\description{\nfunctions for spherical geometry, using the s2 package based on the google s2geometry.io library\n}\n\\details{\n\\code{st_as_s2} converts an \\code{sf} POLYGON object into a form readable by \\code{s2}.\n}\n\\examples{\nm = rbind(c(-1,-1), c(1,-1), c(1,1), c(-1,1), c(-1,-1))\nm1 = rbind(c(-1,-1), c(1,-1), c(1,1), c(-1,1), c(-1,0), c(-1,-1))\nm0 = m[5:1,]\nmp = st_multipolygon(list(\nlist(m, 0.8 * m0, 0.01 * m1 + 0.9),\nlist(0.7* m, 0.6*m0),\nlist(0.5 * m0),\nlist(m+2),\nlist(m+4,(.9*m0)+4)\n))\nsf = st_sfc(mp, mp, crs = 'EPSG:4326')\ns2 = st_as_s2(sf)\n}\n"
},
{
"path": "man/sf-defunct.Rd",
"content": "% Generated by roxygen2: do not edit by hand\n% Please edit documentation in R/defunct.R\n\\name{sf-defunct}\n\\alias{sf-defunct}\n\\alias{st_read_db}\n\\alias{st_write_db}\n\\title{Deprecated functions in \\code{sf}}\n\\usage{\nst_read_db(\n conn = NULL,\n table = NULL,\n query = NULL,\n geom_column = NULL,\n EWKB = TRUE,\n ...\n)\n\nst_write_db(\n conn = NULL,\n obj,\n table = deparse(substitute(obj)),\n ...,\n drop = FALSE,\n append = FALSE\n)\n}\n\\arguments{\n\\item{conn}{open database connection}\n\n\\item{table}{table name}\n\n\\item{query}{SQL query to select records; see details}\n\n\\item{geom_column}{deprecated. Geometry column name}\n\n\\item{EWKB}{logical; is the WKB of type EWKB? if missing, defaults to\n\\code{TRUE}}\n\n\\item{...}{parameter(s) passed on to \\link{st_as_sf}}\n}\n\\description{\nThese functions are provided for compatibility with older version of \\code{sf}.\nThey will eventually be completely removed.\n\\itemize{\n\\item Use \\code{\\link[=st_read]{st_read()}} instead of \\code{st_read_db()}.\n\\item Use \\code{\\link[=st_write]{st_write()}} instead_of \\code{st_write_db()}\n}\n}\n\\details{\nThe \\code{geom_column} argument is deprecated. The function will\nautomatically find the \\code{geometry} type columns. For the \\code{RPostgreSQL} drivers\nit will try to cast all the character columns, which can be long for very wide\ntables.\n}\n\\keyword{internal}\n"
},
{
"path": "man/sf-package.Rd",
"content": "% Generated by roxygen2: do not edit by hand\n% Please edit documentation in R/sf-package.R\n\\docType{package}\n\\name{sf-package}\n\\alias{sf-package}\n\\title{sf: Simple Features for R}\n\\description{\n\\if{html}{\\figure{logo.png}{options: style='float: right' alt='logo' width='120'}}\n\nSupport for simple feature access, a standardized way to encode and analyze spatial vector data. Binds to 'GDAL' \\doi{10.5281/zenodo.5884351} for reading and writing data, to 'GEOS' \\doi{10.5281/zenodo.11396894} for geometrical operations, and to 'PROJ' \\doi{10.5281/zenodo.5884394} for projection conversions and datum transformations. Uses by default the 's2' package for geometry operations on geodetic (long/lat degree) coordinates.\n}\n\\references{\nPebesma, E. and Bivand, R. (2023). Spatial Data\nScience: With Applications in R. Chapman and Hall/CRC.\n\\doi{10.1201/9780429459016} which is also found freely\nonline at \\url{https://r-spatial.org/book/}\n\nPebesma, E., 2018. Simple Features for R: Standardized Support\nfor Spatial Vector Data. The R Journal 10 (1), 439-446,\n\\doi{10.32614/RJ-2018-009} (open access)\n}\n\\seealso{\nUseful links:\n\\itemize{\n \\item \\url{https://r-spatial.github.io/sf/}\n \\item \\url{https://github.com/r-spatial/sf}\n \\item Report bugs at \\url{https://github.com/r-spatial/sf/issues}\n}\n\n}\n\\author{\n\\strong{Maintainer}: Edzer Pebesma \\email{edzer.pebesma@uni-muenster.de} (\\href{https://orcid.org/0000-0001-8049-7069}{ORCID})\n\nAuthors:\n\\itemize{\n \\item Edzer Pebesma \\email{edzer.pebesma@uni-muenster.de} (\\href{https://orcid.org/0000-0001-8049-7069}{ORCID})\n}\n\nOther contributors:\n\\itemize{\n \\item Roger Bivand (\\href{https://orcid.org/0000-0003-2392-6140}{ORCID}) [contributor]\n \\item Etienne Racine [contributor]\n \\item Michael Sumner [contributor]\n \\item Ian Cook [contributor]\n \\item Tim Keitt [contributor]\n \\item Robin Lovelace [contributor]\n \\item Hadley Wickham [contributor]\n \\item Jeroen Ooms (\\href{https://orcid.org/0000-0002-4035-0289}{ORCID}) [contributor]\n \\item Kirill Müller [contributor]\n \\item Thomas Lin Pedersen [contributor]\n \\item Dan Baston [contributor]\n \\item Dewey Dunnington (\\href{https://orcid.org/0000-0002-9415-4582}{ORCID}) [contributor]\n \\item Alexandre Courtiol (\\href{https://orcid.org/0000-0003-0637-2959}{ORCID}) [contributor]\n}\n\n}\n\\keyword{internal}\n"
},
{
"path": "man/sf.Rd",
"content": "% Generated by roxygen2: do not edit by hand\n% Please edit documentation in R/sf.R\n\\name{sf}\n\\alias{sf}\n\\alias{st_sf}\n\\alias{[.sf}\n\\alias{print.sf}\n\\title{Create sf object}\n\\usage{\nst_sf(\n ...,\n agr = NA_agr_,\n row.names,\n stringsAsFactors = sf_stringsAsFactors(),\n crs,\n precision,\n sf_column_name = NULL,\n check_ring_dir = FALSE,\n sfc_last = TRUE\n)\n\n\\method{[}{sf}(x, i, j, ..., drop = FALSE, op = st_intersects)\n\n\\method{print}{sf}(x, ..., n = getOption(\"sf_max_print\", default = 10))\n}\n\\arguments{\n\\item{...}{column elements to be binded into an \\code{sf} object or a single \\code{list} or \\code{data.frame} with such columns; at least one of these columns shall be a geometry list-column of class \\code{sfc} or be a list-column that can be converted into an \\code{sfc} by \\link{st_as_sfc}.}\n\n\\item{agr}{character vector; see details below.}\n\n\\item{row.names}{row.names for the created \\code{sf} object}\n\n\\item{stringsAsFactors}{logical; see \\link{st_read}}\n\n\\item{crs}{coordinate reference system, something suitable as input to \\link{st_crs}}\n\n\\item{precision}{numeric; see \\link{st_as_binary}}\n\n\\item{sf_column_name}{character; name of the active list-column with simple feature geometries; in case\nthere is more than one and \\code{sf_column_name} is \\code{NULL}, the first one is taken.}\n\n\\item{check_ring_dir}{see \\link{st_read}}\n\n\\item{sfc_last}{logical; if \\code{TRUE}, \\code{sfc} columns are always put last, otherwise column order is left unmodified.}\n\n\\item{x}{object of class \\code{sf}}\n\n\\item{i}{record selection, see \\link{[.data.frame}, or a \\code{sf} object to work with the \\code{op} argument}\n\n\\item{j}{variable selection, see \\link{[.data.frame}}\n\n\\item{drop}{logical, default \\code{FALSE}; if \\code{TRUE} drop the geometry column and return a \\code{data.frame}, else make the geometry sticky and return a \\code{sf} object.}\n\n\\item{op}{function; geometrical binary predicate function to apply when \\code{i} is a simple feature object}\n\n\\item{n}{maximum number of features to print; can be set globally by \\code{options(sf_max_print=...)}}\n}\n\\description{\nCreate sf, which extends data.frame-like objects with a simple feature list column.\nTo convert a data frame object to \\code{sf}, use \\code{\\link[=st_as_sf]{st_as_sf()}}\n}\n\\details{\n\\code{agr}, attribute-geometry-relationship, specifies for each non-geometry attribute column how it relates to the geometry, and can have one of following values: \"constant\", \"aggregate\", \"identity\". \"constant\" is used for attributes that are constant throughout the geometry (e.g. land use), \"aggregate\" where the attribute is an aggregate value over the geometry (e.g. population density or population count), \"identity\" when the attributes uniquely identifies the geometry of particular \"thing\", such as a building ID or a city name. The default value, \\code{NA_agr_}, implies we don't know.\n\nWhen a single value is provided to \\code{agr}, it is cascaded across all input columns; otherwise, a named vector like \\code{c(feature1='constant', ...)} will set \\code{agr} value to \\code{'constant'} for the input column named \\code{feature1}. See \\code{demo(nc)} for a worked example of this.\n\nWhen confronted with a data.frame-like object, \\code{st_sf} will try to find a geometry column of class \\code{sfc}, and otherwise try to convert list-columns when available into a geometry column, using \\link{st_as_sfc}.\n\n\\code{[.sf} will return a \\code{data.frame} or vector if the geometry column (of class \\code{sfc}) is dropped (\\code{drop=TRUE}), an \\code{sfc} object if only the geometry column is selected, and otherwise return an \\code{sf} object; see also \\link{[.data.frame}; for \\code{[.sf} \\code{...} arguments are passed to \\code{op}.\n}\n\\examples{\ng = st_sfc(st_point(1:2))\nst_sf(a=3,g)\nst_sf(g, a=3)\nst_sf(a=3, st_sfc(st_point(1:2))) # better to name it!\n# create empty structure with preallocated empty geometries:\nnrows <- 10\ngeometry = st_sfc(lapply(1:nrows, function(x) st_geometrycollection()))\ndf <- st_sf(id = 1:nrows, geometry = geometry)\ng = st_sfc(st_point(1:2), st_point(3:4))\ns = st_sf(a=3:4, g)\ns[1,]\nclass(s[1,])\ns[,1]\nclass(s[,1])\ns[,2]\nclass(s[,2])\ng = st_sf(a=2:3, g)\npol = st_sfc(st_polygon(list(cbind(c(0,3,3,0,0),c(0,0,3,3,0)))))\nh = st_sf(r = 5, pol)\ng[h,]\nh[g,]\n}\n"
},
{
"path": "man/sf_extSoftVersion.Rd",
"content": "% Generated by roxygen2: do not edit by hand\n% Please edit documentation in R/init.R\n\\name{sf_extSoftVersion}\n\\alias{sf_extSoftVersion}\n\\title{Provide the external dependencies versions of the libraries linked to sf}\n\\usage{\nsf_extSoftVersion()\n}\n\\description{\nProvide the external dependencies versions of the libraries linked to sf\n}\n"
},
{
"path": "man/sf_project.Rd",
"content": "% Generated by roxygen2: do not edit by hand\n% Please edit documentation in R/init.R, R/proj.R\n\\name{sf_project}\n\\alias{sf_project}\n\\alias{sf_add_proj_units}\n\\title{directly transform a set of coordinates}\n\\usage{\nsf_add_proj_units()\n\nsf_project(\n from = character(0),\n to = character(0),\n pts,\n keep = FALSE,\n warn = TRUE,\n authority_compliant = st_axis_order()\n)\n}\n\\arguments{\n\\item{from}{character description of source CRS, or object of class \\code{crs},\nor pipeline describing a transformation}\n\n\\item{to}{character description of target CRS, or object of class \\code{crs}}\n\n\\item{pts}{two-, three- or four-column numeric matrix, or object that can be coerced into a matrix; columns 3 and 4 contain z and t values.}\n\n\\item{keep}{logical value controlling the handling of unprojectable points. If\n\\code{keep} is \\code{TRUE}, then such points will yield \\code{Inf} or \\code{-Inf} in the\nreturn value; otherwise an error is reported and nothing is returned.}\n\n\\item{warn}{logical; if \\code{TRUE}, warn when non-finite values are generated}\n\n\\item{authority_compliant}{logical; \\code{TRUE} means handle axis order authority compliant (e.g. EPSG:4326 implying x=lat, y=lon), \\code{FALSE} means use visualisation order (i.e. always x=lon, y=lat)}\n}\n\\value{\ntwo-column numeric matrix with transformed/converted coordinates, returning invalid values as \\code{Inf}\n}\n\\description{\ndirectly transform a set of coordinates\n}\n\\details{\n\\code{sf_add_proj_units} loads the PROJ units \\code{link}, \\code{us_in}, \\code{ind_yd}, \\code{ind_ft}, and \\code{ind_ch} into the udunits database, and returns \\code{TRUE} invisibly on success.\n}\n\\examples{\nsf_add_proj_units()\n}\n"
},
{
"path": "man/sfc.Rd",
"content": "% Generated by roxygen2: do not edit by hand\n% Please edit documentation in R/sfc.R\n\\name{sfc}\n\\alias{sfc}\n\\alias{st_sfc}\n\\alias{sfc_POINT}\n\\alias{sfc_LINESTRING}\n\\alias{sfc_POLYGON}\n\\alias{sfc_MULTIPOINT}\n\\alias{sfc_MULTILINESTRING}\n\\alias{sfc_MULTIPOLYGON}\n\\alias{sfc_GEOMETRYCOLLECTION}\n\\alias{[.sfc}\n\\title{Create simple feature geometry list column}\n\\usage{\nst_sfc(\n ...,\n crs = NA_crs_,\n precision = 0,\n check_ring_dir = FALSE,\n dim,\n recompute_bbox = FALSE,\n oriented = NA,\n fall_back_class = c(\"sfc_GEOMETRY\", \"sfc\")\n)\n\n\\method{[}{sfc}(x, i, j, ..., op = st_intersects)\n}\n\\arguments{\n\\item{...}{input: zero or more simple feature geometries (objects of class \\code{sfg}), or a single list of such objects; \\code{NULL} values will get replaced by empty geometries.}\n\n\\item{crs}{coordinate reference system: integer with the EPSG code, or character with proj4string}\n\n\\item{precision}{numeric; see \\link{st_as_binary}}\n\n\\item{check_ring_dir}{see \\link{st_read}}\n\n\\item{dim}{character; if this function is called without valid geometries, this argument may carry the right dimension to set empty geometries}\n\n\\item{recompute_bbox}{logical; use \\code{TRUE} to force recomputation of the bounding box}\n\n\\item{oriented}{logical; if \\code{TRUE}, the ring is oriented such that left of the edges is inside the polygon; this is\nneeded for convering polygons larger than half the globe to s2}\n\n\\item{fall_back_class}{character; class for return object when no geometries are provided as input}\n\n\\item{x}{object of class \\code{sfc}}\n\n\\item{i}{record selection. Might also be an \\code{sfc}/\\code{sf} object to work with the \\code{op} argument}\n\n\\item{j}{ignored if \\code{op} is specified}\n\n\\item{op}{function, geometrical binary predicate function to apply when\n\\code{i} is a \\code{sf}/\\code{sfc} object. Additional arguments can be\nspecified using \\code{...}, see examples.}\n}\n\\value{\nan object of class \\code{sfc}, which is a classed list-column with simple feature geometries.\n}\n\\description{\nCreate simple feature geometry list column, set class, and add coordinate reference system and precision.\nFor data.frame alternatives see \\code{\\link[=st_sf]{st_sf()}}. To convert a foreign object to \\code{sfc}, see \\code{\\link[=st_as_sfc]{st_as_sfc()}}\n}\n\\details{\nA simple feature geometry list-column is a list of class\n\\code{c(\"stc_TYPE\", \"sfc\")} which most often contains objects of identical type;\nin case of a mix of types or an empty set, \\code{TYPE} is set to the\nsuperclass \\code{GEOMETRY}.\n\nif \\code{x} has a \\code{dim} attribute (i.e. is an \\code{array} or \\code{matrix}) then \\code{op} cannot be used.\n}\n\\examples{\npt1 = st_point(c(0,1))\npt2 = st_point(c(1,1))\n(sfc = st_sfc(pt1, pt2))\nsfc[sfc[1], op = st_is_within_distance, dist = 0.5]\nd = st_sf(data.frame(a=1:2, geom=sfc))\n}\n"
},
{
"path": "man/sgbp.Rd",
"content": "% Generated by roxygen2: do not edit by hand\n% Please edit documentation in R/sgbp.R\n\\name{sgbp}\n\\alias{sgbp}\n\\alias{print.sgbp}\n\\alias{t.sgbp}\n\\alias{as.matrix.sgbp}\n\\alias{dim.sgbp}\n\\alias{Ops.sgbp}\n\\alias{as.data.frame.sgbp}\n\\title{Methods for dealing with sparse geometry binary predicate lists}\n\\usage{\n\\method{print}{sgbp}(x, ..., n = 10, max_nb = 10)\n\n\\method{t}{sgbp}(x)\n\n\\method{as.matrix}{sgbp}(x, ...)\n\n\\method{dim}{sgbp}(x)\n\n\\method{Ops}{sgbp}(e1, e2)\n\n\\method{as.data.frame}{sgbp}(x, ...)\n}\n\\arguments{\n\\item{x}{object of class \\code{sgbp}}\n\n\\item{...}{ignored}\n\n\\item{n}{integer; maximum number of items to print}\n\n\\item{max_nb}{integer; maximum number of neighbours to print for each item}\n\n\\item{e1}{object of class \\code{sgbp}}\n\n\\item{e2}{object of class \\code{sgbp}}\n}\n\\description{\nMethods for dealing with sparse geometry binary predicate lists\n}\n\\details{\n\\code{sgbp} are sparse matrices, stored as a list with integer vectors holding the ordered \\code{TRUE} indices of each row. This means that for a dense, \\eqn{m \\times n}{m x n} matrix \\code{Q} and a list \\code{L}, if \\code{Q[i,j]} is \\code{TRUE} then \\eqn{j} is an element of \\code{L[[i]]}. Reversed: when \\eqn{k} is the value of \\code{L[[i]][j]}, then \\code{Q[i,k]} is \\code{TRUE}.\n\n\\code{==} compares only the dimension and index values, not the attributes of two \\code{sgbp} object; use \\code{identical} to check for equality of everything.\n}\n"
},
{
"path": "man/st.Rd",
"content": "% Generated by roxygen2: do not edit by hand\n% Please edit documentation in R/sfg.R\n\\name{st}\n\\alias{st}\n\\alias{st_point}\n\\alias{st_multipoint}\n\\alias{st_linestring}\n\\alias{st_polygon}\n\\alias{st_multilinestring}\n\\alias{st_multipolygon}\n\\alias{st_geometrycollection}\n\\alias{print.sfg}\n\\alias{head.sfg}\n\\alias{format.sfg}\n\\alias{c.sfg}\n\\alias{as.matrix.sfg}\n\\title{Create simple feature from a numeric vector, matrix or list}\n\\usage{\nst_point(x = c(NA_real_, NA_real_), dim = \"XYZ\")\n\nst_multipoint(x = matrix(numeric(0), 0, 2), dim = \"XYZ\")\n\nst_linestring(x = matrix(numeric(0), 0, 2), dim = \"XYZ\")\n\nst_polygon(x = list(), dim = if (length(x)) \"XYZ\" else \"XY\")\n\nst_multilinestring(x = list(), dim = if (length(x)) \"XYZ\" else \"XY\")\n\nst_multipolygon(x = list(), dim = if (length(x)) \"XYZ\" else \"XY\")\n\nst_geometrycollection(x = list(), dims = \"XY\")\n\n\\method{print}{sfg}(x, ..., width = 0)\n\n\\method{head}{sfg}(x, n = 10L, ...)\n\n\\method{format}{sfg}(x, ..., width = 30)\n\n\\method{c}{sfg}(..., recursive = FALSE, flatten = TRUE)\n\n\\method{as.matrix}{sfg}(x, ...)\n}\n\\arguments{\n\\item{x}{for \\code{st_point}, numeric vector (or one-row-matrix) of length 2, 3 or 4; for \\code{st_linestring} and \\code{st_multipoint}, numeric matrix with points in rows; for \\code{st_polygon} and \\code{st_multilinestring}, list with numeric matrices with points in rows; for \\code{st_multipolygon}, list of lists with numeric matrices; for \\code{st_geometrycollection} list with (non-geometrycollection) simple feature geometry (sfg) objects; see examples below}\n\n\\item{dim}{character, indicating dimensions: \"XY\", \"XYZ\", \"XYM\", or \"XYZM\"; only really needed for three-dimensional points (which can be either XYZ or XYM) or empty geometries; see details}\n\n\\item{dims}{character; specify dimensionality in case of an empty (NULL) geometrycollection, in which case \\code{x} is the empty \\code{list()}.}\n\n\\item{...}{objects to be pasted together into a single simple feature}\n\n\\item{width}{integer; number of characters to be printed (max 30; 0 means print everything)}\n\n\\item{n}{integer; number of elements to be selected}\n\n\\item{recursive}{logical; ignored}\n\n\\item{flatten}{logical; if \\code{TRUE}, try to simplify results; if \\code{FALSE}, return geometrycollection containing all objects}\n}\n\\value{\nobject of the same nature as \\code{x}, but with appropriate class attribute set\n\nas.matrix returns the set of points that form a geometry as a single matrix, where each point is a row; use \\code{unlist(x, recursive = FALSE)} to get sets of matrices.\n}\n\\description{\nCreate simple feature from a numeric vector, matrix or list\n}\n\\details{\n\"XYZ\" refers to coordinates where the third dimension represents altitude, \"XYM\" refers to three-dimensional coordinates where the third dimension refers to something else (\"M\" for measure); checking of the sanity of \\code{x} may be only partial.\n\nWhen \\code{flatten=TRUE}, this method may merge points into a multipoint structure, and may not preserve order, and hence cannot be reverted. When given fish, it returns fish soup.\n}\n\\examples{\n(p1 = st_point(c(1,2)))\nclass(p1)\nst_bbox(p1)\n(p2 = st_point(c(1,2,3)))\nclass(p2)\n(p3 = st_point(c(1,2,3), \"XYM\"))\npts = matrix(1:10, , 2)\n(mp1 = st_multipoint(pts))\npts = matrix(1:15, , 3)\n(mp2 = st_multipoint(pts))\n(mp3 = st_multipoint(pts, \"XYM\"))\npts = matrix(1:20, , 4)\n(mp4 = st_multipoint(pts))\npts = matrix(1:10, , 2)\n(ls1 = st_linestring(pts))\npts = matrix(1:15, , 3)\n(ls2 = st_linestring(pts))\n(ls3 = st_linestring(pts, \"XYM\"))\npts = matrix(1:20, , 4)\n(ls4 = st_linestring(pts))\nouter = matrix(c(0,0,10,0,10,10,0,10,0,0),ncol=2, byrow=TRUE)\nhole1 = matrix(c(1,1,1,2,2,2,2,1,1,1),ncol=2, byrow=TRUE)\nhole2 = matrix(c(5,5,5,6,6,6,6,5,5,5),ncol=2, byrow=TRUE)\npts = list(outer, hole1, hole2)\n(ml1 = st_multilinestring(pts))\npts3 = lapply(pts, function(x) cbind(x, 0))\n(ml2 = st_multilinestring(pts3))\n(ml3 = st_multilinestring(pts3, \"XYM\"))\npts4 = lapply(pts3, function(x) cbind(x, 0))\n(ml4 = st_multilinestring(pts4))\nouter = matrix(c(0,0,10,0,10,10,0,10,0,0),ncol=2, byrow=TRUE)\nhole1 = matrix(c(1,1,1,2,2,2,2,1,1,1),ncol=2, byrow=TRUE)\nhole2 = matrix(c(5,5,5,6,6,6,6,5,5,5),ncol=2, byrow=TRUE)\npts = list(outer, hole1, hole2)\n(pl1 = st_polygon(pts))\npts3 = lapply(pts, function(x) cbind(x, 0))\n(pl2 = st_polygon(pts3))\n(pl3 = st_polygon(pts3, \"XYM\"))\npts4 = lapply(pts3, function(x) cbind(x, 0))\n(pl4 = st_polygon(pts4))\npol1 = list(outer, hole1, hole2)\npol2 = list(outer + 12, hole1 + 12)\npol3 = list(outer + 24)\nmp = list(pol1,pol2,pol3)\n(mp1 = st_multipolygon(mp))\npts3 = lapply(mp, function(x) lapply(x, function(y) cbind(y, 0)))\n(mp2 = st_multipolygon(pts3))\n(mp3 = st_multipolygon(pts3, \"XYM\"))\npts4 = lapply(mp2, function(x) lapply(x, function(y) cbind(y, 0)))\n(mp4 = st_multipolygon(pts4))\n(gc = st_geometrycollection(list(p1, ls1, pl1, mp1)))\nst_geometrycollection() # empty geometry\nc(st_point(1:2), st_point(5:6))\nc(st_point(1:2), st_multipoint(matrix(5:8,2)))\nc(st_multipoint(matrix(1:4,2)), st_multipoint(matrix(5:8,2)))\nc(st_linestring(matrix(1:6,3)), st_linestring(matrix(11:16,3)))\nc(st_multilinestring(list(matrix(1:6,3))), st_multilinestring(list(matrix(11:16,3))))\npl = list(rbind(c(0,0), c(1,0), c(1,1), c(0,1), c(0,0)))\nc(st_polygon(pl), st_polygon(pl))\nc(st_polygon(pl), st_multipolygon(list(pl)))\nc(st_linestring(matrix(1:6,3)), st_point(1:2))\nc(st_geometrycollection(list(st_point(1:2), st_linestring(matrix(1:6,3)))),\n st_geometrycollection(list(st_multilinestring(list(matrix(11:16,3))))))\nc(st_geometrycollection(list(st_point(1:2), st_linestring(matrix(1:6,3)))),\n st_multilinestring(list(matrix(11:16,3))), st_point(5:6),\n st_geometrycollection(list(st_point(10:11))))\n}\n"
},
{
"path": "man/st_agr.Rd",
"content": "% Generated by roxygen2: do not edit by hand\n% Please edit documentation in R/agr.R\n\\name{st_agr}\n\\alias{st_agr}\n\\alias{NA_agr_}\n\\alias{st_agr<-}\n\\alias{st_set_agr}\n\\title{get or set relation_to_geometry attribute of an \\code{sf} object}\n\\usage{\nNA_agr_\n\nst_agr(x, ...)\n\nst_agr(x) <- value\n\nst_set_agr(x, value)\n}\n\\arguments{\n\\item{x}{object of class \\code{sf}}\n\n\\item{...}{ignored}\n\n\\item{value}{character, or factor with appropriate levels; if named, names should correspond to the non-geometry list-column columns of \\code{x}}\n}\n\\description{\nget or set relation_to_geometry attribute of an \\code{sf} object\n}\n\\details{\n\\code{NA_agr_} is the \\code{agr} object with a missing value.\n}\n"
},
{
"path": "man/st_as_binary.Rd",
"content": "% Generated by roxygen2: do not edit by hand\n% Please edit documentation in R/wkb.R\n\\name{st_as_binary}\n\\alias{st_as_binary}\n\\alias{st_as_binary.sfc}\n\\alias{st_as_binary.sfg}\n\\title{Convert sfc object to an WKB object}\n\\usage{\nst_as_binary(x, ...)\n\n\\method{st_as_binary}{sfc}(\n x,\n ...,\n EWKB = FALSE,\n endian = .Platform$endian,\n pureR = FALSE,\n precision = attr(x, \"precision\"),\n hex = FALSE\n)\n\n\\method{st_as_binary}{sfg}(\n x,\n ...,\n endian = .Platform$endian,\n EWKB = FALSE,\n pureR = FALSE,\n hex = FALSE,\n srid = 0\n)\n}\n\\arguments{\n\\item{x}{object to convert}\n\n\\item{...}{ignored}\n\n\\item{EWKB}{logical; use EWKB (PostGIS), or (default) ISO-WKB?}\n\n\\item{endian}{character; either \"big\" or \"little\"; default: use that of platform}\n\n\\item{pureR}{logical; use pure R solution, or C++?}\n\n\\item{precision}{numeric; if zero, do not modify; to reduce precision: negative values convert to float (4-byte real); positive values convert to round(x*precision)/precision. See details.}\n\n\\item{hex}{logical; return as (unclassed) hexadecimal encoded character vector?}\n\n\\item{srid}{integer; override srid (can be used when the srid is unavailable locally).}\n}\n\\description{\nConvert sfc object to an WKB object\n}\n\\details{\n\\code{st_as_binary} is called on sfc objects on their way to the GDAL or GEOS libraries, and hence does rounding (if requested) on the fly before e.g. computing spatial predicates like \\link{st_intersects}. The examples show a round-trip of an \\code{sfc} to and from binary.\n\nFor the precision model used, see also \\url{https://locationtech.github.io/jts/javadoc/org/locationtech/jts/geom/PrecisionModel.html}. There, it is written that: ``... to specify 3 decimal places of precision, use a scale factor of 1000. To specify -3 decimal places of precision (i.e. rounding to the nearest 1000), use a scale factor of 0.001.''. Note that ALL coordinates, so also Z or M values (if present) are affected.\n}\n\\examples{\n# examples of setting precision:\nst_point(c(1/3, 1/6)) |> st_sfc(precision = 1000) |> st_as_binary() |> st_as_sfc()\nst_point(c(1/3, 1/6)) |> st_sfc(precision = 100) |> st_as_binary() |> st_as_sfc()\nst_point(1e6 * c(1/3, 1/6)) |> st_sfc(precision = 0.01) |> st_as_binary() |> st_as_sfc()\nst_point(1e6 * c(1/3, 1/6)) |> st_sfc(precision = 0.001) |> st_as_binary() |> st_as_sfc()\n}\n"
},
{
"path": "man/st_as_grob.Rd",
"content": "% Generated by roxygen2: do not edit by hand\n% Please edit documentation in R/grid.R\n\\name{st_as_grob}\n\\alias{st_as_grob}\n\\title{Convert sf* object to a grob}\n\\usage{\nst_as_grob(x, ...)\n}\n\\arguments{\n\\item{x}{object to be converted into an object class \\code{grob}}\n\n\\item{...}{passed on to the xxxGrob function, e.g. \\code{gp = gpar(col = 'red')}}\n}\n\\description{\nConvert sf* object to an grid graphics object (grob)\n}\n"
},
{
"path": "man/st_as_sf.Rd",
"content": "% Generated by roxygen2: do not edit by hand\n% Please edit documentation in R/sf.R, R/sp.R, R/maps.R, R/spatstat.R, R/s2.R\n\\name{st_as_sf}\n\\alias{st_as_sf}\n\\alias{st_as_sf.data.frame}\n\\alias{st_as_sf.sf}\n\\alias{st_as_sf.sfc}\n\\alias{st_as_sf.Spatial}\n\\alias{st_as_sf.map}\n\\alias{st_as_sf.ppp}\n\\alias{st_as_sf.psp}\n\\alias{st_as_sf.lpp}\n\\alias{st_as_sf.s2_geography}\n\\title{Convert foreign object to an sf object}\n\\usage{\nst_as_sf(x, ...)\n\n\\method{st_as_sf}{data.frame}(\n x,\n ...,\n agr = NA_agr_,\n coords,\n wkt,\n dim = \"XYZ\",\n remove = TRUE,\n na.fail = TRUE,\n sf_column_name = NULL\n)\n\n\\method{st_as_sf}{sf}(x, ...)\n\n\\method{st_as_sf}{sfc}(x, ...)\n\n\\method{st_as_sf}{Spatial}(x, ...)\n\n\\method{st_as_sf}{map}(x, ..., fill = TRUE, group = TRUE)\n\n\\method{st_as_sf}{ppp}(x, ...)\n\n\\method{st_as_sf}{psp}(x, ...)\n\n\\method{st_as_sf}{lpp}(x, ...)\n\n\\method{st_as_sf}{s2_geography}(x, ..., crs = st_crs(4326))\n}\n\\arguments{\n\\item{x}{object to be converted into an object class \\code{sf}}\n\n\\item{...}{passed on to \\link{st_sf}, might included named arguments \\code{crs} or \\code{precision}}\n\n\\item{agr}{character vector; see details section of \\link{st_sf}}\n\n\\item{coords}{in case of point data: names or numbers of the numeric columns holding coordinates}\n\n\\item{wkt}{name or number of the character column that holds WKT encoded geometries}\n\n\\item{dim}{specify what 3- or 4-dimensional points reflect: passed on to \\link{st_point} (only when argument coords is given)}\n\n\\item{remove}{logical; when coords or wkt is given, remove these columns from data.frame?}\n\n\\item{na.fail}{logical; if \\code{TRUE}, raise an error if coordinates contain missing values}\n\n\\item{sf_column_name}{character; name of the active list-column with simple feature geometries; in case\nthere is more than one and \\code{sf_column_name} is \\code{NULL}, the first one is taken.}\n\n\\item{fill}{logical; the value for \\code{fill} that was used in the call to \\link[maps]{map}.}\n\n\\item{group}{logical; if \\code{TRUE}, group id labels from \\link[maps]{map} by their prefix before \\code{:}}\n\n\\item{crs}{coordinate reference system to be assigned; object of class \\code{crs}}\n}\n\\description{\nConvert foreign object to an sf object\n}\n\\details{\nsetting argument \\code{wkt} annihilates the use of argument \\code{coords}. If \\code{x} contains a column called \"geometry\", \\code{coords} will result in overwriting of this column by the \\link{sfc} geometry list-column. Setting \\code{wkt} will replace this column with the geometry list-column, unless \\code{remove} is \\code{FALSE}.\n\nIf \\code{coords} has length 4, and \\code{dim} is not \\code{XYZM}, the four columns are taken as the xmin, ymin, xmax, ymax corner coordinates of a rectangle, and polygons are returned.\n}\n\\examples{\npt1 = st_point(c(0,1))\npt2 = st_point(c(1,1))\nst_sfc(pt1, pt2)\nd = data.frame(a = 1:2)\nd$geom = st_sfc(pt1, pt2)\ndf = st_as_sf(d)\nd$geom = c(\"POINT(0 0)\", \"POINT(0 1)\")\ndf = st_as_sf(d, wkt = \"geom\")\nd$geom2 = st_sfc(pt1, pt2)\nst_as_sf(d) # should warn\nif (require(sp, quietly = TRUE)) {\n data(meuse, package = \"sp\")\n meuse_sf = st_as_sf(meuse, coords = c(\"x\", \"y\"), crs = 28992, agr = \"constant\")\n meuse_sf[1:3,]\n summary(meuse_sf)\n}\nif (require(sp, quietly = TRUE)) {\nx = rbind(c(-1,-1), c(1,-1), c(1,1), c(-1,1), c(-1,-1))\nx1 = 0.1 * x + 0.1\nx2 = 0.1 * x + 0.4\nx3 = 0.1 * x + 0.7\ny = x + 3\ny1 = x1 + 3\ny3 = x3 + 3\nm = matrix(c(3, 0), 5, 2, byrow = TRUE)\nz = x + m\nz1 = x1 + m\nz2 = x2 + m\nz3 = x3 + m\np1 = Polygons(list( Polygon(x[5:1,]), Polygon(x2), Polygon(x3),\n Polygon(y[5:1,]), Polygon(y1), Polygon(x1), Polygon(y3)), \"ID1\")\np2 = Polygons(list( Polygon(z[5:1,]), Polygon(z2), Polygon(z3), Polygon(z1)),\n \"ID2\")\nr = SpatialPolygons(list(p1,p2))\na = suppressWarnings(st_as_sf(r))\nsummary(a)\ndemo(meuse, ask = FALSE, echo = FALSE)\nsummary(st_as_sf(meuse))\nsummary(st_as_sf(meuse.grid))\nsummary(st_as_sf(meuse.area))\nsummary(st_as_sf(meuse.riv))\nsummary(st_as_sf(as(meuse.riv, \"SpatialLines\")))\npol.grd = as(meuse.grid, \"SpatialPolygonsDataFrame\")\n# summary(st_as_sf(pol.grd))\n# summary(st_as_sf(as(pol.grd, \"SpatialLinesDataFrame\")))\n}\nif (require(spatstat.geom)) {\n g = st_as_sf(gorillas)\n # select only the points:\n g[st_is(g, \"POINT\"),]\n}\nif (require(spatstat.linnet)) {\n data(chicago)\n plot(st_as_sf(chicago)[\"label\"])\n plot(st_as_sf(chicago)[-1,\"label\"])\n}\n}\n"
},
{
"path": "man/st_as_sfc.Rd",
"content": "% Generated by roxygen2: do not edit by hand\n% Please edit documentation in R/db.R, R/sfc.R, R/wkb.R, R/wkt.R, R/sp.R,\n% R/maps.R, R/s2.R\n\\name{st_as_sfc}\n\\alias{st_as_sfc}\n\\alias{st_as_sfc.pq_geometry}\n\\alias{st_as_sfc.list}\n\\alias{st_as_sfc.blob}\n\\alias{st_as_sfc.bbox}\n\\alias{st_as_sfc.WKB}\n\\alias{st_as_sfc.raw}\n\\alias{st_as_sfc.character}\n\\alias{st_as_sfc.factor}\n\\alias{st_as_sfc.SpatialPoints}\n\\alias{st_as_sfc.SpatialPixels}\n\\alias{st_as_sfc.SpatialMultiPoints}\n\\alias{st_as_sfc.SpatialLines}\n\\alias{st_as_sfc.SpatialPolygons}\n\\alias{st_as_sfc.map}\n\\alias{st_as_sfc.s2_geography}\n\\title{Convert foreign geometry object to an sfc object}\n\\usage{\n\\method{st_as_sfc}{pq_geometry}(\n x,\n ...,\n EWKB = TRUE,\n spatialite = FALSE,\n pureR = FALSE,\n crs = NA_crs_\n)\n\n\\method{st_as_sfc}{list}(x, ..., crs = NA_crs_)\n\n\\method{st_as_sfc}{blob}(x, ...)\n\n\\method{st_as_sfc}{bbox}(x, ...)\n\n\\method{st_as_sfc}{WKB}(\n x,\n ...,\n EWKB = FALSE,\n spatialite = FALSE,\n pureR = FALSE,\n crs = NA_crs_\n)\n\n\\method{st_as_sfc}{raw}(x, ...)\n\n\\method{st_as_sfc}{character}(x, crs = NA_integer_, ..., GeoJSON = FALSE)\n\n\\method{st_as_sfc}{factor}(x, ...)\n\nst_as_sfc(x, ...)\n\n\\method{st_as_sfc}{SpatialPoints}(x, ..., precision = 0)\n\n\\method{st_as_sfc}{SpatialPixels}(x, ..., precision = 0)\n\n\\method{st_as_sfc}{SpatialMultiPoints}(x, ..., precision = 0)\n\n\\method{st_as_sfc}{SpatialLines}(x, ..., precision = 0, forceMulti = FALSE)\n\n\\method{st_as_sfc}{SpatialPolygons}(x, ..., precision = 0, forceMulti = FALSE)\n\n\\method{st_as_sfc}{map}(x, ...)\n\n\\method{st_as_sfc}{s2_geography}(\n x,\n ...,\n crs = st_crs(4326),\n endian = match(.Platform$endian, c(\"big\", \"little\")) - 1L\n)\n}\n\\arguments{\n\\item{x}{object to convert}\n\n\\item{...}{further arguments}\n\n\\item{EWKB}{logical; if \\code{TRUE}, parse as EWKB (extended WKB; PostGIS: ST_AsEWKB), otherwise as ISO WKB (PostGIS: ST_AsBinary)}\n\n\\item{spatialite}{logical; if \\code{TRUE}, WKB is assumed to be in the spatialite dialect, see \\url{https://www.gaia-gis.it/gaia-sins/BLOB-Geometry.html}; this is only supported in native endian-ness (i.e., files written on system with the same endian-ness as that on which it is being read).}\n\n\\item{pureR}{logical; if \\code{TRUE}, use only R code, if \\code{FALSE}, use compiled (C++) code; use \\code{TRUE} when the endian-ness of the binary differs from the host machine (\\code{.Platform$endian}).}\n\n\\item{crs}{coordinate reference system to be assigned; object of class \\code{crs}}\n\n\\item{GeoJSON}{logical; if \\code{TRUE}, try to read geometries from GeoJSON text strings\ngeometry, see \\code{\\link[=st_crs]{st_crs()}}}\n\n\\item{precision}{precision value; see \\link{st_as_binary}}\n\n\\item{forceMulti}{logical; if \\code{TRUE}, force coercion into \\code{MULTIPOLYGON} or \\code{MULTILINE} objects, else autodetect}\n\n\\item{endian}{integer; 0 or 1: defaults to the endian of the native machine}\n}\n\\description{\nConvert foreign geometry object to an sfc object\n}\n\\details{\nWhen converting from WKB, the object \\code{x} is either a character vector such as typically obtained from PostGIS (either with leading \"0x\" or without), or a list with raw vectors representing the features in binary (raw) form.\n\nIf \\code{x} is a character vector, it should be a vector containing\n\\href{https://www.ogc.org/standards/wkt-crs/}{well-known-text}, or\nPostgis EWKT or GeoJSON representations of a single geometry for each vector element.\n\nIf \\code{x} is a \\code{factor}, it is converted to \\code{character}.\n}\n\\examples{\nwkb = structure(list(\"01010000204071000000000000801A064100000000AC5C1441\"), class = \"WKB\")\nst_as_sfc(wkb, EWKB = TRUE)\nwkb = structure(list(\"0x01010000204071000000000000801A064100000000AC5C1441\"), class = \"WKB\")\nst_as_sfc(wkb, EWKB = TRUE)\nst_as_sfc(st_as_binary(st_sfc(st_point(0:1)))[[1]], crs = 4326)\nst_as_sfc(\"SRID=3978;LINESTRING(1663106 -105415,1664320 -104617)\")\n}\n"
},
{
"path": "man/st_as_text.Rd",
"content": "% Generated by roxygen2: do not edit by hand\n% Please edit documentation in R/crs.R, R/wkt.R\n\\name{st_as_text}\n\\alias{st_as_text}\n\\alias{st_as_text.crs}\n\\alias{st_as_text.sfg}\n\\alias{st_as_text.sfc}\n\\title{Return Well-known Text representation of simple feature geometry or coordinate reference system}\n\\usage{\n\\method{st_as_text}{crs}(x, ..., projjson = FALSE, pretty = FALSE)\n\nst_as_text(x, ...)\n\n\\method{st_as_text}{sfg}(x, ...)\n\n\\method{st_as_text}{sfc}(x, ..., EWKT = FALSE)\n}\n\\arguments{\n\\item{x}{object of class \\code{sfg}, \\code{sfc} or \\code{crs}}\n\n\\item{...}{modifiers; in particular \\code{digits} can be passed to control the number of digits used}\n\n\\item{projjson}{logical; if TRUE, return projjson form (requires GDAL 3.1 and PROJ 6.2), else return well-known-text form}\n\n\\item{pretty}{logical; if TRUE, print human-readable well-known-text representation of a coordinate reference system}\n\n\\item{EWKT}{logical; if TRUE, print SRID=xxx; before the WKT string if \\code{epsg} is available}\n}\n\\description{\nReturn Well-known Text representation of simple feature geometry or coordinate reference system\n}\n\\details{\nThe returned WKT representation of simple feature geometry conforms to the\n\\href{https://en.wikipedia.org/wiki/Simple_Features}{simple features access} specification and extensions\n(known as EWKT, supported by PostGIS and other simple features implementations for addition of\na SRID to a WKT string).\n}\n\\note{\nTo improve conversion performance, the lwgeom package can be used (it must be installed\nbeforehand) and set the \\code{Sys.setenv(\"LWGEOM_WKT\" = \"true\")} environment variable. This\nwill also result in faster printing of complex geometries. Note that the representation as WKT is\ndifferent from the sf package and may cause reproducibility problems. An alternative solution is\nto use the \\code{\\link[lwgeom:st_astext]{lwgeom::st_astext()}} or \\code{\\link[wk:as_wkt]{wk::as_wkt()}} functions.\n}\n\\examples{\nst_as_text(st_point(1:2))\nst_as_text(st_sfc(st_point(c(-90,40)), crs = 4326), EWKT = TRUE)\n}\n"
},
{
"path": "man/st_bbox.Rd",
"content": "% Generated by roxygen2: do not edit by hand\n% Please edit documentation in R/bbox.R\n\\name{st_bbox}\n\\alias{st_bbox}\n\\alias{is.na.bbox}\n\\alias{st_bbox.POINT}\n\\alias{st_bbox.MULTIPOINT}\n\\alias{st_bbox.LINESTRING}\n\\alias{st_bbox.POLYGON}\n\\alias{st_bbox.MULTILINESTRING}\n\\alias{st_bbox.MULTIPOLYGON}\n\\alias{st_bbox.GEOMETRYCOLLECTION}\n\\alias{st_bbox.MULTISURFACE}\n\\alias{st_bbox.MULTICURVE}\n\\alias{st_bbox.CURVEPOLYGON}\n\\alias{st_bbox.COMPOUNDCURVE}\n\\alias{st_bbox.POLYHEDRALSURFACE}\n\\alias{st_bbox.TIN}\n\\alias{st_bbox.TRIANGLE}\n\\alias{st_bbox.CIRCULARSTRING}\n\\alias{st_bbox.sfc}\n\\alias{st_bbox.sf}\n\\alias{st_bbox.Spatial}\n\\alias{st_bbox.Raster}\n\\alias{st_bbox.Extent}\n\\alias{st_bbox.numeric}\n\\alias{NA_bbox_}\n\\alias{FULL_bbox_}\n\\alias{format.bbox}\n\\title{Return bounding of a simple feature or simple feature set}\n\\usage{\n\\method{is.na}{bbox}(x)\n\nst_bbox(obj, ...)\n\n\\method{st_bbox}{POINT}(obj, ...)\n\n\\method{st_bbox}{MULTIPOINT}(obj, ...)\n\n\\method{st_bbox}{LINESTRING}(obj, ...)\n\n\\method{st_bbox}{POLYGON}(obj, ...)\n\n\\method{st_bbox}{MULTILINESTRING}(obj, ...)\n\n\\method{st_bbox}{MULTIPOLYGON}(obj, ...)\n\n\\method{st_bbox}{GEOMETRYCOLLECTION}(obj, ...)\n\n\\method{st_bbox}{MULTISURFACE}(obj, ...)\n\n\\method{st_bbox}{MULTICURVE}(obj, ...)\n\n\\method{st_bbox}{CURVEPOLYGON}(obj, ...)\n\n\\method{st_bbox}{COMPOUNDCURVE}(obj, ...)\n\n\\method{st_bbox}{POLYHEDRALSURFACE}(obj, ...)\n\n\\method{st_bbox}{TIN}(obj, ...)\n\n\\method{st_bbox}{TRIANGLE}(obj, ...)\n\n\\method{st_bbox}{CIRCULARSTRING}(obj, ...)\n\n\\method{st_bbox}{sfc}(obj, ...)\n\n\\method{st_bbox}{sf}(obj, ...)\n\n\\method{st_bbox}{Spatial}(obj, ...)\n\n\\method{st_bbox}{Raster}(obj, ...)\n\n\\method{st_bbox}{Extent}(obj, ..., crs = NA_crs_)\n\n\\method{st_bbox}{numeric}(obj, ..., crs = NA_crs_)\n\nNA_bbox_\n\nFULL_bbox_\n\n\\method{format}{bbox}(x, ...)\n}\n\\arguments{\n\\item{x}{object of class \\code{bbox}}\n\n\\item{obj}{object to compute the bounding box from}\n\n\\item{...}{for format.bbox, passed on to \\link[base]{format} to format individual numbers}\n\n\\item{crs}{object of class \\code{crs}, or argument to \\link{st_crs}, specifying the CRS of this bounding box.}\n}\n\\value{\na numeric vector of length four, with \\code{xmin}, \\code{ymin}, \\code{xmax}\nand \\code{ymax} values; if \\code{obj} is of class \\code{sf}, \\code{sfc}, \\code{Spatial} or \\code{Raster}, the object\nreturned has a class \\code{bbox}, an attribute \\code{crs} and a method to print the\nbbox and an \\code{st_crs} method to retrieve the coordinate reference system\ncorresponding to \\code{obj} (and hence the bounding box). \\link{st_as_sfc} has a\nmethods for \\code{bbox} objects to generate a polygon around the four bounding box points.\n}\n\\description{\nReturn bounding of a simple feature or simple feature set\n}\n\\details{\n\\code{NA_bbox_} represents the missing value for a \\code{bbox} object\n\n\\code{NA_bbox_} represents the missing value for a \\code{bbox} object\n}\n\\examples{\na = st_sf(a = 1:2, geom = st_sfc(st_point(0:1), st_point(1:2)), crs = 4326)\nst_bbox(a)\nst_as_sfc(st_bbox(a))\nst_bbox(c(xmin = 16.1, xmax = 16.6, ymax = 48.6, ymin = 47.9), crs = st_crs(4326))\n}\n"
},
{
"path": "man/st_break_antimeridian.Rd",
"content": "% Generated by roxygen2: do not edit by hand\n% Please edit documentation in R/break_antimeridian.R\n\\name{st_break_antimeridian}\n\\alias{st_break_antimeridian}\n\\alias{st_break_antimeridian.sf}\n\\alias{st_break_antimeridian.sfc}\n\\title{Break antimeridian for plotting not centred on Greenwich}\n\\usage{\nst_break_antimeridian(x, lon_0 = 0, tol = 1e-04, ...)\n\n\\method{st_break_antimeridian}{sf}(x, lon_0 = 0, tol = 1e-04, ...)\n\n\\method{st_break_antimeridian}{sfc}(x, lon_0 = 0, tol = 1e-04, ...)\n}\n\\arguments{\n\\item{x}{object of class \\code{sf} or \\code{sfc}}\n\n\\item{lon_0}{target central longitude (degrees)}\n\n\\item{tol}{half of break width (degrees, default 0.0001)}\n\n\\item{...}{ignored here}\n}\n\\description{\nLongitudes can be broken at the antimeridian of a target central longitude\nto permit plotting of (usually world) line or polygon objects centred\non the chosen central longitude. The method may only be used with\nnon-projected, geographical coordinates and linestring or polygon objects.\ns2 is turned off internally to permit the use of a rectangular bounding\nbox. If the input geometries go outside \\verb{[-180, 180]} degrees longitude,\nthe protruding geometries will also be split using the same \\code{tol=}\nvalues; in this case empty geometries will be dropped first.\n}\n\\examples{\n\\donttest{\nif (require(\"maps\", quietly=TRUE)) {\n opar = par(mfrow=c(3, 2))\n wld = st_as_sf(map(fill=FALSE, interior=FALSE, plot=FALSE), fill=FALSE)\n for (lon_0 in c(-170, -90, -10, 10, 90, 170)) {\n br = st_break_antimeridian(wld, lon_0 = lon_0)\n tr = st_transform(br, paste0(\"+proj=natearth +lon_0=\", lon_0))\n plot(st_geometry(tr), main=lon_0)\n }\n par(opar)\n}\n}\n}\n"
},
{
"path": "man/st_cast.Rd",
"content": "% Generated by roxygen2: do not edit by hand\n% Please edit documentation in R/cast_sfg.R, R/cast_sfc.R\n\\name{st_cast}\n\\alias{st_cast}\n\\alias{st_cast.MULTIPOLYGON}\n\\alias{st_cast.MULTILINESTRING}\n\\alias{st_cast.MULTIPOINT}\n\\alias{st_cast.POLYGON}\n\\alias{st_cast.LINESTRING}\n\\alias{st_cast.POINT}\n\\alias{st_cast.GEOMETRYCOLLECTION}\n\\alias{st_cast.CIRCULARSTRING}\n\\alias{st_cast.MULTISURFACE}\n\\alias{st_cast.COMPOUNDCURVE}\n\\alias{st_cast.MULTICURVE}\n\\alias{st_cast.CURVE}\n\\alias{st_cast.sfc}\n\\alias{st_cast.sf}\n\\alias{st_cast.sfc_CIRCULARSTRING}\n\\title{Cast geometry to another type: either simplify, or cast explicitly}\n\\usage{\n\\method{st_cast}{MULTIPOLYGON}(x, to, ...)\n\n\\method{st_cast}{MULTILINESTRING}(x, to, ...)\n\n\\method{st_cast}{MULTIPOINT}(x, to, ...)\n\n\\method{st_cast}{POLYGON}(x, to, ...)\n\n\\method{st_cast}{LINESTRING}(x, to, ...)\n\n\\method{st_cast}{POINT}(x, to, ...)\n\n\\method{st_cast}{GEOMETRYCOLLECTION}(x, to, ...)\n\n\\method{st_cast}{CIRCULARSTRING}(x, to, ...)\n\n\\method{st_cast}{MULTISURFACE}(x, to, ...)\n\n\\method{st_cast}{COMPOUNDCURVE}(x, to, ...)\n\n\\method{st_cast}{MULTICURVE}(x, to, ...)\n\n\\method{st_cast}{CURVE}(x, to, ...)\n\nst_cast(x, to, ...)\n\n\\method{st_cast}{sfc}(x, to, ..., ids = seq_along(x), group_or_split = TRUE)\n\n\\method{st_cast}{sf}(x, to, ..., warn = TRUE, do_split = TRUE)\n\n\\method{st_cast}{sfc_CIRCULARSTRING}(x, to, ...)\n}\n\\arguments{\n\\item{x}{object of class \\code{sfg}, \\code{sfc} or \\code{sf}}\n\n\\item{to}{character; target type, if missing, simplification is tried; when \\code{x} is of type \\code{sfg} (i.e., a single geometry) then \\code{to} needs to be specified.}\n\n\\item{...}{ignored}\n\n\\item{ids}{integer vector, denoting how geometries should be grouped (default: no grouping)}\n\n\\item{group_or_split}{logical; if TRUE, group or split geometries; if FALSE, carry out a 1-1 per-geometry conversion.}\n\n\\item{warn}{logical; if \\code{TRUE}, warn if attributes are assigned to sub-geometries}\n\n\\item{do_split}{logical; if \\code{TRUE}, allow splitting of geometries in sub-geometries}\n}\n\\value{\nobject of class \\code{to} if successful, or unmodified object if unsuccessful. If information gets lost while type casting, a warning is raised.\n\nIn case \\code{to} is missing, \\code{st_cast.sfc} will coerce combinations of \"POINT\" and \"MULTIPOINT\", \"LINESTRING\" and \"MULTILINESTRING\", \"POLYGON\" and \"MULTIPOLYGON\" into their \"MULTI...\" form, or in case all geometries are \"GEOMETRYCOLLECTION\" will return a list of all the contents of the \"GEOMETRYCOLLECTION\" objects, or else do nothing. In case \\code{to} is specified, if \\code{to} is \"GEOMETRY\", geometries are not converted, else, \\code{st_cast} will try to coerce all elements into \\code{to}; \\code{ids} may be specified to group e.g. \"POINT\" objects into a \"MULTIPOINT\", if not specified no grouping takes place. If e.g. a \"sfc_MULTIPOINT\" is cast to a \"sfc_POINT\", the objects are split, so no information gets lost, unless \\code{group_or_split} is \\code{FALSE}.\n}\n\\description{\nCast geometry to another type: either simplify, or cast explicitly\n}\n\\details{\nWhen converting a GEOMETRYCOLLECTION to COMPOUNDCURVE, MULTISURFACE or CURVEPOLYGON, the user is responsible for the validity of the resulting object: no checks are being carried out by the software.\n\nWhen converting mixed, GEOMETRY sets, it may help to first convert to the MULTI-type, see examples\n\nthe \\code{st_cast} method for \\code{sf} objects can only split geometries, e.g. cast \\code{MULTIPOINT} into multiple \\code{POINT} features. In case of splitting, attributes are repeated and a warning is issued when non-constant attributes are assigned to sub-geometries. To merge feature geometries and attribute values, use \\link[sf:aggregate.sf]{aggregate} or \\link[sf:tidyverse]{summarise}.\n}\n\\examples{\n# example(st_read)\nnc = st_read(system.file(\"shape/nc.shp\", package=\"sf\"))\nmpl <- st_geometry(nc)[[4]]\n#st_cast(x) ## error 'argument \"to\" is missing, with no default'\ncast_all <- function(xg) {\n lapply(c(\"MULTIPOLYGON\", \"MULTILINESTRING\", \"MULTIPOINT\", \"POLYGON\", \"LINESTRING\", \"POINT\"), \n function(x) st_cast(xg, x))\n}\nst_sfc(cast_all(mpl))\n## no closing coordinates should remain for multipoint\nany(duplicated(unclass(st_cast(mpl, \"MULTIPOINT\")))) ## should be FALSE\n## number of duplicated coordinates in the linestrings should equal the number of polygon rings \n## (... in this case, won't always be true)\nsum(duplicated(do.call(rbind, unclass(st_cast(mpl, \"MULTILINESTRING\"))))\n ) == sum(unlist(lapply(mpl, length))) ## should be TRUE\n\np1 <- structure(c(0, 1, 3, 2, 1, 0, 0, 0, 2, 4, 4, 0), .Dim = c(6L, 2L))\np2 <- structure(c(1, 1, 2, 1, 1, 2, 2, 1), .Dim = c(4L, 2L))\nst_polygon(list(p1, p2))\nmls <- st_cast(st_geometry(nc)[[4]], \"MULTILINESTRING\")\nst_sfc(cast_all(mls))\nmpt <- st_cast(st_geometry(nc)[[4]], \"MULTIPOINT\")\nst_sfc(cast_all(mpt))\npl <- st_cast(st_geometry(nc)[[4]], \"POLYGON\")\nst_sfc(cast_all(pl))\nls <- st_cast(st_geometry(nc)[[4]], \"LINESTRING\")\nst_sfc(cast_all(ls))\npt <- st_cast(st_geometry(nc)[[4]], \"POINT\")\n## st_sfc(cast_all(pt)) ## Error: cannot create MULTIPOLYGON from POINT \nst_sfc(lapply(c(\"POINT\", \"MULTIPOINT\"), function(x) st_cast(pt, x)))\ns = st_multipoint(rbind(c(1,0)))\nst_cast(s, \"POINT\")\n# https://github.com/r-spatial/sf/issues/1930:\npt1 <- st_point(c(0,1))\npt23 <- st_multipoint(matrix(c(1,2,3,4), ncol = 2, byrow = TRUE))\nd <- st_sf(geom = st_sfc(pt1, pt23))\nst_cast(d, \"POINT\") # will not convert the entire MULTIPOINT, and warns\nst_cast(d, \"MULTIPOINT\") |> st_cast(\"POINT\")\n}\n"
},
{
"path": "man/st_cast_sfc_default.Rd",
"content": "% Generated by roxygen2: do not edit by hand\n% Please edit documentation in R/cast_sfc.R\n\\name{st_cast_sfc_default}\n\\alias{st_cast_sfc_default}\n\\title{Coerce geometry to MULTI* geometry}\n\\usage{\nst_cast_sfc_default(x)\n}\n\\arguments{\n\\item{x}{list of geometries or simple features}\n}\n\\description{\nMixes of POINTS and MULTIPOINTS, LINESTRING and MULTILINESTRING,\nPOLYGON and MULTIPOLYGON are returned as MULTIPOINTS, MULTILINESTRING and MULTIPOLYGONS respectively\n}\n\\details{\nGeometries that are already MULTI* are left unchanged.\nFeatures that can't be cast to a single MULTI* geometry are return as a\nGEOMETRYCOLLECTION\n}\n"
},
{
"path": "man/st_collection_extract.Rd",
"content": "% Generated by roxygen2: do not edit by hand\n% Please edit documentation in R/collection_extract.R\n\\name{st_collection_extract}\n\\alias{st_collection_extract}\n\\alias{st_collection_extract.sfg}\n\\alias{st_collection_extract.sfc}\n\\alias{st_collection_extract.sf}\n\\title{Given an object with geometries of type \\code{GEOMETRY} or \\code{GEOMETRYCOLLECTION},\nreturn an object consisting only of elements of the specified type.}\n\\usage{\nst_collection_extract(\n x,\n type = c(\"POLYGON\", \"POINT\", \"LINESTRING\"),\n warn = FALSE\n)\n\n\\method{st_collection_extract}{sfg}(\n x,\n type = c(\"POLYGON\", \"POINT\", \"LINESTRING\"),\n warn = FALSE\n)\n\n\\method{st_collection_extract}{sfc}(\n x,\n type = c(\"POLYGON\", \"POINT\", \"LINESTRING\"),\n warn = FALSE\n)\n\n\\method{st_collection_extract}{sf}(\n x,\n type = c(\"POLYGON\", \"POINT\", \"LINESTRING\"),\n warn = FALSE\n)\n}\n\\arguments{\n\\item{x}{an object of class \\code{sf}, \\code{sfc} or \\code{sfg} that has\nmixed geometry (\\code{GEOMETRY} or \\code{GEOMETRYCOLLECTION}).}\n\n\\item{type}{character; one of \"POLYGON\", \"POINT\", \"LINESTRING\"}\n\n\\item{warn}{logical; if \\code{TRUE}, warn if attributes are assigned to\nsub-geometries when casting (see \\code{\\link{st_cast}})}\n}\n\\value{\nAn object having the same class as \\code{x}, with geometries\nconsisting only of elements of the specified type.\nFor \\code{sfg} objects, an \\code{sfg} object is returned if there is only\none geometry of the specified type, otherwise the geometries are combined\ninto an \\code{sfc} object of the relevant type. If any subgeometries in the\ninput are MULTI, then all of the subgeometries in the output will be MULTI.\n}\n\\description{\nSimilar to ST_CollectionExtract in PostGIS. If there are no sub-geometries\nof the specified type, an empty geometry is returned.\n}\n\\examples{\npt <- st_point(c(1, 0))\nls <- st_linestring(matrix(c(4, 3, 0, 0), ncol = 2))\npoly1 <- st_polygon(list(matrix(c(5.5, 7, 7, 6, 5.5, 0, 0, -0.5, -0.5, 0), ncol = 2)))\npoly2 <- st_polygon(list(matrix(c(6.6, 8, 8, 7, 6.6, 1, 1, 1.5, 1.5, 1), ncol = 2)))\nmultipoly <- st_multipolygon(list(poly1, poly2))\n\ni <- st_geometrycollection(list(pt, ls, poly1, poly2))\nj <- st_geometrycollection(list(pt, ls, poly1, poly2, multipoly))\n\nst_collection_extract(i, \"POLYGON\")\nst_collection_extract(i, \"POINT\")\nst_collection_extract(i, \"LINESTRING\")\n\n## A GEOMETRYCOLLECTION\naa <- rbind(st_sf(a=1, geom = st_sfc(i)),\n\t\t\tst_sf(a=2, geom = st_sfc(j)))\n\n## With sf objects\nst_collection_extract(aa, \"POLYGON\")\nst_collection_extract(aa, \"LINESTRING\")\nst_collection_extract(aa, \"POINT\")\n\n## With sfc objects\nst_collection_extract(st_geometry(aa), \"POLYGON\")\nst_collection_extract(st_geometry(aa), \"LINESTRING\")\nst_collection_extract(st_geometry(aa), \"POINT\")\n\n## A GEOMETRY of single types\nbb <- rbind(\n\tst_sf(a = 1, geom = st_sfc(pt)),\n\tst_sf(a = 2, geom = st_sfc(ls)),\n\tst_sf(a = 3, geom = st_sfc(poly1)),\n\tst_sf(a = 4, geom = st_sfc(multipoly))\n)\n\nst_collection_extract(bb, \"POLYGON\")\n\n## A GEOMETRY of mixed single types and GEOMETRYCOLLECTIONS\ncc <- rbind(aa, bb)\n\nst_collection_extract(cc, \"POLYGON\")\n\n}\n"
},
{
"path": "man/st_coordinates.Rd",
"content": "% Generated by roxygen2: do not edit by hand\n% Please edit documentation in R/sfc.R\n\\name{st_coordinates}\n\\alias{st_coordinates}\n\\title{retrieve coordinates in matrix form}\n\\usage{\nst_coordinates(x, ...)\n}\n\\arguments{\n\\item{x}{object of class sf, sfc or sfg}\n\n\\item{...}{ignored}\n}\n\\value{\nmatrix with coordinates (X, Y, possibly Z and/or M) in rows, possibly followed by integer indicators \\code{L1},...,\\code{L3} that point out to which structure the coordinate belongs; for \\code{POINT} this is absent (each coordinate is a feature), for \\code{LINESTRING} \\code{L1} refers to the feature, for \\code{MULTILINESTRING} \\code{L1} refers to the part and \\code{L2} to the simple feature, for \\code{POLYGON} \\code{L1} refers to the main ring or holes and \\code{L2} to the simple feature, for \\code{MULTIPOLYGON} \\code{L1} refers to the main ring or holes, \\code{L2} to the ring id in the \\code{MULTIPOLYGON}, and \\code{L3} to the simple feature.\n\nFor \\code{POLYGONS}, \\code{L1} can be used to identify exterior rings and inner holes.\nThe exterior ring is when \\code{L1} is equal to 1. Interior rings are identified\nwhen \\code{L1} is greater than 1. \\code{L2} can be used to differentiate between the\nfeature. Whereas for \\code{MULTIPOLYGON}, \\code{L3} refers to the \\code{MULTIPOLYGON}\nfeature and \\code{L2} refers to the component \\code{POLYGON}.\n}\n\\description{\nretrieve coordinates in matrix form\n}\n"
},
{
"path": "man/st_crop.Rd",
"content": "% Generated by roxygen2: do not edit by hand\n% Please edit documentation in R/crop.R\n\\name{st_crop}\n\\alias{st_crop}\n\\alias{st_crop.sfc}\n\\alias{st_crop.sf}\n\\title{crop an sf object to a specific rectangle}\n\\usage{\nst_crop(x, y, ...)\n\n\\method{st_crop}{sfc}(x, y, ..., xmin, ymin, xmax, ymax)\n\n\\method{st_crop}{sf}(x, y, ...)\n}\n\\arguments{\n\\item{x}{object of class \\code{sf} or \\code{sfc}}\n\n\\item{y}{numeric vector with named elements \\code{xmin}, \\code{ymin}, \\code{xmax} and \\code{ymax}, or object of class \\code{bbox}, or object for which there is an \\link{st_bbox} method to convert it to a \\code{bbox} object}\n\n\\item{...}{ignored}\n\n\\item{xmin}{minimum x extent of cropping area}\n\n\\item{ymin}{minimum y extent of cropping area}\n\n\\item{xmax}{maximum x extent of cropping area}\n\n\\item{ymax}{maximum y extent of cropping area}\n}\n\\description{\ncrop an sf object to a specific rectangle\n}\n\\details{\nsetting arguments \\code{xmin}, \\code{ymin}, \\code{xmax} and \\code{ymax} implies that argument \\code{y} gets ignored.\n}\n\\examples{\nbox = c(xmin = 0, ymin = 0, xmax = 1, ymax = 1)\npol = st_sfc(st_buffer(st_point(c(.5, .5)), .6))\npol_sf = st_sf(a=1, geom=pol)\nplot(st_crop(pol, box))\nplot(st_crop(pol_sf, st_bbox(box)))\n# alternative:\nplot(st_crop(pol, xmin = 0, ymin = 0, xmax = 1, ymax = 1))\n}\n"
},
{
"path": "man/st_crs.Rd",
"content": "% Generated by roxygen2: do not edit by hand\n% Please edit documentation in R/crs.R\n\\name{st_crs}\n\\alias{st_crs}\n\\alias{st_crs.sf}\n\\alias{st_crs.numeric}\n\\alias{st_crs.character}\n\\alias{st_crs.sfc}\n\\alias{st_crs.bbox}\n\\alias{st_crs.CRS}\n\\alias{st_crs.crs}\n\\alias{st_crs<-}\n\\alias{st_crs<-.sf}\n\\alias{st_crs<-.sfc}\n\\alias{st_set_crs}\n\\alias{NA_crs_}\n\\alias{is.na.crs}\n\\alias{$.crs}\n\\alias{format.crs}\n\\alias{st_axis_order}\n\\title{Retrieve coordinate reference system from object}\n\\usage{\nst_crs(x, ...)\n\n\\method{st_crs}{sf}(x, ...)\n\n\\method{st_crs}{numeric}(x, ...)\n\n\\method{st_crs}{character}(x, ...)\n\n\\method{st_crs}{sfc}(x, ..., parameters = FALSE)\n\n\\method{st_crs}{bbox}(x, ...)\n\n\\method{st_crs}{CRS}(x, ...)\n\n\\method{st_crs}{crs}(x, ...)\n\nst_crs(x) <- value\n\n\\method{st_crs}{sf}(x) <- value\n\n\\method{st_crs}{sfc}(x) <- value\n\nst_set_crs(x, value)\n\nNA_crs_\n\n\\method{is.na}{crs}(x)\n\n\\method{$}{crs}(x, name)\n\n\\method{format}{crs}(x, ...)\n\nst_axis_order(authority_compliant = logical(0))\n}\n\\arguments{\n\\item{x}{numeric, character, or object of class \\link{sf} or \\link{sfc}}\n\n\\item{...}{ignored}\n\n\\item{parameters}{logical; \\code{FALSE} by default; only for the \\code{st_crs.sfc()} method: if \\code{TRUE} return a classed list of coordinate reference system parameters, with named elements \\code{SemiMajor}, \\code{InvFlattening}, \\code{units_gdal}, \\code{IsVertical}, \\code{WktPretty}, \\code{Wkt}, \\code{Name}, \\code{proj4string}, \\code{epsg}, \\code{yx}, \\code{ProjJson}, \\code{WKT1_ESRI}, \\code{srid} (in authority:code form), \\code{axes} (a data.frame with columns \\code{name} and \\code{orientation}), \\code{gcs_crs} with the WKT of the base geographic coordinate system, \\code{ud_unit}. The list has class \\code{crs_parameters}.}\n\n\\item{value}{one of (i) character: a string accepted by GDAL, (ii) integer, a valid EPSG value (numeric), or (iii) an object of class \\code{crs}.}\n\n\\item{name}{element name}\n\n\\item{authority_compliant}{logical; specify whether axis order should be\nhandled compliant to the authority; if omitted, the current value is printed.}\n}\n\\value{\nIf \\code{x} is numeric, return \\code{crs} object for EPSG:\\code{x};\nif \\code{x} is character, return \\code{crs} object for \\code{x};\nif \\code{x} is of class \\code{sf} or \\code{sfc}, return its \\code{crs} object.\n\nObject of class \\code{crs}, which is a list with elements \\code{input} (length-1 character)\nand \\code{wkt} (length-1 character).\nElements may be \\code{NA} valued; if all elements are \\code{NA} the CRS is missing valued, and coordinates are\nassumed to relate to an arbitrary Cartesian coordinate system.\n\n\\code{st_axis_order} returns the (logical) current value if called without\nargument, or (invisibly) the previous value if it is being set.\n}\n\\description{\nRetrieve coordinate reference system from sf or sfc object\n\nSet or replace retrieve coordinate reference system from object\n}\n\\details{\nThe *crs functions create, get, set or replace the \\code{crs} attribute\nof a simple feature geometry list-column. This attribute is of class \\code{crs},\nand is a list consisting of \\code{input} (user input, e.g. \"EPSG:4326\" or \"WGS84\"\nor a proj4string), and \\code{wkt}, an automatically generated wkt2 representation of the crs.\nIf \\code{x} is identical to the wkt2 representation, and the CRS has a name, this name\nis used for the \\code{input} field.\n\nComparison of two objects of class \\code{crs} uses the GDAL function\n\\code{OGRSpatialReference::IsSame}.\n\nIn case a coordinate reference system is replaced, no transformation takes\nplace and a warning is raised to stress this.\n\n\\code{NA_crs_} is the \\code{crs} object with missing values for \\code{input} and \\code{wkt}.\n\nthe \\code{$} method for \\code{crs} objects retrieves named elements\nusing the GDAL interface; named elements include\n\\code{SemiMajor}, \\code{SemiMinor}, \\code{InvFlattening}, \\code{IsGeographic},\n\\code{units_gdal}, \\code{IsVertical}, \\code{WktPretty}, \\code{Wkt},\n\\code{Name}, \\code{proj4string}, \\code{epsg}, \\code{yx},\n\\code{ud_unit}, and \\code{axes} (this may be subject to changes in future GDAL versions).\n\nNote that not all valid CRS have a corresponding \\code{proj4string}.\n\n\\code{ud_unit} returns a valid \\link[units]{units} object or \\code{NULL} if units are missing.\n\nformat.crs returns NA if the crs is missing valued, or else\nthe name of a crs if it is different from \"unknown\", or\nelse the user input if it was set, or else its \"proj4string\" representation;\n\n\\code{st_axis_order} can be used to get and set the axis order: \\code{TRUE}\nindicates axes order according to the authority\n(e.g. EPSG:4326 defining coordinates to be latitude,longitude pairs), \\code{FALSE}\nindicates the usual GIS (display) order (longitude,latitude). This can be useful\nwhen data are read, or have to be written, with coordinates in authority compliant order.\nThe return value is the current state of this (\\code{FALSE}, by default).\n}\n\\examples{\nsfc = st_sfc(st_point(c(0,0)), st_point(c(1,1)))\nsf = st_sf(a = 1:2, geom = sfc)\nst_crs(sf) = 4326\nst_geometry(sf)\nsfc = st_sfc(st_point(c(0,0)), st_point(c(1,1)))\nst_crs(sfc) = 4326\nsfc\nsfc = st_sfc(st_point(c(0,0)), st_point(c(1,1)))\nsfc |> st_set_crs(4326) |> st_transform(3857)\nst_crs(\"EPSG:3857\")$input\nst_crs(3857)$proj4string\npt = st_sfc(st_point(c(0, 60)), crs = 4326)\n# st_axis_order() only has effect in GDAL >= 2.5.0:\nst_axis_order() # query default: FALSE means interpret pt as (longitude latitude)\nst_transform(pt, 3857)[[1]]\nold_value = FALSE\nif (compareVersion(sf_extSoftVersion()[\"GDAL\"], \"2.5.0\") >= 0)\n (old_value = st_axis_order(TRUE))\n# now interpret pt as (latitude longitude), as EPSG:4326 prescribes:\nst_axis_order() # query current value\nst_transform(pt, 3857)[[1]]\nst_axis_order(old_value) # set back to old value\n}\n"
},
{
"path": "man/st_drivers.Rd",
"content": "% Generated by roxygen2: do not edit by hand\n% Please edit documentation in R/read.R\n\\name{st_drivers}\n\\alias{st_drivers}\n\\title{Get GDAL drivers}\n\\usage{\nst_drivers(what = \"vector\", regex)\n}\n\\arguments{\n\\item{what}{character: \\code{\"vector\"} or \\code{\"raster\"}, anything else will return all\ndrivers.}\n\n\\item{regex}{character; regular expression to filter the \\code{name} and \\code{long_name}\nfields on}\n}\n\\value{\nA \\code{data.frame} with driver metadata.\n}\n\\description{\nGet a list of the available GDAL drivers\n}\n\\details{\nThe drivers available will depend on the installation of GDAL/OGR,\nand can vary; the \\code{st_drivers()} function shows all the drivers that are\nreadable, and which may be written. The field \\code{vsi} refers to the driver's\ncapability to read/create datasets through the VSI*L API. \\href{https://gdal.org/en/latest/drivers/vector/index.html}{See GDAL website for additional details on driver support}\n}\n\\examples{\n# The following driver lists depend on the GDAL setup and platform used:\nst_drivers()\nst_drivers(\"raster\", \"GeoT\")\n}\n"
},
{
"path": "man/st_geometry.Rd",
"content": "% Generated by roxygen2: do not edit by hand\n% Please edit documentation in R/sfc.R, R/sf.R\n\\name{st_geometry}\n\\alias{st_geometry}\n\\alias{st_geometry.sfc}\n\\alias{st_geometry.sf}\n\\alias{st_geometry.sfg}\n\\alias{st_geometry<-}\n\\alias{st_set_geometry}\n\\alias{st_drop_geometry}\n\\alias{st_drop_geometry.sf}\n\\alias{st_drop_geometry.default}\n\\title{Get, set, replace or rename geometry from an sf object}\n\\usage{\n\\method{st_geometry}{sfc}(obj, ...)\n\nst_geometry(obj, ...)\n\n\\method{st_geometry}{sf}(obj, ...)\n\n\\method{st_geometry}{sfc}(obj, ...)\n\n\\method{st_geometry}{sfg}(obj, ...)\n\nst_geometry(x) <- value\n\nst_set_geometry(x, value)\n\nst_drop_geometry(x, ...)\n\n\\method{st_drop_geometry}{sf}(x, ...)\n\n\\method{st_drop_geometry}{default}(x, ...)\n}\n\\arguments{\n\\item{obj}{object of class \\code{sf} or \\code{sfc}}\n\n\\item{...}{ignored}\n\n\\item{x}{object of class \\code{data.frame} or \\code{sf}}\n\n\\item{value}{object of class \\code{sfc}, or \\code{character} to set, replace, or rename the geometry of \\code{x}}\n}\n\\value{\nst_geometry returns an object of class \\link{sfc}, a list-column with geometries\n\n\\code{st_geometry} returns an object of class \\link{sfc}. Assigning geometry to a \\code{data.frame} creates an \\link{sf} object, assigning it to an \\link{sf} object replaces the geometry list-column.\n}\n\\description{\nGet, set, replace or rename geometry from an sf object\n}\n\\details{\nwhen applied to a \\code{data.frame} and when \\code{value} is an object of class \\code{sfc}, \\code{st_set_geometry} and \\code{st_geometry<-} will first check for the existence of an attribute \\code{sf_column} and overwrite that, or else look for list-columns of class \\code{sfc} and overwrite the first of that, or else write the geometry list-column to a column named \\code{geometry}. In case \\code{value} is character and \\code{x} is of class \\code{sf}, the \"active\" geometry column is set to \\code{x[[value]]}.\n\nthe replacement function applied to \\code{sf} objects will overwrite the geometry list-column, if \\code{value} is \\code{NULL}, it will remove it and coerce \\code{x} to a \\code{data.frame}.\n\nif \\code{x} is of class \\code{sf}, \\code{st_drop_geometry} drops the geometry of its argument, and reclasses it accordingly; otherwise it returns \\code{x} unmodified.\n}\n\\examples{\ndf = data.frame(a = 1:2)\nsfc = st_sfc(st_point(c(3,4)), st_point(c(10,11)))\nst_geometry(sfc)\nst_geometry(df) <- sfc\nclass(df)\nst_geometry(df)\nst_geometry(df) <- sfc # replaces\nst_geometry(df) <- NULL # remove geometry, coerce to data.frame\nsf <- st_set_geometry(df, sfc) # set geometry, return sf\nst_set_geometry(sf, NULL) # remove geometry, coerce to data.frame\n}\n"
},
{
"path": "man/st_geometry_type.Rd",
"content": "% Generated by roxygen2: do not edit by hand\n% Please edit documentation in R/sfc.R\n\\name{st_geometry_type}\n\\alias{st_geometry_type}\n\\title{Return geometry type of an object}\n\\usage{\nst_geometry_type(x, by_geometry = TRUE)\n}\n\\arguments{\n\\item{x}{object of class \\link{sf} or \\link{sfc}}\n\n\\item{by_geometry}{logical; if \\code{TRUE}, return geometry type of each geometry,\nelse return geometry type of the set}\n}\n\\value{\na factor with the geometry type of each simple feature geometry\nin \\code{x}, or that of the whole set\n}\n\\description{\nReturn geometry type of an object, as a factor\n}\n"
},
{
"path": "man/st_graticule.Rd",
"content": "% Generated by roxygen2: do not edit by hand\n% Please edit documentation in R/graticule.R\n\\name{st_graticule}\n\\alias{st_graticule}\n\\title{Compute graticules and their parameters}\n\\usage{\nst_graticule(\n x = c(-180, -90, 180, 90),\n crs = st_crs(x),\n datum = st_crs(\"OGC:CRS84\"),\n ...,\n lon = NULL,\n lat = NULL,\n ndiscr = 100,\n margin = 0.001\n)\n}\n\\arguments{\n\\item{x}{object of class \\code{sf}, \\code{sfc} or \\code{sfg} or numeric vector with bounding box given as (minx, miny, maxx, maxy).}\n\n\\item{crs}{object of class \\code{crs}, with the display coordinate reference system}\n\n\\item{datum}{either an object of class \\code{crs} with the coordinate reference system for the graticules, or \\code{NULL} in which case a grid in the coordinate system of \\code{x} is drawn, or \\code{NA}, in which case an empty \\code{sf} object is returned. If missing and \\code{x} has a crs with a datum, the geographic coordinate system (datum) of \\code{x} is taken.}\n\n\\item{...}{ignored}\n\n\\item{lon}{numeric; values in degrees East for the meridians, associated with \\code{datum}}\n\n\\item{lat}{numeric; values in degrees North for the parallels, associated with \\code{datum}}\n\n\\item{ndiscr}{integer; number of points to discretize a parallel or meridian}\n\n\\item{margin}{numeric; small number to trim a longlat bounding box that touches or\ncrosses +/-180 long or +/-90 latitude.}\n}\n\\value{\nan object of class \\code{sf} with additional attributes describing the type\n(E: meridian, N: parallel) degree value, label, start and end coordinates and angle;\nsee example.\n}\n\\description{\nCompute graticules and their parameters\n}\n\\section{Use of graticules}{\n\nIn cartographic visualization, the use of graticules is not advised, unless\nthe graphical output will be used for measurement or navigation, or the\ndirection of North is important for the interpretation of the content, or\nthe content is intended to display distortions and artifacts created by\nprojection. Unnecessary use of graticules only adds visual clutter but\nlittle relevant information. Use of coastlines, administrative boundaries\nor place names permits most viewers of the output to orient themselves\nbetter than a graticule.\n}\n\n\\examples{\nlibrary(sf)\nif (require(maps, quietly = TRUE)) {\n\nusa = st_as_sf(map('usa', plot = FALSE, fill = TRUE))\nlaea = st_crs(\"+proj=laea +lat_0=30 +lon_0=-95\") # Lambert equal area\nusa <- st_transform(usa, laea)\n\nbb = st_bbox(usa)\nbbox = st_linestring(rbind(c( bb[1],bb[2]),c( bb[3],bb[2]),\n c( bb[3],bb[4]),c( bb[1],bb[4]),c( bb[1],bb[2])))\n\ng = st_graticule(usa)\nplot(usa, xlim = 1.2 * c(-2450853.4, 2186391.9), reset = FALSE)\nplot(g[1], add = TRUE, col = 'grey')\nplot(bbox, add = TRUE)\npoints(g$x_start, g$y_start, col = 'red')\npoints(g$x_end, g$y_end, col = 'blue')\n\ninvisible(lapply(seq_len(nrow(g)), function(i) {\nif (g$type[i] == \"N\" && g$x_start[i] - min(g$x_start) < 1000)\n\ttext(g$x_start[i], g$y_start[i], labels = parse(text = g$degree_label[i]), \n\t\tsrt = g$angle_start[i], pos = 2, cex = .7)\nif (g$type[i] == \"E\" && g$y_start[i] - min(g$y_start) < 1000)\n\ttext(g$x_start[i], g$y_start[i], labels = parse(text = g$degree_label[i]), \n\t\tsrt = g$angle_start[i] - 90, pos = 1, cex = .7)\nif (g$type[i] == \"N\" && g$x_end[i] - max(g$x_end) > -1000)\n\ttext(g$x_end[i], g$y_end[i], labels = parse(text = g$degree_label[i]), \n\t\tsrt = g$angle_end[i], pos = 4, cex = .7)\nif (g$type[i] == \"E\" && g$y_end[i] - max(g$y_end) > -1000)\n\ttext(g$x_end[i], g$y_end[i], labels = parse(text = g$degree_label[i]), \n\t\tsrt = g$angle_end[i] - 90, pos = 3, cex = .7)\n}))\nplot(usa, graticule = st_crs(4326), axes = TRUE, lon = seq(-60,-130,by=-10))\n}\n}\n"
},
{
"path": "man/st_is.Rd",
"content": "% Generated by roxygen2: do not edit by hand\n% Please edit documentation in R/cast_sfc.R\n\\name{st_is}\n\\alias{st_is}\n\\title{test equality between the geometry type and a class or set of classes}\n\\usage{\nst_is(x, type)\n}\n\\arguments{\n\\item{x}{object of class \\code{sf}, \\code{sfc} or \\code{sfg}}\n\n\\item{type}{character; class, or set of classes, to test against}\n}\n\\description{\ntest equality between the geometry type and a class or set of classes\n}\n\\examples{\nst_is(st_point(0:1), \"POINT\")\nsfc = st_sfc(st_point(0:1), st_linestring(matrix(1:6,,2)))\nst_is(sfc, \"POINT\")\nst_is(sfc, \"POLYGON\")\nst_is(sfc, \"LINESTRING\")\nst_is(st_sf(a = 1:2, sfc), \"LINESTRING\")\nst_is(sfc, c(\"POINT\", \"LINESTRING\"))\n}\n"
},
{
"path": "man/st_is_full.Rd",
"content": "% Generated by roxygen2: do not edit by hand\n% Please edit documentation in R/sfc.R\n\\name{st_is_full}\n\\alias{st_is_full}\n\\alias{st_is_full.sfg}\n\\alias{st_is_full.sfc}\n\\alias{st_is_full.sf}\n\\alias{st_is_full.bbox}\n\\title{predicate whether a geometry is equal to a POLYGON FULL}\n\\usage{\nst_is_full(x, ...)\n\n\\method{st_is_full}{sfg}(x, ..., is_longlat = NULL)\n\n\\method{st_is_full}{sfc}(x, ...)\n\n\\method{st_is_full}{sf}(x, ...)\n\n\\method{st_is_full}{bbox}(x, ...)\n}\n\\arguments{\n\\item{x}{object of class \\code{sfg}, \\code{sfc} or \\code{sf}}\n\n\\item{...}{ignored, except when it contains a \\code{crs} argument to inform unspecified \\code{is_longlat}}\n\n\\item{is_longlat}{logical; output of \\link{st_is_longlat} of the parent \\code{sfc} object}\n}\n\\value{\nlogical, indicating whether geometries are POLYGON FULL (a spherical\npolygon covering the entire sphere)\n}\n\\description{\npredicate whether a geometry is equal to a POLYGON FULL\n}\n"
},
{
"path": "man/st_is_longlat.Rd",
"content": "% Generated by roxygen2: do not edit by hand\n% Please edit documentation in R/crs.R\n\\name{st_is_longlat}\n\\alias{st_is_longlat}\n\\title{Assert whether simple feature coordinates are longlat degrees}\n\\usage{\nst_is_longlat(x)\n}\n\\arguments{\n\\item{x}{object of class \\link{sf} or \\link{sfc}, or otherwise an object of a class that has an \\link{st_crs} method returning a \\code{crs} object}\n}\n\\value{\n\\code{TRUE} if \\code{x} has geographic coordinates, \\code{FALSE} if it has projected coordinates, or \\code{NA} if \\code{is.na(st_crs(x))}.\n}\n\\description{\nAssert whether simple feature coordinates are longlat degrees\n}\n"
},
{
"path": "man/st_jitter.Rd",
"content": "% Generated by roxygen2: do not edit by hand\n% Please edit documentation in R/jitter.R\n\\name{st_jitter}\n\\alias{st_jitter}\n\\title{jitter geometries}\n\\usage{\nst_jitter(x, amount, factor = 0.002)\n}\n\\arguments{\n\\item{x}{object of class \\code{sf} or \\code{sfc}}\n\n\\item{amount}{numeric; amount of jittering applied; if missing, the amount is set to factor * the bounding box diagonal; units of coordinates.}\n\n\\item{factor}{numeric; fractional amount of jittering to be applied}\n}\n\\description{\njitter geometries\n}\n\\details{\njitters coordinates with an amount such that \\code{runif(1, -amount, amount)} is added to the coordinates. x- and y-coordinates are jittered independently but all coordinates of a single geometry are jittered with the same amount, meaning that the geometry shape does not change. For longlat data, a latitude correction is made such that jittering in East and North directions are identical in distance in the center of the bounding box of \\code{x}.\n}\n\\examples{\nnc = st_read(system.file(\"gpkg/nc.gpkg\", package=\"sf\"))\npts = st_centroid(st_geometry(nc))\nplot(pts)\nplot(st_jitter(pts, .05), add = TRUE, col = 'red')\nplot(st_geometry(nc))\nplot(st_jitter(st_geometry(nc), factor = .01), add = TRUE, col = '#ff8888')\n}\n"
},
{
"path": "man/st_join.Rd",
"content": "% Generated by roxygen2: do not edit by hand\n% Please edit documentation in R/join.R\n\\name{st_join}\n\\alias{st_join}\n\\alias{st_join.sf}\n\\alias{st_filter}\n\\alias{st_filter.sf}\n\\title{spatial join, spatial filter}\n\\usage{\nst_join(x, y, join, ...)\n\n\\method{st_join}{sf}(\n x,\n y,\n join = st_intersects,\n ...,\n suffix = c(\".x\", \".y\"),\n left = TRUE,\n largest = FALSE\n)\n\nst_filter(x, y, ...)\n\n\\method{st_filter}{sf}(x, y, ..., .predicate = st_intersects)\n}\n\\arguments{\n\\item{x}{object of class \\code{sf}}\n\n\\item{y}{object of class \\code{sf}}\n\n\\item{join}{geometry predicate function with the same profile as \\link{st_intersects}; see details}\n\n\\item{...}{for \\code{st_join}: arguments passed on to the \\code{join} function or to \\code{st_intersection} when \\code{largest} is \\code{TRUE}; for \\code{st_filter} arguments passed on to the \\code{.predicate} function, e.g. \\code{prepared}, or a pattern for \\link{st_relate}}\n\n\\item{suffix}{length 2 character vector; see \\link[base]{merge}}\n\n\\item{left}{logical; if \\code{TRUE} return the left join, otherwise an inner join; see details.\nsee also \\link[dplyr:mutate-joins]{left_join}}\n\n\\item{largest}{logical; if \\code{TRUE}, return \\code{x} features augmented with the fields of \\code{y} that have the largest overlap with each of the features of \\code{x}; see https://github.com/r-spatial/sf/issues/578}\n\n\\item{.predicate}{geometry predicate function with the same profile as \\link{st_intersects}; see details}\n}\n\\value{\nan object of class \\code{sf}, joined based on geometry\n}\n\\description{\nspatial join, spatial filter\n}\n\\details{\nalternative values for argument \\code{join} are:\n\\itemize{\n\\item \\link{st_contains_properly},\n\\item \\link{st_contains},\n\\item \\link{st_covered_by},\n\\item \\link{st_covers},\n\\item \\link{st_crosses},\n\\item \\link{st_disjoint},\n\\item \\link{st_equals_exact},\n\\item \\link{st_equals},\n\\item \\link{st_is_within_distance},\n\\item \\link{st_nearest_feature},\n\\item \\link{st_overlaps},\n\\item \\link{st_touches},\n\\item \\link{st_within},\n\\item \\link{st_relate} (which will require \\code{pattern} to be set),\n\\item or any user-defined function of the same profile as the above\n}\nA left join returns all records of the \\code{x} object with \\code{y} fields for non-matched records filled with \\code{NA} values; an inner join returns only records that spatially match.\n\nTo replicate the results of \\code{st_within(x, y)} you will need to use \\code{st_join(x, y, join = \"st_within\", left = FALSE)}.\n}\n\\examples{\na = st_sf(a = 1:3,\n geom = st_sfc(st_point(c(1,1)), st_point(c(2,2)), st_point(c(3,3))))\nb = st_sf(a = 11:14,\n geom = st_sfc(st_point(c(10,10)), st_point(c(2,2)), st_point(c(2,2)), st_point(c(3,3))))\nst_join(a, b)\nst_join(a, b, left = FALSE)\n# two ways to aggregate y's attribute values outcome over x's geometries:\nj = st_join(a, b)\naggregate(j, list(j$a.x), mean)\nif (require(dplyr, quietly = TRUE)) {\n st_join(a, b) |> group_by(a.x) |> summarise(mean(a.y))\n}\n# example of largest = TRUE:\nnc <- st_transform(st_read(system.file(\"shape/nc.shp\", package=\"sf\")), 2264) \ngr = st_sf(\n label = apply(expand.grid(1:10, LETTERS[10:1])[,2:1], 1, paste0, collapse = \" \"),\n geom = st_make_grid(st_as_sfc(st_bbox(nc))))\ngr$col = sf.colors(10, categorical = TRUE, alpha = .3)\n# cut, to check, NA's work out:\ngr = gr[-(1:30),]\nnc_j <- st_join(nc, gr, largest = TRUE)\n# the two datasets:\nopar = par(mfrow = c(2,1), mar = rep(0,4))\nplot(st_geometry(nc_j))\nplot(st_geometry(gr), add = TRUE, col = gr$col)\ntext(st_coordinates(st_centroid(gr)), labels = gr$label)\n# the joined dataset:\nplot(st_geometry(nc_j), border = 'black', col = nc_j$col)\ntext(st_coordinates(st_centroid(nc_j)), labels = nc_j$label, cex = .8)\nplot(st_geometry(gr), border = 'green', add = TRUE)\npar(opar)\n# st_filter keeps the geometries in x where .predicate(x,y) returns any match in y for x\nst_filter(a, b)\n# for an anti-join, use the union of y\nst_filter(a, st_union(b), .predicate = st_disjoint)\n}\n"
},
{
"path": "man/st_layers.Rd",
"content": "% Generated by roxygen2: do not edit by hand\n% Please edit documentation in R/read.R\n\\name{st_layers}\n\\alias{st_layers}\n\\title{Return properties of layers in a datasource}\n\\usage{\nst_layers(dsn, options = character(0), do_count = FALSE)\n}\n\\arguments{\n\\item{dsn}{data source name (interpretation varies by driver - for some drivers, \\code{dsn} is a file name, but may also be a\nfolder, or contain the name and access credentials of a database)}\n\n\\item{options}{character; driver dependent dataset open options, multiple options supported.}\n\n\\item{do_count}{logical; if TRUE, count the features by reading them, even if their count is not reported by the driver}\n}\n\\value{\nlist object of class \\code{sf_layers} with elements\n\\describe{\n\\item{name}{name of the layer}\n\\item{geomtype}{list with for each layer the geometry types}\n\\item{features}{number of features (if reported; see \\code{do_count})}\n\\item{fields}{number of fields}\n\\item{crs}{list with for each layer the \\code{crs} object}\n}\n}\n\\description{\nReturn properties of layers in a datasource\n}\n"
},
{
"path": "man/st_line_project_point.Rd",
"content": "% Generated by roxygen2: do not edit by hand\n% Please edit documentation in R/geom-measures.R, R/geom-transformers.R\n\\name{st_line_project_point}\n\\alias{st_line_project_point}\n\\alias{st_line_project}\n\\alias{st_line_interpolate}\n\\title{Project point on linestring, interpolate along a linestring}\n\\usage{\nst_line_project(line, point, normalized = FALSE)\n\nst_line_interpolate(line, dist, normalized = FALSE)\n}\n\\arguments{\n\\item{line}{object of class \\code{sfc} with \\code{LINESTRING} geometry}\n\n\\item{point}{object of class \\code{sfc} with \\code{POINT} geometry}\n\n\\item{normalized}{logical; if \\code{TRUE}, use or return distance normalised to 0-1}\n\n\\item{dist}{numeric or units, vector with distance value(s), in units of the coordinates}\n}\n\\value{\n\\code{st_line_project} returns the distance(s) of point(s) along line(s), when projected on the line(s)\n\n\\code{st_line_interpolate} returns the point(s) at dist(s), when measured along (interpolated on) the line(s)\n}\n\\description{\nProject point on linestring, interpolate along a linestring\n}\n\\details{\narguments \\code{line}, \\code{point} and \\code{dist} are recycled to common length when needed\n}\n\\examples{\nst_line_project(st_as_sfc(\"LINESTRING (0 0, 10 10)\"), st_as_sfc(c(\"POINT (0 0)\", \"POINT (5 5)\")))\nst_line_project(st_as_sfc(\"LINESTRING (0 0, 10 10)\"), st_as_sfc(\"POINT (5 5)\"), TRUE)\nst_line_interpolate(st_as_sfc(\"LINESTRING (0 0, 1 1)\"), 1)\nst_line_interpolate(st_as_sfc(\"LINESTRING (0 0, 1 1)\"), 1, TRUE)\n# https://github.com/r-spatial/sf/issues/2542; use for geographic coordinates:\nl1 <- st_as_sfc(\"LINESTRING (10.1 50.1, 10.2 50.2)\", crs = 'OGC:CRS84')\ndists = units::set_units(seq(0, sqrt(2)/10, length.out = 5), degrees)\nst_line_interpolate(l1, dists)\n}\n"
},
{
"path": "man/st_line_sample.Rd",
"content": "% Generated by roxygen2: do not edit by hand\n% Please edit documentation in R/geom-transformers.R\n\\name{st_line_sample}\n\\alias{st_line_sample}\n\\title{Sample points on a linear geometry}\n\\usage{\nst_line_sample(x, n, density, type = \"regular\", sample = NULL)\n}\n\\arguments{\n\\item{x}{object of class \\code{sf}, \\code{sfc} or \\code{sfg}}\n\n\\item{n}{integer; number of points to choose per geometry; if missing, n will be computed as \\code{round(density * st_length(geom))}.}\n\n\\item{density}{numeric; density (points per distance unit) of the sampling, possibly a vector of length equal to the number of features (otherwise recycled); \\code{density} may be of class \\code{units}.}\n\n\\item{type}{character; indicate the sampling type, either \"regular\" or \"random\"}\n\n\\item{sample}{numeric; a vector of numbers between 0 and 1 indicating the points to sample - if defined sample overrules n, density and type.}\n}\n\\description{\nSample points on a linear geometry\n}\n\\examples{\nls = st_sfc(st_linestring(rbind(c(0,0),c(0,1))),\n\tst_linestring(rbind(c(0,0),c(10,0))))\nst_line_sample(ls, density = 1)\nls = st_sfc(st_linestring(rbind(c(0,0),c(0,1))),\n st_linestring(rbind(c(0,0),c(.1,0))), crs = 4326)\ntry(st_line_sample(ls, density = 1/1000)) # error\nst_line_sample(st_transform(ls, 3857), n = 5) # five points for each line\nst_line_sample(st_transform(ls, 3857), n = c(1, 3)) # one and three points\nst_line_sample(st_transform(ls, 3857), density = 1/1000) # one per km\nst_line_sample(st_transform(ls, 3857), density = c(1/1000, 1/10000)) # one per km, one per 10 km\nst_line_sample(st_transform(ls, 3857), density = units::set_units(1, 1/km)) # one per km\n# five equidistant points including start and end:\nst_line_sample(st_transform(ls, 3857), sample = c(0, 0.25, 0.5, 0.75, 1))\n}\n"
},
{
"path": "man/st_m_range.Rd",
"content": "% Generated by roxygen2: do not edit by hand\n% Please edit documentation in R/m_range.R\n\\name{st_m_range}\n\\alias{st_m_range}\n\\alias{is.na.m_range}\n\\alias{st_m_range.POINT}\n\\alias{st_m_range.MULTIPOINT}\n\\alias{st_m_range.LINESTRING}\n\\alias{st_m_range.POLYGON}\n\\alias{st_m_range.MULTILINESTRING}\n\\alias{st_m_range.MULTIPOLYGON}\n\\alias{st_m_range.GEOMETRYCOLLECTION}\n\\alias{st_m_range.MULTISURFACE}\n\\alias{st_m_range.MULTICURVE}\n\\alias{st_m_range.CURVEPOLYGON}\n\\alias{st_m_range.COMPOUNDCURVE}\n\\alias{st_m_range.POLYHEDRALSURFACE}\n\\alias{st_m_range.TIN}\n\\alias{st_m_range.TRIANGLE}\n\\alias{st_m_range.CIRCULARSTRING}\n\\alias{st_m_range.sfc}\n\\alias{st_m_range.sf}\n\\alias{st_m_range.numeric}\n\\alias{NA_m_range_}\n\\title{Return 'm' range of a simple feature or simple feature set}\n\\usage{\n\\method{is.na}{m_range}(x)\n\nst_m_range(obj, ...)\n\n\\method{st_m_range}{POINT}(obj, ...)\n\n\\method{st_m_range}{MULTIPOINT}(obj, ...)\n\n\\method{st_m_range}{LINESTRING}(obj, ...)\n\n\\method{st_m_range}{POLYGON}(obj, ...)\n\n\\method{st_m_range}{MULTILINESTRING}(obj, ...)\n\n\\method{st_m_range}{MULTIPOLYGON}(obj, ...)\n\n\\method{st_m_range}{GEOMETRYCOLLECTION}(obj, ...)\n\n\\method{st_m_range}{MULTISURFACE}(obj, ...)\n\n\\method{st_m_range}{MULTICURVE}(obj, ...)\n\n\\method{st_m_range}{CURVEPOLYGON}(obj, ...)\n\n\\method{st_m_range}{COMPOUNDCURVE}(obj, ...)\n\n\\method{st_m_range}{POLYHEDRALSURFACE}(obj, ...)\n\n\\method{st_m_range}{TIN}(obj, ...)\n\n\\method{st_m_range}{TRIANGLE}(obj, ...)\n\n\\method{st_m_range}{CIRCULARSTRING}(obj, ...)\n\n\\method{st_m_range}{sfc}(obj, ...)\n\n\\method{st_m_range}{sf}(obj, ...)\n\n\\method{st_m_range}{numeric}(obj, ..., crs = NA_crs_)\n\nNA_m_range_\n}\n\\arguments{\n\\item{x}{object of class \\code{m_range}}\n\n\\item{obj}{object to compute the m range from}\n\n\\item{...}{ignored}\n\n\\item{crs}{object of class \\code{crs}, or argument to \\link{st_crs}, specifying the CRS of this bounding box.}\n}\n\\value{\na numeric vector of length two, with \\code{mmin} and \\code{mmax} values;\nif \\code{obj} is of class \\code{sf} or \\code{sfc} the object\nif \\code{obj} is of class \\code{sf} or \\code{sfc} the object\nreturned has a class \\code{m_range}\n}\n\\description{\nReturn 'm' range of a simple feature or simple feature set\n}\n\\details{\n\\code{NA_m_range_} represents the missing value for a \\code{m_range} object\n}\n\\examples{\na = st_sf(a = 1:2, geom = st_sfc(st_point(0:3), st_point(1:4)), crs = 4326)\nst_m_range(a)\nst_m_range(c(mmin = 16.1, mmax = 16.6), crs = st_crs(4326))\n}\n"
},
{
"path": "man/st_make_grid.Rd",
"content": "% Generated by roxygen2: do not edit by hand\n% Please edit documentation in R/make_grid.R\n\\name{st_make_grid}\n\\alias{st_make_grid}\n\\title{Create a regular tesselation over the bounding box of an sf or sfc object}\n\\usage{\nst_make_grid(\n x,\n cellsize = c(diff(st_bbox(x)[c(1, 3)]), diff(st_bbox(x)[c(2, 4)]))/n,\n offset = st_bbox(x)[c(\"xmin\", \"ymin\")],\n n = c(10, 10),\n crs = if (missing(x)) NA_crs_ else st_crs(x),\n what = \"polygons\",\n square = TRUE,\n flat_topped = FALSE\n)\n}\n\\arguments{\n\\item{x}{object of class \\link{sf} or \\link{sfc}}\n\n\\item{cellsize}{numeric of length 1 or 2 with target cellsize: for square or rectangular cells the width and height, for hexagonal cells the distance between opposite edges (edge length is cellsize/sqrt(3)). A length units object can be passed, or an area unit object with area size of the square or hexagonal cell.}\n\n\\item{offset}{numeric of length 2; lower left corner coordinates (x, y) of the grid}\n\n\\item{n}{integer of length 1 or 2, number of grid cells in x and y direction (columns, rows)}\n\n\\item{crs}{object of class \\code{crs}; coordinate reference system of the target grid in case argument \\code{x} is missing, if \\code{x} is not missing, its crs is inherited.}\n\n\\item{what}{character; one of: \\code{\"polygons\"}, \\code{\"corners\"}, or \\code{\"centers\"}}\n\n\\item{square}{logical; if \\code{FALSE}, create hexagonal grid}\n\n\\item{flat_topped}{logical; if \\code{TRUE} generate flat topped hexagons, else generate pointy topped}\n}\n\\value{\nObject of class \\code{sfc} (simple feature geometry list column) with, depending on \\code{what} and \\code{square},\nsquare or hexagonal polygons, corner points of these polygons, or center points of these polygons.\n}\n\\description{\nCreate a square or hexagonal grid covering the bounding box of the geometry of an sf or sfc object\n}\n\\examples{\nplot(st_make_grid(what = \"centers\"), axes = TRUE)\nplot(st_make_grid(what = \"corners\"), add = TRUE, col = 'green', pch=3)\nsfc = st_sfc(st_polygon(list(rbind(c(0,0), c(1,0), c(1,1), c(0,0)))))\nplot(st_make_grid(sfc, cellsize = .1, square = FALSE))\nplot(sfc, add = TRUE)\n# non-default offset:\nplot(st_make_grid(sfc, cellsize = .1, square = FALSE, offset = c(0, .05 / (sqrt(3)/2))))\nplot(sfc, add = TRUE)\nnc = st_read(system.file(\"shape/nc.shp\", package=\"sf\"))\ng = st_make_grid(nc)\nplot(g)\nplot(st_geometry(nc), add = TRUE)\n# g[nc] selects cells that intersect with nc:\nplot(g[nc], col = '#ff000088', add = TRUE)\n}\n"
},
{
"path": "man/st_nearest_feature.Rd",
"content": "% Generated by roxygen2: do not edit by hand\n% Please edit documentation in R/nearest.R\n\\name{st_nearest_feature}\n\\alias{st_nearest_feature}\n\\title{get index of nearest feature}\n\\usage{\nst_nearest_feature(\n x,\n y,\n ...,\n check_crs = TRUE,\n longlat = isTRUE(st_is_longlat(x))\n)\n}\n\\arguments{\n\\item{x}{object of class \\code{sfg}, \\code{sfc} or \\code{sf}}\n\n\\item{y}{object of class \\code{sfg}, \\code{sfc} or \\code{sf}; if missing, features in \\code{x} will be compared to all remaining features in \\code{x}.}\n\n\\item{...}{ignored}\n\n\\item{check_crs}{logical; should \\code{x} and \\code{y} be checked for CRS equality?}\n\n\\item{longlat}{logical; does \\code{x} have ellipsoidal coordinates?}\n}\n\\value{\nfor each feature (geometry) in \\code{x} the index of the nearest feature (geometry) in\nset \\code{y}, or in the remaining set of \\code{x} if \\code{y} is missing;\nempty geometries result in \\code{NA} indexes\n}\n\\description{\nget index of nearest feature\n}\n\\examples{\nls1 = st_linestring(rbind(c(0,0), c(1,0)))\nls2 = st_linestring(rbind(c(0,0.1), c(1,0.1)))\nls3 = st_linestring(rbind(c(0,1), c(1,1)))\n(l = st_sfc(ls1, ls2, ls3))\n\np1 = st_point(c(0.1, -0.1))\np2 = st_point(c(0.1, 0.11))\np3 = st_point(c(0.1, 0.09))\np4 = st_point(c(0.1, 0.9))\n\n(p = st_sfc(p1, p2, p3, p4))\ntry(st_nearest_feature(p, l))\ntry(st_nearest_points(p, l[st_nearest_feature(p,l)], pairwise = TRUE))\n\nr = sqrt(2)/10\nb1 = st_buffer(st_point(c(.1,.1)), r)\nb2 = st_buffer(st_point(c(.9,.9)), r)\nb3 = st_buffer(st_point(c(.9,.1)), r)\ncircles = st_sfc(b1, b2, b3)\nplot(circles, col = NA, border = 2:4)\npts = st_sfc(st_point(c(.3,.1)), st_point(c(.6,.2)), st_point(c(.6,.6)), st_point(c(.4,.8)))\nplot(pts, add = TRUE, col = 1)\n# draw points to nearest circle:\nnearest = try(st_nearest_feature(pts, circles))\nif (inherits(nearest, \"try-error\")) # GEOS 3.6.1 not available\n nearest = c(1, 3, 2, 2)\nls = st_nearest_points(pts, circles[nearest], pairwise = TRUE)\nplot(ls, col = 5:8, add = TRUE)\n# compute distance between pairs of nearest features:\nst_distance(pts, circles[nearest], by_element = TRUE)\n}\n\\seealso{\n\\link{st_nearest_points} for finding the nearest points for pairs of feature geometries\n}\n"
},
{
"path": "man/st_nearest_points.Rd",
"content": "% Generated by roxygen2: do not edit by hand\n% Please edit documentation in R/nearest.R\n\\name{st_nearest_points}\n\\alias{st_nearest_points}\n\\alias{st_nearest_points.sfc}\n\\alias{st_nearest_points.sfg}\n\\alias{st_nearest_points.sf}\n\\title{get nearest points between pairs of geometries}\n\\usage{\nst_nearest_points(x, y, ..., by_element = FALSE)\n\n\\method{st_nearest_points}{sfc}(x, y, ..., pairwise = by_element, by_element = FALSE)\n\n\\method{st_nearest_points}{sfg}(x, y, ...)\n\n\\method{st_nearest_points}{sf}(x, y, ...)\n}\n\\arguments{\n\\item{x}{object of class \\code{sfg}, \\code{sfc} or \\code{sf}}\n\n\\item{y}{object of class \\code{sfg}, \\code{sfc} or \\code{sf}; needs to have the same number of geometries of \\code{x} when \\code{by_element=TRUE}}\n\n\\item{...}{ignored}\n\n\\item{by_element}{logical; if \\code{FALSE} (default) return nearest points between all possible pairs, if \\code{TRUE}, return nearest points between row-wise x-y pairs.}\n\n\\item{pairwise}{logical; deprecated in favour of \\code{by_element}}\n}\n\\value{\nan \\link{sfc} object with all two-point \\code{LINESTRING} geometries of point pairs from the first to the second geometry, of length x * y if \\code{by_element=FALSE} (with y cycling fastest), or lf length \\code{length(x)} when \\code{by_element=TRUE}. See examples for ideas how to convert these to \\code{POINT} geometries.\n}\n\\description{\nget nearest points between pairs of geometries\n}\n\\details{\nin case \\code{x} lies inside \\code{y}, when using S2, the end points\nare on polygon boundaries, when using GEOS the end point are identical to \\code{x}.\n}\n\\examples{\nr = sqrt(2)/10\npt1 = st_point(c(.1,.1))\npt2 = st_point(c(.9,.9))\npt3 = st_point(c(.9,.1))\nb1 = st_buffer(pt1, r)\nb2 = st_buffer(pt2, r)\nb3 = st_buffer(pt3, r)\n(ls0 = st_nearest_points(b1, b2)) # sfg\n(ls = st_nearest_points(st_sfc(b1), st_sfc(b2, b3))) # sfc\nplot(b1, xlim = c(-.2,1.2), ylim = c(-.2,1.2), col = NA, border = 'green')\nplot(st_sfc(b2, b3), add = TRUE, col = NA, border = 'blue')\nplot(ls, add = TRUE, col = 'red')\n\nnc = st_read(system.file(\"gpkg/nc.gpkg\", package=\"sf\"))\nplot(st_geometry(nc))\nls = st_nearest_points(nc[1,], nc)\nplot(ls, col = 'red', add = TRUE)\npts = st_cast(ls, \"POINT\") # gives all start & end points\n# starting, \"from\" points, corresponding to x:\nplot(pts[seq(1, 200, 2)], add = TRUE, col = 'blue')\n# ending, \"to\" points, corresponding to y:\nplot(pts[seq(2, 200, 2)], add = TRUE, col = 'green')\n\n}\n\\seealso{\n\\link{st_nearest_feature} for finding the nearest feature\n}\n"
},
{
"path": "man/st_normalize.Rd",
"content": "% Generated by roxygen2: do not edit by hand\n% Please edit documentation in R/normalize.R\n\\name{st_normalize}\n\\alias{st_normalize}\n\\title{Normalize simple features}\n\\usage{\nst_normalize(x, domain = st_bbox(x), ...)\n}\n\\arguments{\n\\item{x}{object of class sf, sfc or sfg}\n\n\\item{domain}{The domain \\code{x} should be normalized from as a length 4\nvector of the form \\code{c(xmin, ymin, xmax, ymax)}. Defaults to the\nbounding box of \\code{x}}\n\n\\item{...}{ignored}\n}\n\\description{\n\\code{st_normalize} transforms the coordinates in the input feature to fall\nbetween 0 and 1. By default the current domain is set to the bounding box of\nthe input, but other domains can be used as well\n}\n\\examples{\np1 = st_point(c(7,52))\nst_normalize(p1, domain = c(0, 0, 10, 100))\n\np2 = st_point(c(-30,20))\nsfc = st_sfc(p1, p2, crs = 4326)\nsfc\nsfc_norm <- st_normalize(sfc)\nst_bbox(sfc_norm)\n\n}\n"
},
{
"path": "man/st_precision.Rd",
"content": "% Generated by roxygen2: do not edit by hand\n% Please edit documentation in R/sfc.R\n\\name{st_precision}\n\\alias{st_precision}\n\\alias{st_set_precision}\n\\alias{st_precision<-}\n\\title{Get precision}\n\\usage{\nst_precision(x)\n\nst_set_precision(x, precision)\n\nst_precision(x) <- value\n}\n\\arguments{\n\\item{x}{object of class \\code{sfc} or \\code{sf}}\n\n\\item{precision}{numeric, or object of class \\code{units} with distance units (but see details); see \\link{st_as_binary} for how to do this.}\n\n\\item{value}{precision value}\n}\n\\description{\nGet precision\n\nSet precision\n}\n\\details{\nIf \\code{precision} is a \\code{units} object, the object on which we set precision must have a coordinate reference system with compatible distance units.\n\nSetting a \\code{precision} has no direct effect on coordinates of geometries, but merely set an attribute tag to an \\code{sfc} object.\nThe effect takes place in \\link{st_as_binary} or, more precise, in the C++ function \\code{CPL_write_wkb}, where simple feature geometries are being serialized to well-known-binary (WKB).\nThis happens always when routines are called in GEOS library (geometrical operations or predicates), for writing geometries using \\link{st_write} or \\link{write_sf}, \\code{st_make_valid} in package \\code{lwgeom}; also \\link{aggregate} and \\link{summarise} by default union geometries, which calls a GEOS library function.\nRoutines in these libraries receive rounded coordinates, and possibly return results based on them. \\link{st_as_binary} contains an example of a roundtrip of \\code{sfc} geometries through WKB, in order to see the rounding happening to R data.\n\nThe reason to support precision is that geometrical operations in GEOS or liblwgeom may work better at reduced precision. For writing data from R to external resources it is harder to think of a good reason to limiting precision.\n}\n\\examples{\nx <- st_sfc(st_point(c(pi, pi)))\nst_precision(x)\nst_precision(x) <- 0.01\nst_precision(x)\n}\n\\seealso{\n\\link{st_as_binary} for an explanation of what setting precision does, and the examples therein.\n}\n"
},
{
"path": "man/st_read.Rd",
"content": "% Generated by roxygen2: do not edit by hand\n% Please edit documentation in R/read.R, R/db.R\n\\name{st_read}\n\\alias{st_read}\n\\alias{st_read.character}\n\\alias{read_sf}\n\\alias{st_read.DBIObject}\n\\title{Read simple features or layers from file or database}\n\\usage{\nst_read(dsn, layer, ...)\n\n\\method{st_read}{character}(\n dsn,\n layer,\n ...,\n query = NA,\n options = NULL,\n quiet = FALSE,\n geometry_column = 1L,\n type = 0,\n promote_to_multi = TRUE,\n stringsAsFactors = sf_stringsAsFactors(),\n int64_as_string = FALSE,\n check_ring_dir = FALSE,\n fid_column_name = character(0),\n drivers = character(0),\n wkt_filter = character(0),\n optional = FALSE,\n use_stream = default_st_read_use_stream()\n)\n\nread_sf(..., quiet = TRUE, stringsAsFactors = FALSE, as_tibble = TRUE)\n\n\\method{st_read}{DBIObject}(\n dsn = NULL,\n layer = NULL,\n query = NULL,\n EWKB = TRUE,\n quiet = TRUE,\n as_tibble = FALSE,\n geometry_column = NULL,\n ...\n)\n}\n\\arguments{\n\\item{dsn}{data source name (interpretation varies by driver - for some\ndrivers, \\code{dsn} is a file name, but may also be a folder, or contain\nthe name and access credentials of a database); in case of GeoJSON,\n\\code{dsn} may be the character string holding the geojson data. It can\nalso be an open database connection.}\n\n\\item{layer}{layer name (varies by driver, may be a file name without\nextension); in case \\code{layer} is missing, \\code{st_read} will read the\nfirst layer of \\code{dsn}, give a warning and (unless \\code{quiet = TRUE})\nprint a message when there are multiple layers, or give an error if there\nare no layers in \\code{dsn}. If \\code{dsn} is a database connection, then\n\\code{layer} can be a table name or a database identifier (see\n\\code{\\link[DBI]{Id}}). It is also possible to omit \\code{layer} and rather\nuse the \\code{query} argument.}\n\n\\item{...}{parameter(s) passed on to \\link{st_as_sf}}\n\n\\item{query}{SQL query to select records; see details}\n\n\\item{options}{character; driver dependent dataset open options, multiple\noptions supported. For possible values, see the \"Open options\" section\nof the GDAL documentation of the corresponding driver, and\n\\url{https://github.com/r-spatial/sf/issues/1157} for an example.}\n\n\\item{quiet}{logical; suppress info on name, driver, size and spatial\nreference, or signaling no or multiple layers}\n\n\\item{geometry_column}{integer or character; in case of multiple geometry\nfields, which one to take?}\n\n\\item{type}{integer; ISO number of desired simple feature type; see details.\nIf left zero, and \\code{promote_to_multi} is \\code{TRUE}, in case of mixed\nfeature geometry types, conversion to the highest numeric type value found\nwill be attempted. A vector with different values for each geometry column\ncan be given.}\n\n\\item{promote_to_multi}{logical; in case of a mix of Point and MultiPoint, or\nof LineString and MultiLineString, or of Polygon and MultiPolygon, convert\nall to the Multi variety; defaults to \\code{TRUE}}\n\n\\item{stringsAsFactors}{logical; should character vectors be\nconverted to factors? Default for \\code{read_sf} or R version >= 4.1.0 is\n\\code{FALSE}, for \\code{st_read} and R version < 4.1.0 equal to\n\\code{default.stringsAsFactors()}}\n\n\\item{int64_as_string}{logical; if \\code{TRUE}, Int64 attributes are returned as\nstring; if \\code{FALSE}, they are returned as double and a warning is given when\nprecision is lost (i.e., values are larger than 2^53).}\n\n\\item{check_ring_dir}{logical; if \\code{TRUE}, polygon ring directions are checked\nand if necessary corrected (when seen from above: exterior ring counter\nclockwise, holes clockwise)}\n\n\\item{fid_column_name}{character; name of column to write feature IDs to; defaults to not doing this}\n\n\\item{drivers}{character; limited set of driver short names to be tried (default: try all)}\n\n\\item{wkt_filter}{character; WKT representation of a spatial filter (may be used as bounding box, selecting overlapping geometries); see examples}\n\n\\item{optional}{logical; passed to \\link[base]{as.data.frame}; always \\code{TRUE} when \\code{as_tibble} is \\code{TRUE}}\n\n\\item{use_stream}{Use \\code{TRUE} to use the experimental columnar interface introduced in GDAL 3.6.}\n\n\\item{as_tibble}{logical; should the returned table be of class tibble or data.frame?}\n\n\\item{EWKB}{logical; is the WKB of type EWKB? if missing, defaults to\n\\code{TRUE}}\n}\n\\value{\nobject of class \\link{sf} when a layer was successfully read; in case\nargument \\code{layer} is missing and data source \\code{dsn} does not\ncontain a single layer, an object of class \\code{sf_layers} is returned\nwith the layer names, each with their geometry type(s). Note that the\nnumber of layers may also be zero.\n}\n\\description{\nRead simple features from file or database, or retrieve layer names and their\ngeometry type(s)\n\nRead PostGIS table directly through DBI and RPostgreSQL interface, converting\nWell-Know Binary geometries to sfc\n}\n\\details{\nfor \\code{geometry_column}, see also\n\\url{https://gdal.org/en/latest/development/rfc/rfc41_multiple_geometry_fields.html}\n\nfor values for \\code{type} see\n\\url{https://en.wikipedia.org/wiki/Well-known_text_representation_of_geometry#Well-known_binary},\nbut note that not every target value may lead to successful conversion. The\ntypical conversion from POLYGON (3) to MULTIPOLYGON (6) should work; the\nother way around (type=3), secondary rings from MULTIPOLYGONS may be dropped\nwithout warnings. \\code{promote_to_multi} is handled on a per-geometry column\nbasis; \\code{type} may be specified for each geometry column.\n\nNote that stray files in data source directories (such as \\code{*.dbf}) may\nlead to spurious errors that accompanying \\code{*.shp} are missing.\n\nIn case of problems reading shapefiles from USB drives on OSX, please see\n\\url{https://github.com/r-spatial/sf/issues/252}. Reading shapefiles (or other\ndata sources) directly from zip files can be done by prepending the path\nwith \\code{/vsizip/}. This is part of the GDAL Virtual File Systems interface\nthat also supports .gz, curl, and other operations, including chaining; see\n\\url{https://gdal.org/en/latest/user/virtual_file_systems.html} for a complete\ndescription and examples.\n\nFor \\code{query} with a character \\code{dsn} the query text is handed to\n'ExecuteSQL' on the GDAL/OGR data set and will result in the creation of a\nnew layer (and \\code{layer} is ignored). See 'OGRSQL'\n\\url{https://gdal.org/en/latest/user/ogr_sql_dialect.html} for details. Please note that the\n'FID' special field is driver-dependent, and may be either 0-based (e.g. ESRI\nShapefile), 1-based (e.g. MapInfo) or arbitrary (e.g. OSM). Other features of\nOGRSQL are also likely to be driver dependent. The available layer names may\nbe obtained with\n\\link{st_layers}. Care will be required to properly escape the use of some layer names.\n\n\\code{read_sf} and \\code{write_sf} are aliases for \\code{st_read} and \\code{st_write}, respectively, with some\nmodified default arguments.\n\\code{read_sf} and \\code{write_sf} are quiet by default: they do not print information\nabout the data source. \\code{read_sf} returns an sf-tibble rather than an sf-data.frame.\n\\code{write_sf} delete layers by default: it overwrites existing files without asking or warning.\n\nif \\code{table} is not given but \\code{query} is, the spatial\nreference system (crs) of the table queried is only available in case it\nhas been stored into each geometry record (e.g., by PostGIS, when using\nEWKB)\n\nThe function will automatically find the \\code{geometry} type columns for\ndrivers that support it. For the other drivers, it will try to cast all the\ncharacter columns, which can be slow for very wide tables.\n}\n\\note{\nThe use of \\code{system.file} in examples make sure that examples run regardless where R is installed:\ntypical users will not use \\code{system.file} but give the file name directly, either with full path or relative\nto the current working directory (see \\link{getwd}). \"Shapefiles\" consist of several files with the same basename\nthat reside in the same directory, only one of them having extension \\code{.shp}.\n}\n\\examples{\nnc = st_read(system.file(\"shape/nc.shp\", package=\"sf\"))\nsummary(nc) # note that AREA was computed using Euclidian area on lon/lat degrees\n\n## only three fields by select clause\n## only two features by where clause\nnc_sql = st_read(system.file(\"shape/nc.shp\", package=\"sf\"),\n query = \"SELECT NAME, SID74, FIPS FROM \\\"nc\\\" WHERE BIR74 > 20000\")\n\\dontrun{\n library(sp)\n example(meuse, ask = FALSE, echo = FALSE)\n try(st_write(st_as_sf(meuse), \"PG:dbname=postgis\", \"meuse\",\n layer_options = \"OVERWRITE=true\"))\n try(st_meuse <- st_read(\"PG:dbname=postgis\", \"meuse\"))\n if (exists(\"st_meuse\"))\n summary(st_meuse)\n}\n\n\\dontrun{\n## note that we need special escaping of layer within single quotes (nc.gpkg)\n## and that geom needs to be included in the select, otherwise we don't detect it\nlayer <- st_layers(system.file(\"gpkg/nc.gpkg\", package = \"sf\"))$name[1]\nnc_gpkg_sql = st_read(system.file(\"gpkg/nc.gpkg\", package = \"sf\"),\n query = sprintf(\"SELECT NAME, SID74, FIPS, geom FROM \\\"\\%s\\\" WHERE BIR74 > 20000\", layer))\n}\n# spatial filter, as wkt:\nwkt = st_as_text(st_geometry(nc[1,]))\n# filter by (bbox overlaps of) first feature geometry:\nst_read(system.file(\"gpkg/nc.gpkg\", package=\"sf\"), wkt_filter = wkt)\n# read geojson from string:\ngeojson_txt <- paste(\"{\\\"type\\\":\\\"MultiPoint\\\",\\\"coordinates\\\":\",\n \"[[3.2,4],[3,4.6],[3.8,4.4],[3.5,3.8],[3.4,3.6],[3.9,4.5]]}\")\nx = st_read(geojson_txt)\nx\n\\dontrun{\nlibrary(RPostgreSQL)\ntry(conn <- dbConnect(PostgreSQL(), dbname = \"postgis\"))\nif (exists(\"conn\") && !inherits(conn, \"try-error\")) {\n x = st_read(conn, \"meuse\", query = \"select * from meuse limit 3;\")\n x = st_read(conn, table = \"public.meuse\")\n print(st_crs(x)) # SRID resolved by the database, not by GDAL!\n dbDisconnect(conn)\n }\n}\n}\n\\seealso{\n\\link{st_layers}, \\link{st_drivers}\n}\n"
},
{
"path": "man/st_relate.Rd",
"content": "% Generated by roxygen2: do not edit by hand\n% Please edit documentation in R/geom-predicates.R\n\\name{st_relate}\n\\alias{st_relate}\n\\title{Compute DE9-IM relation between pairs of geometries, or match it to a given pattern}\n\\usage{\nst_relate(x, y, pattern = NA_character_, sparse = !is.na(pattern), ...)\n}\n\\arguments{\n\\item{x}{object of class \\code{sf}, \\code{sfc} or \\code{sfg}}\n\n\\item{y}{object of class \\code{sf}, \\code{sfc} or \\code{sfg}}\n\n\\item{pattern}{character; define the pattern to match to, see details.}\n\n\\item{sparse}{logical; should a sparse matrix be returned (\\code{TRUE}) or a dense matrix?}\n\n\\item{...}{may be used to specify \\code{by_element=TRUE} to return a vector with element-wise relations or matches}\n}\n\\value{\nIn case \\code{pattern} is not given, \\code{st_relate} returns a dense \\code{character} matrix; element \\verb{[i,j]} has nine characters, referring to the DE9-IM relationship between \\code{x[i]} and \\code{y[j]}, encoded as IxIy,IxBy,IxEy,BxIy,BxBy,BxEy,ExIy,ExBy,ExEy where I refers to interior, B to boundary, and E to exterior, and e.g. BxIy the dimensionality of the intersection of the the boundary of \\code{x[i]} and the interior of \\code{y[j]}, which is one of: 0, 1, 2, or F; digits denoting dimensionality of intersection, F denoting no intersection. When \\code{pattern} is given, a dense logical matrix or sparse index list returned with matches to the given pattern; see \\link{st_intersects} for a description of the returned matrix or list. See also \\url{https://en.wikipedia.org/wiki/DE-9IM} for further explanation.\n}\n\\description{\nCompute DE9-IM relation between pairs of geometries, or match it to a given pattern\n}\n\\examples{\np1 = st_point(c(0,0))\np2 = st_point(c(2,2))\npol1 = st_polygon(list(rbind(c(0,0),c(1,0),c(1,1),c(0,1),c(0,0)))) - 0.5\npol2 = pol1 + 1\npol3 = pol1 + 2\nst_relate(st_sfc(p1, p2), st_sfc(pol1, pol2, pol3))\nsfc = st_sfc(st_point(c(0,0)), st_point(c(3,3)))\ngrd = st_make_grid(sfc, n = c(3,3))\nst_intersects(grd)\nst_relate(grd, pattern = \"****1****\") # sides, not corners, internals\nst_relate(grd, pattern = \"****0****\") # only corners touch\nst_rook = function(a, b = a) st_relate(a, b, pattern = \"F***1****\")\nst_rook(grd)\n# queen neighbours, see \\url{https://github.com/r-spatial/sf/issues/234#issuecomment-300511129}\nst_queen <- function(a, b = a) st_relate(a, b, pattern = \"F***T****\")\n}\n"
},
{
"path": "man/st_sample.Rd",
"content": "% Generated by roxygen2: do not edit by hand\n% Please edit documentation in R/sample.R\n\\name{st_sample}\n\\alias{st_sample}\n\\alias{st_sample.sf}\n\\alias{st_sample.sfc}\n\\alias{st_sample.sfg}\n\\alias{st_sample.bbox}\n\\title{sample points on or in (sets of) spatial features}\n\\usage{\nst_sample(x, size, ...)\n\n\\method{st_sample}{sf}(x, size, ...)\n\n\\method{st_sample}{sfc}(\n x,\n size,\n ...,\n type = \"random\",\n exact = TRUE,\n warn_if_not_integer = TRUE,\n by_polygon = FALSE,\n progress = FALSE,\n force = FALSE\n)\n\n\\method{st_sample}{sfg}(x, size, ...)\n\n\\method{st_sample}{bbox}(\n x,\n size,\n ...,\n great_circles = FALSE,\n segments = units::set_units(2, \"degree\", mode = \"standard\")\n)\n}\n\\arguments{\n\\item{x}{object of class \\code{sf} or \\code{sfc}}\n\n\\item{size}{sample size(s) requested; either total size, or a numeric vector with sample sizes for each feature geometry. When sampling polygons, the returned sampling size may differ from the requested size, as the bounding box is sampled, and sampled points intersecting the polygon are returned.}\n\n\\item{...}{passed on to \\link[base]{sample} for \\code{multipoint} sampling, or to \\code{spatstat} functions for spatstat sampling types (see details)}\n\n\\item{type}{character; indicates the spatial sampling type; one of \\code{random}, \\code{hexagonal} (triangular really), \\code{regular}, \\code{Fibonacci},\nor one of the \\code{spatstat} methods such as \\code{Thomas} for calling \\code{spatstat.random::rThomas} (see Details).}\n\n\\item{exact}{logical; should the length of output be exactly}\n\n\\item{warn_if_not_integer}{logical; if \\code{FALSE} then no warning is emitted if \\code{size} is not an integer}\n\n\\item{by_polygon}{logical; for \\code{MULTIPOLYGON} geometries, should the effort be split by \\code{POLYGON}? See https://github.com/r-spatial/sf/issues/1480\nthe same as specified by \\code{size}? \\code{TRUE} by default. Only applies to polygons, and\nwhen \\code{type = \"random\"}.}\n\n\\item{progress}{logical; if \\code{TRUE} show progress bar (only if \\code{size} is a vector).}\n\n\\item{force}{logical; if \\code{TRUE} continue when the sampled bounding box area is more than 1e4 times the area of interest, else (default) stop with an error. If this error is not justified, try setting \\code{oriented=TRUE}, see details.}\n\n\\item{great_circles}{logical; if \\code{TRUE}, great circle arcs are used to connect the bounding box vertices, if \\code{FALSE} parallels (graticules)}\n\n\\item{segments}{units, or numeric (degrees); segment sizes for segmenting a bounding box polygon if \\code{great_circles} is \\code{FALSE}}\n}\n\\value{\nan \\code{sfc} object containing the sampled \\code{POINT} geometries\n}\n\\description{\nSample points on or in (sets of) spatial features.\nBy default, returns a pre-specified number of points that is equal to\n\\code{size} (if \\code{type = \"random\"} and \\code{exact = TRUE}) or an approximation of\n\\code{size} otherwise. \\code{spatstat} methods are\ninterfaced and do not use the \\code{size} argument, see examples.\n}\n\\details{\nThe function is vectorised: it samples \\code{size} points across all geometries in\nthe object if \\code{size} is a single number, or the specified number of points\nin each feature if \\code{size} is a vector of integers equal in length to the geometry\nof \\code{x}.\n\nif \\code{x} has dimension 2 (polygons) and geographical coordinates (long/lat), uniform random sampling on the sphere is applied, see e.g. \\url{https://mathworld.wolfram.com/SpherePointPicking.html}.\n\nFor \\code{regular} or \\code{hexagonal} sampling of polygons, the resulting size is only an approximation.\n\nAs parameter called \\code{offset} can be passed to control (\"fix\") regular or hexagonal sampling: for polygons a length 2 numeric vector (by default: a random point from \\code{st_bbox(x)}); for lines use a number like \\code{runif(1)}.\n\nFibonacci sampling see: Alvaro Gonzalez, 2010. Measurement of Areas on a Sphere Using Fibonacci and Latitude-Longitude Lattices.\nMathematical Geosciences 42(1), p. 49-64\n\nFor regular sampling on the sphere, see also \\code{geosphere::regularCoordinates}.\n\nSampling methods from package \\code{spatstat} are interfaced (see examples), and need their own parameters to be set.\nFor instance, to use \\code{spatstat.random::rThomas()}, set \\code{type = \"Thomas\"}.\n\nFor sampling polygons one can specify \\code{oriented=TRUE} to make sure that polygons larger than half the globe are not reverted, e.g. when specifying a polygon from a bounding box of a global dataset. The \\code{st_sample} method for \\code{bbox} does this by default.\n}\n\\examples{\nnc = st_read(system.file(\"shape/nc.shp\", package=\"sf\"))\np1 = st_sample(nc[1:3, ], 6)\np2 = st_sample(nc[1:3, ], 1:3)\nplot(st_geometry(nc)[1:3])\nplot(p1, add = TRUE)\nplot(p2, add = TRUE, pch = 2)\nx = st_sfc(st_polygon(list(rbind(c(0,0),c(90,0),c(90,90),c(0,90),c(0,0)))), crs = st_crs(4326))\nplot(x, axes = TRUE, graticule = TRUE)\nif (compareVersion(sf_extSoftVersion()[\"proj.4\"], \"4.9.0\") >= 0)\n plot(p <- st_sample(x, 1000), add = TRUE)\nif (require(lwgeom, quietly = TRUE)) { # for st_segmentize()\n x2 = st_transform(st_segmentize(x, 1e4), st_crs(\"+proj=ortho +lat_0=30 +lon_0=45\"))\n g = st_transform(st_graticule(), st_crs(\"+proj=ortho +lat_0=30 +lon_0=45\"))\n plot(x2, graticule = g)\n if (compareVersion(sf_extSoftVersion()[\"proj.4\"], \"4.9.0\") >= 0) {\n p2 = st_transform(p, st_crs(\"+proj=ortho +lat_0=30 +lon_0=45\"))\n plot(p2, add = TRUE)\n }\n}\nx = st_sfc(st_polygon(list(rbind(c(0,0),c(90,0),c(90,10),c(0,90),c(0,0))))) # NOT long/lat:\nplot(x)\np_exact = st_sample(x, 1000, exact = TRUE)\np_not_exact = st_sample(x, 1000, exact = FALSE)\nlength(p_exact); length(p_not_exact)\nplot(st_sample(x, 1000), add = TRUE)\nx = st_sfc(st_polygon(list(rbind(c(-180,-90),c(180,-90),c(180,90),c(-180,90),c(-180,-90)))),\n crs=st_crs(4326))\n# FIXME:\n#if (compareVersion(sf_extSoftVersion()[\"proj.4\"], \"4.9.0\") >= 0) {\n# p = st_sample(x, 1000)\n# st_sample(p, 3)\n#}\n# hexagonal:\nsfc = st_sfc(st_polygon(list(rbind(c(0,0), c(1,0), c(1,1), c(0,0)))))\nplot(sfc)\nh = st_sample(sfc, 100, type = \"hexagonal\")\nh1 = st_sample(sfc, 100, type = \"hexagonal\")\nplot(h, add = TRUE)\nplot(h1, col = 'red', add = TRUE)\nc(length(h), length(h1)) # approximate!\npt = st_multipoint(matrix(1:20,,2))\nls = st_sfc(st_linestring(rbind(c(0,0),c(0,1))),\n st_linestring(rbind(c(0,0),c(.1,0))),\n st_linestring(rbind(c(0,1),c(.1,1))),\n st_linestring(rbind(c(2,2),c(2,2.00001))))\nst_sample(ls, 80)\nplot(st_sample(ls, 80))\n# spatstat example:\nif (require(spatstat.random)) {\n x <- sf::st_sfc(sf::st_polygon(list(rbind(c(0, 0), c(10, 0), c(10, 10), c(0, 0)))))\n # for spatstat.random::rThomas(), set type = \"Thomas\":\n pts <- st_sample(x, kappa = 1, mu = 10, scale = 0.1, type = \"Thomas\") \n}\nbbox = st_bbox(\nc(xmin = 0, xmax = 40, ymax = 70, ymin = 60),\n\tcrs = st_crs('OGC:CRS84')\n)\nset.seed(13531)\ns1 = st_sample(bbox, 400)\nst_bbox(s1) # within bbox\ns2 = st_sample(bbox, 400, great_circles = TRUE)\nst_bbox(s2) # outside bbox\n}\n"
},
{
"path": "man/st_shift_longitude.Rd",
"content": "% Generated by roxygen2: do not edit by hand\n% Please edit documentation in R/shift_longitude.R\n\\name{st_shift_longitude}\n\\alias{st_shift_longitude}\n\\alias{st_shift_longitude.sfc}\n\\alias{st_shift_longitude.sf}\n\\title{Shift or re-center geographical coordinates for a Pacific view}\n\\usage{\nst_shift_longitude(x)\n\n\\method{st_shift_longitude}{sfc}(x, ...)\n\n\\method{st_shift_longitude}{sf}(x, ...)\n}\n\\arguments{\n\\item{x}{object of class \\code{sf} or \\code{sfc}}\n\n\\item{...}{ignored}\n}\n\\description{\nAll longitudes < 0 are added to 360, to avoid for instance parts of Alaska\nbeing represented on the far left and right of a plot because they have\nvalues straddling 180 degrees. In general, using a projected\ncoordinate reference system is to be preferred, but this method permits a\ngeographical coordinate reference system to be used. This is the sf\nequivalent of \\link[sp:recenter]{recenter} in the sp package and\n\\code{ST_ShiftLongitude} in PostGIS.\n}\n\\examples{\n## sfc\npt1 = st_point(c(-170, 50))\npt2 = st_point(c(170, 50))\n(sfc = st_sfc(pt1, pt2))\nsfc = st_set_crs(sfc, 4326)\nst_shift_longitude(sfc)\n\n## sf\nd = st_as_sf(data.frame(id = 1:2, geometry = sfc))\nst_shift_longitude(d)\n}\n"
},
{
"path": "man/st_transform.Rd",
"content": "% Generated by roxygen2: do not edit by hand\n% Please edit documentation in R/transform.R, R/proj.R\n\\name{st_transform}\n\\alias{st_transform}\n\\alias{st_can_transform}\n\\alias{st_transform.sfc}\n\\alias{st_transform.sf}\n\\alias{st_transform.sfg}\n\\alias{st_transform.bbox}\n\\alias{st_wrap_dateline}\n\\alias{st_wrap_dateline.sfc}\n\\alias{st_wrap_dateline.sf}\n\\alias{st_wrap_dateline.sfg}\n\\alias{sf_proj_info}\n\\title{Transform or convert coordinates of simple feature}\n\\usage{\nst_can_transform(src, dst)\n\nst_transform(x, crs, ...)\n\n\\method{st_transform}{sfc}(\n x,\n crs = st_crs(x),\n ...,\n aoi = numeric(0),\n pipeline = character(0),\n reverse = FALSE,\n desired_accuracy = -1,\n allow_ballpark = TRUE,\n partial = TRUE,\n check = FALSE\n)\n\n\\method{st_transform}{sf}(x, crs = st_crs(x), ...)\n\n\\method{st_transform}{sfg}(x, crs = st_crs(x), ...)\n\n\\method{st_transform}{bbox}(x, crs, ..., densify = 21)\n\nst_wrap_dateline(x, options, quiet)\n\n\\method{st_wrap_dateline}{sfc}(x, options = \"WRAPDATELINE=YES\", quiet = TRUE)\n\n\\method{st_wrap_dateline}{sf}(x, options = \"WRAPDATELINE=YES\", quiet = TRUE)\n\n\\method{st_wrap_dateline}{sfg}(x, options = \"WRAPDATELINE=YES\", quiet = TRUE)\n\nsf_proj_info(type = \"proj\", path)\n}\n\\arguments{\n\\item{src}{source crs}\n\n\\item{dst}{destination crs}\n\n\\item{x}{object of class sf, sfc or sfg}\n\n\\item{crs}{target coordinate reference system: object of class \\code{crs}, or input string for \\link{st_crs}}\n\n\\item{...}{ignored}\n\n\\item{aoi}{area of interest, in degrees:\nWestLongitude, SouthLatitude, EastLongitude, NorthLatitude}\n\n\\item{pipeline}{character; coordinate operation pipeline, for overriding the default operation}\n\n\\item{reverse}{boolean; has only an effect when \\code{pipeline} is defined:\nif \\code{TRUE}, the inverse operation of the pipeline is applied}\n\n\\item{desired_accuracy}{numeric; Only coordinate operations that offer an accuracy of\nat least the one specified will be considered; a negative value disables this feature\n(requires GDAL >= 3.3)}\n\n\\item{allow_ballpark}{logical; are ballpark (low accuracy) transformations allowed?\n(requires GDAL >= 3.3)}\n\n\\item{partial}{logical; allow for partial projection, if not all points of a geometry can be projected (corresponds to setting environment variable \\code{OGR_ENABLE_PARTIAL_REPROJECTION} to \\code{TRUE})}\n\n\\item{check}{logical; if \\code{TRUE}, perform a sanity check on resulting polygons}\n\n\\item{densify}{integer, number of points for discretizing lines between bounding box corner points; see Details}\n\n\\item{options}{character; should have \"WRAPDATELINE=YES\" to function; another parameter that is used is \"DATELINEOFFSET=10\" (where 10 is the default value)}\n\n\\item{quiet}{logical; print options after they have been parsed?}\n\n\\item{type}{character; one of \\code{have_datum_files}, \\code{proj}, \\code{ellps}, \\code{datum}, \\code{units}, \\code{path}, or \\code{prime_meridians}; see Details.}\n\n\\item{path}{character; PROJ search path to be set}\n}\n\\description{\nTransform or convert coordinates of simple feature\n}\n\\details{\n\\code{st_can_transform} returns a boolean indicating whether\ncoordinates with CRS src can be transformed into CRS dst\n\nTransforms coordinates of object to new projection.\nFeatures that cannot be transformed are returned as empty geometries.\nTransforms using the \\code{pipeline=} argument may fail if there is\nambiguity in the axis order of the specified coordinate reference system;\nif you need the traditional GIS order, use \\code{\"OGC:CRS84\"}, not\n\\code{\"EPSG:4326\"}. Extra care is needed with the ESRI Shapefile format,\nbecause WKT1 does not store axis order unambiguously.\n\nThe \\code{st_transform} method for \\code{sfg} objects assumes that the CRS of the object is available as an attribute of that name.\n\nthe method for \\code{bbox} objects densifies lines for geographic coordinates along Cartesian lines, not great circle arcs\n\nFor a discussion of using \\code{options}, see \\url{https://github.com/r-spatial/sf/issues/280} and \\url{https://github.com/r-spatial/sf/issues/1983}\n\n\\code{sf_proj_info} lists the available projections, ellipses, datums, units, or data search path of the PROJ library when \\code{type} is equal to proj, ellps, datum, units or path; when \\code{type} equals \\code{have_datum_files} a boolean is returned indicating whether datum files are installed and accessible (checking for \\code{conus}). \\code{path} returns the \\code{PROJ_INFO.searchpath} field directly, as a single string with path separaters (\\code{:} or \\verb{;}).\n\nfor PROJ >= 6, \\code{sf_proj_info} does not provide option \\code{type = \"datums\"}.\nPROJ < 6 does not provide the option \\code{type = \"prime_meridians\"}.\n\nfor PROJ >= 7.1.0, the \"units\" query of \\code{sf_proj_info} returns the \\code{to_meter}\nvariable as numeric, previous versions return a character vector containing a numeric expression.\n}\n\\examples{\np1 = st_point(c(7,52))\np2 = st_point(c(-30,20))\nsfc = st_sfc(p1, p2, crs = 4326)\nsfc\nst_transform(sfc, 3857)\nst_transform(st_sf(a=2:1, geom=sfc), \"EPSG:3857\")\nif (compareVersion(sf_extSoftVersion()[\"GDAL\"], \"3.0.0\") >= 0) {\n st_transform(sfc, pipeline =\n\t \"+proj=pipeline +step +proj=axisswap +order=2,1\") # reverse axes\n st_transform(sfc, pipeline =\n\t \"+proj=pipeline +step +proj=axisswap +order=2,1\", reverse = TRUE) # also reverse axes\n}\nnc = st_read(system.file(\"shape/nc.shp\", package=\"sf\"))\nst_area(nc[1,]) # area from long/lat\nst_area(st_transform(nc[1,], 32119)) # NC state plane, m\nst_area(st_transform(nc[1,], 2264)) # NC state plane, US foot\nlibrary(units)\nset_units(st_area(st_transform(nc[1,], 2264)), m^2)\nst_transform(structure(p1, proj4string = \"EPSG:4326\"), \"EPSG:3857\")\nst_wrap_dateline(st_sfc(st_linestring(rbind(c(-179,0),c(179,0))), crs = 4326))\nsf_proj_info(\"datum\")\n}\n\\seealso{\n\\link[lwgeom]{st_transform_proj}, part of package lwgeom.\n\n\\link{sf_project} projects a matrix of coordinates, bypassing GDAL altogether\n\n\\link{st_break_antimeridian}\n}\n"
},
{
"path": "man/st_viewport.Rd",
"content": "% Generated by roxygen2: do not edit by hand\n% Please edit documentation in R/grid.R\n\\name{st_viewport}\n\\alias{st_viewport}\n\\title{Create viewport from sf, sfc or sfg object}\n\\usage{\nst_viewport(x, ..., bbox = st_bbox(x), asp)\n}\n\\arguments{\n\\item{x}{object of class sf, sfc or sfg object}\n\n\\item{...}{parameters passed on to \\link[grid]{viewport}}\n\n\\item{bbox}{the bounding box used for aspect ratio}\n\n\\item{asp}{numeric; target aspect ratio (y/x), see Details}\n}\n\\value{\nThe output of the call to \\link[grid]{viewport}\n}\n\\description{\nCreate viewport from sf, sfc or sfg object\n}\n\\details{\nparameters \\code{width}, \\code{height}, \\code{xscale} and \\code{yscale} are set such that aspect ratio is honoured and plot size is maximized in the current viewport; others can be passed as \\code{...}\n\nIf \\code{asp} is missing, it is taken as 1, except when \\code{isTRUE(st_is_longlat(x))}, in which case it is set to \\code{1.0 /cos(y)}, with \\code{y} the middle of the latitude bounding box.\n}\n\\examples{\nlibrary(grid)\nnc = st_read(system.file(\"shape/nc.shp\", package=\"sf\"))\ngrid.newpage()\npushViewport(viewport(width = 0.8, height = 0.8))\npushViewport(st_viewport(nc))\ninvisible(lapply(st_geometry(nc), function(x) grid.draw(st_as_grob(x, gp = gpar(fill = 'red')))))\n}\n"
},
{
"path": "man/st_write.Rd",
"content": "% Generated by roxygen2: do not edit by hand\n% Please edit documentation in R/read.R\n\\name{st_write}\n\\alias{st_write}\n\\alias{st_write.sfc}\n\\alias{st_write.sf}\n\\alias{st_write.data.frame}\n\\alias{write_sf}\n\\alias{st_delete}\n\\title{Write simple features object to file or database}\n\\usage{\nst_write(obj, dsn, layer, ...)\n\n\\method{st_write}{sfc}(obj, dsn, layer, ...)\n\n\\method{st_write}{sf}(\n obj,\n dsn,\n layer = NULL,\n ...,\n driver = guess_driver_can_write(dsn),\n dataset_options = NULL,\n layer_options = NULL,\n quiet = FALSE,\n factorsAsCharacter = TRUE,\n append = NA,\n delete_dsn = FALSE,\n delete_layer = !is.na(append) && !append,\n fid_column_name = NULL,\n config_options = character(0)\n)\n\n\\method{st_write}{data.frame}(obj, dsn, layer = NULL, ...)\n\nwrite_sf(..., quiet = TRUE, append = FALSE, delete_layer = !append)\n\nst_delete(\n dsn,\n layer = character(0),\n driver = guess_driver_can_write(dsn),\n quiet = FALSE\n)\n}\n\\arguments{\n\\item{obj}{object of class \\code{sf} or \\code{sfc}}\n\n\\item{dsn}{data source name. Interpretation varies by driver: can be\na filename, a folder, a database name, or a Database Connection\n(we officially test support for\n\\code{\\link[RPostgres:Postgres]{RPostgres::Postgres()}} connections).}\n\n\\item{layer}{layer name. Varies by driver, may be a file name without\nextension; for database connection, it is the name of the table. If layer\nis missing, the \\code{basename} of \\code{dsn} is taken.}\n\n\\item{...}{other arguments passed to \\link[DBI]{dbWriteTable} when \\code{dsn} is a\nDatabase Connection}\n\n\\item{driver}{character; name of driver to be used; if missing and \\code{dsn} is not a Database Connection, a driver name is guessed from \\code{dsn};\n\\code{st_drivers()} returns the drivers that are available with their properties; links to full driver documentation\nare found at \\url{https://gdal.org/en/latest/drivers/vector/index.html}}\n\n\\item{dataset_options}{character; driver dependent dataset creation options;\nmultiple options supported.}\n\n\\item{layer_options}{character; driver dependent layer creation options;\nmultiple options supported.}\n\n\\item{quiet}{logical; suppress info on name, driver, size and spatial\nreference}\n\n\\item{factorsAsCharacter}{logical; convert \\code{factor} levels to character\nstrings (\\code{TRUE}, default), otherwise into numbers when\nfactorsAsCharacter is \\code{FALSE}. For database connections,\n\\code{factorsAsCharacter} is always \\code{TRUE}.}\n\n\\item{append}{logical; should we append to an existing layer, or replace it?\nif \\code{TRUE} append, if \\code{FALSE} replace.\nThe default for \\code{st_write} is \\code{NA} which raises an error if the layer exists.\nThe default for \\code{write_sf} is \\code{FALSE}, which overwrites any existing data.\nSee also next two arguments for more control on overwrite behavior.}\n\n\\item{delete_dsn}{logical; delete data source \\code{dsn} before attempting\nto write?}\n\n\\item{delete_layer}{logical; delete layer \\code{layer} before attempting to\nwrite?\nThe default for \\code{st_write} is \\code{FALSE} which raises an error if the layer exists.\nThe default for \\code{write_sf} is \\code{TRUE}.}\n\n\\item{fid_column_name}{character, name of column with feature IDs; if\nspecified, this column is no longer written as feature attribute.}\n\n\\item{config_options}{character, named vector with GDAL config options}\n}\n\\value{\n\\code{obj}, invisibly\n}\n\\description{\nWrite simple features object to file or database\n}\n\\details{\nColumns (variables) of a class not supported are dropped with a warning.\n\nWhen updating an existing layer, records are appended to it if the updating\nobject has the right variable names and types. If names don't match an\nerror is raised. If types don't match, behaviour is undefined: GDAL may\nraise warnings or errors or fail silently.\n\nWhen deleting layers or data sources is not successful, no error is emitted.\n\\code{delete_dsn} and \\code{delete_layer} should be\nhandled with care; the former may erase complete directories or databases.\n\n\\code{st_delete()} deletes layer(s) in a data source, or a data source if layers are\nomitted; it returns \\code{TRUE} on success, \\code{FALSE} on failure, invisibly.\n}\n\\examples{\nnc = st_read(system.file(\"shape/nc.shp\", package=\"sf\"))\nst_write(nc, paste0(tempdir(), \"/\", \"nc.shp\"))\nst_write(nc, paste0(tempdir(), \"/\", \"nc.shp\"), delete_layer = TRUE) # overwrites\nif (require(sp, quietly = TRUE)) {\n data(meuse, package = \"sp\") # loads data.frame from sp\n meuse_sf = st_as_sf(meuse, coords = c(\"x\", \"y\"), crs = 28992)\n # writes X and Y as columns:\n st_write(meuse_sf, paste0(tempdir(), \"/\", \"meuse.csv\"), layer_options = \"GEOMETRY=AS_XY\")\n st_write(meuse_sf, paste0(tempdir(), \"/\", \"meuse.csv\"), layer_options = \"GEOMETRY=AS_WKT\",\n delete_dsn=TRUE) # overwrites\n\\dontrun{\n library(sp)\n example(meuse, ask = FALSE, echo = FALSE)\n try(st_write(st_as_sf(meuse), \"PG:dbname=postgis\", \"meuse_sf\",\n layer_options = c(\"OVERWRITE=yes\", \"LAUNDER=true\")))\n demo(nc, ask = FALSE)\n try(st_write(nc, \"PG:dbname=postgis\", \"sids\", layer_options = \"OVERWRITE=true\"))\n}\n}\n}\n\\seealso{\n\\link{st_drivers}, \\link[DBI]{dbWriteTable}\n}\n"
},
{
"path": "man/st_z_range.Rd",
"content": "% Generated by roxygen2: do not edit by hand\n% Please edit documentation in R/z_range.R\n\\name{st_z_range}\n\\alias{st_z_range}\n\\alias{is.na.z_range}\n\\alias{st_z_range.POINT}\n\\alias{st_z_range.MULTIPOINT}\n\\alias{st_z_range.LINESTRING}\n\\alias{st_z_range.POLYGON}\n\\alias{st_z_range.MULTILINESTRING}\n\\alias{st_z_range.MULTIPOLYGON}\n\\alias{st_z_range.GEOMETRYCOLLECTION}\n\\alias{st_z_range.MULTISURFACE}\n\\alias{st_z_range.MULTICURVE}\n\\alias{st_z_range.CURVEPOLYGON}\n\\alias{st_z_range.COMPOUNDCURVE}\n\\alias{st_z_range.POLYHEDRALSURFACE}\n\\alias{st_z_range.TIN}\n\\alias{st_z_range.TRIANGLE}\n\\alias{st_z_range.CIRCULARSTRING}\n\\alias{st_z_range.sfc}\n\\alias{st_z_range.sf}\n\\alias{st_z_range.numeric}\n\\alias{NA_z_range_}\n\\title{Return 'z' range of a simple feature or simple feature set}\n\\usage{\n\\method{is.na}{z_range}(x)\n\nst_z_range(obj, ...)\n\n\\method{st_z_range}{POINT}(obj, ...)\n\n\\method{st_z_range}{MULTIPOINT}(obj, ...)\n\n\\method{st_z_range}{LINESTRING}(obj, ...)\n\n\\method{st_z_range}{POLYGON}(obj, ...)\n\n\\method{st_z_range}{MULTILINESTRING}(obj, ...)\n\n\\method{st_z_range}{MULTIPOLYGON}(obj, ...)\n\n\\method{st_z_range}{GEOMETRYCOLLECTION}(obj, ...)\n\n\\method{st_z_range}{MULTISURFACE}(obj, ...)\n\n\\method{st_z_range}{MULTICURVE}(obj, ...)\n\n\\method{st_z_range}{CURVEPOLYGON}(obj, ...)\n\n\\method{st_z_range}{COMPOUNDCURVE}(obj, ...)\n\n\\method{st_z_range}{POLYHEDRALSURFACE}(obj, ...)\n\n\\method{st_z_range}{TIN}(obj, ...)\n\n\\method{st_z_range}{TRIANGLE}(obj, ...)\n\n\\method{st_z_range}{CIRCULARSTRING}(obj, ...)\n\n\\method{st_z_range}{sfc}(obj, ...)\n\n\\method{st_z_range}{sf}(obj, ...)\n\n\\method{st_z_range}{numeric}(obj, ..., crs = NA_crs_)\n\nNA_z_range_\n}\n\\arguments{\n\\item{x}{object of class \\code{z_range}}\n\n\\item{obj}{object to compute the z range from}\n\n\\item{...}{ignored}\n\n\\item{crs}{object of class \\code{crs}, or argument to \\link{st_crs}, specifying the CRS of this bounding box.}\n}\n\\value{\na numeric vector of length two, with \\code{zmin} and \\code{zmax} values;\nif \\code{obj} is of class \\code{sf} or \\code{sfc} the object\nreturned has a class \\code{z_range}\n}\n\\description{\nReturn 'z' range of a simple feature or simple feature set\n}\n\\details{\n\\code{NA_z_range_} represents the missing value for a \\code{z_range} object\n}\n\\examples{\na = st_sf(a = 1:2, geom = st_sfc(st_point(0:2), st_point(1:3)), crs = 4326)\nst_z_range(a)\nst_z_range(c(zmin = 16.1, zmax = 16.6), crs = st_crs(4326))\n}\n"
},
{
"path": "man/st_zm.Rd",
"content": "% Generated by roxygen2: do not edit by hand\n% Please edit documentation in R/sfc.R\n\\name{st_zm}\n\\alias{st_zm}\n\\title{Drop or add Z and/or M dimensions from feature geometries}\n\\usage{\nst_zm(x, ..., drop = TRUE, what = \"ZM\")\n}\n\\arguments{\n\\item{x}{object of class \\code{sfg}, \\code{sfc} or \\code{sf}}\n\n\\item{...}{ignored}\n\n\\item{drop}{logical; drop, or (\\code{FALSE}) add?}\n\n\\item{what}{character which dimensions to drop or add}\n}\n\\description{\nDrop Z and/or M dimensions from feature geometries, resetting classes appropriately\n}\n\\details{\nOnly combinations \\code{drop=TRUE}, \\code{what = \"ZM\"}, and \\code{drop=FALSE}, \\code{what=\"Z\"} are supported so far.\nIn the latter case, \\code{x} should have \\code{XY} geometry, and zero values are added for the \\code{Z} dimension.\n}\n\\examples{\nst_zm(st_linestring(matrix(1:32,8)))\nx = st_sfc(st_linestring(matrix(1:32,8)), st_linestring(matrix(1:8,2)))\nst_zm(x)\na = st_sf(a = 1:2, geom=x)\nst_zm(a)\n}\n"
},
{
"path": "man/stars.Rd",
"content": "% Generated by roxygen2: do not edit by hand\n% Please edit documentation in R/plot.R\n\\name{stars}\n\\alias{stars}\n\\alias{.get_layout}\n\\alias{.degAxis}\n\\alias{.image_scale}\n\\alias{.image_scale_factor}\n\\title{functions only exported to be used internally by stars}\n\\usage{\n.get_layout(bb, n, total_size, key.pos, key.width, mfrow = NULL, main = NULL)\n\n.degAxis(side, at, labels, ..., lon, lat, ndiscr, reset)\n\n.image_scale(\n z,\n col,\n breaks = NULL,\n key.pos,\n add.axis = TRUE,\n at = NULL,\n ...,\n axes = FALSE,\n key.length,\n logz = FALSE,\n lab = \"\",\n cex.axis = par(\"cex.axis\")\n)\n\n.image_scale_factor(\n z,\n col,\n key.pos,\n add.axis = TRUE,\n ...,\n axes = FALSE,\n key.width,\n key.length,\n cex.axis = par(\"cex.axis\")\n)\n}\n\\arguments{\n\\item{bb}{ignore}\n\n\\item{n}{ignore}\n\n\\item{total_size}{ignore}\n\n\\item{key.pos}{ignore}\n\n\\item{key.width}{ignore}\n\n\\item{mfrow}{length-2 integer vector with number of rows, columns}\n\n\\item{main}{main or sub title}\n\n\\item{side}{ignore}\n\n\\item{at}{ignore}\n\n\\item{labels}{ignore}\n\n\\item{...}{ignore}\n\n\\item{lon}{ignore}\n\n\\item{lat}{ignore}\n\n\\item{ndiscr}{ignore}\n\n\\item{reset}{ignore}\n\n\\item{z}{ignore}\n\n\\item{col}{ignore}\n\n\\item{breaks}{ignore}\n\n\\item{add.axis}{ignore}\n\n\\item{axes}{ignore}\n\n\\item{key.length}{ignore}\n\n\\item{logz}{ignore}\n\n\\item{lab}{ignore}\n\n\\item{cex.axis}{see \\link{par}}\n}\n\\description{\nfunctions only exported to be used internally by stars\n}\n\\keyword{internal}\n"
},
{
"path": "man/summary.sfc.Rd",
"content": "% Generated by roxygen2: do not edit by hand\n% Please edit documentation in R/sfc.R\n\\name{summary.sfc}\n\\alias{summary.sfc}\n\\title{Summarize simple feature column}\n\\usage{\n\\method{summary}{sfc}(object, ..., maxsum = 7L, maxp4s = 10L)\n}\n\\arguments{\n\\item{object}{object of class \\code{sfc}}\n\n\\item{...}{ignored}\n\n\\item{maxsum}{maximum number of classes to summarize the simple feature column to}\n\n\\item{maxp4s}{maximum number of characters to print from the PROJ string}\n}\n\\description{\nSummarize simple feature column\n}\n"
},
{
"path": "man/tibble.Rd",
"content": "% Generated by roxygen2: do not edit by hand\n% Please edit documentation in R/tidyverse.R\n\\name{tibble}\n\\alias{tibble}\n\\alias{type_sum.sfc}\n\\alias{obj_sum.sfc}\n\\alias{pillar_shaft.sfc}\n\\title{Summarize simple feature type for tibble}\n\\usage{\ntype_sum.sfc(x, ...)\n\nobj_sum.sfc(x)\n\npillar_shaft.sfc(x, ...)\n}\n\\arguments{\n\\item{x}{object of class \\code{sfc}}\n\n\\item{...}{ignored}\n}\n\\description{\nSummarize simple feature type / item for tibble\n}\n\\details{\nsee \\link[pillar]{type_sum}\n}\n"
},
{
"path": "man/tidyverse.Rd",
"content": "% Generated by roxygen2: do not edit by hand\n% Please edit documentation in R/tidyverse.R, R/join.R\n\\name{tidyverse}\n\\alias{tidyverse}\n\\alias{filter.sf}\n\\alias{arrange.sf}\n\\alias{group_by.sf}\n\\alias{ungroup.sf}\n\\alias{rowwise.sf}\n\\alias{mutate.sf}\n\\alias{transmute.sf}\n\\alias{select.sf}\n\\alias{rename.sf}\n\\alias{rename_with.sf}\n\\alias{slice.sf}\n\\alias{summarise.sf}\n\\alias{summarise}\n\\alias{count.sf}\n\\alias{distinct.sf}\n\\alias{gather.sf}\n\\alias{pivot_longer.sf}\n\\alias{pivot_wider.sf}\n\\alias{spread.sf}\n\\alias{sample_n.sf}\n\\alias{sample_frac.sf}\n\\alias{group_split.sf}\n\\alias{nest.sf}\n\\alias{separate.sf}\n\\alias{separate_rows.sf}\n\\alias{unite.sf}\n\\alias{unnest.sf}\n\\alias{drop_na.sf}\n\\alias{inner_join.sf}\n\\alias{left_join.sf}\n\\alias{right_join.sf}\n\\alias{full_join.sf}\n\\alias{semi_join.sf}\n\\alias{anti_join.sf}\n\\title{Tidyverse methods for sf objects}\n\\usage{\nfilter.sf(.data, ..., .dots)\n\narrange.sf(.data, ..., .dots)\n\ngroup_by.sf(.data, ..., add = FALSE)\n\nungroup.sf(x, ...)\n\nrowwise.sf(x, ...)\n\nmutate.sf(.data, ..., .dots)\n\ntransmute.sf(.data, ..., .dots)\n\nselect.sf(.data, ...)\n\nrename.sf(.data, ...)\n\nrename_with.sf(.data, .fn, .cols, ...)\n\nslice.sf(.data, ..., .dots)\n\nsummarise.sf(.data, ..., .dots, do_union = TRUE, is_coverage = FALSE)\n\ncount.sf(x, ..., wt = NULL, sort = FALSE, name = \"n\", .drop_geometry = FALSE)\n\ndistinct.sf(.data, ..., .keep_all = FALSE, exact = FALSE, par = 0)\n\ngather.sf(\n data,\n key,\n value,\n ...,\n na.rm = FALSE,\n convert = FALSE,\n factor_key = FALSE\n)\n\npivot_longer.sf(\n data,\n cols,\n names_to = \"name\",\n names_prefix = NULL,\n names_sep = NULL,\n names_pattern = NULL,\n names_ptypes = NULL,\n names_transform = NULL,\n names_repair = \"check_unique\",\n values_to = \"value\",\n values_drop_na = FALSE,\n values_ptypes = NULL,\n values_transform = NULL,\n ...\n)\n\npivot_wider.sf(\n data,\n ...,\n id_cols = NULL,\n id_expand = FALSE,\n names_from = name,\n names_prefix = \"\",\n names_sep = \"_\",\n names_glue = NULL,\n names_sort = FALSE,\n names_vary = \"fastest\",\n names_expand = FALSE,\n names_repair = \"check_unique\",\n values_from = value,\n values_fill = NULL,\n values_fn = NULL,\n unused_fn = NULL\n)\n\nspread.sf(\n data,\n key,\n value,\n fill = NA,\n convert = FALSE,\n drop = TRUE,\n sep = NULL\n)\n\nsample_n.sf(tbl, size, replace = FALSE, weight = NULL, .env = parent.frame())\n\nsample_frac.sf(\n tbl,\n size = 1,\n replace = FALSE,\n weight = NULL,\n .env = parent.frame()\n)\n\ngroup_split.sf(.tbl, ..., .keep = TRUE)\n\nnest.sf(.data, ...)\n\nseparate.sf(\n data,\n col,\n into,\n sep = \"[^[:alnum:]]+\",\n remove = TRUE,\n convert = FALSE,\n extra = \"warn\",\n fill = \"warn\",\n ...\n)\n\nseparate_rows.sf(data, ..., sep = \"[^[:alnum:]]+\", convert = FALSE)\n\nunite.sf(data, col, ..., sep = \"_\", remove = TRUE)\n\nunnest.sf(data, ..., .preserve = NULL)\n\ndrop_na.sf(x, ...)\n\ninner_join.sf(x, y, by = NULL, copy = FALSE, suffix = c(\".x\", \".y\"), ...)\n\nleft_join.sf(x, y, by = NULL, copy = FALSE, suffix = c(\".x\", \".y\"), ...)\n\nright_join.sf(x, y, by = NULL, copy = FALSE, suffix = c(\".x\", \".y\"), ...)\n\nfull_join.sf(x, y, by = NULL, copy = FALSE, suffix = c(\".x\", \".y\"), ...)\n\nsemi_join.sf(x, y, by = NULL, copy = FALSE, suffix = c(\".x\", \".y\"), ...)\n\nanti_join.sf(x, y, by = NULL, copy = FALSE, suffix = c(\".x\", \".y\"), ...)\n}\n\\arguments{\n\\item{.data}{data object of class \\link{sf}}\n\n\\item{...}{other arguments}\n\n\\item{.dots}{see corresponding function in package \\code{dplyr}}\n\n\\item{add}{see corresponding function in dplyr}\n\n\\item{x, y}{A pair of data frames, data frame extensions (e.g. a tibble), or\nlazy data frames (e.g. from dbplyr or dtplyr). See \\emph{Methods}, below, for\nmore details.}\n\n\\item{.fn, .cols}{see original docs}\n\n\\item{do_union}{logical; in case \\code{summary} does not create a geometry column, should geometries be created by unioning using \\link{st_union}, or simply by combining using \\link{st_combine}? Using \\link{st_union} resolves internal boundaries, but in case of unioning points, this will likely change the order of the points; see Details.}\n\n\\item{is_coverage}{logical; if \\code{do_union} is \\code{TRUE}, use an optimized algorithm for features that form a polygonal coverage (have no overlaps)}\n\n\\item{wt}{see original function docs}\n\n\\item{sort}{see original function docs}\n\n\\item{name}{see original function docs}\n\n\\item{.drop_geometry}{logical; if \\code{TRUE}, remove geometry column before computing counts}\n\n\\item{.keep_all}{see corresponding function in dplyr}\n\n\\item{exact}{logical; if \\code{TRUE} use \\link{st_equals_exact} for geometry comparisons}\n\n\\item{par}{numeric; passed on to \\link{st_equals_exact}}\n\n\\item{data}{see original function docs}\n\n\\item{key}{see original function docs}\n\n\\item{value}{see original function docs}\n\n\\item{na.rm}{see original function docs}\n\n\\item{convert}{see \\link[tidyr]{separate_rows}}\n\n\\item{factor_key}{see original function docs}\n\n\\item{cols}{see original function docs}\n\n\\item{names_to, names_pattern, names_ptypes, names_transform}{see \\code{\\link[tidyr:pivot_longer]{tidyr::pivot_longer()}}}\n\n\\item{names_prefix, names_sep, names_repair}{see original function docs.}\n\n\\item{values_to, values_drop_na, values_ptypes, values_transform}{See \\code{\\link[tidyr:pivot_longer]{tidyr::pivot_longer()}}}\n\n\\item{id_cols, id_expand, names_from, names_sort, names_glue, names_vary, names_expand}{see \\code{\\link[tidyr:pivot_wider]{tidyr::pivot_wider()}}}\n\n\\item{values_from, values_fill, values_fn, unused_fn}{see \\code{\\link[tidyr:pivot_wider]{tidyr::pivot_wider()}}}\n\n\\item{fill}{see original function docs}\n\n\\item{drop}{see original function docs}\n\n\\item{sep}{see \\link[tidyr]{separate_rows}}\n\n\\item{tbl}{see original function docs}\n\n\\item{size}{see original function docs}\n\n\\item{replace}{see original function docs}\n\n\\item{weight}{see original function docs}\n\n\\item{.env}{see original function docs}\n\n\\item{.tbl}{see original function docs}\n\n\\item{.keep}{see original function docs}\n\n\\item{col}{see \\link[tidyr]{separate}}\n\n\\item{into}{see \\link[tidyr]{separate}}\n\n\\item{remove}{see \\link[tidyr]{separate}}\n\n\\item{extra}{see \\link[tidyr]{separate}}\n\n\\item{.preserve}{see \\link[tidyr:nest]{unnest}}\n\n\\item{by}{A join specification created with \\code{\\link[dplyr:join_by]{join_by()}}, or a character\nvector of variables to join by.\n\nIf \\code{NULL}, the default, \\verb{*_join()} will perform a natural join, using all\nvariables in common across \\code{x} and \\code{y}. A message lists the variables so\nthat you can check they're correct; suppress the message by supplying \\code{by}\nexplicitly.\n\nTo join on different variables between \\code{x} and \\code{y}, use a \\code{\\link[dplyr:join_by]{join_by()}}\nspecification. For example, \\code{join_by(a == b)} will match \\code{x$a} to \\code{y$b}.\n\nTo join by multiple variables, use a \\code{\\link[dplyr:join_by]{join_by()}} specification with\nmultiple expressions. For example, \\code{join_by(a == b, c == d)} will match\n\\code{x$a} to \\code{y$b} and \\code{x$c} to \\code{y$d}. If the column names are the same between\n\\code{x} and \\code{y}, you can shorten this by listing only the variable names, like\n\\code{join_by(a, c)}.\n\n\\code{\\link[dplyr:join_by]{join_by()}} can also be used to perform inequality, rolling, and overlap\njoins. See the documentation at \\link[dplyr:join_by]{?join_by} for details on\nthese types of joins.\n\nFor simple equality joins, you can alternatively specify a character vector\nof variable names to join by. For example, \\code{by = c(\"a\", \"b\")} joins \\code{x$a}\nto \\code{y$a} and \\code{x$b} to \\code{y$b}. If variable names differ between \\code{x} and \\code{y},\nuse a named character vector like \\code{by = c(\"x_a\" = \"y_a\", \"x_b\" = \"y_b\")}.\n\nTo perform a cross-join, generating all combinations of \\code{x} and \\code{y}, see\n\\code{\\link[dplyr:cross_join]{cross_join()}}.}\n\n\\item{copy}{If \\code{x} and \\code{y} are not from the same data source,\nand \\code{copy} is \\code{TRUE}, then \\code{y} will be copied into the\nsame src as \\code{x}. This allows you to join tables across srcs, but\nit is a potentially expensive operation so you must opt into it.}\n\n\\item{suffix}{If there are non-joined duplicate variables in \\code{x} and\n\\code{y}, these suffixes will be added to the output to disambiguate them.\nShould be a character vector of length 2.}\n}\n\\value{\nan object of class \\link{sf}\n}\n\\description{\nTidyverse methods for sf objects. Geometries are sticky, use \\link{as.data.frame} to let \\code{dplyr}'s own methods drop them.\nUse these methods after loading the tidyverse package with the generic (or after loading package tidyverse).\n}\n\\details{\n\\code{select} keeps the geometry regardless whether it is selected or not; to deselect it, first pipe through \\code{as.data.frame} to let dplyr's own \\code{select} drop it.\n\nIn case one or more of the arguments (expressions) in the \\code{summarise} call creates a geometry list-column, the first of these will be the (active) geometry of the returned object. If this is not the case, a geometry column is created, depending on the value of \\code{do_union}.\n\nIn case \\code{do_union} is \\code{FALSE}, \\code{summarise} will simply combine geometries using \\link{c.sfg}. When polygons sharing a boundary are combined, this leads to geometries that are invalid; see for instance \\url{https://github.com/r-spatial/sf/issues/681}.\n\nThe functions \\code{count} and \\code{tally} drop all geometries.\nFor counting geometries use \\code{summarise(.data, n = n(), .by = \"geometry\")}.\n\n\\code{distinct} gives distinct records for which all attributes and geometries are distinct; \\link{st_equals} is used to find out which geometries are distinct.\n\n\\code{nest} assumes that a simple feature geometry list-column was among the columns that were nested.\n}\n\\examples{\nif (require(dplyr, quietly = TRUE)) {\n nc = read_sf(system.file(\"shape/nc.shp\", package=\"sf\"))\n nc |> filter(AREA > .1) |> plot()\n # plot 10 smallest counties in grey:\n st_geometry(nc) |> plot()\n nc |> select(AREA) |> arrange(AREA) |> slice(1:10) |> plot(add = TRUE, col = 'grey')\n title(\"the ten counties with smallest area\")\n nc2 <- nc |> mutate(area10 = AREA/10)\n nc |> slice(1:2)\n}\n# plot 10 smallest counties in grey:\nif (require(dplyr, quietly = TRUE)) {\n st_geometry(nc) |> plot()\n nc |> select(AREA) |> arrange(AREA) |> slice(1:10) |> plot(add = TRUE, col = 'grey')\n title(\"the ten counties with smallest area\")\n}\nif (require(dplyr, quietly = TRUE)) {\n nc$area_cl = cut(nc$AREA, c(0, .1, .12, .15, .25))\n nc |> group_by(area_cl) |> class()\n}\nif (require(dplyr, quietly = TRUE)) {\n nc2 <- nc |> mutate(area10 = AREA/10)\n}\nif (require(dplyr, quietly = TRUE)) {\n nc |> transmute(AREA = AREA/10) |> class()\n}\nif (require(dplyr, quietly = TRUE)) {\n nc |> select(SID74, SID79) |> names()\n nc |> select(SID74, SID79) |> class()\n}\nif (require(dplyr, quietly = TRUE)) {\n nc2 <- nc |> rename(area = AREA)\n}\nif (require(dplyr, quietly = TRUE)) {\n nc |> slice(1:2)\n}\nif (require(dplyr, quietly = TRUE)) {\n nc$area_cl = cut(nc$AREA, c(0, .1, .12, .15, .25))\n nc.g <- nc |> group_by(area_cl)\n nc.g |> summarise(mean(AREA))\n nc.g |> summarise(mean(AREA)) |> plot(col = grey(3:6 / 7))\n nc |> as.data.frame() |> summarise(mean(AREA))\n # counting geometries (after duplicating each row):\n nc.dupl <- nc[rep(seq_along(nc), each = 2), ]\n nc.dupl |> summarise(n = n(), .by = \"geometry\")\n}\nif (require(dplyr, quietly = TRUE)) {\n nc$area_cl <- cut(nc$AREA, c(0, .1, .12, .15, .25))\n nc |> count(area_cl, .drop_geometry = TRUE)\n}\nif (require(dplyr, quietly = TRUE)) {\n nc[c(1:100, 1:10), ] |> distinct() |> nrow()\n}\nif (require(tidyr, quietly = TRUE) && require(dplyr, quietly = TRUE) && \"geometry\" \\%in\\% names(nc)) {\n nc |> select(SID74, SID79) |> gather(\"VAR\", \"SID\", -geometry) |> summary()\n}\nif (require(tidyr, quietly = TRUE) && require(dplyr, quietly = TRUE) && \"geometry\" \\%in\\% names(nc)) {\n nc$row = 1:100 # needed for spread to work\n nc |> select(SID74, SID79, geometry, row) |>\n\tgather(\"VAR\", \"SID\", -geometry, -row) |>\n\tspread(VAR, SID) |> head()\n}\nif (require(tidyr, quietly = TRUE) && require(dplyr, quietly = TRUE)) {\n storms.sf = st_as_sf(storms, coords = c(\"long\", \"lat\"), crs = 4326)\n x <- storms.sf |> group_by(name, year) |> nest()\n trs = lapply(x$data, function(tr) st_cast(st_combine(tr), \"LINESTRING\")[[1]]) |>\n st_sfc(crs = 4326)\n trs.sf = st_sf(x[,1:2], trs)\n plot(trs.sf[\"year\"], axes = TRUE)\n}\n}\n"
},
{
"path": "man/transform.sf.Rd",
"content": "% Generated by roxygen2: do not edit by hand\n% Please edit documentation in R/sf.R\n\\name{transform.sf}\n\\alias{transform.sf}\n\\title{transform method for sf objects}\n\\usage{\n\\method{transform}{sf}(`_data`, ...)\n}\n\\arguments{\n\\item{_data}{object of class \\code{sf}}\n\n\\item{...}{Further arguments of the form \\code{new_variable = expression}}\n}\n\\description{\nCan be used to create or modify attribute variables; for transforming geometries see\n\\link{st_transform}, and all other functions starting with \\code{st_}.\n}\n\\examples{\na = data.frame(x1 = 1:3, x2 = 5:7)\nst_geometry(a) = st_sfc(st_point(c(0,0)), st_point(c(1,1)), st_point(c(2,2)))\ntransform(a, x1_sq = x1^2)\ntransform(a, x1_x2 = x1*x2)\n}\n"
},
{
"path": "man/valid.Rd",
"content": "% Generated by roxygen2: do not edit by hand\n% Please edit documentation in R/valid.R\n\\name{valid}\n\\alias{valid}\n\\alias{st_is_valid}\n\\alias{st_is_valid.sfc}\n\\alias{st_is_valid.sf}\n\\alias{st_is_valid.sfg}\n\\alias{st_make_valid}\n\\alias{st_make_valid.sfg}\n\\alias{st_make_valid.sfc}\n\\title{Check validity or make an invalid geometry valid}\n\\usage{\nst_is_valid(x, ...)\n\n\\method{st_is_valid}{sfc}(x, ..., NA_on_exception = TRUE, reason = FALSE)\n\n\\method{st_is_valid}{sf}(x, ...)\n\n\\method{st_is_valid}{sfg}(x, ...)\n\nst_make_valid(x, ...)\n\n\\method{st_make_valid}{sfg}(x, ...)\n\n\\method{st_make_valid}{sfc}(\n x,\n ...,\n oriented = FALSE,\n s2_options = s2::s2_options(snap = s2::s2_snap_precision(1e+07), ...),\n geos_method = \"valid_structure\",\n geos_keep_collapsed = TRUE\n)\n}\n\\arguments{\n\\item{x}{object of class \\code{sfg}, \\code{sfc} or \\code{sf}}\n\n\\item{...}{passed on to \\link[s2]{s2_options}}\n\n\\item{NA_on_exception}{logical; if TRUE, for polygons that would otherwise raise a GEOS error (exception, e.g. for a POLYGON having more than zero but less than 4 points, or a LINESTRING having one point) return an \\code{NA} rather than raising an error, and suppress warning messages (e.g. about self-intersection); if FALSE, regular GEOS errors and warnings will be emitted.}\n\n\\item{reason}{logical; if \\code{TRUE}, return a character with, for each geometry, the reason for invalidity, \\code{NA} on exception, or \\code{\"Valid Geometry\"} otherwise.}\n\n\\item{oriented}{logical; only relevant if \\code{st_is_longlat(x)} is \\code{TRUE}; see \\link{s2}}\n\n\\item{s2_options}{only relevant if \\code{st_is_longlat(x)} is \\code{TRUE}; options for \\link[s2]{s2_rebuild}, see \\link[s2]{s2_options} and Details.}\n\n\\item{geos_method}{character; either \"valid_linework\" (Original method, combines all rings into a set of noded lines and then extracts valid polygons from that linework) or \"valid_structure\" (Structured method, first makes all rings valid then merges shells and subtracts holes from shells to generate valid result. Assumes that holes and shells are correctly categorized.) (requires GEOS >= 3.10.1)}\n\n\\item{geos_keep_collapsed}{logical; When this parameter is not set to \\code{FALSE}, the \"valid_structure\" method will keep any component that has collapsed into a lower dimensionality. For example, a ring collapsing to a line, or a line collapsing to a point (requires GEOS >= 3.10.1)}\n}\n\\value{\n\\code{st_is_valid} returns a logical vector indicating for each geometries of \\code{x} whether it is valid. \\code{st_make_valid} returns an object with a topologically valid geometry.\n\nObject of the same class as \\code{x}\n}\n\\description{\nChecks whether a geometry is valid, or makes an invalid geometry valid\n}\n\\details{\nFor projected geometries, \\code{st_make_valid} uses the \\code{lwgeom_makevalid} method also used by the PostGIS command \\code{ST_makevalid} if the GEOS version linked to is smaller than 3.8.0, and otherwise the version shipped in GEOS; for geometries having ellipsoidal coordinates \\code{s2::s2_rebuild} is being used.\n\nif \\code{s2_options} is not specified and \\code{x} has a non-zero precision set, then this precision value will be used as the value in \\code{s2_snap_precision}, passed on to \\code{s2_options}, rather than the 1e7 default.\n}\n\\examples{\np1 = st_as_sfc(\"POLYGON((0 0, 0 10, 10 0, 10 10, 0 0))\")\nst_is_valid(p1)\nst_is_valid(st_sfc(st_point(0:1), p1[[1]]), reason = TRUE)\nlibrary(sf)\nx = st_sfc(st_polygon(list(rbind(c(0,0),c(0.5,0),c(0.5,0.5),c(0.5,0),c(1,0),c(1,1),c(0,1),c(0,0)))))\nsuppressWarnings(st_is_valid(x))\ny = st_make_valid(x)\nst_is_valid(y)\ny |> st_cast()\n}\n"
},
{
"path": "sf.Rproj",
"content": "Version: 1.0\n\nRestoreWorkspace: No\nSaveWorkspace: No\nAlwaysSaveHistory: Default\n\nEnableCodeIndexing: Yes\nUseSpacesForTab: No\nNumSpacesForTab: 4\nEncoding: UTF-8\n\nRnwWeave: knitr\nLaTeX: XeLaTeX\n\nAutoAppendNewline: Yes\n\nBuildType: Package\nPackageUseDevtools: Yes\nPackageInstallArgs: --no-multiarch --with-keep.source\nPackageRoxygenize: rd,collate,namespace\n\nSpellingDictionary: en_US\n"
},
{
"path": "src/Makevars.in",
"content": "PKG_CPPFLAGS=@PKG_CPPFLAGS@\nPKG_LIBS=@PKG_LIBS@\n"
},
{
"path": "src/Makevars.ucrt",
"content": "PKG_CPPFLAGS = \\\n\t-DHAVE_PROJ_H\n\nifeq (,$(shell pkg-config --version 2>/dev/null))\n LIBSHARPYUV = $(or $(and $(wildcard $(R_TOOLS_SOFT)/lib/libsharpyuv.a),-lsharpyuv),)\n PKG_LIBS = \\\n-fopenmp -lgdal -larmadillo -lopenblas -lgfortran -lquadmath -lpq -lpgcommon -lpgport -lodbc32 -lodbccp32 -lblosc -lkea -lhdf5_cpp -lhdf5 -lpoppler -llcms2 -lfreetype -lharfbuzz -lfreetype -llz4 -lpcre2-8 -lxml2 -lopenjp2 -lnetcdf -lmysqlclient -lspatialite -lgeos_c -lgeos -lminizip -lgeos -ljson-c -lgta -lfreexl -lexpat -lssl -lpsapi -lgif -lmfhdf -lhdf5_hl -lcrypto -lportablexdr -ldf -lhdf5 -lsz -lpng16 -lpng -lpoppler -llcms2 -lfreetype -lharfbuzz -lfreetype -llz4 -lpcre2-8 -lpcre -lcurl -lbcrypt -lrtmp -lssl -lssh2 -lidn2 -lunistring -liconv -lgcrypt -lcrypto -lgpg-error -lws2_32 -ltiff -llzma -ljpeg -lz -lcfitsio -lzstd -lwebpdecoder -lwebp $(LIBSHARPYUV) -lsbml-static -lgeotiff -lproj -lsqlite3 -lbz2 -lcrypt32 -lwldap32 -lsecur32\nelse\n PKG_LIBS = $(shell pkg-config --libs gdal geos proj)\nendif\n\nall: clean winlibs\n\nwinlibs:\n\tcp -r \"$(R_TOOLS_SOFT)/share/gdal\" ../inst/\n\tcp -r \"$(R_TOOLS_SOFT)/share/proj\" ../inst/\n\nclean:\n\trm -f $(SHLIB) $(OBJECTS)\n\n.PHONY: all winlibs clean\n"
},
{
"path": "src/Makevars.win",
"content": "VERSION = 3.4.1\nRWINLIB = ../windows/gdal3-$(VERSION)\nTARGET = lib$(subst gcc,,$(COMPILED_BY))$(R_ARCH)\n\nPKG_CPPFLAGS =\\\n\t-I$(RWINLIB)/include \\\n\t-DHAVE_PROJ_H\n\nPKG_LIBS = \\\n\t-L$(RWINLIB)/$(TARGET) \\\n\t-L$(RWINLIB)/lib$(R_ARCH) \\\n\t-lgdal -lsqlite3 -lspatialite -lproj -lgeos_c -lgeos \\\n\t-ljson-c -lnetcdf -lmariadbclient -lpq -lpgport -lpgcommon \\\n\t-lwebp -lcurl -lssh2 -lssl \\\n\t-lhdf5_hl -lhdf5 -lexpat -lfreexl -lcfitsio \\\n\t-lmfhdf -lhdf -lxdr -lpcre \\\n\t-lopenjp2 -ljasper -lpng -ljpeg -ltiff -lgeotiff -lgif -lxml2 -llzma -lz -lzstd \\\n\t-lodbc32 -lodbccp32 -liconv -lpsapi -lwldap32 -lsecur32 -lgdi32 -lnormaliz \\\n\t-lcrypto -lcrypt32 -lws2_32 -lshlwapi -lbcrypt\n\nall: clean winlibs\n\nwinlibs:\n\tmkdir -p ../inst\n\t\"${R_HOME}/bin${R_ARCH_BIN}/Rscript.exe\" --vanilla \"../tools/winlibs.R\" $(VERSION)\n\tcp -r \"$(RWINLIB)/share/gdal\" ../inst/\n\tcp -r \"$(RWINLIB)/share/proj\" ../inst/\n\nclean:\n\trm -f $(SHLIB) $(OBJECTS)\n\n.PHONY: all winlibs clean\n"
},
{
"path": "src/RcppExports.cpp",
"content": "// Generated by using Rcpp::compileAttributes() -> do not edit by hand\n// Generator token: 10BE3573-1514-4C36-9D1C-5A225CD40393\n\n#include \"../inst/include/sf.h\"\n#include \n#include \n#include \n\nusing namespace Rcpp;\n\n#ifdef RCPP_USE_GLOBAL_ROSTREAM\nRcpp::Rostream& Rcpp::Rcout = Rcpp::Rcpp_cout_get();\nRcpp::Rostream& Rcpp::Rcerr = Rcpp::Rcpp_cerr_get();\n#endif\n\n// CPL_get_bbox\nRcpp::NumericVector CPL_get_bbox(Rcpp::List sf, int depth);\nRcppExport SEXP _sf_CPL_get_bbox(SEXP sfSEXP, SEXP depthSEXP) {\nBEGIN_RCPP\n Rcpp::RObject rcpp_result_gen;\n Rcpp::traits::input_parameter< Rcpp::List >::type sf(sfSEXP);\n Rcpp::traits::input_parameter< int >::type depth(depthSEXP);\n rcpp_result_gen = Rcpp::wrap(CPL_get_bbox(sf, depth));\n return rcpp_result_gen;\nEND_RCPP\n}\n// CPL_gdal_init\nvoid CPL_gdal_init();\nRcppExport SEXP _sf_CPL_gdal_init() {\nBEGIN_RCPP\n CPL_gdal_init();\n return R_NilValue;\nEND_RCPP\n}\n// CPL_gdal_cleanup_all\nvoid CPL_gdal_cleanup_all();\nRcppExport SEXP _sf_CPL_gdal_cleanup_all() {\nBEGIN_RCPP\n CPL_gdal_cleanup_all();\n return R_NilValue;\nEND_RCPP\n}\n// CPL_gdal_version\nconst char* CPL_gdal_version(const char* what);\nRcppExport SEXP _sf_CPL_gdal_version(SEXP whatSEXP) {\nBEGIN_RCPP\n Rcpp::RObject rcpp_result_gen;\n Rcpp::traits::input_parameter< const char* >::type what(whatSEXP);\n rcpp_result_gen = Rcpp::wrap(CPL_gdal_version(what));\n return rcpp_result_gen;\nEND_RCPP\n}\n// CPL_crs_parameters\nRcpp::List CPL_crs_parameters(Rcpp::List crs);\nRcppExport SEXP _sf_CPL_crs_parameters(SEXP crsSEXP) {\nBEGIN_RCPP\n Rcpp::RObject rcpp_result_gen;\n Rcpp::traits::input_parameter< Rcpp::List >::type crs(crsSEXP);\n rcpp_result_gen = Rcpp::wrap(CPL_crs_parameters(crs));\n return rcpp_result_gen;\nEND_RCPP\n}\n// CPL_crs_equivalent\nRcpp::LogicalVector CPL_crs_equivalent(Rcpp::List crs1, Rcpp::List crs2);\nRcppExport SEXP _sf_CPL_crs_equivalent(SEXP crs1SEXP, SEXP crs2SEXP) {\nBEGIN_RCPP\n Rcpp::RObject rcpp_result_gen;\n Rcpp::traits::input_parameter< Rcpp::List >::type crs1(crs1SEXP);\n Rcpp::traits::input_parameter< Rcpp::List >::type crs2(crs2SEXP);\n rcpp_result_gen = Rcpp::wrap(CPL_crs_equivalent(crs1, crs2));\n return rcpp_result_gen;\nEND_RCPP\n}\n// CPL_crs_from_input\nRcpp::List CPL_crs_from_input(Rcpp::CharacterVector input);\nRcppExport SEXP _sf_CPL_crs_from_input(SEXP inputSEXP) {\nBEGIN_RCPP\n Rcpp::RObject rcpp_result_gen;\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type input(inputSEXP);\n rcpp_result_gen = Rcpp::wrap(CPL_crs_from_input(input));\n return rcpp_result_gen;\nEND_RCPP\n}\n// CPL_roundtrip\nRcpp::List CPL_roundtrip(Rcpp::List sfc);\nRcppExport SEXP _sf_CPL_roundtrip(SEXP sfcSEXP) {\nBEGIN_RCPP\n Rcpp::RObject rcpp_result_gen;\n Rcpp::traits::input_parameter< Rcpp::List >::type sfc(sfcSEXP);\n rcpp_result_gen = Rcpp::wrap(CPL_roundtrip(sfc));\n return rcpp_result_gen;\nEND_RCPP\n}\n// CPL_circularstring_to_linestring\nRcpp::List CPL_circularstring_to_linestring(Rcpp::List sfc);\nRcppExport SEXP _sf_CPL_circularstring_to_linestring(SEXP sfcSEXP) {\nBEGIN_RCPP\n Rcpp::RObject rcpp_result_gen;\n Rcpp::traits::input_parameter< Rcpp::List >::type sfc(sfcSEXP);\n rcpp_result_gen = Rcpp::wrap(CPL_circularstring_to_linestring(sfc));\n return rcpp_result_gen;\nEND_RCPP\n}\n// CPL_multisurface_to_multipolygon\nRcpp::List CPL_multisurface_to_multipolygon(Rcpp::List sfc);\nRcppExport SEXP _sf_CPL_multisurface_to_multipolygon(SEXP sfcSEXP) {\nBEGIN_RCPP\n Rcpp::RObject rcpp_result_gen;\n Rcpp::traits::input_parameter< Rcpp::List >::type sfc(sfcSEXP);\n rcpp_result_gen = Rcpp::wrap(CPL_multisurface_to_multipolygon(sfc));\n return rcpp_result_gen;\nEND_RCPP\n}\n// CPL_compoundcurve_to_linear\nRcpp::List CPL_compoundcurve_to_linear(Rcpp::List sfc);\nRcppExport SEXP _sf_CPL_compoundcurve_to_linear(SEXP sfcSEXP) {\nBEGIN_RCPP\n Rcpp::RObject rcpp_result_gen;\n Rcpp::traits::input_parameter< Rcpp::List >::type sfc(sfcSEXP);\n rcpp_result_gen = Rcpp::wrap(CPL_compoundcurve_to_linear(sfc));\n return rcpp_result_gen;\nEND_RCPP\n}\n// CPL_curve_to_linestring\nRcpp::List CPL_curve_to_linestring(Rcpp::List sfc);\nRcppExport SEXP _sf_CPL_curve_to_linestring(SEXP sfcSEXP) {\nBEGIN_RCPP\n Rcpp::RObject rcpp_result_gen;\n Rcpp::traits::input_parameter< Rcpp::List >::type sfc(sfcSEXP);\n rcpp_result_gen = Rcpp::wrap(CPL_curve_to_linestring(sfc));\n return rcpp_result_gen;\nEND_RCPP\n}\n// CPL_can_transform\nRcpp::LogicalVector CPL_can_transform(Rcpp::List src, Rcpp::List dst);\nRcppExport SEXP _sf_CPL_can_transform(SEXP srcSEXP, SEXP dstSEXP) {\nBEGIN_RCPP\n Rcpp::RObject rcpp_result_gen;\n Rcpp::traits::input_parameter< Rcpp::List >::type src(srcSEXP);\n Rcpp::traits::input_parameter< Rcpp::List >::type dst(dstSEXP);\n rcpp_result_gen = Rcpp::wrap(CPL_can_transform(src, dst));\n return rcpp_result_gen;\nEND_RCPP\n}\n// CPL_transform\nRcpp::List CPL_transform(Rcpp::List sfc, Rcpp::List crs, Rcpp::NumericVector AOI, Rcpp::CharacterVector pipeline, bool reverse, double desired_accuracy, bool allow_ballpark);\nRcppExport SEXP _sf_CPL_transform(SEXP sfcSEXP, SEXP crsSEXP, SEXP AOISEXP, SEXP pipelineSEXP, SEXP reverseSEXP, SEXP desired_accuracySEXP, SEXP allow_ballparkSEXP) {\nBEGIN_RCPP\n Rcpp::RObject rcpp_result_gen;\n Rcpp::traits::input_parameter< Rcpp::List >::type sfc(sfcSEXP);\n Rcpp::traits::input_parameter< Rcpp::List >::type crs(crsSEXP);\n Rcpp::traits::input_parameter< Rcpp::NumericVector >::type AOI(AOISEXP);\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type pipeline(pipelineSEXP);\n Rcpp::traits::input_parameter< bool >::type reverse(reverseSEXP);\n Rcpp::traits::input_parameter< double >::type desired_accuracy(desired_accuracySEXP);\n Rcpp::traits::input_parameter< bool >::type allow_ballpark(allow_ballparkSEXP);\n rcpp_result_gen = Rcpp::wrap(CPL_transform(sfc, crs, AOI, pipeline, reverse, desired_accuracy, allow_ballpark));\n return rcpp_result_gen;\nEND_RCPP\n}\n// CPL_transform_bounds\nRcpp::NumericVector CPL_transform_bounds(Rcpp::NumericVector bb, Rcpp::List crs_dst, int densify_pts);\nRcppExport SEXP _sf_CPL_transform_bounds(SEXP bbSEXP, SEXP crs_dstSEXP, SEXP densify_ptsSEXP) {\nBEGIN_RCPP\n Rcpp::RObject rcpp_result_gen;\n Rcpp::traits::input_parameter< Rcpp::NumericVector >::type bb(bbSEXP);\n Rcpp::traits::input_parameter< Rcpp::List >::type crs_dst(crs_dstSEXP);\n Rcpp::traits::input_parameter< int >::type densify_pts(densify_ptsSEXP);\n rcpp_result_gen = Rcpp::wrap(CPL_transform_bounds(bb, crs_dst, densify_pts));\n return rcpp_result_gen;\nEND_RCPP\n}\n// CPL_wrap_dateline\nRcpp::List CPL_wrap_dateline(Rcpp::List sfc, Rcpp::CharacterVector opt, bool quiet);\nRcppExport SEXP _sf_CPL_wrap_dateline(SEXP sfcSEXP, SEXP optSEXP, SEXP quietSEXP) {\nBEGIN_RCPP\n Rcpp::RObject rcpp_result_gen;\n Rcpp::traits::input_parameter< Rcpp::List >::type sfc(sfcSEXP);\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type opt(optSEXP);\n Rcpp::traits::input_parameter< bool >::type quiet(quietSEXP);\n rcpp_result_gen = Rcpp::wrap(CPL_wrap_dateline(sfc, opt, quiet));\n return rcpp_result_gen;\nEND_RCPP\n}\n// CPL_get_gdal_drivers\nRcpp::List CPL_get_gdal_drivers(int dummy);\nRcppExport SEXP _sf_CPL_get_gdal_drivers(SEXP dummySEXP) {\nBEGIN_RCPP\n Rcpp::RObject rcpp_result_gen;\n Rcpp::traits::input_parameter< int >::type dummy(dummySEXP);\n rcpp_result_gen = Rcpp::wrap(CPL_get_gdal_drivers(dummy));\n return rcpp_result_gen;\nEND_RCPP\n}\n// CPL_sfc_from_wkt\nRcpp::List CPL_sfc_from_wkt(Rcpp::CharacterVector wkt);\nRcppExport SEXP _sf_CPL_sfc_from_wkt(SEXP wktSEXP) {\nBEGIN_RCPP\n Rcpp::RObject rcpp_result_gen;\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type wkt(wktSEXP);\n rcpp_result_gen = Rcpp::wrap(CPL_sfc_from_wkt(wkt));\n return rcpp_result_gen;\nEND_RCPP\n}\n// CPL_gdal_with_geos\nRcpp::LogicalVector CPL_gdal_with_geos();\nRcppExport SEXP _sf_CPL_gdal_with_geos() {\nBEGIN_RCPP\n Rcpp::RObject rcpp_result_gen;\n rcpp_result_gen = Rcpp::wrap(CPL_gdal_with_geos());\n return rcpp_result_gen;\nEND_RCPP\n}\n// CPL_axis_order_authority_compliant\nRcpp::LogicalVector CPL_axis_order_authority_compliant(Rcpp::LogicalVector authority_compliant);\nRcppExport SEXP _sf_CPL_axis_order_authority_compliant(SEXP authority_compliantSEXP) {\nBEGIN_RCPP\n Rcpp::RObject rcpp_result_gen;\n Rcpp::traits::input_parameter< Rcpp::LogicalVector >::type authority_compliant(authority_compliantSEXP);\n rcpp_result_gen = Rcpp::wrap(CPL_axis_order_authority_compliant(authority_compliant));\n return rcpp_result_gen;\nEND_RCPP\n}\n// CPL_compressors\nRcpp::List CPL_compressors();\nRcppExport SEXP _sf_CPL_compressors() {\nBEGIN_RCPP\n Rcpp::RObject rcpp_result_gen;\n rcpp_result_gen = Rcpp::wrap(CPL_compressors());\n return rcpp_result_gen;\nEND_RCPP\n}\n// CPL_area\nRcpp::NumericVector CPL_area(Rcpp::List sfc);\nRcppExport SEXP _sf_CPL_area(SEXP sfcSEXP) {\nBEGIN_RCPP\n Rcpp::RObject rcpp_result_gen;\n Rcpp::traits::input_parameter< Rcpp::List >::type sfc(sfcSEXP);\n rcpp_result_gen = Rcpp::wrap(CPL_area(sfc));\n return rcpp_result_gen;\nEND_RCPP\n}\n// CPL_gdal_dimension\nRcpp::IntegerVector CPL_gdal_dimension(Rcpp::List sfc, bool NA_if_empty);\nRcppExport SEXP _sf_CPL_gdal_dimension(SEXP sfcSEXP, SEXP NA_if_emptySEXP) {\nBEGIN_RCPP\n Rcpp::RObject rcpp_result_gen;\n Rcpp::traits::input_parameter< Rcpp::List >::type sfc(sfcSEXP);\n Rcpp::traits::input_parameter< bool >::type NA_if_empty(NA_if_emptySEXP);\n rcpp_result_gen = Rcpp::wrap(CPL_gdal_dimension(sfc, NA_if_empty));\n return rcpp_result_gen;\nEND_RCPP\n}\n// CPL_length\nRcpp::NumericVector CPL_length(Rcpp::List sfc);\nRcppExport SEXP _sf_CPL_length(SEXP sfcSEXP) {\nBEGIN_RCPP\n Rcpp::RObject rcpp_result_gen;\n Rcpp::traits::input_parameter< Rcpp::List >::type sfc(sfcSEXP);\n rcpp_result_gen = Rcpp::wrap(CPL_length(sfc));\n return rcpp_result_gen;\nEND_RCPP\n}\n// CPL_gdal_segmentize\nRcpp::List CPL_gdal_segmentize(Rcpp::List sfc, double dfMaxLength);\nRcppExport SEXP _sf_CPL_gdal_segmentize(SEXP sfcSEXP, SEXP dfMaxLengthSEXP) {\nBEGIN_RCPP\n Rcpp::RObject rcpp_result_gen;\n Rcpp::traits::input_parameter< Rcpp::List >::type sfc(sfcSEXP);\n Rcpp::traits::input_parameter< double >::type dfMaxLength(dfMaxLengthSEXP);\n rcpp_result_gen = Rcpp::wrap(CPL_gdal_segmentize(sfc, dfMaxLength));\n return rcpp_result_gen;\nEND_RCPP\n}\n// CPL_gdal_linestring_sample\nRcpp::List CPL_gdal_linestring_sample(Rcpp::List sfc, Rcpp::List distLst);\nRcppExport SEXP _sf_CPL_gdal_linestring_sample(SEXP sfcSEXP, SEXP distLstSEXP) {\nBEGIN_RCPP\n Rcpp::RObject rcpp_result_gen;\n Rcpp::traits::input_parameter< Rcpp::List >::type sfc(sfcSEXP);\n Rcpp::traits::input_parameter< Rcpp::List >::type distLst(distLstSEXP);\n rcpp_result_gen = Rcpp::wrap(CPL_gdal_linestring_sample(sfc, distLst));\n return rcpp_result_gen;\nEND_RCPP\n}\n// CPL_get_layers\nRcpp::List CPL_get_layers(Rcpp::CharacterVector datasource, Rcpp::CharacterVector options, bool do_count);\nRcppExport SEXP _sf_CPL_get_layers(SEXP datasourceSEXP, SEXP optionsSEXP, SEXP do_countSEXP) {\nBEGIN_RCPP\n Rcpp::RObject rcpp_result_gen;\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type datasource(datasourceSEXP);\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type options(optionsSEXP);\n Rcpp::traits::input_parameter< bool >::type do_count(do_countSEXP);\n rcpp_result_gen = Rcpp::wrap(CPL_get_layers(datasource, options, do_count));\n return rcpp_result_gen;\nEND_RCPP\n}\n// CPL_read_ogr\nRcpp::List CPL_read_ogr(Rcpp::CharacterVector datasource, Rcpp::CharacterVector layer, Rcpp::CharacterVector query, Rcpp::CharacterVector options, bool quiet, Rcpp::NumericVector toTypeUser, Rcpp::CharacterVector fid_column_name, Rcpp::CharacterVector drivers, Rcpp::CharacterVector wkt_filter, bool promote_to_multi, bool int64_as_string, bool dsn_exists, bool dsn_isdb, int width);\nRcppExport SEXP _sf_CPL_read_ogr(SEXP datasourceSEXP, SEXP layerSEXP, SEXP querySEXP, SEXP optionsSEXP, SEXP quietSEXP, SEXP toTypeUserSEXP, SEXP fid_column_nameSEXP, SEXP driversSEXP, SEXP wkt_filterSEXP, SEXP promote_to_multiSEXP, SEXP int64_as_stringSEXP, SEXP dsn_existsSEXP, SEXP dsn_isdbSEXP, SEXP widthSEXP) {\nBEGIN_RCPP\n Rcpp::RObject rcpp_result_gen;\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type datasource(datasourceSEXP);\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type layer(layerSEXP);\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type query(querySEXP);\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type options(optionsSEXP);\n Rcpp::traits::input_parameter< bool >::type quiet(quietSEXP);\n Rcpp::traits::input_parameter< Rcpp::NumericVector >::type toTypeUser(toTypeUserSEXP);\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type fid_column_name(fid_column_nameSEXP);\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type drivers(driversSEXP);\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type wkt_filter(wkt_filterSEXP);\n Rcpp::traits::input_parameter< bool >::type promote_to_multi(promote_to_multiSEXP);\n Rcpp::traits::input_parameter< bool >::type int64_as_string(int64_as_stringSEXP);\n Rcpp::traits::input_parameter< bool >::type dsn_exists(dsn_existsSEXP);\n Rcpp::traits::input_parameter< bool >::type dsn_isdb(dsn_isdbSEXP);\n Rcpp::traits::input_parameter< int >::type width(widthSEXP);\n rcpp_result_gen = Rcpp::wrap(CPL_read_ogr(datasource, layer, query, options, quiet, toTypeUser, fid_column_name, drivers, wkt_filter, promote_to_multi, int64_as_string, dsn_exists, dsn_isdb, width));\n return rcpp_result_gen;\nEND_RCPP\n}\n// CPL_read_gdal_stream\nRcpp::List CPL_read_gdal_stream(Rcpp::RObject stream_xptr, Rcpp::CharacterVector datasource, Rcpp::CharacterVector layer, Rcpp::CharacterVector query, Rcpp::CharacterVector options, bool quiet, Rcpp::CharacterVector drivers, Rcpp::CharacterVector wkt_filter, bool dsn_exists, bool dsn_isdb, Rcpp::CharacterVector fid_column, int width);\nRcppExport SEXP _sf_CPL_read_gdal_stream(SEXP stream_xptrSEXP, SEXP datasourceSEXP, SEXP layerSEXP, SEXP querySEXP, SEXP optionsSEXP, SEXP quietSEXP, SEXP driversSEXP, SEXP wkt_filterSEXP, SEXP dsn_existsSEXP, SEXP dsn_isdbSEXP, SEXP fid_columnSEXP, SEXP widthSEXP) {\nBEGIN_RCPP\n Rcpp::RObject rcpp_result_gen;\n Rcpp::traits::input_parameter< Rcpp::RObject >::type stream_xptr(stream_xptrSEXP);\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type datasource(datasourceSEXP);\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type layer(layerSEXP);\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type query(querySEXP);\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type options(optionsSEXP);\n Rcpp::traits::input_parameter< bool >::type quiet(quietSEXP);\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type drivers(driversSEXP);\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type wkt_filter(wkt_filterSEXP);\n Rcpp::traits::input_parameter< bool >::type dsn_exists(dsn_existsSEXP);\n Rcpp::traits::input_parameter< bool >::type dsn_isdb(dsn_isdbSEXP);\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type fid_column(fid_columnSEXP);\n Rcpp::traits::input_parameter< int >::type width(widthSEXP);\n rcpp_result_gen = Rcpp::wrap(CPL_read_gdal_stream(stream_xptr, datasource, layer, query, options, quiet, drivers, wkt_filter, dsn_exists, dsn_isdb, fid_column, width));\n return rcpp_result_gen;\nEND_RCPP\n}\n// CPL_gdalinfo\nRcpp::CharacterVector CPL_gdalinfo(Rcpp::CharacterVector obj, Rcpp::CharacterVector options, Rcpp::CharacterVector oo, Rcpp::CharacterVector co);\nRcppExport SEXP _sf_CPL_gdalinfo(SEXP objSEXP, SEXP optionsSEXP, SEXP ooSEXP, SEXP coSEXP) {\nBEGIN_RCPP\n Rcpp::RObject rcpp_result_gen;\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type obj(objSEXP);\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type options(optionsSEXP);\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type oo(ooSEXP);\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type co(coSEXP);\n rcpp_result_gen = Rcpp::wrap(CPL_gdalinfo(obj, options, oo, co));\n return rcpp_result_gen;\nEND_RCPP\n}\n// CPL_ogrinfo\nRcpp::CharacterVector CPL_ogrinfo(Rcpp::CharacterVector obj, Rcpp::CharacterVector options, Rcpp::CharacterVector oo, Rcpp::CharacterVector co, bool read_only);\nRcppExport SEXP _sf_CPL_ogrinfo(SEXP objSEXP, SEXP optionsSEXP, SEXP ooSEXP, SEXP coSEXP, SEXP read_onlySEXP) {\nBEGIN_RCPP\n Rcpp::RObject rcpp_result_gen;\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type obj(objSEXP);\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type options(optionsSEXP);\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type oo(ooSEXP);\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type co(coSEXP);\n Rcpp::traits::input_parameter< bool >::type read_only(read_onlySEXP);\n rcpp_result_gen = Rcpp::wrap(CPL_ogrinfo(obj, options, oo, co, read_only));\n return rcpp_result_gen;\nEND_RCPP\n}\n// CPL_gdaladdo\nRcpp::LogicalVector CPL_gdaladdo(Rcpp::CharacterVector obj, Rcpp::CharacterVector method, Rcpp::IntegerVector overviews, Rcpp::IntegerVector bands, Rcpp::CharacterVector oo, Rcpp::CharacterVector co, bool clean, bool read_only);\nRcppExport SEXP _sf_CPL_gdaladdo(SEXP objSEXP, SEXP methodSEXP, SEXP overviewsSEXP, SEXP bandsSEXP, SEXP ooSEXP, SEXP coSEXP, SEXP cleanSEXP, SEXP read_onlySEXP) {\nBEGIN_RCPP\n Rcpp::RObject rcpp_result_gen;\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type obj(objSEXP);\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type method(methodSEXP);\n Rcpp::traits::input_parameter< Rcpp::IntegerVector >::type overviews(overviewsSEXP);\n Rcpp::traits::input_parameter< Rcpp::IntegerVector >::type bands(bandsSEXP);\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type oo(ooSEXP);\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type co(coSEXP);\n Rcpp::traits::input_parameter< bool >::type clean(cleanSEXP);\n Rcpp::traits::input_parameter< bool >::type read_only(read_onlySEXP);\n rcpp_result_gen = Rcpp::wrap(CPL_gdaladdo(obj, method, overviews, bands, oo, co, clean, read_only));\n return rcpp_result_gen;\nEND_RCPP\n}\n// CPL_gdalwarp\nRcpp::LogicalVector CPL_gdalwarp(Rcpp::CharacterVector src, Rcpp::CharacterVector dst, Rcpp::CharacterVector options, Rcpp::CharacterVector oo, Rcpp::CharacterVector doo, Rcpp::CharacterVector co, bool quiet, bool overwrite);\nRcppExport SEXP _sf_CPL_gdalwarp(SEXP srcSEXP, SEXP dstSEXP, SEXP optionsSEXP, SEXP ooSEXP, SEXP dooSEXP, SEXP coSEXP, SEXP quietSEXP, SEXP overwriteSEXP) {\nBEGIN_RCPP\n Rcpp::RObject rcpp_result_gen;\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type src(srcSEXP);\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type dst(dstSEXP);\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type options(optionsSEXP);\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type oo(ooSEXP);\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type doo(dooSEXP);\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type co(coSEXP);\n Rcpp::traits::input_parameter< bool >::type quiet(quietSEXP);\n Rcpp::traits::input_parameter< bool >::type overwrite(overwriteSEXP);\n rcpp_result_gen = Rcpp::wrap(CPL_gdalwarp(src, dst, options, oo, doo, co, quiet, overwrite));\n return rcpp_result_gen;\nEND_RCPP\n}\n// CPL_gdalrasterize\nRcpp::LogicalVector CPL_gdalrasterize(Rcpp::CharacterVector src, Rcpp::CharacterVector dst, Rcpp::CharacterVector options, Rcpp::CharacterVector oo, Rcpp::CharacterVector doo, Rcpp::CharacterVector co, bool overwrite, bool quiet);\nRcppExport SEXP _sf_CPL_gdalrasterize(SEXP srcSEXP, SEXP dstSEXP, SEXP optionsSEXP, SEXP ooSEXP, SEXP dooSEXP, SEXP coSEXP, SEXP overwriteSEXP, SEXP quietSEXP) {\nBEGIN_RCPP\n Rcpp::RObject rcpp_result_gen;\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type src(srcSEXP);\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type dst(dstSEXP);\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type options(optionsSEXP);\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type oo(ooSEXP);\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type doo(dooSEXP);\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type co(coSEXP);\n Rcpp::traits::input_parameter< bool >::type overwrite(overwriteSEXP);\n Rcpp::traits::input_parameter< bool >::type quiet(quietSEXP);\n rcpp_result_gen = Rcpp::wrap(CPL_gdalrasterize(src, dst, options, oo, doo, co, overwrite, quiet));\n return rcpp_result_gen;\nEND_RCPP\n}\n// CPL_gdaltranslate\nRcpp::LogicalVector CPL_gdaltranslate(Rcpp::CharacterVector src, Rcpp::CharacterVector dst, Rcpp::CharacterVector options, Rcpp::CharacterVector oo, Rcpp::CharacterVector co, bool quiet);\nRcppExport SEXP _sf_CPL_gdaltranslate(SEXP srcSEXP, SEXP dstSEXP, SEXP optionsSEXP, SEXP ooSEXP, SEXP coSEXP, SEXP quietSEXP) {\nBEGIN_RCPP\n Rcpp::RObject rcpp_result_gen;\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type src(srcSEXP);\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type dst(dstSEXP);\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type options(optionsSEXP);\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type oo(ooSEXP);\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type co(coSEXP);\n Rcpp::traits::input_parameter< bool >::type quiet(quietSEXP);\n rcpp_result_gen = Rcpp::wrap(CPL_gdaltranslate(src, dst, options, oo, co, quiet));\n return rcpp_result_gen;\nEND_RCPP\n}\n// CPL_gdalfootprint\nRcpp::LogicalVector CPL_gdalfootprint(Rcpp::CharacterVector src, Rcpp::CharacterVector dst, Rcpp::CharacterVector options, Rcpp::CharacterVector oo, Rcpp::CharacterVector co, bool quiet);\nRcppExport SEXP _sf_CPL_gdalfootprint(SEXP srcSEXP, SEXP dstSEXP, SEXP optionsSEXP, SEXP ooSEXP, SEXP coSEXP, SEXP quietSEXP) {\nBEGIN_RCPP\n Rcpp::RObject rcpp_result_gen;\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type src(srcSEXP);\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type dst(dstSEXP);\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type options(optionsSEXP);\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type oo(ooSEXP);\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type co(coSEXP);\n Rcpp::traits::input_parameter< bool >::type quiet(quietSEXP);\n rcpp_result_gen = Rcpp::wrap(CPL_gdalfootprint(src, dst, options, oo, co, quiet));\n return rcpp_result_gen;\nEND_RCPP\n}\n// CPL_gdalvectortranslate\nRcpp::LogicalVector CPL_gdalvectortranslate(Rcpp::CharacterVector src, Rcpp::CharacterVector dst, Rcpp::CharacterVector options, Rcpp::CharacterVector oo, Rcpp::CharacterVector doo, Rcpp::CharacterVector co, bool quiet);\nRcppExport SEXP _sf_CPL_gdalvectortranslate(SEXP srcSEXP, SEXP dstSEXP, SEXP optionsSEXP, SEXP ooSEXP, SEXP dooSEXP, SEXP coSEXP, SEXP quietSEXP) {\nBEGIN_RCPP\n Rcpp::RObject rcpp_result_gen;\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type src(srcSEXP);\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type dst(dstSEXP);\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type options(optionsSEXP);\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type oo(ooSEXP);\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type doo(dooSEXP);\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type co(coSEXP);\n Rcpp::traits::input_parameter< bool >::type quiet(quietSEXP);\n rcpp_result_gen = Rcpp::wrap(CPL_gdalvectortranslate(src, dst, options, oo, doo, co, quiet));\n return rcpp_result_gen;\nEND_RCPP\n}\n// CPL_gdalbuildvrt\nRcpp::LogicalVector CPL_gdalbuildvrt(Rcpp::CharacterVector src, Rcpp::CharacterVector dst, Rcpp::CharacterVector options, Rcpp::CharacterVector oo, Rcpp::CharacterVector co, bool quiet);\nRcppExport SEXP _sf_CPL_gdalbuildvrt(SEXP srcSEXP, SEXP dstSEXP, SEXP optionsSEXP, SEXP ooSEXP, SEXP coSEXP, SEXP quietSEXP) {\nBEGIN_RCPP\n Rcpp::RObject rcpp_result_gen;\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type src(srcSEXP);\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type dst(dstSEXP);\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type options(optionsSEXP);\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type oo(ooSEXP);\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type co(coSEXP);\n Rcpp::traits::input_parameter< bool >::type quiet(quietSEXP);\n rcpp_result_gen = Rcpp::wrap(CPL_gdalbuildvrt(src, dst, options, oo, co, quiet));\n return rcpp_result_gen;\nEND_RCPP\n}\n// CPL_gdaldemprocessing\nRcpp::LogicalVector CPL_gdaldemprocessing(Rcpp::CharacterVector src, Rcpp::CharacterVector dst, Rcpp::CharacterVector options, Rcpp::CharacterVector processing, Rcpp::CharacterVector colorfilename, Rcpp::CharacterVector oo, Rcpp::CharacterVector co, bool quiet);\nRcppExport SEXP _sf_CPL_gdaldemprocessing(SEXP srcSEXP, SEXP dstSEXP, SEXP optionsSEXP, SEXP processingSEXP, SEXP colorfilenameSEXP, SEXP ooSEXP, SEXP coSEXP, SEXP quietSEXP) {\nBEGIN_RCPP\n Rcpp::RObject rcpp_result_gen;\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type src(srcSEXP);\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type dst(dstSEXP);\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type options(optionsSEXP);\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type processing(processingSEXP);\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type colorfilename(colorfilenameSEXP);\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type oo(ooSEXP);\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type co(coSEXP);\n Rcpp::traits::input_parameter< bool >::type quiet(quietSEXP);\n rcpp_result_gen = Rcpp::wrap(CPL_gdaldemprocessing(src, dst, options, processing, colorfilename, oo, co, quiet));\n return rcpp_result_gen;\nEND_RCPP\n}\n// CPL_gdalnearblack\nRcpp::LogicalVector CPL_gdalnearblack(Rcpp::CharacterVector src, Rcpp::CharacterVector dst, Rcpp::CharacterVector options, Rcpp::CharacterVector oo, Rcpp::CharacterVector doo, Rcpp::CharacterVector co, bool quiet);\nRcppExport SEXP _sf_CPL_gdalnearblack(SEXP srcSEXP, SEXP dstSEXP, SEXP optionsSEXP, SEXP ooSEXP, SEXP dooSEXP, SEXP coSEXP, SEXP quietSEXP) {\nBEGIN_RCPP\n Rcpp::RObject rcpp_result_gen;\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type src(srcSEXP);\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type dst(dstSEXP);\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type options(optionsSEXP);\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type oo(ooSEXP);\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type doo(dooSEXP);\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type co(coSEXP);\n Rcpp::traits::input_parameter< bool >::type quiet(quietSEXP);\n rcpp_result_gen = Rcpp::wrap(CPL_gdalnearblack(src, dst, options, oo, doo, co, quiet));\n return rcpp_result_gen;\nEND_RCPP\n}\n// CPL_gdalgrid\nRcpp::LogicalVector CPL_gdalgrid(Rcpp::CharacterVector src, Rcpp::CharacterVector dst, Rcpp::CharacterVector options, Rcpp::CharacterVector oo, Rcpp::CharacterVector co, bool quiet);\nRcppExport SEXP _sf_CPL_gdalgrid(SEXP srcSEXP, SEXP dstSEXP, SEXP optionsSEXP, SEXP ooSEXP, SEXP coSEXP, SEXP quietSEXP) {\nBEGIN_RCPP\n Rcpp::RObject rcpp_result_gen;\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type src(srcSEXP);\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type dst(dstSEXP);\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type options(optionsSEXP);\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type oo(ooSEXP);\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type co(coSEXP);\n Rcpp::traits::input_parameter< bool >::type quiet(quietSEXP);\n rcpp_result_gen = Rcpp::wrap(CPL_gdalgrid(src, dst, options, oo, co, quiet));\n return rcpp_result_gen;\nEND_RCPP\n}\n// CPL_gdalmdiminfo\nRcpp::CharacterVector CPL_gdalmdiminfo(Rcpp::CharacterVector obj, Rcpp::CharacterVector options, Rcpp::CharacterVector oo, Rcpp::CharacterVector co);\nRcppExport SEXP _sf_CPL_gdalmdiminfo(SEXP objSEXP, SEXP optionsSEXP, SEXP ooSEXP, SEXP coSEXP) {\nBEGIN_RCPP\n Rcpp::RObject rcpp_result_gen;\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type obj(objSEXP);\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type options(optionsSEXP);\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type oo(ooSEXP);\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type co(coSEXP);\n rcpp_result_gen = Rcpp::wrap(CPL_gdalmdiminfo(obj, options, oo, co));\n return rcpp_result_gen;\nEND_RCPP\n}\n// CPL_gdalmdimtranslate\nRcpp::LogicalVector CPL_gdalmdimtranslate(Rcpp::CharacterVector src, Rcpp::CharacterVector dst, Rcpp::CharacterVector options, Rcpp::CharacterVector oo, Rcpp::CharacterVector co, bool quiet);\nRcppExport SEXP _sf_CPL_gdalmdimtranslate(SEXP srcSEXP, SEXP dstSEXP, SEXP optionsSEXP, SEXP ooSEXP, SEXP coSEXP, SEXP quietSEXP) {\nBEGIN_RCPP\n Rcpp::RObject rcpp_result_gen;\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type src(srcSEXP);\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type dst(dstSEXP);\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type options(optionsSEXP);\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type oo(ooSEXP);\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type co(coSEXP);\n Rcpp::traits::input_parameter< bool >::type quiet(quietSEXP);\n rcpp_result_gen = Rcpp::wrap(CPL_gdalmdimtranslate(src, dst, options, oo, co, quiet));\n return rcpp_result_gen;\nEND_RCPP\n}\n// CPL_gdal_warper\nRcpp::LogicalVector CPL_gdal_warper(Rcpp::CharacterVector infile, Rcpp::CharacterVector outfile, Rcpp::IntegerVector options, Rcpp::CharacterVector oo, Rcpp::CharacterVector doo, Rcpp::CharacterVector co, bool quiet);\nRcppExport SEXP _sf_CPL_gdal_warper(SEXP infileSEXP, SEXP outfileSEXP, SEXP optionsSEXP, SEXP ooSEXP, SEXP dooSEXP, SEXP coSEXP, SEXP quietSEXP) {\nBEGIN_RCPP\n Rcpp::RObject rcpp_result_gen;\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type infile(infileSEXP);\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type outfile(outfileSEXP);\n Rcpp::traits::input_parameter< Rcpp::IntegerVector >::type options(optionsSEXP);\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type oo(ooSEXP);\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type doo(dooSEXP);\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type co(coSEXP);\n Rcpp::traits::input_parameter< bool >::type quiet(quietSEXP);\n rcpp_result_gen = Rcpp::wrap(CPL_gdal_warper(infile, outfile, options, oo, doo, co, quiet));\n return rcpp_result_gen;\nEND_RCPP\n}\n// CPL_write_ogr\nint CPL_write_ogr(Rcpp::List obj, Rcpp::CharacterVector dsn, Rcpp::CharacterVector layer, Rcpp::CharacterVector driver, Rcpp::CharacterVector dco, Rcpp::CharacterVector lco, Rcpp::List geom, Rcpp::CharacterVector dim, Rcpp::CharacterVector fids, Rcpp::CharacterVector ConfigOptions, bool quiet, Rcpp::LogicalVector append, bool delete_dsn, bool delete_layer, bool write_geometries, int width);\nRcppExport SEXP _sf_CPL_write_ogr(SEXP objSEXP, SEXP dsnSEXP, SEXP layerSEXP, SEXP driverSEXP, SEXP dcoSEXP, SEXP lcoSEXP, SEXP geomSEXP, SEXP dimSEXP, SEXP fidsSEXP, SEXP ConfigOptionsSEXP, SEXP quietSEXP, SEXP appendSEXP, SEXP delete_dsnSEXP, SEXP delete_layerSEXP, SEXP write_geometriesSEXP, SEXP widthSEXP) {\nBEGIN_RCPP\n Rcpp::RObject rcpp_result_gen;\n Rcpp::traits::input_parameter< Rcpp::List >::type obj(objSEXP);\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type dsn(dsnSEXP);\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type layer(layerSEXP);\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type driver(driverSEXP);\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type dco(dcoSEXP);\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type lco(lcoSEXP);\n Rcpp::traits::input_parameter< Rcpp::List >::type geom(geomSEXP);\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type dim(dimSEXP);\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type fids(fidsSEXP);\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type ConfigOptions(ConfigOptionsSEXP);\n Rcpp::traits::input_parameter< bool >::type quiet(quietSEXP);\n Rcpp::traits::input_parameter< Rcpp::LogicalVector >::type append(appendSEXP);\n Rcpp::traits::input_parameter< bool >::type delete_dsn(delete_dsnSEXP);\n Rcpp::traits::input_parameter< bool >::type delete_layer(delete_layerSEXP);\n Rcpp::traits::input_parameter< bool >::type write_geometries(write_geometriesSEXP);\n Rcpp::traits::input_parameter< int >::type width(widthSEXP);\n rcpp_result_gen = Rcpp::wrap(CPL_write_ogr(obj, dsn, layer, driver, dco, lco, geom, dim, fids, ConfigOptions, quiet, append, delete_dsn, delete_layer, write_geometries, width));\n return rcpp_result_gen;\nEND_RCPP\n}\n// CPL_delete_ogr\nint CPL_delete_ogr(Rcpp::CharacterVector dsn, Rcpp::CharacterVector layer, Rcpp::CharacterVector driver, bool quiet);\nRcppExport SEXP _sf_CPL_delete_ogr(SEXP dsnSEXP, SEXP layerSEXP, SEXP driverSEXP, SEXP quietSEXP) {\nBEGIN_RCPP\n Rcpp::RObject rcpp_result_gen;\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type dsn(dsnSEXP);\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type layer(layerSEXP);\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type driver(driverSEXP);\n Rcpp::traits::input_parameter< bool >::type quiet(quietSEXP);\n rcpp_result_gen = Rcpp::wrap(CPL_delete_ogr(dsn, layer, driver, quiet));\n return rcpp_result_gen;\nEND_RCPP\n}\n// CPL_geos_binop\nRcpp::List CPL_geos_binop(Rcpp::List sfc0, Rcpp::List sfc1, std::string op, double par, std::string pattern, bool prepared);\nRcppExport SEXP _sf_CPL_geos_binop(SEXP sfc0SEXP, SEXP sfc1SEXP, SEXP opSEXP, SEXP parSEXP, SEXP patternSEXP, SEXP preparedSEXP) {\nBEGIN_RCPP\n Rcpp::RObject rcpp_result_gen;\n Rcpp::traits::input_parameter< Rcpp::List >::type sfc0(sfc0SEXP);\n Rcpp::traits::input_parameter< Rcpp::List >::type sfc1(sfc1SEXP);\n Rcpp::traits::input_parameter< std::string >::type op(opSEXP);\n Rcpp::traits::input_parameter< double >::type par(parSEXP);\n Rcpp::traits::input_parameter< std::string >::type pattern(patternSEXP);\n Rcpp::traits::input_parameter< bool >::type prepared(preparedSEXP);\n rcpp_result_gen = Rcpp::wrap(CPL_geos_binop(sfc0, sfc1, op, par, pattern, prepared));\n return rcpp_result_gen;\nEND_RCPP\n}\n// CPL_geos_binop_by_element\nRcpp::List CPL_geos_binop_by_element(Rcpp::List sfc0, Rcpp::List sfc1, std::string op, double par, std::string pattern, bool prepared);\nRcppExport SEXP _sf_CPL_geos_binop_by_element(SEXP sfc0SEXP, SEXP sfc1SEXP, SEXP opSEXP, SEXP parSEXP, SEXP patternSEXP, SEXP preparedSEXP) {\nBEGIN_RCPP\n Rcpp::RObject rcpp_result_gen;\n Rcpp::traits::input_parameter< Rcpp::List >::type sfc0(sfc0SEXP);\n Rcpp::traits::input_parameter< Rcpp::List >::type sfc1(sfc1SEXP);\n Rcpp::traits::input_parameter< std::string >::type op(opSEXP);\n Rcpp::traits::input_parameter< double >::type par(parSEXP);\n Rcpp::traits::input_parameter< std::string >::type pattern(patternSEXP);\n Rcpp::traits::input_parameter< bool >::type prepared(preparedSEXP);\n rcpp_result_gen = Rcpp::wrap(CPL_geos_binop_by_element(sfc0, sfc1, op, par, pattern, prepared));\n return rcpp_result_gen;\nEND_RCPP\n}\n// CPL_geos_is_valid_reason\nRcpp::CharacterVector CPL_geos_is_valid_reason(Rcpp::List sfc);\nRcppExport SEXP _sf_CPL_geos_is_valid_reason(SEXP sfcSEXP) {\nBEGIN_RCPP\n Rcpp::RObject rcpp_result_gen;\n Rcpp::traits::input_parameter< Rcpp::List >::type sfc(sfcSEXP);\n rcpp_result_gen = Rcpp::wrap(CPL_geos_is_valid_reason(sfc));\n return rcpp_result_gen;\nEND_RCPP\n}\n// CPL_geos_make_valid\nRcpp::List CPL_geos_make_valid(Rcpp::List sfc, std::string method, bool keep_collapsed);\nRcppExport SEXP _sf_CPL_geos_make_valid(SEXP sfcSEXP, SEXP methodSEXP, SEXP keep_collapsedSEXP) {\nBEGIN_RCPP\n Rcpp::RObject rcpp_result_gen;\n Rcpp::traits::input_parameter< Rcpp::List >::type sfc(sfcSEXP);\n Rcpp::traits::input_parameter< std::string >::type method(methodSEXP);\n Rcpp::traits::input_parameter< bool >::type keep_collapsed(keep_collapsedSEXP);\n rcpp_result_gen = Rcpp::wrap(CPL_geos_make_valid(sfc, method, keep_collapsed));\n return rcpp_result_gen;\nEND_RCPP\n}\n// CPL_geos_is_valid\nRcpp::LogicalVector CPL_geos_is_valid(Rcpp::List sfc, bool NA_on_exception);\nRcppExport SEXP _sf_CPL_geos_is_valid(SEXP sfcSEXP, SEXP NA_on_exceptionSEXP) {\nBEGIN_RCPP\n Rcpp::RObject rcpp_result_gen;\n Rcpp::traits::input_parameter< Rcpp::List >::type sfc(sfcSEXP);\n Rcpp::traits::input_parameter< bool >::type NA_on_exception(NA_on_exceptionSEXP);\n rcpp_result_gen = Rcpp::wrap(CPL_geos_is_valid(sfc, NA_on_exception));\n return rcpp_result_gen;\nEND_RCPP\n}\n// CPL_geos_is_simple\nRcpp::LogicalVector CPL_geos_is_simple(Rcpp::List sfc);\nRcppExport SEXP _sf_CPL_geos_is_simple(SEXP sfcSEXP) {\nBEGIN_RCPP\n Rcpp::RObject rcpp_result_gen;\n Rcpp::traits::input_parameter< Rcpp::List >::type sfc(sfcSEXP);\n rcpp_result_gen = Rcpp::wrap(CPL_geos_is_simple(sfc));\n return rcpp_result_gen;\nEND_RCPP\n}\n// CPL_geos_is_empty\nRcpp::LogicalVector CPL_geos_is_empty(Rcpp::List sfc);\nRcppExport SEXP _sf_CPL_geos_is_empty(SEXP sfcSEXP) {\nBEGIN_RCPP\n Rcpp::RObject rcpp_result_gen;\n Rcpp::traits::input_parameter< Rcpp::List >::type sfc(sfcSEXP);\n rcpp_result_gen = Rcpp::wrap(CPL_geos_is_empty(sfc));\n return rcpp_result_gen;\nEND_RCPP\n}\n// CPL_geos_normalize\nRcpp::List CPL_geos_normalize(Rcpp::List sfc);\nRcppExport SEXP _sf_CPL_geos_normalize(SEXP sfcSEXP) {\nBEGIN_RCPP\n Rcpp::RObject rcpp_result_gen;\n Rcpp::traits::input_parameter< Rcpp::List >::type sfc(sfcSEXP);\n rcpp_result_gen = Rcpp::wrap(CPL_geos_normalize(sfc));\n return rcpp_result_gen;\nEND_RCPP\n}\n// CPL_geos_union\nRcpp::List CPL_geos_union(Rcpp::List sfc, bool by_feature, bool is_coverage);\nRcppExport SEXP _sf_CPL_geos_union(SEXP sfcSEXP, SEXP by_featureSEXP, SEXP is_coverageSEXP) {\nBEGIN_RCPP\n Rcpp::RObject rcpp_result_gen;\n Rcpp::traits::input_parameter< Rcpp::List >::type sfc(sfcSEXP);\n Rcpp::traits::input_parameter< bool >::type by_feature(by_featureSEXP);\n Rcpp::traits::input_parameter< bool >::type is_coverage(is_coverageSEXP);\n rcpp_result_gen = Rcpp::wrap(CPL_geos_union(sfc, by_feature, is_coverage));\n return rcpp_result_gen;\nEND_RCPP\n}\n// CPL_geos_snap\nRcpp::List CPL_geos_snap(Rcpp::List sfc0, Rcpp::List sfc1, Rcpp::NumericVector tolerance);\nRcppExport SEXP _sf_CPL_geos_snap(SEXP sfc0SEXP, SEXP sfc1SEXP, SEXP toleranceSEXP) {\nBEGIN_RCPP\n Rcpp::RObject rcpp_result_gen;\n Rcpp::traits::input_parameter< Rcpp::List >::type sfc0(sfc0SEXP);\n Rcpp::traits::input_parameter< Rcpp::List >::type sfc1(sfc1SEXP);\n Rcpp::traits::input_parameter< Rcpp::NumericVector >::type tolerance(toleranceSEXP);\n rcpp_result_gen = Rcpp::wrap(CPL_geos_snap(sfc0, sfc1, tolerance));\n return rcpp_result_gen;\nEND_RCPP\n}\n// CPL_geos_op\nRcpp::List CPL_geos_op(std::string op, Rcpp::List sfc, Rcpp::NumericVector bufferDist, Rcpp::IntegerVector nQuadSegs, Rcpp::NumericVector dTolerance, Rcpp::LogicalVector preserveTopology, int bOnlyEdges, Rcpp::IntegerVector endCapStyle, Rcpp::IntegerVector joinStyle, Rcpp::NumericVector mitreLimit, Rcpp::LogicalVector singleside);\nRcppExport SEXP _sf_CPL_geos_op(SEXP opSEXP, SEXP sfcSEXP, SEXP bufferDistSEXP, SEXP nQuadSegsSEXP, SEXP dToleranceSEXP, SEXP preserveTopologySEXP, SEXP bOnlyEdgesSEXP, SEXP endCapStyleSEXP, SEXP joinStyleSEXP, SEXP mitreLimitSEXP, SEXP singlesideSEXP) {\nBEGIN_RCPP\n Rcpp::RObject rcpp_result_gen;\n Rcpp::traits::input_parameter< std::string >::type op(opSEXP);\n Rcpp::traits::input_parameter< Rcpp::List >::type sfc(sfcSEXP);\n Rcpp::traits::input_parameter< Rcpp::NumericVector >::type bufferDist(bufferDistSEXP);\n Rcpp::traits::input_parameter< Rcpp::IntegerVector >::type nQuadSegs(nQuadSegsSEXP);\n Rcpp::traits::input_parameter< Rcpp::NumericVector >::type dTolerance(dToleranceSEXP);\n Rcpp::traits::input_parameter< Rcpp::LogicalVector >::type preserveTopology(preserveTopologySEXP);\n Rcpp::traits::input_parameter< int >::type bOnlyEdges(bOnlyEdgesSEXP);\n Rcpp::traits::input_parameter< Rcpp::IntegerVector >::type endCapStyle(endCapStyleSEXP);\n Rcpp::traits::input_parameter< Rcpp::IntegerVector >::type joinStyle(joinStyleSEXP);\n Rcpp::traits::input_parameter< Rcpp::NumericVector >::type mitreLimit(mitreLimitSEXP);\n Rcpp::traits::input_parameter< Rcpp::LogicalVector >::type singleside(singlesideSEXP);\n rcpp_result_gen = Rcpp::wrap(CPL_geos_op(op, sfc, bufferDist, nQuadSegs, dTolerance, preserveTopology, bOnlyEdges, endCapStyle, joinStyle, mitreLimit, singleside));\n return rcpp_result_gen;\nEND_RCPP\n}\n// CPL_geos_voronoi\nRcpp::List CPL_geos_voronoi(Rcpp::List sfc, Rcpp::List env, double dTolerance, int bOnlyEdges);\nRcppExport SEXP _sf_CPL_geos_voronoi(SEXP sfcSEXP, SEXP envSEXP, SEXP dToleranceSEXP, SEXP bOnlyEdgesSEXP) {\nBEGIN_RCPP\n Rcpp::RObject rcpp_result_gen;\n Rcpp::traits::input_parameter< Rcpp::List >::type sfc(sfcSEXP);\n Rcpp::traits::input_parameter< Rcpp::List >::type env(envSEXP);\n Rcpp::traits::input_parameter< double >::type dTolerance(dToleranceSEXP);\n Rcpp::traits::input_parameter< int >::type bOnlyEdges(bOnlyEdgesSEXP);\n rcpp_result_gen = Rcpp::wrap(CPL_geos_voronoi(sfc, env, dTolerance, bOnlyEdges));\n return rcpp_result_gen;\nEND_RCPP\n}\n// CPL_geos_op2\nRcpp::List CPL_geos_op2(std::string op, Rcpp::List sfcx, Rcpp::List sfcy);\nRcppExport SEXP _sf_CPL_geos_op2(SEXP opSEXP, SEXP sfcxSEXP, SEXP sfcySEXP) {\nBEGIN_RCPP\n Rcpp::RObject rcpp_result_gen;\n Rcpp::traits::input_parameter< std::string >::type op(opSEXP);\n Rcpp::traits::input_parameter< Rcpp::List >::type sfcx(sfcxSEXP);\n Rcpp::traits::input_parameter< Rcpp::List >::type sfcy(sfcySEXP);\n rcpp_result_gen = Rcpp::wrap(CPL_geos_op2(op, sfcx, sfcy));\n return rcpp_result_gen;\nEND_RCPP\n}\n// CPL_geos_dist_by_element\nRcpp::NumericVector CPL_geos_dist_by_element(Rcpp::List sfc0, Rcpp::List sfc1, std::string which, double par);\nRcppExport SEXP _sf_CPL_geos_dist_by_element(SEXP sfc0SEXP, SEXP sfc1SEXP, SEXP whichSEXP, SEXP parSEXP) {\nBEGIN_RCPP\n Rcpp::RObject rcpp_result_gen;\n Rcpp::traits::input_parameter< Rcpp::List >::type sfc0(sfc0SEXP);\n Rcpp::traits::input_parameter< Rcpp::List >::type sfc1(sfc1SEXP);\n Rcpp::traits::input_parameter< std::string >::type which(whichSEXP);\n Rcpp::traits::input_parameter< double >::type par(parSEXP);\n rcpp_result_gen = Rcpp::wrap(CPL_geos_dist_by_element(sfc0, sfc1, which, par));\n return rcpp_result_gen;\nEND_RCPP\n}\n// CPL_geos_version\nstd::string CPL_geos_version(bool runtime, bool capi);\nRcppExport SEXP _sf_CPL_geos_version(SEXP runtimeSEXP, SEXP capiSEXP) {\nBEGIN_RCPP\n Rcpp::RObject rcpp_result_gen;\n Rcpp::traits::input_parameter< bool >::type runtime(runtimeSEXP);\n Rcpp::traits::input_parameter< bool >::type capi(capiSEXP);\n rcpp_result_gen = Rcpp::wrap(CPL_geos_version(runtime, capi));\n return rcpp_result_gen;\nEND_RCPP\n}\n// CPL_geos_op2_by_element\nRcpp::List CPL_geos_op2_by_element(std::string op, Rcpp::List sfcx, Rcpp::List sfcy);\nRcppExport SEXP _sf_CPL_geos_op2_by_element(SEXP opSEXP, SEXP sfcxSEXP, SEXP sfcySEXP) {\nBEGIN_RCPP\n Rcpp::RObject rcpp_result_gen;\n Rcpp::traits::input_parameter< std::string >::type op(opSEXP);\n Rcpp::traits::input_parameter< Rcpp::List >::type sfcx(sfcxSEXP);\n Rcpp::traits::input_parameter< Rcpp::List >::type sfcy(sfcySEXP);\n rcpp_result_gen = Rcpp::wrap(CPL_geos_op2_by_element(op, sfcx, sfcy));\n return rcpp_result_gen;\nEND_RCPP\n}\n// CPL_geos_dist\nRcpp::NumericMatrix CPL_geos_dist(Rcpp::List sfc0, Rcpp::List sfc1, Rcpp::CharacterVector which, double par);\nRcppExport SEXP _sf_CPL_geos_dist(SEXP sfc0SEXP, SEXP sfc1SEXP, SEXP whichSEXP, SEXP parSEXP) {\nBEGIN_RCPP\n Rcpp::RObject rcpp_result_gen;\n Rcpp::traits::input_parameter< Rcpp::List >::type sfc0(sfc0SEXP);\n Rcpp::traits::input_parameter< Rcpp::List >::type sfc1(sfc1SEXP);\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type which(whichSEXP);\n Rcpp::traits::input_parameter< double >::type par(parSEXP);\n rcpp_result_gen = Rcpp::wrap(CPL_geos_dist(sfc0, sfc1, which, par));\n return rcpp_result_gen;\nEND_RCPP\n}\n// CPL_geos_nearest_feature\nRcpp::IntegerVector CPL_geos_nearest_feature(Rcpp::List sfc0, Rcpp::List sfc1);\nRcppExport SEXP _sf_CPL_geos_nearest_feature(SEXP sfc0SEXP, SEXP sfc1SEXP) {\nBEGIN_RCPP\n Rcpp::RObject rcpp_result_gen;\n Rcpp::traits::input_parameter< Rcpp::List >::type sfc0(sfc0SEXP);\n Rcpp::traits::input_parameter< Rcpp::List >::type sfc1(sfc1SEXP);\n rcpp_result_gen = Rcpp::wrap(CPL_geos_nearest_feature(sfc0, sfc1));\n return rcpp_result_gen;\nEND_RCPP\n}\n// CPL_geos_nearest_points\nRcpp::List CPL_geos_nearest_points(Rcpp::List sfc0, Rcpp::List sfc1, bool pairwise);\nRcppExport SEXP _sf_CPL_geos_nearest_points(SEXP sfc0SEXP, SEXP sfc1SEXP, SEXP pairwiseSEXP) {\nBEGIN_RCPP\n Rcpp::RObject rcpp_result_gen;\n Rcpp::traits::input_parameter< Rcpp::List >::type sfc0(sfc0SEXP);\n Rcpp::traits::input_parameter< Rcpp::List >::type sfc1(sfc1SEXP);\n Rcpp::traits::input_parameter< bool >::type pairwise(pairwiseSEXP);\n rcpp_result_gen = Rcpp::wrap(CPL_geos_nearest_points(sfc0, sfc1, pairwise));\n return rcpp_result_gen;\nEND_RCPP\n}\n// CPL_transpose_sparse_incidence\nRcpp::List CPL_transpose_sparse_incidence(Rcpp::List m, int n);\nRcppExport SEXP _sf_CPL_transpose_sparse_incidence(SEXP mSEXP, SEXP nSEXP) {\nBEGIN_RCPP\n Rcpp::RObject rcpp_result_gen;\n Rcpp::traits::input_parameter< Rcpp::List >::type m(mSEXP);\n Rcpp::traits::input_parameter< int >::type n(nSEXP);\n rcpp_result_gen = Rcpp::wrap(CPL_transpose_sparse_incidence(m, n));\n return rcpp_result_gen;\nEND_RCPP\n}\n// CPL_nary_difference\nRcpp::List CPL_nary_difference(Rcpp::List sfc);\nRcppExport SEXP _sf_CPL_nary_difference(SEXP sfcSEXP) {\nBEGIN_RCPP\n Rcpp::RObject rcpp_result_gen;\n Rcpp::traits::input_parameter< Rcpp::List >::type sfc(sfcSEXP);\n rcpp_result_gen = Rcpp::wrap(CPL_nary_difference(sfc));\n return rcpp_result_gen;\nEND_RCPP\n}\n// CPL_nary_intersection\nRcpp::List CPL_nary_intersection(Rcpp::List sfc);\nRcppExport SEXP _sf_CPL_nary_intersection(SEXP sfcSEXP) {\nBEGIN_RCPP\n Rcpp::RObject rcpp_result_gen;\n Rcpp::traits::input_parameter< Rcpp::List >::type sfc(sfcSEXP);\n rcpp_result_gen = Rcpp::wrap(CPL_nary_intersection(sfc));\n return rcpp_result_gen;\nEND_RCPP\n}\n// CPL_line_project\nRcpp::NumericVector CPL_line_project(Rcpp::List lines, Rcpp::List points, bool normalized);\nRcppExport SEXP _sf_CPL_line_project(SEXP linesSEXP, SEXP pointsSEXP, SEXP normalizedSEXP) {\nBEGIN_RCPP\n Rcpp::RObject rcpp_result_gen;\n Rcpp::traits::input_parameter< Rcpp::List >::type lines(linesSEXP);\n Rcpp::traits::input_parameter< Rcpp::List >::type points(pointsSEXP);\n Rcpp::traits::input_parameter< bool >::type normalized(normalizedSEXP);\n rcpp_result_gen = Rcpp::wrap(CPL_line_project(lines, points, normalized));\n return rcpp_result_gen;\nEND_RCPP\n}\n// CPL_line_interpolate\nRcpp::List CPL_line_interpolate(Rcpp::List lines, Rcpp::NumericVector dists, bool normalized);\nRcppExport SEXP _sf_CPL_line_interpolate(SEXP linesSEXP, SEXP distsSEXP, SEXP normalizedSEXP) {\nBEGIN_RCPP\n Rcpp::RObject rcpp_result_gen;\n Rcpp::traits::input_parameter< Rcpp::List >::type lines(linesSEXP);\n Rcpp::traits::input_parameter< Rcpp::NumericVector >::type dists(distsSEXP);\n Rcpp::traits::input_parameter< bool >::type normalized(normalizedSEXP);\n rcpp_result_gen = Rcpp::wrap(CPL_line_interpolate(lines, dists, normalized));\n return rcpp_result_gen;\nEND_RCPP\n}\n// CPL_hex_to_raw\nRcpp::List CPL_hex_to_raw(Rcpp::CharacterVector cx);\nRcppExport SEXP _sf_CPL_hex_to_raw(SEXP cxSEXP) {\nBEGIN_RCPP\n Rcpp::RObject rcpp_result_gen;\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type cx(cxSEXP);\n rcpp_result_gen = Rcpp::wrap(CPL_hex_to_raw(cx));\n return rcpp_result_gen;\nEND_RCPP\n}\n// CPL_raw_to_hex\nRcpp::CharacterVector CPL_raw_to_hex(Rcpp::RawVector raw);\nRcppExport SEXP _sf_CPL_raw_to_hex(SEXP rawSEXP) {\nBEGIN_RCPP\n Rcpp::RObject rcpp_result_gen;\n Rcpp::traits::input_parameter< Rcpp::RawVector >::type raw(rawSEXP);\n rcpp_result_gen = Rcpp::wrap(CPL_raw_to_hex(raw));\n return rcpp_result_gen;\nEND_RCPP\n}\n// CPL_read_mdim\nList CPL_read_mdim(CharacterVector file, CharacterVector array_names, CharacterVector oo, IntegerVector offset, IntegerVector count, IntegerVector step, bool proxy, bool debug);\nRcppExport SEXP _sf_CPL_read_mdim(SEXP fileSEXP, SEXP array_namesSEXP, SEXP ooSEXP, SEXP offsetSEXP, SEXP countSEXP, SEXP stepSEXP, SEXP proxySEXP, SEXP debugSEXP) {\nBEGIN_RCPP\n Rcpp::RObject rcpp_result_gen;\n Rcpp::traits::input_parameter< CharacterVector >::type file(fileSEXP);\n Rcpp::traits::input_parameter< CharacterVector >::type array_names(array_namesSEXP);\n Rcpp::traits::input_parameter< CharacterVector >::type oo(ooSEXP);\n Rcpp::traits::input_parameter< IntegerVector >::type offset(offsetSEXP);\n Rcpp::traits::input_parameter< IntegerVector >::type count(countSEXP);\n Rcpp::traits::input_parameter< IntegerVector >::type step(stepSEXP);\n Rcpp::traits::input_parameter< bool >::type proxy(proxySEXP);\n Rcpp::traits::input_parameter< bool >::type debug(debugSEXP);\n rcpp_result_gen = Rcpp::wrap(CPL_read_mdim(file, array_names, oo, offset, count, step, proxy, debug));\n return rcpp_result_gen;\nEND_RCPP\n}\n// CPL_write_mdim\nList CPL_write_mdim(CharacterVector name, CharacterVector driver, IntegerVector dimensions, List variables, CharacterVector wkt, CharacterVector xy, CharacterVector RootGroupOptions, CharacterVector CreationOptions, bool as_float);\nRcppExport SEXP _sf_CPL_write_mdim(SEXP nameSEXP, SEXP driverSEXP, SEXP dimensionsSEXP, SEXP variablesSEXP, SEXP wktSEXP, SEXP xySEXP, SEXP RootGroupOptionsSEXP, SEXP CreationOptionsSEXP, SEXP as_floatSEXP) {\nBEGIN_RCPP\n Rcpp::RObject rcpp_result_gen;\n Rcpp::traits::input_parameter< CharacterVector >::type name(nameSEXP);\n Rcpp::traits::input_parameter< CharacterVector >::type driver(driverSEXP);\n Rcpp::traits::input_parameter< IntegerVector >::type dimensions(dimensionsSEXP);\n Rcpp::traits::input_parameter< List >::type variables(variablesSEXP);\n Rcpp::traits::input_parameter< CharacterVector >::type wkt(wktSEXP);\n Rcpp::traits::input_parameter< CharacterVector >::type xy(xySEXP);\n Rcpp::traits::input_parameter< CharacterVector >::type RootGroupOptions(RootGroupOptionsSEXP);\n Rcpp::traits::input_parameter< CharacterVector >::type CreationOptions(CreationOptionsSEXP);\n Rcpp::traits::input_parameter< bool >::type as_float(as_floatSEXP);\n rcpp_result_gen = Rcpp::wrap(CPL_write_mdim(name, driver, dimensions, variables, wkt, xy, RootGroupOptions, CreationOptions, as_float));\n return rcpp_result_gen;\nEND_RCPP\n}\n// opp_sfc\nSEXP opp_sfc(SEXP geom, SEXP value, SEXP mult, SEXP crs);\nRcppExport SEXP _sf_opp_sfc(SEXP geomSEXP, SEXP valueSEXP, SEXP multSEXP, SEXP crsSEXP) {\nBEGIN_RCPP\n Rcpp::RObject rcpp_result_gen;\n Rcpp::traits::input_parameter< SEXP >::type geom(geomSEXP);\n Rcpp::traits::input_parameter< SEXP >::type value(valueSEXP);\n Rcpp::traits::input_parameter< SEXP >::type mult(multSEXP);\n Rcpp::traits::input_parameter< SEXP >::type crs(crsSEXP);\n rcpp_result_gen = Rcpp::wrap(opp_sfc(geom, value, mult, crs));\n return rcpp_result_gen;\nEND_RCPP\n}\n// normalize_sfc\nSEXP normalize_sfc(SEXP geom, SEXP min, SEXP range, SEXP crs);\nRcppExport SEXP _sf_normalize_sfc(SEXP geomSEXP, SEXP minSEXP, SEXP rangeSEXP, SEXP crsSEXP) {\nBEGIN_RCPP\n Rcpp::RObject rcpp_result_gen;\n Rcpp::traits::input_parameter< SEXP >::type geom(geomSEXP);\n Rcpp::traits::input_parameter< SEXP >::type min(minSEXP);\n Rcpp::traits::input_parameter< SEXP >::type range(rangeSEXP);\n Rcpp::traits::input_parameter< SEXP >::type crs(crsSEXP);\n rcpp_result_gen = Rcpp::wrap(normalize_sfc(geom, min, range, crs));\n return rcpp_result_gen;\nEND_RCPP\n}\n// CPL_polygonize\nRcpp::List CPL_polygonize(Rcpp::CharacterVector raster, Rcpp::CharacterVector mask_name, Rcpp::CharacterVector raster_driver, Rcpp::CharacterVector vector_driver, Rcpp::CharacterVector vector_dsn, Rcpp::CharacterVector options, Rcpp::IntegerVector iPixValField, Rcpp::CharacterVector contour_options, bool use_contours, bool use_integer);\nRcppExport SEXP _sf_CPL_polygonize(SEXP rasterSEXP, SEXP mask_nameSEXP, SEXP raster_driverSEXP, SEXP vector_driverSEXP, SEXP vector_dsnSEXP, SEXP optionsSEXP, SEXP iPixValFieldSEXP, SEXP contour_optionsSEXP, SEXP use_contoursSEXP, SEXP use_integerSEXP) {\nBEGIN_RCPP\n Rcpp::RObject rcpp_result_gen;\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type raster(rasterSEXP);\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type mask_name(mask_nameSEXP);\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type raster_driver(raster_driverSEXP);\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type vector_driver(vector_driverSEXP);\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type vector_dsn(vector_dsnSEXP);\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type options(optionsSEXP);\n Rcpp::traits::input_parameter< Rcpp::IntegerVector >::type iPixValField(iPixValFieldSEXP);\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type contour_options(contour_optionsSEXP);\n Rcpp::traits::input_parameter< bool >::type use_contours(use_contoursSEXP);\n Rcpp::traits::input_parameter< bool >::type use_integer(use_integerSEXP);\n rcpp_result_gen = Rcpp::wrap(CPL_polygonize(raster, mask_name, raster_driver, vector_driver, vector_dsn, options, iPixValField, contour_options, use_contours, use_integer));\n return rcpp_result_gen;\nEND_RCPP\n}\n// CPL_rasterize\nRcpp::List CPL_rasterize(Rcpp::CharacterVector raster, Rcpp::CharacterVector raster_driver, Rcpp::List sfc, Rcpp::NumericVector values, Rcpp::CharacterVector options, Rcpp::NumericVector NA_value);\nRcppExport SEXP _sf_CPL_rasterize(SEXP rasterSEXP, SEXP raster_driverSEXP, SEXP sfcSEXP, SEXP valuesSEXP, SEXP optionsSEXP, SEXP NA_valueSEXP) {\nBEGIN_RCPP\n Rcpp::RObject rcpp_result_gen;\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type raster(rasterSEXP);\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type raster_driver(raster_driverSEXP);\n Rcpp::traits::input_parameter< Rcpp::List >::type sfc(sfcSEXP);\n Rcpp::traits::input_parameter< Rcpp::NumericVector >::type values(valuesSEXP);\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type options(optionsSEXP);\n Rcpp::traits::input_parameter< Rcpp::NumericVector >::type NA_value(NA_valueSEXP);\n rcpp_result_gen = Rcpp::wrap(CPL_rasterize(raster, raster_driver, sfc, values, options, NA_value));\n return rcpp_result_gen;\nEND_RCPP\n}\n// CPL_proj_h\nRcpp::LogicalVector CPL_proj_h(bool b);\nRcppExport SEXP _sf_CPL_proj_h(SEXP bSEXP) {\nBEGIN_RCPP\n Rcpp::RObject rcpp_result_gen;\n Rcpp::traits::input_parameter< bool >::type b(bSEXP);\n rcpp_result_gen = Rcpp::wrap(CPL_proj_h(b));\n return rcpp_result_gen;\nEND_RCPP\n}\n// CPL_get_pipelines\nRcpp::DataFrame CPL_get_pipelines(Rcpp::CharacterVector crs, Rcpp::CharacterVector authority, Rcpp::NumericVector AOI, Rcpp::CharacterVector Use, Rcpp::CharacterVector grid_availability, double accuracy, bool strict_containment, bool axis_order_auth_compl);\nRcppExport SEXP _sf_CPL_get_pipelines(SEXP crsSEXP, SEXP authoritySEXP, SEXP AOISEXP, SEXP UseSEXP, SEXP grid_availabilitySEXP, SEXP accuracySEXP, SEXP strict_containmentSEXP, SEXP axis_order_auth_complSEXP) {\nBEGIN_RCPP\n Rcpp::RObject rcpp_result_gen;\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type crs(crsSEXP);\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type authority(authoritySEXP);\n Rcpp::traits::input_parameter< Rcpp::NumericVector >::type AOI(AOISEXP);\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type Use(UseSEXP);\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type grid_availability(grid_availabilitySEXP);\n Rcpp::traits::input_parameter< double >::type accuracy(accuracySEXP);\n Rcpp::traits::input_parameter< bool >::type strict_containment(strict_containmentSEXP);\n Rcpp::traits::input_parameter< bool >::type axis_order_auth_compl(axis_order_auth_complSEXP);\n rcpp_result_gen = Rcpp::wrap(CPL_get_pipelines(crs, authority, AOI, Use, grid_availability, accuracy, strict_containment, axis_order_auth_compl));\n return rcpp_result_gen;\nEND_RCPP\n}\n// CPL_get_data_dir\nRcpp::CharacterVector CPL_get_data_dir(bool from_proj);\nRcppExport SEXP _sf_CPL_get_data_dir(SEXP from_projSEXP) {\nBEGIN_RCPP\n Rcpp::RObject rcpp_result_gen;\n Rcpp::traits::input_parameter< bool >::type from_proj(from_projSEXP);\n rcpp_result_gen = Rcpp::wrap(CPL_get_data_dir(from_proj));\n return rcpp_result_gen;\nEND_RCPP\n}\n// CPL_is_network_enabled\nRcpp::LogicalVector CPL_is_network_enabled(bool b);\nRcppExport SEXP _sf_CPL_is_network_enabled(SEXP bSEXP) {\nBEGIN_RCPP\n Rcpp::RObject rcpp_result_gen;\n Rcpp::traits::input_parameter< bool >::type b(bSEXP);\n rcpp_result_gen = Rcpp::wrap(CPL_is_network_enabled(b));\n return rcpp_result_gen;\nEND_RCPP\n}\n// CPL_enable_network\nRcpp::CharacterVector CPL_enable_network(Rcpp::CharacterVector url, bool enable);\nRcppExport SEXP _sf_CPL_enable_network(SEXP urlSEXP, SEXP enableSEXP) {\nBEGIN_RCPP\n Rcpp::RObject rcpp_result_gen;\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type url(urlSEXP);\n Rcpp::traits::input_parameter< bool >::type enable(enableSEXP);\n rcpp_result_gen = Rcpp::wrap(CPL_enable_network(url, enable));\n return rcpp_result_gen;\nEND_RCPP\n}\n// CPL_set_data_dir\nRcpp::LogicalVector CPL_set_data_dir(Rcpp::CharacterVector data_dir, bool with_proj);\nRcppExport SEXP _sf_CPL_set_data_dir(SEXP data_dirSEXP, SEXP with_projSEXP) {\nBEGIN_RCPP\n Rcpp::RObject rcpp_result_gen;\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type data_dir(data_dirSEXP);\n Rcpp::traits::input_parameter< bool >::type with_proj(with_projSEXP);\n rcpp_result_gen = Rcpp::wrap(CPL_set_data_dir(data_dir, with_proj));\n return rcpp_result_gen;\nEND_RCPP\n}\n// CPL_use_proj4_init_rules\nRcpp::LogicalVector CPL_use_proj4_init_rules(Rcpp::IntegerVector v);\nRcppExport SEXP _sf_CPL_use_proj4_init_rules(SEXP vSEXP) {\nBEGIN_RCPP\n Rcpp::RObject rcpp_result_gen;\n Rcpp::traits::input_parameter< Rcpp::IntegerVector >::type v(vSEXP);\n rcpp_result_gen = Rcpp::wrap(CPL_use_proj4_init_rules(v));\n return rcpp_result_gen;\nEND_RCPP\n}\n// CPL_proj_version\nstd::string CPL_proj_version(bool b);\nRcppExport SEXP _sf_CPL_proj_version(SEXP bSEXP) {\nBEGIN_RCPP\n Rcpp::RObject rcpp_result_gen;\n Rcpp::traits::input_parameter< bool >::type b(bSEXP);\n rcpp_result_gen = Rcpp::wrap(CPL_proj_version(b));\n return rcpp_result_gen;\nEND_RCPP\n}\n// CPL_proj_is_valid\nRcpp::List CPL_proj_is_valid(std::string proj4string);\nRcppExport SEXP _sf_CPL_proj_is_valid(SEXP proj4stringSEXP) {\nBEGIN_RCPP\n Rcpp::RObject rcpp_result_gen;\n Rcpp::traits::input_parameter< std::string >::type proj4string(proj4stringSEXP);\n rcpp_result_gen = Rcpp::wrap(CPL_proj_is_valid(proj4string));\n return rcpp_result_gen;\nEND_RCPP\n}\n// CPL_have_datum_files\nbool CPL_have_datum_files(SEXP foo);\nRcppExport SEXP _sf_CPL_have_datum_files(SEXP fooSEXP) {\nBEGIN_RCPP\n Rcpp::RObject rcpp_result_gen;\n Rcpp::traits::input_parameter< SEXP >::type foo(fooSEXP);\n rcpp_result_gen = Rcpp::wrap(CPL_have_datum_files(foo));\n return rcpp_result_gen;\nEND_RCPP\n}\n// CPL_proj_direct\nRcpp::NumericMatrix CPL_proj_direct(Rcpp::CharacterVector from_to, Rcpp::NumericMatrix pts, bool keep, bool warn, bool authority_compliant);\nRcppExport SEXP _sf_CPL_proj_direct(SEXP from_toSEXP, SEXP ptsSEXP, SEXP keepSEXP, SEXP warnSEXP, SEXP authority_compliantSEXP) {\nBEGIN_RCPP\n Rcpp::RObject rcpp_result_gen;\n Rcpp::traits::input_parameter< Rcpp::CharacterVector >::type from_to(from_toSEXP);\n Rcpp::traits::input_parameter< Rcpp::NumericMatrix >::type pts(ptsSEXP);\n Rcpp::traits::input_parameter< bool >::type keep(keepSEXP);\n Rcpp::traits::input_parameter< bool >::type warn(warnSEXP);\n Rcpp::traits::input_parameter< bool >::type authority_compliant(authority_compliantSEXP);\n rcpp_result_gen = Rcpp::wrap(CPL_proj_direct(from_to, pts, keep, warn, authority_compliant));\n return rcpp_result_gen;\nEND_RCPP\n}\n// CPL_proj_info\nRcpp::List CPL_proj_info(int type);\nRcppExport SEXP _sf_CPL_proj_info(SEXP typeSEXP) {\nBEGIN_RCPP\n Rcpp::RObject rcpp_result_gen;\n Rcpp::traits::input_parameter< int >::type type(typeSEXP);\n rcpp_result_gen = Rcpp::wrap(CPL_proj_info(type));\n return rcpp_result_gen;\nEND_RCPP\n}\n// CPL_xy2sfc\nList CPL_xy2sfc(NumericMatrix cc, IntegerVector dim, bool to_points, IntegerVector which, bool cc_has_NAs);\nRcppExport SEXP _sf_CPL_xy2sfc(SEXP ccSEXP, SEXP dimSEXP, SEXP to_pointsSEXP, SEXP whichSEXP, SEXP cc_has_NAsSEXP) {\nBEGIN_RCPP\n Rcpp::RObject rcpp_result_gen;\n Rcpp::traits::input_parameter< NumericMatrix >::type cc(ccSEXP);\n Rcpp::traits::input_parameter< IntegerVector >::type dim(dimSEXP);\n Rcpp::traits::input_parameter< bool >::type to_points(to_pointsSEXP);\n Rcpp::traits::input_parameter< IntegerVector >::type which(whichSEXP);\n Rcpp::traits::input_parameter< bool >::type cc_has_NAs(cc_has_NAsSEXP);\n rcpp_result_gen = Rcpp::wrap(CPL_xy2sfc(cc, dim, to_points, which, cc_has_NAs));\n return rcpp_result_gen;\nEND_RCPP\n}\n// sfc_is_null\nLogicalVector sfc_is_null(List sfc);\nRcppExport SEXP _sf_sfc_is_null(SEXP sfcSEXP) {\nBEGIN_RCPP\n Rcpp::RObject rcpp_result_gen;\n Rcpp::traits::input_parameter< List >::type sfc(sfcSEXP);\n rcpp_result_gen = Rcpp::wrap(sfc_is_null(sfc));\n return rcpp_result_gen;\nEND_RCPP\n}\n// sfc_unique_sfg_dims_and_types\nList sfc_unique_sfg_dims_and_types(List sfc);\nRcppExport SEXP _sf_sfc_unique_sfg_dims_and_types(SEXP sfcSEXP) {\nBEGIN_RCPP\n Rcpp::RObject rcpp_result_gen;\n Rcpp::traits::input_parameter< List >::type sfc(sfcSEXP);\n rcpp_result_gen = Rcpp::wrap(sfc_unique_sfg_dims_and_types(sfc));\n return rcpp_result_gen;\nEND_RCPP\n}\n// sfc_is_empty\nLogicalVector sfc_is_empty(List sfc);\nRcppExport SEXP _sf_sfc_is_empty(SEXP sfcSEXP) {\nBEGIN_RCPP\n Rcpp::RObject rcpp_result_gen;\n Rcpp::traits::input_parameter< List >::type sfc(sfcSEXP);\n rcpp_result_gen = Rcpp::wrap(sfc_is_empty(sfc));\n return rcpp_result_gen;\nEND_RCPP\n}\n// sfc_is_full\nLogicalVector sfc_is_full(List sfc);\nRcppExport SEXP _sf_sfc_is_full(SEXP sfcSEXP) {\nBEGIN_RCPP\n Rcpp::RObject rcpp_result_gen;\n Rcpp::traits::input_parameter< List >::type sfc(sfcSEXP);\n rcpp_result_gen = Rcpp::wrap(sfc_is_full(sfc));\n return rcpp_result_gen;\nEND_RCPP\n}\n// points_cpp\nList points_cpp(NumericMatrix pts, CharacterVector gdim);\nRcppExport SEXP _sf_points_cpp(SEXP ptsSEXP, SEXP gdimSEXP) {\nBEGIN_RCPP\n Rcpp::RObject rcpp_result_gen;\n Rcpp::traits::input_parameter< NumericMatrix >::type pts(ptsSEXP);\n Rcpp::traits::input_parameter< CharacterVector >::type gdim(gdimSEXP);\n rcpp_result_gen = Rcpp::wrap(points_cpp(pts, gdim));\n return rcpp_result_gen;\nEND_RCPP\n}\n// CPL_signed_area\ndouble CPL_signed_area(NumericMatrix pts);\nRcppExport SEXP _sf_CPL_signed_area(SEXP ptsSEXP) {\nBEGIN_RCPP\n Rcpp::RObject rcpp_result_gen;\n Rcpp::traits::input_parameter< NumericMatrix >::type pts(ptsSEXP);\n rcpp_result_gen = Rcpp::wrap(CPL_signed_area(pts));\n return rcpp_result_gen;\nEND_RCPP\n}\n// CPL_get_metadata\nCharacterVector CPL_get_metadata(CharacterVector obj, CharacterVector domain_item, CharacterVector options);\nRcppExport SEXP _sf_CPL_get_metadata(SEXP objSEXP, SEXP domain_itemSEXP, SEXP optionsSEXP) {\nBEGIN_RCPP\n Rcpp::RObject rcpp_result_gen;\n Rcpp::traits::input_parameter< CharacterVector >::type obj(objSEXP);\n Rcpp::traits::input_parameter< CharacterVector >::type domain_item(domain_itemSEXP);\n Rcpp::traits::input_parameter< CharacterVector >::type options(optionsSEXP);\n rcpp_result_gen = Rcpp::wrap(CPL_get_metadata(obj, domain_item, options));\n return rcpp_result_gen;\nEND_RCPP\n}\n// CPL_get_crs\nList CPL_get_crs(CharacterVector obj, CharacterVector options);\nRcppExport SEXP _sf_CPL_get_crs(SEXP objSEXP, SEXP optionsSEXP) {\nBEGIN_RCPP\n Rcpp::RObject rcpp_result_gen;\n Rcpp::traits::input_parameter< CharacterVector >::type obj(objSEXP);\n Rcpp::traits::input_parameter< CharacterVector >::type options(optionsSEXP);\n rcpp_result_gen = Rcpp::wrap(CPL_get_crs(obj, options));\n return rcpp_result_gen;\nEND_RCPP\n}\n// CPL_inv_geotransform\nNumericVector CPL_inv_geotransform(NumericVector gt_r);\nRcppExport SEXP _sf_CPL_inv_geotransform(SEXP gt_rSEXP) {\nBEGIN_RCPP\n Rcpp::RObject rcpp_result_gen;\n Rcpp::traits::input_parameter< NumericVector >::type gt_r(gt_rSEXP);\n rcpp_result_gen = Rcpp::wrap(CPL_inv_geotransform(gt_r));\n return rcpp_result_gen;\nEND_RCPP\n}\n// CPL_read_gdal\nList CPL_read_gdal(CharacterVector fname, CharacterVector options, CharacterVector driver, bool read_data, NumericVector NA_value, List RasterIO_parameters, double max_cells);\nRcppExport SEXP _sf_CPL_read_gdal(SEXP fnameSEXP, SEXP optionsSEXP, SEXP driverSEXP, SEXP read_dataSEXP, SEXP NA_valueSEXP, SEXP RasterIO_parametersSEXP, SEXP max_cellsSEXP) {\nBEGIN_RCPP\n Rcpp::RObject rcpp_result_gen;\n Rcpp::traits::input_parameter< CharacterVector >::type fname(fnameSEXP);\n Rcpp::traits::input_parameter< CharacterVector >::type options(optionsSEXP);\n Rcpp::traits::input_parameter< CharacterVector >::type driver(driverSEXP);\n Rcpp::traits::input_parameter< bool >::type read_data(read_dataSEXP);\n Rcpp::traits::input_parameter< NumericVector >::type NA_value(NA_valueSEXP);\n Rcpp::traits::input_parameter< List >::type RasterIO_parameters(RasterIO_parametersSEXP);\n Rcpp::traits::input_parameter< double >::type max_cells(max_cellsSEXP);\n rcpp_result_gen = Rcpp::wrap(CPL_read_gdal(fname, options, driver, read_data, NA_value, RasterIO_parameters, max_cells));\n return rcpp_result_gen;\nEND_RCPP\n}\n// CPL_write_gdal\nvoid CPL_write_gdal(NumericMatrix x, CharacterVector fname, CharacterVector driver, CharacterVector options, CharacterVector Type, IntegerVector dims, IntegerVector from, NumericVector gt, CharacterVector p4s, NumericVector na_val, NumericVector scale_offset, bool create, bool only_create);\nRcppExport SEXP _sf_CPL_write_gdal(SEXP xSEXP, SEXP fnameSEXP, SEXP driverSEXP, SEXP optionsSEXP, SEXP TypeSEXP, SEXP dimsSEXP, SEXP fromSEXP, SEXP gtSEXP, SEXP p4sSEXP, SEXP na_valSEXP, SEXP scale_offsetSEXP, SEXP createSEXP, SEXP only_createSEXP) {\nBEGIN_RCPP\n Rcpp::traits::input_parameter< NumericMatrix >::type x(xSEXP);\n Rcpp::traits::input_parameter< CharacterVector >::type fname(fnameSEXP);\n Rcpp::traits::input_parameter< CharacterVector >::type driver(driverSEXP);\n Rcpp::traits::input_parameter< CharacterVector >::type options(optionsSEXP);\n Rcpp::traits::input_parameter< CharacterVector >::type Type(TypeSEXP);\n Rcpp::traits::input_parameter< IntegerVector >::type dims(dimsSEXP);\n Rcpp::traits::input_parameter< IntegerVector >::type from(fromSEXP);\n Rcpp::traits::input_parameter< NumericVector >::type gt(gtSEXP);\n Rcpp::traits::input_parameter< CharacterVector >::type p4s(p4sSEXP);\n Rcpp::traits::input_parameter< NumericVector >::type na_val(na_valSEXP);\n Rcpp::traits::input_parameter< NumericVector >::type scale_offset(scale_offsetSEXP);\n Rcpp::traits::input_parameter< bool >::type create(createSEXP);\n Rcpp::traits::input_parameter< bool >::type only_create(only_createSEXP);\n CPL_write_gdal(x, fname, driver, options, Type, dims, from, gt, p4s, na_val, scale_offset, create, only_create);\n return R_NilValue;\nEND_RCPP\n}\n// CPL_extract\nNumericMatrix CPL_extract(CharacterVector input, NumericMatrix xy, CharacterVector interpolate);\nRcppExport SEXP _sf_CPL_extract(SEXP inputSEXP, SEXP xySEXP, SEXP interpolateSEXP) {\nBEGIN_RCPP\n Rcpp::RObject rcpp_result_gen;\n Rcpp::traits::input_parameter< CharacterVector >::type input(inputSEXP);\n Rcpp::traits::input_parameter< NumericMatrix >::type xy(xySEXP);\n Rcpp::traits::input_parameter< CharacterVector >::type interpolate(interpolateSEXP);\n rcpp_result_gen = Rcpp::wrap(CPL_extract(input, xy, interpolate));\n return rcpp_result_gen;\nEND_RCPP\n}\n// CPL_create\nvoid CPL_create(CharacterVector file, IntegerVector nxy, NumericVector value, CharacterVector wkt, NumericVector xlim, NumericVector ylim);\nRcppExport SEXP _sf_CPL_create(SEXP fileSEXP, SEXP nxySEXP, SEXP valueSEXP, SEXP wktSEXP, SEXP xlimSEXP, SEXP ylimSEXP) {\nBEGIN_RCPP\n Rcpp::traits::input_parameter< CharacterVector >::type file(fileSEXP);\n Rcpp::traits::input_parameter< IntegerVector >::type nxy(nxySEXP);\n Rcpp::traits::input_parameter< NumericVector >::type value(valueSEXP);\n Rcpp::traits::input_parameter< CharacterVector >::type wkt(wktSEXP);\n Rcpp::traits::input_parameter< NumericVector >::type xlim(xlimSEXP);\n Rcpp::traits::input_parameter< NumericVector >::type ylim(ylimSEXP);\n CPL_create(file, nxy, value, wkt, xlim, ylim);\n return R_NilValue;\nEND_RCPP\n}\n// CPL_read_wkb\nRcpp::List CPL_read_wkb(Rcpp::List wkb_list, bool EWKB, bool spatialite);\nstatic SEXP _sf_CPL_read_wkb_try(SEXP wkb_listSEXP, SEXP EWKBSEXP, SEXP spatialiteSEXP) {\nBEGIN_RCPP\n Rcpp::RObject rcpp_result_gen;\n Rcpp::traits::input_parameter< Rcpp::List >::type wkb_list(wkb_listSEXP);\n Rcpp::traits::input_parameter< bool >::type EWKB(EWKBSEXP);\n Rcpp::traits::input_parameter< bool >::type spatialite(spatialiteSEXP);\n rcpp_result_gen = Rcpp::wrap(CPL_read_wkb(wkb_list, EWKB, spatialite));\n return rcpp_result_gen;\nEND_RCPP_RETURN_ERROR\n}\nRcppExport SEXP _sf_CPL_read_wkb(SEXP wkb_listSEXP, SEXP EWKBSEXP, SEXP spatialiteSEXP) {\n SEXP rcpp_result_gen;\n {\n rcpp_result_gen = PROTECT(_sf_CPL_read_wkb_try(wkb_listSEXP, EWKBSEXP, spatialiteSEXP));\n }\n Rboolean rcpp_isInterrupt_gen = Rf_inherits(rcpp_result_gen, \"interrupted-error\");\n if (rcpp_isInterrupt_gen) {\n UNPROTECT(1);\n Rf_onintr();\n }\n bool rcpp_isLongjump_gen = Rcpp::internal::isLongjumpSentinel(rcpp_result_gen);\n if (rcpp_isLongjump_gen) {\n Rcpp::internal::resumeJump(rcpp_result_gen);\n }\n Rboolean rcpp_isError_gen = Rf_inherits(rcpp_result_gen, \"try-error\");\n if (rcpp_isError_gen) {\n SEXP rcpp_msgSEXP_gen = Rf_asChar(rcpp_result_gen);\n UNPROTECT(1);\n (Rf_error)(\"%s\", CHAR(rcpp_msgSEXP_gen));\n }\n UNPROTECT(1);\n return rcpp_result_gen;\n}\n// CPL_write_wkb\nRcpp::List CPL_write_wkb(Rcpp::List sfc, bool EWKB);\nstatic SEXP _sf_CPL_write_wkb_try(SEXP sfcSEXP, SEXP EWKBSEXP) {\nBEGIN_RCPP\n Rcpp::RObject rcpp_result_gen;\n Rcpp::traits::input_parameter< Rcpp::List >::type sfc(sfcSEXP);\n Rcpp::traits::input_parameter< bool >::type EWKB(EWKBSEXP);\n rcpp_result_gen = Rcpp::wrap(CPL_write_wkb(sfc, EWKB));\n return rcpp_result_gen;\nEND_RCPP_RETURN_ERROR\n}\nRcppExport SEXP _sf_CPL_write_wkb(SEXP sfcSEXP, SEXP EWKBSEXP) {\n SEXP rcpp_result_gen;\n {\n rcpp_result_gen = PROTECT(_sf_CPL_write_wkb_try(sfcSEXP, EWKBSEXP));\n }\n Rboolean rcpp_isInterrupt_gen = Rf_inherits(rcpp_result_gen, \"interrupted-error\");\n if (rcpp_isInterrupt_gen) {\n UNPROTECT(1);\n Rf_onintr();\n }\n bool rcpp_isLongjump_gen = Rcpp::internal::isLongjumpSentinel(rcpp_result_gen);\n if (rcpp_isLongjump_gen) {\n Rcpp::internal::resumeJump(rcpp_result_gen);\n }\n Rboolean rcpp_isError_gen = Rf_inherits(rcpp_result_gen, \"try-error\");\n if (rcpp_isError_gen) {\n SEXP rcpp_msgSEXP_gen = Rf_asChar(rcpp_result_gen);\n UNPROTECT(1);\n (Rf_error)(\"%s\", CHAR(rcpp_msgSEXP_gen));\n }\n UNPROTECT(1);\n return rcpp_result_gen;\n}\n// CPL_get_z_range\nRcpp::NumericVector CPL_get_z_range(Rcpp::List sf, int depth);\nRcppExport SEXP _sf_CPL_get_z_range(SEXP sfSEXP, SEXP depthSEXP) {\nBEGIN_RCPP\n Rcpp::RObject rcpp_result_gen;\n Rcpp::traits::input_parameter< Rcpp::List >::type sf(sfSEXP);\n Rcpp::traits::input_parameter< int >::type depth(depthSEXP);\n rcpp_result_gen = Rcpp::wrap(CPL_get_z_range(sf, depth));\n return rcpp_result_gen;\nEND_RCPP\n}\n// CPL_get_m_range\nRcpp::NumericVector CPL_get_m_range(Rcpp::List sf, int depth);\nRcppExport SEXP _sf_CPL_get_m_range(SEXP sfSEXP, SEXP depthSEXP) {\nBEGIN_RCPP\n Rcpp::RObject rcpp_result_gen;\n Rcpp::traits::input_parameter< Rcpp::List >::type sf(sfSEXP);\n Rcpp::traits::input_parameter< int >::type depth(depthSEXP);\n rcpp_result_gen = Rcpp::wrap(CPL_get_m_range(sf, depth));\n return rcpp_result_gen;\nEND_RCPP\n}\n\n// validate (ensure exported C++ functions exist before calling them)\nstatic int _sf_RcppExport_validate(const char* sig) { \n static std::set signatures;\n if (signatures.empty()) {\n signatures.insert(\"Rcpp::List(*CPL_read_wkb)(Rcpp::List,bool,bool)\");\n signatures.insert(\"Rcpp::List(*CPL_write_wkb)(Rcpp::List,bool)\");\n }\n return signatures.find(sig) != signatures.end();\n}\n\n// registerCCallable (register entry points for exported C++ functions)\nRcppExport SEXP _sf_RcppExport_registerCCallable() { \n R_RegisterCCallable(\"sf\", \"_sf_CPL_read_wkb\", (DL_FUNC)_sf_CPL_read_wkb_try);\n R_RegisterCCallable(\"sf\", \"_sf_CPL_write_wkb\", (DL_FUNC)_sf_CPL_write_wkb_try);\n R_RegisterCCallable(\"sf\", \"_sf_RcppExport_validate\", (DL_FUNC)_sf_RcppExport_validate);\n return R_NilValue;\n}\n\nstatic const R_CallMethodDef CallEntries[] = {\n {\"_sf_CPL_get_bbox\", (DL_FUNC) &_sf_CPL_get_bbox, 2},\n {\"_sf_CPL_gdal_init\", (DL_FUNC) &_sf_CPL_gdal_init, 0},\n {\"_sf_CPL_gdal_cleanup_all\", (DL_FUNC) &_sf_CPL_gdal_cleanup_all, 0},\n {\"_sf_CPL_gdal_version\", (DL_FUNC) &_sf_CPL_gdal_version, 1},\n {\"_sf_CPL_crs_parameters\", (DL_FUNC) &_sf_CPL_crs_parameters, 1},\n {\"_sf_CPL_crs_equivalent\", (DL_FUNC) &_sf_CPL_crs_equivalent, 2},\n {\"_sf_CPL_crs_from_input\", (DL_FUNC) &_sf_CPL_crs_from_input, 1},\n {\"_sf_CPL_roundtrip\", (DL_FUNC) &_sf_CPL_roundtrip, 1},\n {\"_sf_CPL_circularstring_to_linestring\", (DL_FUNC) &_sf_CPL_circularstring_to_linestring, 1},\n {\"_sf_CPL_multisurface_to_multipolygon\", (DL_FUNC) &_sf_CPL_multisurface_to_multipolygon, 1},\n {\"_sf_CPL_compoundcurve_to_linear\", (DL_FUNC) &_sf_CPL_compoundcurve_to_linear, 1},\n {\"_sf_CPL_curve_to_linestring\", (DL_FUNC) &_sf_CPL_curve_to_linestring, 1},\n {\"_sf_CPL_can_transform\", (DL_FUNC) &_sf_CPL_can_transform, 2},\n {\"_sf_CPL_transform\", (DL_FUNC) &_sf_CPL_transform, 7},\n {\"_sf_CPL_transform_bounds\", (DL_FUNC) &_sf_CPL_transform_bounds, 3},\n {\"_sf_CPL_wrap_dateline\", (DL_FUNC) &_sf_CPL_wrap_dateline, 3},\n {\"_sf_CPL_get_gdal_drivers\", (DL_FUNC) &_sf_CPL_get_gdal_drivers, 1},\n {\"_sf_CPL_sfc_from_wkt\", (DL_FUNC) &_sf_CPL_sfc_from_wkt, 1},\n {\"_sf_CPL_gdal_with_geos\", (DL_FUNC) &_sf_CPL_gdal_with_geos, 0},\n {\"_sf_CPL_axis_order_authority_compliant\", (DL_FUNC) &_sf_CPL_axis_order_authority_compliant, 1},\n {\"_sf_CPL_compressors\", (DL_FUNC) &_sf_CPL_compressors, 0},\n {\"_sf_CPL_area\", (DL_FUNC) &_sf_CPL_area, 1},\n {\"_sf_CPL_gdal_dimension\", (DL_FUNC) &_sf_CPL_gdal_dimension, 2},\n {\"_sf_CPL_length\", (DL_FUNC) &_sf_CPL_length, 1},\n {\"_sf_CPL_gdal_segmentize\", (DL_FUNC) &_sf_CPL_gdal_segmentize, 2},\n {\"_sf_CPL_gdal_linestring_sample\", (DL_FUNC) &_sf_CPL_gdal_linestring_sample, 2},\n {\"_sf_CPL_get_layers\", (DL_FUNC) &_sf_CPL_get_layers, 3},\n {\"_sf_CPL_read_ogr\", (DL_FUNC) &_sf_CPL_read_ogr, 14},\n {\"_sf_CPL_read_gdal_stream\", (DL_FUNC) &_sf_CPL_read_gdal_stream, 12},\n {\"_sf_CPL_gdalinfo\", (DL_FUNC) &_sf_CPL_gdalinfo, 4},\n {\"_sf_CPL_ogrinfo\", (DL_FUNC) &_sf_CPL_ogrinfo, 5},\n {\"_sf_CPL_gdaladdo\", (DL_FUNC) &_sf_CPL_gdaladdo, 8},\n {\"_sf_CPL_gdalwarp\", (DL_FUNC) &_sf_CPL_gdalwarp, 8},\n {\"_sf_CPL_gdalrasterize\", (DL_FUNC) &_sf_CPL_gdalrasterize, 8},\n {\"_sf_CPL_gdaltranslate\", (DL_FUNC) &_sf_CPL_gdaltranslate, 6},\n {\"_sf_CPL_gdalfootprint\", (DL_FUNC) &_sf_CPL_gdalfootprint, 6},\n {\"_sf_CPL_gdalvectortranslate\", (DL_FUNC) &_sf_CPL_gdalvectortranslate, 7},\n {\"_sf_CPL_gdalbuildvrt\", (DL_FUNC) &_sf_CPL_gdalbuildvrt, 6},\n {\"_sf_CPL_gdaldemprocessing\", (DL_FUNC) &_sf_CPL_gdaldemprocessing, 8},\n {\"_sf_CPL_gdalnearblack\", (DL_FUNC) &_sf_CPL_gdalnearblack, 7},\n {\"_sf_CPL_gdalgrid\", (DL_FUNC) &_sf_CPL_gdalgrid, 6},\n {\"_sf_CPL_gdalmdiminfo\", (DL_FUNC) &_sf_CPL_gdalmdiminfo, 4},\n {\"_sf_CPL_gdalmdimtranslate\", (DL_FUNC) &_sf_CPL_gdalmdimtranslate, 6},\n {\"_sf_CPL_gdal_warper\", (DL_FUNC) &_sf_CPL_gdal_warper, 7},\n {\"_sf_CPL_write_ogr\", (DL_FUNC) &_sf_CPL_write_ogr, 16},\n {\"_sf_CPL_delete_ogr\", (DL_FUNC) &_sf_CPL_delete_ogr, 4},\n {\"_sf_CPL_geos_binop\", (DL_FUNC) &_sf_CPL_geos_binop, 6},\n {\"_sf_CPL_geos_binop_by_element\", (DL_FUNC) &_sf_CPL_geos_binop_by_element, 6},\n {\"_sf_CPL_geos_is_valid_reason\", (DL_FUNC) &_sf_CPL_geos_is_valid_reason, 1},\n {\"_sf_CPL_geos_make_valid\", (DL_FUNC) &_sf_CPL_geos_make_valid, 3},\n {\"_sf_CPL_geos_is_valid\", (DL_FUNC) &_sf_CPL_geos_is_valid, 2},\n {\"_sf_CPL_geos_is_simple\", (DL_FUNC) &_sf_CPL_geos_is_simple, 1},\n {\"_sf_CPL_geos_is_empty\", (DL_FUNC) &_sf_CPL_geos_is_empty, 1},\n {\"_sf_CPL_geos_normalize\", (DL_FUNC) &_sf_CPL_geos_normalize, 1},\n {\"_sf_CPL_geos_union\", (DL_FUNC) &_sf_CPL_geos_union, 3},\n {\"_sf_CPL_geos_snap\", (DL_FUNC) &_sf_CPL_geos_snap, 3},\n {\"_sf_CPL_geos_op\", (DL_FUNC) &_sf_CPL_geos_op, 11},\n {\"_sf_CPL_geos_voronoi\", (DL_FUNC) &_sf_CPL_geos_voronoi, 4},\n {\"_sf_CPL_geos_op2\", (DL_FUNC) &_sf_CPL_geos_op2, 3},\n {\"_sf_CPL_geos_dist_by_element\", (DL_FUNC) &_sf_CPL_geos_dist_by_element, 4},\n {\"_sf_CPL_geos_version\", (DL_FUNC) &_sf_CPL_geos_version, 2},\n {\"_sf_CPL_geos_op2_by_element\", (DL_FUNC) &_sf_CPL_geos_op2_by_element, 3},\n {\"_sf_CPL_geos_dist\", (DL_FUNC) &_sf_CPL_geos_dist, 4},\n {\"_sf_CPL_geos_nearest_feature\", (DL_FUNC) &_sf_CPL_geos_nearest_feature, 2},\n {\"_sf_CPL_geos_nearest_points\", (DL_FUNC) &_sf_CPL_geos_nearest_points, 3},\n {\"_sf_CPL_transpose_sparse_incidence\", (DL_FUNC) &_sf_CPL_transpose_sparse_incidence, 2},\n {\"_sf_CPL_nary_difference\", (DL_FUNC) &_sf_CPL_nary_difference, 1},\n {\"_sf_CPL_nary_intersection\", (DL_FUNC) &_sf_CPL_nary_intersection, 1},\n {\"_sf_CPL_line_project\", (DL_FUNC) &_sf_CPL_line_project, 3},\n {\"_sf_CPL_line_interpolate\", (DL_FUNC) &_sf_CPL_line_interpolate, 3},\n {\"_sf_CPL_hex_to_raw\", (DL_FUNC) &_sf_CPL_hex_to_raw, 1},\n {\"_sf_CPL_raw_to_hex\", (DL_FUNC) &_sf_CPL_raw_to_hex, 1},\n {\"_sf_CPL_read_mdim\", (DL_FUNC) &_sf_CPL_read_mdim, 8},\n {\"_sf_CPL_write_mdim\", (DL_FUNC) &_sf_CPL_write_mdim, 9},\n {\"_sf_opp_sfc\", (DL_FUNC) &_sf_opp_sfc, 4},\n {\"_sf_normalize_sfc\", (DL_FUNC) &_sf_normalize_sfc, 4},\n {\"_sf_CPL_polygonize\", (DL_FUNC) &_sf_CPL_polygonize, 10},\n {\"_sf_CPL_rasterize\", (DL_FUNC) &_sf_CPL_rasterize, 6},\n {\"_sf_CPL_proj_h\", (DL_FUNC) &_sf_CPL_proj_h, 1},\n {\"_sf_CPL_get_pipelines\", (DL_FUNC) &_sf_CPL_get_pipelines, 8},\n {\"_sf_CPL_get_data_dir\", (DL_FUNC) &_sf_CPL_get_data_dir, 1},\n {\"_sf_CPL_is_network_enabled\", (DL_FUNC) &_sf_CPL_is_network_enabled, 1},\n {\"_sf_CPL_enable_network\", (DL_FUNC) &_sf_CPL_enable_network, 2},\n {\"_sf_CPL_set_data_dir\", (DL_FUNC) &_sf_CPL_set_data_dir, 2},\n {\"_sf_CPL_use_proj4_init_rules\", (DL_FUNC) &_sf_CPL_use_proj4_init_rules, 1},\n {\"_sf_CPL_proj_version\", (DL_FUNC) &_sf_CPL_proj_version, 1},\n {\"_sf_CPL_proj_is_valid\", (DL_FUNC) &_sf_CPL_proj_is_valid, 1},\n {\"_sf_CPL_have_datum_files\", (DL_FUNC) &_sf_CPL_have_datum_files, 1},\n {\"_sf_CPL_proj_direct\", (DL_FUNC) &_sf_CPL_proj_direct, 5},\n {\"_sf_CPL_proj_info\", (DL_FUNC) &_sf_CPL_proj_info, 1},\n {\"_sf_CPL_xy2sfc\", (DL_FUNC) &_sf_CPL_xy2sfc, 5},\n {\"_sf_sfc_is_null\", (DL_FUNC) &_sf_sfc_is_null, 1},\n {\"_sf_sfc_unique_sfg_dims_and_types\", (DL_FUNC) &_sf_sfc_unique_sfg_dims_and_types, 1},\n {\"_sf_sfc_is_empty\", (DL_FUNC) &_sf_sfc_is_empty, 1},\n {\"_sf_sfc_is_full\", (DL_FUNC) &_sf_sfc_is_full, 1},\n {\"_sf_points_cpp\", (DL_FUNC) &_sf_points_cpp, 2},\n {\"_sf_CPL_signed_area\", (DL_FUNC) &_sf_CPL_signed_area, 1},\n {\"_sf_CPL_get_metadata\", (DL_FUNC) &_sf_CPL_get_metadata, 3},\n {\"_sf_CPL_get_crs\", (DL_FUNC) &_sf_CPL_get_crs, 2},\n {\"_sf_CPL_inv_geotransform\", (DL_FUNC) &_sf_CPL_inv_geotransform, 1},\n {\"_sf_CPL_read_gdal\", (DL_FUNC) &_sf_CPL_read_gdal, 7},\n {\"_sf_CPL_write_gdal\", (DL_FUNC) &_sf_CPL_write_gdal, 13},\n {\"_sf_CPL_extract\", (DL_FUNC) &_sf_CPL_extract, 3},\n {\"_sf_CPL_create\", (DL_FUNC) &_sf_CPL_create, 6},\n {\"_sf_CPL_read_wkb\", (DL_FUNC) &_sf_CPL_read_wkb, 3},\n {\"_sf_CPL_write_wkb\", (DL_FUNC) &_sf_CPL_write_wkb, 2},\n {\"_sf_CPL_get_z_range\", (DL_FUNC) &_sf_CPL_get_z_range, 2},\n {\"_sf_CPL_get_m_range\", (DL_FUNC) &_sf_CPL_get_m_range, 2},\n {\"_sf_RcppExport_registerCCallable\", (DL_FUNC) &_sf_RcppExport_registerCCallable, 0},\n {NULL, NULL, 0}\n};\n\nRcppExport void R_init_sf(DllInfo *dll) {\n R_registerRoutines(dll, NULL, CallEntries, NULL, NULL);\n R_useDynamicSymbols(dll, FALSE);\n}\n"
},
{
"path": "src/bbox.cpp",
"content": "#include \n\n#include \"bbox.h\"\n\n// [[Rcpp::export(rng=false)]]\nRcpp::NumericVector CPL_get_bbox(Rcpp::List sf, int depth = 0) {\n\tRcpp::NumericVector bb(4);\n\tbb[0] = bb[1] = bb[2] = bb[3] = NA_REAL;\n\tauto n = sf.size();\n\n\tswitch(depth) {\n\t\tcase 0: // points:\n\t\tfor (decltype(n) i = 0; i < n; i++) {\n\t\t\tRcpp::NumericVector pt = sf[i];\n\t\t\tif (i == 0) {\n\t\t\t\tbb[0] = bb[2] = pt[0];\n\t\t\t\tbb[1] = bb[3] = pt[1];\n\t\t\t} else {\n\t\t\t\tbb[0] = std::min(pt[0],bb[0]);\n\t\t\t\tbb[1] = std::min(pt[1],bb[1]);\n\t\t\t\tbb[2] = std::max(pt[0],bb[2]);\n\t\t\t\tbb[3] = std::max(pt[1],bb[3]);\n\t\t\t}\n\t\t}\n\t\tbreak;\n\n\t\tcase 1: { // list of matrices:\n\t\t\tbool initialised = false;\n\t\t\tfor (decltype(n) i = 0; i < n; i++) {\n\t\t\t\tRcpp::NumericMatrix m = sf[i];\n\t\t\t\tauto rows = m.nrow();\n\t\n\t\t\t\tif (rows > 0) { // non-empty:\n\t\t\t\t\tif (! initialised) { // initialize:\n\t\t\t\t\t\tbb[0] = bb[2] = m(0,0);\n\t\t\t\t\t\tbb[1] = bb[3] = m(0,1);\n\t\t\t\t\t\tinitialised = true;\n\t\t\t\t\t}\n\t\t\t\t\tfor (decltype(rows) j = 0; j < rows; j++) {\n\t\t\t\t\t\tbb[0] = std::min(m(j,0),bb[0]);\n\t\t\t\t\t\tbb[1] = std::min(m(j,1),bb[1]);\n\t\t\t\t\t\tbb[2] = std::max(m(j,0),bb[2]);\n\t\t\t\t\t\tbb[3] = std::max(m(j,1),bb[3]);\n\t\t\t\t\t}\n\t\t\t\t}\n\t\t\t}\n\t\t}\n\t\tbreak;\n\n\t\tdefault: // recursive list\n\t\tfor (decltype(n) i = 0; i < n; i++) {\n\t\t\tRcpp::NumericVector bbi = CPL_get_bbox(sf[i], depth - 1); // recurse\n\t\t\tif (! Rcpp::NumericVector::is_na(bbi[0])) {\n\t\t\t\tif (i == 0) {\n\t\t\t\t\tbb[0] = bbi[0];\n\t\t\t\t\tbb[1] = bbi[1];\n\t\t\t\t\tbb[2] = bbi[2];\n\t\t\t\t\tbb[3] = bbi[3];\n\t\t\t\t} else {\n\t\t\t\t\tbb[0] = std::min(bbi[0],bb[0]);\n\t\t\t\t\tbb[1] = std::min(bbi[1],bb[1]);\n\t\t\t\t\tbb[2] = std::max(bbi[2],bb[2]);\n\t\t\t\t\tbb[3] = std::max(bbi[3],bb[3]);\n\t\t\t\t}\n\t\t\t}\n\t\t}\n\t\tbreak;\n\t}\n\treturn bb;\n}\n"
},
{
"path": "src/bbox.h",
"content": "#ifndef SF_BBOX_H_\n#define SF_BBOX_H_\nRcpp::NumericVector CPL_get_bbox(Rcpp::List sf, int depth);\n#endif // SF_BBOX_H_\n"
},
{
"path": "src/gdal.cpp",
"content": "#include \n#include \n#include \n#include // GDALDriver\n#include \n#include \n#include \n#include \n#include \n#include \n\n#if GDAL_VERSION_NUM >= 3040000\n#include \n#endif\n\n#include // atoi\n#include \n\n#include \n\n#include \"gdal.h\"\n#include \"wkb.h\"\n#include \"gdal_sf_pkg.h\"\n\n// global variable:\nbool axis_order_authority_compliant = false;\n\n//\n// Returns errors to R\n// Note only case 4 actually returns immediately\n// Lower error codes are recoverable\n//\nstatic void __err_handler(CPLErr eErrClass, int err_no, const char *msg)\n{\n\tswitch ( eErrClass )\n\t{\n case 0:\n break; // #nocov\n case 1:\n case 2:\n Rf_warning(\"GDAL Message %d: %s\\n\", err_no, msg); // #nocov\n break; // #nocov\n case 3:\n Rf_warning(\"GDAL Error %d: %s\\n\", err_no, msg);\n break;\n case 4:\n Rf_warning(\"GDAL Error %d: %s\\n\", err_no, msg); // #nocov\n Rcpp::stop(\"Unrecoverable GDAL error\\n\"); // #nocov\n break;\n default:\n Rf_warning(\"Received invalid error class %d (errno %d: %s)\\n\", eErrClass, err_no, msg); // #nocov\n break; // #nocov\n }\n return;\n}\n\n// #nocov start\nstatic void __err_silent(CPLErr eErrClass, int err_no, const char *msg)\n{\n return;\n}\n// #nocov end\n\nvoid set_error_handler(void)\n{\n CPLSetErrorHandler((CPLErrorHandler)__err_handler);\n}\n\nvoid unset_error_handler(void)\n{\n CPLSetErrorHandler((CPLErrorHandler)__err_silent);\n}\n\n// [[Rcpp::export(rng=false)]]\nvoid CPL_gdal_init()\n{\n CPLSetErrorHandler((CPLErrorHandler)__err_handler);\n CPLSetConfigOption(\"GDAL_NETCDF_REPORT_EXTRA_DIM_VALUES\", \"YES\");\n GDALAllRegister();\n OGRRegisterAll();\n}\n\n// #nocov start\n// [[Rcpp::export(rng=false)]]\nvoid CPL_gdal_cleanup_all()\n{\n OGRCleanupAll();\n OSRCleanup();\n}\n// #nocov end\n\n// [[Rcpp::export(rng=false)]]\nconst char* CPL_gdal_version(const char* what = \"RELEASE_NAME\")\n{\n\treturn GDALVersionInfo(what);\n}\n\nvoid handle_error(OGRErr err) {\n\tif (err != OGRERR_NONE) {\n\t\tswitch (err) {\n\t\t\tcase OGRERR_NOT_ENOUGH_DATA:\n\t\t\t\tRcpp::Rcout << \"OGR: Not enough data \" << std::endl; // #nocov\n\t\t\t\tbreak; // #nocov\n\t\t\tcase OGRERR_UNSUPPORTED_GEOMETRY_TYPE:\n\t\t\t\tRcpp::Rcout << \"OGR: Unsupported geometry type\" << std::endl;\n\t\t\t\tbreak;\n\t\t\tcase OGRERR_CORRUPT_DATA:\n\t\t\t\tRcpp::Rcout << \"OGR: Corrupt data\" << std::endl; // #nocov\n\t\t\t\tbreak; // #nocov\n\t\t\tcase OGRERR_FAILURE:\n\t\t\t\tRcpp::Rcout << \"OGR: index invalid?\" << std::endl; // #nocov\n\t\t\t\tbreak; // #nocov\n\t\t\tdefault:\n\t\t\t\tRcpp::Rcout << \"Error code: \" << err << std::endl; // #nocov\n\t\t}\n\t\tRcpp::stop(\"OGR error\");\n\t}\n}\n\nvoid set_config_options(Rcpp::CharacterVector ConfigOptions) {\n\tif (ConfigOptions.size()) {\n\t\tif (ConfigOptions.attr(\"names\") == R_NilValue)\n\t\t\tRcpp::stop(\"config_options should be a character vector with names, as in c(key=\\\"value\\\")\");\n\t\tRcpp::CharacterVector names = ConfigOptions.attr(\"names\");\n\t\tfor (int i = 0; i < ConfigOptions.size(); i++)\n\t\t\tCPLSetConfigOption(names[i], ConfigOptions[i]);\n\t}\n}\n\nvoid unset_config_options(Rcpp::CharacterVector ConfigOptions) {\n\tif (ConfigOptions.size()) {\n\t\tRcpp::CharacterVector names = ConfigOptions.attr(\"names\");\n\t\tfor (int i = 0; i < ConfigOptions.size(); i++)\n\t\t\tCPLSetConfigOption(names[i], NULL);\n\t}\n}\n\nRcpp::CharacterVector wkt_from_spatial_reference(const OGRSpatialReference *srs) { // FIXME: add options?\n\tchar *cp;\n#if GDAL_VERSION_NUM >= 3000000\n\tconst char *options[3] = { \"MULTILINE=YES\", \"FORMAT=WKT2\", NULL };\n\tOGRErr err = srs->exportToWkt(&cp, options);\n#else\n\tOGRErr err = srs->exportToPrettyWkt(&cp);\n#endif\n\tif (err != OGRERR_NONE)\n\t\tRcpp::stop(\"OGR error: cannot export to WKT\"); // #nocov\n\tRcpp::CharacterVector out(cp);\n\tCPLFree(cp);\n\treturn out;\n}\n\nRcpp::List fix_old_style(Rcpp::List crs) {\n\tif (crs.attr(\"names\") == R_NilValue)\n\t\tRcpp::stop(\"invalid crs object: no names\");\n\tRcpp::CharacterVector n = crs.attr(\"names\");\n\tif (n.length() != 2)\n\t\tRcpp::stop(\"invalid crs object: wrong length\");\n\tif (n[0] == \"epsg\") { // create new: // #nocov start\n\t\tRcpp::List ret(2);\n\t\tret[0] = NA_STRING;\n\t\tret[1] = NA_STRING;\n\t\tRcpp::CharacterVector proj4string = crs(1);\n\t\tif (! Rcpp::CharacterVector::is_na(proj4string[0])) {\n\t\t\tret[0] = proj4string[0]; // copy to $input\n\t\t\tOGRSpatialReference *srs = new OGRSpatialReference;\n\t\t\tsrs = handle_axis_order(srs);\n\t\t\thandle_error(srs->SetFromUserInput((const char *) proj4string(0)));\n\t\t\tret[1] = wkt_from_spatial_reference(srs); // copy to $wkt\n\t\t\tdelete srs;\n\t\t}\n\t\tRcpp::CharacterVector names(2);\n\t\tnames(0) = \"input\";\n\t\tnames(1) = \"wkt\";\n\t\tret.attr(\"names\") = names;\n\t\tret.attr(\"class\") = \"crs\";\n\t\tcrs = ret; // #nocov end\n\t}\n\treturn crs;\n}\n\nOGRSpatialReference *OGRSrs_from_crs(Rcpp::List crs) {\n\t// fix old-style crs:\n\tcrs = fix_old_style(crs);\n\tOGRSpatialReference *dest = NULL;\n\tRcpp::CharacterVector wkt = crs[1];\n\tif (! Rcpp::CharacterVector::is_na(wkt[0])) {\n\t\tdest = new OGRSpatialReference;\n\t\tdest = handle_axis_order(dest);\n\t\tchar *cp = wkt[0];\n#if GDAL_VERSION_NUM < 2030000\n\t\thandle_error(dest->importFromWkt(&cp));\n#else\n\t\thandle_error(dest->importFromWkt((const char *) cp));\n#endif\n\t}\n\treturn dest;\n}\n\n// [[Rcpp::export(rng=false)]]\nRcpp::List CPL_crs_parameters(Rcpp::List crs) {\n\n\tchar *cp = NULL;\n\tunset_error_handler();\n\n\tOGRSpatialReference *srs = OGRSrs_from_crs(crs);\n\tif (srs == NULL)\n\t\tRcpp::stop(\"crs not found\"); // #nocov\n\n\tint n = 18;\n\tRcpp::List out(n);\n\tRcpp::CharacterVector names(n);\n\n\tout(0) = Rcpp::NumericVector::create(srs->GetSemiMajor());\n\tnames(0) = \"SemiMajor\";\n\n\tout(1) = Rcpp::NumericVector::create(srs->GetSemiMinor());\n\tnames(1) = \"SemiMinor\";\n\n\tRcpp::NumericVector InvFlattening(1);\n\tOGRErr Err;\n\tsrs->GetInvFlattening(&Err);\n\tif (Err == OGRERR_FAILURE)\n\t\tInvFlattening(0) = NA_REAL; // #nocov\n\telse\n\t\tInvFlattening(0) = srs->GetInvFlattening(NULL); // for +ellps=sphere, still zero :-(\n\tout(2) = InvFlattening;\n\tnames(2) = \"InvFlattening\";\n\n\tout(3) = Rcpp::LogicalVector::create((bool) srs->IsGeographic());\n\tnames(3) = \"IsGeographic\";\n\n#if GDAL_VERSION_NUM > 2030000\n\tconst char *unit;\n#else\n\tchar *unit;\n#endif\n\tif (srs->IsGeographic())\n\t\tsrs->GetAngularUnits(&unit);\n\telse\n\t\tsrs->GetLinearUnits(&unit);\n\tif (unit == NULL || strncmp(unit, \"unknown\", 8) == 0)\n\t\tout(4) = Rcpp::CharacterVector::create(NA_STRING);\n\telse\n\t\tout(4) = Rcpp::CharacterVector::create(unit);\n\tnames(4) = \"units_gdal\";\n\n\tout(5) = Rcpp::LogicalVector::create(srs->IsVertical());\n\tnames(5) = \"IsVertical\";\n\n\t// wkt pretty:\n\tif (srs->exportToPrettyWkt(&cp) == OGRERR_NONE) {\n\t\tout(6) = Rcpp::CharacterVector::create(cp);\n\t\tCPLFree(cp);\n\t} else\n\t\tout(6) = \"\";\n\tnames(6) = \"WktPretty\";\n\n\t// wkt:\n\tif (srs->exportToWkt(&cp) == OGRERR_NONE) {\n\t\tout(7) = Rcpp::CharacterVector::create(cp);\n\t\tCPLFree(cp);\n\t} else\n\t\tout(7) = \"\";\n\tnames(7) = \"Wkt\";\n\n#if GDAL_VERSION_NUM >= 3000000\n\tout(8) = Rcpp::CharacterVector::create(srs->GetName());\n#else\n\tout(8) = Rcpp::CharacterVector::create(\"unknown\");\n#endif\n\tnames(8) = \"Name\";\n\n\t// proj4string\n\tif (srs->exportToProj4(&cp) == OGRERR_NONE) {\n\t\tout(9) = Rcpp::CharacterVector::create(cp);\n\t\tCPLFree(cp);\n\t} else\n\t\tout(9) = Rcpp::CharacterVector::create(NA_STRING); // #nocov\n\tnames(9) = \"proj4string\";\n\n\t// epsg\n\tif (srs->GetAuthorityCode(NULL) != NULL && strcmp(srs->GetAuthorityName(NULL), \"EPSG\") == 0)\n\t\tout(10) = Rcpp::IntegerVector::create(atoi(srs->GetAuthorityCode(NULL)));\n\telse\n\t\tout(10) = Rcpp::IntegerVector::create(NA_INTEGER);\n\tnames(10) = \"epsg\";\n\n\tbool yx = srs->EPSGTreatsAsLatLong() || srs->EPSGTreatsAsNorthingEasting();\n\tout(11) = Rcpp::LogicalVector(yx);\n\tnames(11) = \"yx\";\n\n\t// ProjJson:\n#if GDAL_VERSION_NUM > 3010000\n\tif (srs->exportToPROJJSON(&cp, NULL) == OGRERR_NONE) {\n\t\tout(12) = Rcpp::CharacterVector::create(cp);\n\t\tCPLFree(cp);\n\t} else\n\t\tout(12) = NA_STRING;\n#else\n\tout(12) = NA_STRING;\n#endif\n\tnames(12) = \"ProjJson\";\n\n\t// WKT1_ESRI\n#if GDAL_VERSION_NUM >= 3000000\n\tconst char *options[3] = { \"MULTILINE=YES\", \"FORMAT=WKT1_ESRI\", NULL };\n\tif (srs->exportToWkt(&cp, options) != OGRERR_NONE)\n\t\tout(13) = Rcpp::CharacterVector::create(NA_STRING); // FIXME: CPLFree() in this case?\n\telse {\n\t\tout(13) = Rcpp::CharacterVector::create(cp);\n\t\tCPLFree(cp);\n\t}\n#else\n\tout(13) = \"\";\n#endif\n\tnames(13) = \"WKT1_ESRI\";\n\n\t// srid\n\tif (srs->GetAuthorityName(NULL) != NULL && srs->GetAuthorityCode(NULL) != NULL) {\n\t\tchar str[101];\n\t\tsnprintf(str, (size_t) 100, \"%s:%s\",\n\t\t\tsrs->GetAuthorityName(NULL), srs->GetAuthorityCode(NULL));\n\t\tRcpp::CharacterVector v = str;\n\t\tout(14) = v;\n\t} else\n\t\tout(14) = Rcpp::CharacterVector::create(NA_STRING);\n\tnames(14) = \"srid\";\n\n\t// axes, 15:\n#if GDAL_VERSION_NUM > 3000000\n\tint ac = srs->GetAxesCount();\n#else\n\tint ac = 0;\n#endif\n\tRcpp::CharacterVector nms(ac);\n\tRcpp::IntegerVector orientation(ac);\n\tfor (int i = 0; i < ac; i++) {\n\t\tOGRAxisOrientation peOrientation;\n\t\tconst char *ret = srs->GetAxis(srs->IsGeographic() ? \"GEOGCS\" : \"PROJCS\", \n\t\t\t\t\t\ti, &peOrientation);\n\t\tif (ret != NULL) {\n\t\t\tnms[i] = ret;\n\t\t\torientation[i] = (int) peOrientation;\n\t\t} else {\n\t\t\tnms[i] = NA_STRING;\n\t\t\torientation[i] = NA_INTEGER;\n\t\t}\n\t}\n\tRcpp::DataFrame axes_df = Rcpp::DataFrame::create(\n\t\tRcpp::_[\"name\"] = nms,\n\t\tRcpp::_[\"orientation\"] = orientation);\n\tout(15) = axes_df;\n\tnames(15) = \"axes\";\n\n\t// base GEOGCRS: https://github.com/r-spatial/sf/issues/2524\n\tOGRSpatialReference *base_srs = new OGRSpatialReference;\n\tif (base_srs->CopyGeogCSFrom(srs) == OGRERR_NONE) {\n\t\tif (base_srs->exportToWkt(&cp) == OGRERR_NONE) {\n\t\t\tout(16) = Rcpp::CharacterVector::create(cp);\n\t\t\tCPLFree(cp);\n\t\t} else\n\t\t\tout(16) = Rcpp::CharacterVector::create(NA_STRING);\n\t} else \n\t\tout(16) = Rcpp::CharacterVector::create(NA_STRING);\n\tnames(16) = \"gcs_crs\";\n\n\tout(17) = Rcpp::LogicalVector::create((bool) base_srs->IsGeocentric());\n\tnames(17) = \"is_geocentric\";\n\n\tdelete base_srs;\n\n\tset_error_handler();\n\n\tdelete srs;\n\tout.attr(\"names\") = names;\n\tout.attr(\"class\") = \"crs_parameters\";\n\treturn out;\n}\n\nint srid_from_crs(Rcpp::List crs) {\n\tconst char *cp;\n\tint ret_val = NA_INTEGER;\n\tunset_error_handler();\n\tOGRSpatialReference *ref = OGRSrs_from_crs(crs);\n\tif (ref && ref->AutoIdentifyEPSG() == OGRERR_NONE &&\n\t\t\t(cp = ref->GetAuthorityCode(NULL)) != NULL) {\n\t\tret_val = atoi(cp);\n\t}\n\tif (ref != NULL)\n\t\tref->Release();\n\tset_error_handler();\n\treturn(ret_val);\n}\n\n// [[Rcpp::export(rng=false)]]\nRcpp::LogicalVector CPL_crs_equivalent(Rcpp::List crs1, Rcpp::List crs2) {\n\n\tOGRSpatialReference *srs1 = OGRSrs_from_crs(crs1);\n\tOGRSpatialReference *srs2 = OGRSrs_from_crs(crs2);\n\tif (srs1 == NULL && srs2 == NULL) // #nocov start\n\t\treturn Rcpp::LogicalVector::create(true);\n\tif (srs1 == NULL) {\n\t\tdelete srs2;\n\t\treturn Rcpp::LogicalVector::create(false);\n\t}\n\tif (srs2 == NULL) {\n\t\tdelete srs1;\n\t\treturn Rcpp::LogicalVector::create(false);\n\t} // #nocov end\n#if GDAL_VERSION_NUM >= 3000000\n\tconst char *options[3] = { NULL, NULL, NULL };\n\tif (axis_order_authority_compliant) {\n\t\toptions[0] = \"IGNORE_DATA_AXIS_TO_SRS_AXIS_MAPPING=NO\";\n\t\toptions[1] = \"CRITERION=STRICT\";\n\t} else\n\t\toptions[0] = \"IGNORE_DATA_AXIS_TO_SRS_AXIS_MAPPING=YES\";\n\tbool b = (bool) srs1->IsSame(srs2, options);\n#else\n\tbool b = (bool) srs1->IsSame(srs2);\n#endif\n\tdelete srs1;\n\tdelete srs2;\n\treturn Rcpp::LogicalVector::create(b);\n}\n\nstd::vector ogr_from_sfc(Rcpp::List sfc, OGRSpatialReference **sref) {\n\n\tRcpp::List wkblst = CPL_write_wkb(sfc, false);\n\tstd::vector g(sfc.length());\n\tOGRSpatialReference *local_srs = OGRSrs_from_crs(sfc.attr(\"crs\"));\n\n\tfor (int i = 0; i < wkblst.length(); i++) {\n\t\tRcpp::RawVector r = wkblst[i];\n\t\tOGRErr err = OGRGeometryFactory::createFromWkb(&(r[0]), local_srs, &(g[i]),\n\t\t\tr.length(), wkbVariantIso);\n\t\tif (err != OGRERR_NONE) {\n\t\t\tif (g[i] != NULL) // release: #nocov\n\t\t\t\tOGRGeometryFactory::destroyGeometry(g[i]); // #nocov\n\t\t\tif (local_srs != NULL) // #nocov start\n\t\t\t\tlocal_srs->Release();\n\t\t\thandle_error(err); // #nocov end\n\t\t}\n\t}\n\tif (sref != NULL)\n\t\t*sref = local_srs; // return and release later, or\n\telse if (local_srs != NULL)\n\t\tlocal_srs->Release(); // release now\n\treturn g;\n}\n\nstd::vector create_options(Rcpp::CharacterVector lco, bool quiet) {\n\tif (lco.size() == 0)\n\t\tquiet = true; // nothing to report\n\tif (! quiet)\n\t\tRcpp::Rcout << \"options: \"; // #nocov\n\tstd::vector ret(lco.size() + 1);\n\tfor (int i = 0; i < lco.size(); i++) {\n\t\tret[i] = (char *) (lco[i]);\n\t\tif (! quiet)\n\t\t\tRcpp::Rcout << ret[i] << \" \"; // #nocov\n\t}\n\tret[lco.size()] = NULL;\n\tif (! quiet)\n\t\tRcpp::Rcout << std::endl; // #nocov\n\treturn ret;\n}\n\n// convert NULL-terminated array of strings to Rcpp::CharacterVector\nRcpp::CharacterVector charpp2CV(CSLConstList cp) {\n\tint n = 0;\n\twhile (cp && cp[n] != NULL)\n\t\tn++; // count\n\tRcpp::CharacterVector ret(n);\n\tfor (int i = 0; i < n; i++)\n\t\tret(i) = cp[i];\n\treturn ret;\n}\n\nRcpp::List create_crs(const OGRSpatialReference *ref, bool set_input) {\n\tRcpp::List crs(2);\n\tif (ref == NULL) {\n\t\tcrs(0) = Rcpp::CharacterVector::create(NA_STRING);\n\t\tcrs(1) = Rcpp::CharacterVector::create(NA_STRING);\n\t} else {\n\t\tif (set_input) {\n#if GDAL_VERSION_NUM >= 3000000\n\t\t\tcrs(0) = Rcpp::CharacterVector::create(ref->GetName());\n#else\n\t\t\tconst char *cp;\n\t\t\tOGRSpatialReference ref_cp = *ref;\n\t\t\tif (ref_cp.AutoIdentifyEPSG() == OGRERR_NONE && // ->AutoIdentifyEPSG() breaks if \"this\" is const\n\t\t\t\t\t(cp = ref_cp.GetAuthorityCode(NULL)) != NULL)\n\t\t\t\tcrs(0) = cp;\n\t\t\telse\n\t\t\t\tcrs(0) = Rcpp::CharacterVector::create(NA_STRING);\n#endif\n\t\t}\n\t\tcrs(1) = wkt_from_spatial_reference(ref);\n\t}\n\tRcpp::CharacterVector nms(2);\n\tnms(0) = \"input\";\n\tnms(1) = \"wkt\";\n\tcrs.attr(\"names\") = nms;\n\tcrs.attr(\"class\") = \"crs\";\n\treturn crs;\n}\n\nRcpp::List sfc_from_ogr(std::vector g, bool destroy = false) {\n\tOGRwkbGeometryType type = wkbGeometryCollection;\n\tRcpp::List lst(g.size());\n\tRcpp::List crs = create_crs(g.size() && g[0] != NULL ? g[0]->getSpatialReference() : NULL);\n\tfor (size_t i = 0; i < g.size(); i++) {\n\t\tif (g[i] == NULL)\n\t\t\tg[i] = OGRGeometryFactory::createGeometry(type); // #nocov\n\t\telse\n\t\t\ttype = g[i]->getGeometryType();\n\t\tRcpp::RawVector raw(g[i]->WkbSize());\n\t\thandle_error(g[i]->exportToWkb(wkbNDR, &(raw[0]), wkbVariantIso));\n\t\tlst[i] = raw;\n\t\tif (destroy)\n\t\t\tOGRGeometryFactory::destroyGeometry(g[i]);\n\t}\n\tRcpp::List ret = CPL_read_wkb(lst, false, false);\n\tret.attr(\"crs\") = crs;\n\tret.attr(\"class\") = \"sfc\";\n\treturn ret;\n}\n\n// [[Rcpp::export(rng=false)]]\nRcpp::List CPL_crs_from_input(Rcpp::CharacterVector input) {\n\tOGRSpatialReference *ref = new OGRSpatialReference;\n\thandle_axis_order(ref);\n\tRcpp::List crs;\n\t// const char *options[3] = {\"ALLOW_NETWORK_ACCESS=YES\", \"ALLOW_FILE_ACCESS=YES\", NULL}; -> defaults\n\tif (ref->SetFromUserInput(input[0]) == OGRERR_NONE) {\n\t\tcrs = create_crs(ref, false);\n\t\tcrs(0) = input;\n\t} else\n\t\tcrs = create_crs(NULL);\n\tdelete ref;\n\treturn crs;\n}\n\n// [[Rcpp::export(rng=false)]]\nRcpp::List CPL_roundtrip(Rcpp::List sfc) { // for debug purposes\n\tstd::vector g = ogr_from_sfc(sfc, NULL);\n\tfor (size_t i = 0; i < g.size(); i++) {\n\t\tchar *out;\n\t\tg[i]->exportToWkt(&out);\n\t\tRcpp::Rcout << out << std::endl;\n\t\tCPLFree(out);\n\t}\n\treturn sfc_from_ogr(g, true); // destroys g;\n}\n\n// [[Rcpp::export(rng=false)]]\nRcpp::List CPL_circularstring_to_linestring(Rcpp::List sfc) { // need to pass more parameters?\n\tstd::vector g = ogr_from_sfc(sfc, NULL);\n\tstd::vector out(g.size());\n\tfor (size_t i = 0; i < g.size(); i++) {\n\t\tOGRCircularString *cs = (OGRCircularString *) g[i];\n\t\tout[i] = cs->CurveToLine();\n\t\tOGRGeometryFactory::destroyGeometry(g[i]);\n\t}\n\treturn sfc_from_ogr(out, true); // destroys out;\n}\n\n// [[Rcpp::export(rng=false)]]\nRcpp::List CPL_multisurface_to_multipolygon(Rcpp::List sfc) { // need to pass more parameters?\n\tstd::vector g = ogr_from_sfc(sfc, NULL);\n\tstd::vector out(g.size());\n\tfor (size_t i = 0; i < g.size(); i++) {\n\t\tOGRMultiSurface *cs = (OGRMultiSurface *) g[i];\n\t\tif (cs->hasCurveGeometry(true)) {\n\t\t\tout[i] = cs->getLinearGeometry();\n\t\t\tOGRGeometryFactory::destroyGeometry(g[i]);\n\t\t} else\n\t\t\tout[i] = cs->CastToMultiPolygon(cs); // consumes cs #nocov\n\t\tif (out[i] == NULL)\n\t\t\tRcpp::stop(\"CPL_multisurface_to_multipolygon: NULL returned - non-polygonal surface?\"); // #nocov\n\t}\n\treturn sfc_from_ogr(out, true); // destroys out;\n}\n\n// [[Rcpp::export(rng=false)]]\nRcpp::List CPL_compoundcurve_to_linear(Rcpp::List sfc) { // need to pass more parameters?\n\tstd::vector g = ogr_from_sfc(sfc, NULL);\n\tstd::vector out(g.size());\n\tfor (size_t i = 0; i < g.size(); i++) {\n\t\tOGRCompoundCurve *cs = (OGRCompoundCurve *) g[i];\n\t\tout[i] = cs->getLinearGeometry();\n\t\tOGRGeometryFactory::destroyGeometry(g[i]);\n\t}\n\treturn sfc_from_ogr(out, true); // destroys out;\n}\n\n// [[Rcpp::export(rng=false)]]\nRcpp::List CPL_curve_to_linestring(Rcpp::List sfc) { // need to pass more parameters? #nocov start\n\tstd::vector g = ogr_from_sfc(sfc, NULL);\n\tstd::vector out(g.size());\n\tfor (size_t i = 0; i < g.size(); i++) {\n\t\tOGRCurve *cs = (OGRCurve *) g[i];\n\t\tout[i] = cs->CastToLineString(cs);\n\t}\n\treturn sfc_from_ogr(out, true); // destroys out;\n} // #nocov end\n\n// [[Rcpp::export(rng=false)]]\nRcpp::LogicalVector CPL_can_transform(Rcpp::List src, Rcpp::List dst) {\n\tif (src.size() != 2 || dst.size() != 2)\n\t\treturn false;\n\tRcpp::CharacterVector src_cv = src[0];\n\tRcpp::CharacterVector dst_cv = dst[0];\n\tif (Rcpp::CharacterVector::is_na(src_cv[0]) || Rcpp::CharacterVector::is_na(dst_cv[0]))\n\t\treturn false;\n\tOGRSpatialReference *srs_src = OGRSrs_from_crs(src);\n\tOGRSpatialReference *srs_dst = OGRSrs_from_crs(dst);\n\tunset_error_handler();\n\tOGRCoordinateTransformation *ct = OGRCreateCoordinateTransformation(srs_src, srs_dst);\n\tset_error_handler();\n\tdelete srs_src;\n\tdelete srs_dst;\n\tif (ct) {\n\t\tct->DestroyCT(ct);\n\t\treturn true;\n\t} else\n\t\treturn false;\n}\n\n// [[Rcpp::export(rng=false)]]\nRcpp::List CPL_transform(Rcpp::List sfc, Rcpp::List crs,\n\t\tRcpp::NumericVector AOI, Rcpp::CharacterVector pipeline, bool reverse = false,\n\t\tdouble desired_accuracy = -1.0, bool allow_ballpark = true) {\n\n\t// transform geometries:\n\tstd::vector g = ogr_from_sfc(sfc, NULL);\n\tif (g.empty())\n\t\treturn sfc_from_ogr(g, true); // destroys g\n\n\tOGRSpatialReference *dest = NULL;\n\t// if pipeline was not set, import crs to dest:\n\tif (pipeline.size() == 0 && !(dest = OGRSrs_from_crs(crs)))\n\t\tRcpp::stop(\"crs not found: is it missing?\"); // #nocov\n\n#if GDAL_VERSION_NUM >= 3000000\n\t// OGRCoordinateTransformationOptions *options = new OGRCoordinateTransformationOptions;\n\tOGRCoordinateTransformationOptions options;\n\tif (pipeline.size() && !options.SetCoordinateOperation(pipeline[0], reverse))\n\t\tRcpp::stop(\"pipeline value not accepted\");\n\tif (AOI.size() == 4 && !options.SetAreaOfInterest(AOI[0], AOI[1], AOI[2], AOI[3]))\n\t\tRcpp::stop(\"values for area of interest not accepted\");\n#if GDAL_VERSION_NUM >= 3030000\n\toptions.SetDesiredAccuracy(desired_accuracy);\n\toptions.SetBallparkAllowed(allow_ballpark);\n#endif\n\t// unset_error_handler(); // FIXME: is this always a good idea?\n\tOGRCoordinateTransformation *ct =\n\t\tOGRCreateCoordinateTransformation(g[0]->getSpatialReference(), dest, options);\n\t// set_error_handler();\n#else\n\tif (pipeline.size() || AOI.size())\n\t\tRcpp::stop(\"pipeline or area of interest require GDAL >= 3\"); // #nocov\n\tOGRCoordinateTransformation *ct =\n\t\tOGRCreateCoordinateTransformation(g[0]->getSpatialReference(), dest);\n#endif\n\tif (ct == NULL) {\n\t\tif (dest)\n\t\t\tdest->Release(); // #nocov start\n\t\tsfc_from_ogr(g, true); // to destroy g\n\t\tRcpp::stop(\"OGRCreateCoordinateTransformation(): transformation not available\"); // #nocov end\n\t}\n\tfor (size_t i = 0; i < g.size(); i++) {\n\t\tCPLPushErrorHandler(CPLQuietErrorHandler);\n\t\tOGRErr err = 0;\n\t\tif (! g[i]->IsEmpty())\n\t\t\terr = g[i]->transform(ct);\n\t\tCPLPopErrorHandler();\n\t\tif (err == 1 || err == 6) {\n\t\t\tOGRwkbGeometryType geomType = g[i]->getGeometryType();\n\t\t\tOGRGeometryFactory::destroyGeometry(g[i]);\n\t\t\tg[i] = OGRGeometryFactory::createGeometry(geomType); // return empty geometry of this type\n\t\t} else\n\t\t\thandle_error(err);\n\t}\n\n\tRcpp::List ret = sfc_from_ogr(g, true); // destroys g;\n\t// how to return the target CRS when only a transformation pipeline is provided? Not by:\n\t// ret.attr(\"crs\") = create_crs(ct->GetTargetCS(), true);\n\t// \n\t// According to the discussion at https://github.com/r-spatial/sf/issues/2439, this is \n\t// not a solvable issue in general. See the same link for a possible workaround and \n\t// a more general solution that uses PROJ. \n\tct->DestroyCT(ct);\n\tif (dest)\n\t\tdest->Release();\n\treturn ret;\n}\n\n// [[Rcpp::export(rng=false)]]\nRcpp::NumericVector CPL_transform_bounds(Rcpp::NumericVector bb, Rcpp::List crs_dst,\n\t\tint densify_pts = 21) {\n\n\tRcpp::NumericVector ret(4);\n\tret[0] = 0.0;\n\tret[1] = 0.0;\n\tret[2] = 0.0;\n\tret[3] = 0.0;\n\tRcpp::CharacterVector names(4);\n\tnames(0) = \"xmin\";\n\tnames(1) = \"ymin\";\n\tnames(2) = \"xmax\";\n\tnames(3) = \"ymax\";\n\tret.attr(\"names\") = names;\n#if GDAL_VERSION_NUM >= 3040000\n\tif (bb.size() != 4)\n\t\tRcpp::stop(\"bb should have length 4\");\n\tRcpp::List crs_src = bb.attr(\"crs\");\n\tOGRSpatialReference *src = OGRSrs_from_crs(crs_src);\n\tOGRSpatialReference *dst = OGRSrs_from_crs(crs_dst);\n\tif (src == NULL)\n\t\tRcpp::stop(\"crs_src not found: is it missing?\"); // #nocov\n\tif (dst == NULL)\n\t\tRcpp::stop(\"crs_dst not found: is it missing?\"); // #nocov\n\tOGRCoordinateTransformation *ct = OGRCreateCoordinateTransformation(src, dst);\n\tif (ct == NULL) {\n\t\tdst->Release(); // #nocov start\n\t\tsrc->Release();\n\t\tRcpp::stop(\"transform_bounds(): transformation not available\"); // #nocov end\n\t}\n\tdouble xmin, ymin, xmax, ymax;\n\tint success = ct->TransformBounds(bb[0], bb[1], bb[2], bb[3], &xmin, &ymin, &xmax, &ymax, densify_pts);\n\tif (!success)\n\t\tRcpp::stop(\"transform_bounds(): failures encountered\"); // #nocov\n\tret[0] = xmin;\n\tret[1] = ymin;\n\tret[2] = xmax;\n\tret[3] = ymax;\n\tct->DestroyCT(ct);\n\tdst->Release();\n\tsrc->Release();\n#else\n\tRcpp::stop(\"transform_bounds() requires GDAL >= 3.4\");\n#endif\n\treturn ret;\n}\n\n// [[Rcpp::export(rng=false)]]\nRcpp::List CPL_wrap_dateline(Rcpp::List sfc, Rcpp::CharacterVector opt, bool quiet = true) {\n\n\tstd::vector options = create_options(opt, quiet);\n\tstd::vector g = ogr_from_sfc(sfc, NULL);\n\tstd::vector ret(g.size());\n\tfor (size_t i = 0; i < g.size(); i++) {\n\t\tret[i] = OGRGeometryFactory::transformWithOptions(g[i], NULL, options.data());\n\t\tOGRGeometryFactory::destroyGeometry(g[i]);\n\t}\n\treturn sfc_from_ogr(ret, true); // destroys ret;\n}\n\n// [[Rcpp::export(rng=false)]]\nRcpp::List CPL_get_gdal_drivers(int dummy) {\n\n\tint ndr = GetGDALDriverManager()->GetDriverCount();\n\tRcpp::CharacterVector name(ndr);\n\tRcpp::CharacterVector long_name(ndr);\n\tRcpp::LogicalVector create(ndr);\n\tRcpp::LogicalVector copy(ndr);\n\tRcpp::LogicalVector vattr(ndr);\n\tRcpp::LogicalVector rattr(ndr);\n\tRcpp::LogicalVector vsi_attr(ndr);\n\tfor (int i = 0; i < ndr; i++) {\n\t\tGDALDriver *pDriver = GetGDALDriverManager()->GetDriver(i);\n\t\tname(i) = GDALGetDriverShortName( pDriver );\n\t\tlong_name(i) = GDALGetDriverLongName( pDriver );\n\t\tcreate(i) = (pDriver->GetMetadataItem(GDAL_DCAP_CREATE) != NULL);\n\t\tcopy(i) = (pDriver->GetMetadataItem(GDAL_DCAP_CREATECOPY) != NULL);\n\t\tvattr(i) = (pDriver->GetMetadataItem(GDAL_DCAP_VECTOR) != NULL);\n\t\trattr(i) = (pDriver->GetMetadataItem(GDAL_DCAP_RASTER) != NULL);\n\t\tvsi_attr(i) = (pDriver->GetMetadataItem(GDAL_DCAP_VIRTUALIO) != NULL);\n\t}\n\treturn Rcpp::DataFrame::create(\n\t\tRcpp::Named(\"name\") = name,\n\t\tRcpp::Named(\"long_name\") = long_name,\n\t\tRcpp::Named(\"write\") = create,\n\t\tRcpp::Named(\"copy\") = copy,\n\t\tRcpp::Named(\"is_raster\") = rattr,\n\t\tRcpp::Named(\"is_vector\") = vattr,\n\t\tRcpp::Named(\"vsi\") = vsi_attr);\n}\n\n// [[Rcpp::export(rng=false)]]\nRcpp::List CPL_sfc_from_wkt(Rcpp::CharacterVector wkt) {\n\tstd::vector g(wkt.size());\n\tOGRGeometryFactory f;\n\tfor (int i = 0; i < wkt.size(); i++) {\n\t\tchar *wkt_str = wkt(i);\n#if GDAL_VERSION_NUM < 2030000\n\t\thandle_error(f.createFromWkt(&wkt_str, NULL, &(g[i])));\n#else\n\t\thandle_error(f.createFromWkt( (const char*) wkt_str, NULL, &(g[i])));\n#endif\n\t}\n\treturn sfc_from_ogr(g, true);\n}\n\n// [[Rcpp::export(rng=false)]]\nRcpp::LogicalVector CPL_gdal_with_geos() {\n\tbool withGEOS = OGRGeometryFactory::haveGEOS();\n\treturn Rcpp::LogicalVector::create(withGEOS);\n}\n\n// [[Rcpp::export(rng=false)]]\nRcpp::LogicalVector CPL_axis_order_authority_compliant(Rcpp::LogicalVector authority_compliant) {\n\tif (authority_compliant.size() > 1)\n\t\tRcpp::stop(\"argument authority_compliant should have length 0 or 1\"); // #nocov\n#if GDAL_VERSION_NUM < 2050000\n\tif (authority_compliant.size() == 1 && authority_compliant[0])\n\t\tRcpp::stop(\"For setting axis order compliancy, GDAL >= 2.5.0 is required\"); // #nocov\n#endif\n\tbool old_value = axis_order_authority_compliant;\n\tif (authority_compliant.size() == 1)\n\t\taxis_order_authority_compliant = authority_compliant[0];\n\treturn Rcpp::LogicalVector::create(old_value);\n}\n\nOGRSpatialReference *handle_axis_order(OGRSpatialReference *sr) {\n#if GDAL_VERSION_NUM >= 2050000\n\tif (sr != NULL) {\n\t\tif (!axis_order_authority_compliant)\n\t\t\tsr->SetAxisMappingStrategy(OAMS_TRADITIONAL_GIS_ORDER);\n\t\telse\n\t\t\tsr->SetAxisMappingStrategy(OAMS_AUTHORITY_COMPLIANT);\n\t}\n#endif\n\treturn sr;\n}\n\nRcpp::CharacterVector to_cv(char **cpp) {\n\tRcpp::CharacterVector cv;\n\tfor (int i = 0; cpp[i] != NULL; i++)\n\t\tcv.push_back(cpp[i]);\n\tCSLDestroy(cpp);\n\treturn cv;\n}\n\n#if GDAL_VERSION_NUM >= 3040000\n// [[Rcpp::export(rng=false)]]\nRcpp::List CPL_compressors() {\n\tRcpp::CharacterVector compressors = to_cv(CPLGetCompressors());\n\tRcpp::CharacterVector decompressors = to_cv(CPLGetDecompressors());\n\treturn Rcpp::List::create(\n\t\t\tRcpp::_[\"compressors\"] = compressors,\n\t\t\tRcpp::_[\"decompressors\"] = decompressors\n\t\t);\n}\n#else\nRcpp::List CPL_compressors() {\n\tRcpp::stop(\"CPL_compressors() requires GDAL >= 3.4\\n\");\n\treturn Rcpp::List::create();\n}\n#endif\n"
},
{
"path": "src/gdal.h",
"content": "#ifndef SF_GDAL_H_\n#define SF_GDAL_H_\nvoid set_error_handler(void);\nvoid unset_error_handler(void);\nOGRSpatialReference *handle_axis_order(OGRSpatialReference *sr);\nRcpp::List create_crs(const OGRSpatialReference *ref, bool set_input);\nRcpp::CharacterVector wkt_from_spatial_reference(const OGRSpatialReference *srs);\nint srid_from_crs(Rcpp::List crs);\nvoid set_config_options(Rcpp::CharacterVector ConfigOptions);\nvoid unset_config_options(Rcpp::CharacterVector ConfigOptions);\n#endif // SF_GDAL_H_\n"
},
{
"path": "src/gdal_geom.cpp",
"content": "#include \n#include \n\n#include \n\n#include \"gdal_sf_pkg.h\"\n\n// [[Rcpp::export(rng=false)]]\nRcpp::NumericVector CPL_area(Rcpp::List sfc) { \n\tstd::vector g = ogr_from_sfc(sfc, NULL);\n\tRcpp::NumericVector out(sfc.length());\n\tfor (size_t i = 0; i < g.size(); i++) {\n\t\tif (g[i]->getDimension() == 2) {\n\t\t\tOGRwkbGeometryType gt = OGR_GT_Flatten(g[i]->getGeometryType());\n\t\t\tif (OGR_GT_IsSubClassOf(gt, wkbGeometryCollection)) {\n\t\t\t\t// will match OGRMultiPolygon, OGRMultiSurface and OGRGeometryCollection\n\t\t\t\tOGRGeometryCollection *gc = (OGRGeometryCollection *) g[i];\n\t\t\t\tout[i] = gc->get_Area();\n\t\t\t} else if (OGR_GT_IsSurface(gt)) {\n\t\t\t\tOGRSurface *surf = (OGRSurface *) g[i];\n\t\t\t\tout[i] = surf->get_Area();\n\t\t\t} else {\n\t\t\t\tout[i] = 0.0; // not supposed to happen, but who knows...\n\t\t\t}\n\t\t} else\n\t\t\tout[i] = 0.0;\n\t\tOGRGeometryFactory::destroyGeometry(g[i]);\n\t}\n\treturn out;\n}\n\n// [[Rcpp::export(rng=false)]]\nRcpp::IntegerVector CPL_gdal_dimension(Rcpp::List sfc, bool NA_if_empty = true) {\n\tstd::vector g = ogr_from_sfc(sfc, NULL);\n\tRcpp::IntegerVector out(sfc.length());\n\tfor (size_t i = 0; i < g.size(); i++) {\n\t\tif (NA_if_empty && g[i]->IsEmpty())\n\t\t\tout[i] = NA_INTEGER;\n\t\telse\n\t\t\tout[i] = g[i]->getDimension();\n\t\tOGRGeometryFactory f;\n\t\tf.destroyGeometry(g[i]);\n\t}\n\treturn out;\n}\n\n// [[Rcpp::export(rng=false)]]\nRcpp::NumericVector CPL_length(Rcpp::List sfc) { \n\tstd::vector g = ogr_from_sfc(sfc, NULL);\n\tRcpp::NumericVector out(sfc.length());\n\tfor (size_t i = 0; i < g.size(); i++) {\n\t\tOGRwkbGeometryType gt = OGR_GT_Flatten(g[i]->getGeometryType());\n\t\tswitch (gt) {\n\t\t\tcase wkbPoint: \n\t\t\tcase wkbMultiPoint:\n\t\t\tcase wkbPolygon:\n\t\t\tcase wkbMultiPolygon:\n\t\t\t\tout[i] = 0.0;\n\t\t\t\tbreak;\n\t\t\tcase wkbLineString:\n\t\t\tcase wkbCircularString:\n\t\t\tcase wkbCompoundCurve:\n\t\t\tcase wkbCurve: {\n\t\t\t\t\tOGRCurve *a = (OGRCurve *) g[i];\n\t\t\t\t\tout[i] = a->get_Length();\n\t\t\t\t}\n\t\t\t\tbreak;\n\t\t\tdefault: {\n\t\t\t\t\tif (OGR_GT_IsSubClassOf(gt, wkbGeometryCollection)) {\n\t\t\t\t\t\tOGRGeometryCollection *a = (OGRGeometryCollection *) g[i];\n\t\t\t\t\t\tout[i] = a->get_Length();\n\t\t\t\t\t} else {\n\t\t\t\t\t\tout[i] = 0.0;\n\t\t\t\t\t}\n\t\t\t\t}\n\t\t}\n\t\tOGRGeometryFactory f;\n\t\tf.destroyGeometry(g[i]);\n\t}\n\treturn out;\n}\n\n// [[Rcpp::export(rng=false)]]\nRcpp::List CPL_gdal_segmentize(Rcpp::List sfc, double dfMaxLength = 0.0) {\n\n\tif (dfMaxLength <= 0.0)\n\t\tRcpp::stop(\"argument dfMaxLength should be positive\\n\");\n\n\tstd::vector g = ogr_from_sfc(sfc, NULL);\n\tfor (size_t i = 0; i < g.size(); i++)\n\t\tg[i]->segmentize(dfMaxLength);\n\tRcpp::List ret = sfc_from_ogr(g, true);\n\tret.attr(\"crs\") = sfc.attr(\"crs\");\n\treturn ret;\n}\n\n// [[Rcpp::export(rng=false)]]\nRcpp::List CPL_gdal_linestring_sample(Rcpp::List sfc, Rcpp::List distLst) {\n\tif (sfc.size() != distLst.size())\n\t\tRcpp::stop(\"sfc and dist should have equal length\"); // #nocov\n\tstd::vector g = ogr_from_sfc(sfc, NULL);\n\tstd::vector out(g.size());\n\tfor (size_t i = 0; i < g.size(); i++) {\n\t\tif (wkbFlatten(g[i]->getGeometryType()) != wkbLineString)\n\t\t\tRcpp::stop(\"CPL_gdal_linestring_sample only available for LINESTRING\"); // #nocov\n\t\tOGRGeometryCollection *gc = new OGRGeometryCollection;\n\t\tRcpp::NumericVector dists = distLst[i];\n\t\tfor (int j = 0; j < dists.size(); j++) {\n\t\t\tOGRPoint *poPoint = new OGRPoint;\n\t\t\t((OGRLineString *) g[i])->Value(dists[j], poPoint);\n\t\t\tgc->addGeometryDirectly(poPoint);\n\t\t}\n\t\tout[i] = OGRGeometryFactory::forceToMultiPoint(gc);\n\t}\n\tRcpp::List ret = sfc_from_ogr(g, true); // releases g\n\tret = sfc_from_ogr(out, true); // releases out\n\tret.attr(\"crs\") = sfc.attr(\"crs\");\n\treturn ret;\n}\n"
},
{
"path": "src/gdal_read.cpp",
"content": "#include \n#include \n\n#include \n\n#define RCPP_DEFAULT_INCLUDE_CALL false\n#include \"Rcpp.h\"\n\n#include \"gdal_sf_pkg.h\"\n#include \"gdal_read.h\"\n\nRcpp::List allocate_out_list(OGRFeatureDefn *poFDefn, int n_features, bool int64_as_string,\n\t\tRcpp::CharacterVector fid_column) {\n\n\tif (fid_column.size() > 1)\n\t\tRcpp::stop(\"FID column name should be a length 1 character vector\"); // #nocov\n\n\tint n = poFDefn->GetFieldCount() + poFDefn->GetGeomFieldCount() + fid_column.size();\n\tRcpp::List out(n);\n\tRcpp::CharacterVector names(n);\n\tfor (int i = 0; i < poFDefn->GetFieldCount(); i++) {\n\t\tOGRFieldDefn *poFieldDefn = poFDefn->GetFieldDefn(i);\n\t\tswitch (poFieldDefn->GetType()) {\n\t\t\tcase OFTInteger: {\n\t\t\t\t\tif (poFieldDefn->GetSubType() == OFSTBoolean)\n\t\t\t\t\t\tout[i] = Rcpp::LogicalVector(n_features);\n\t\t\t\t\telse\n\t\t\t\t\t\tout[i] = Rcpp::IntegerVector(n_features);\n\t\t\t\t}\n\t\t\t\tbreak;\n\t\t\tcase OFTDate: {\n\t\t\t\tRcpp::NumericVector ret(n_features);\n\t\t\t\tret.attr(\"class\") = \"Date\";\n\t\t\t\tout[i] = ret;\n\t\t\t\t} break;\n\t\t\tcase OFTDateTime: {\n\t\t\t\tRcpp::NumericVector ret(n_features);\n\t\t\t\tRcpp::CharacterVector cls(2);\n\t\t\t\tcls(0) = \"POSIXct\";\n\t\t\t\tcls(1) = \"POSIXt\";\n\t\t\t\tret.attr(\"class\") = cls;\n\t\t\t\tout[i] = ret;\n\t\t\t\t} break;\n\t\t\tcase OFTInteger64: // fall through: converts Int64 -> double\n\t\t\t\tif (int64_as_string)\n\t\t\t\t\tout[i] = Rcpp::CharacterVector(n_features);\n\t\t\t\telse\n\t\t\t\t\tout[i] = Rcpp::NumericVector(n_features);\n\t\t\t\tbreak;\n\t\t\tcase OFTReal:\n\t\t\t\tout[i] = Rcpp::NumericVector(n_features);\n\t\t\t\tbreak;\n\t\t\tcase OFTStringList:\n\t\t\tcase OFTRealList:\n\t\t\tcase OFTIntegerList:\n\t\t\tcase OFTInteger64List:\n\t\t\tcase OFTBinary:\n\t\t\t\tout[i] = Rcpp::List(n_features);\n\t\t\t\tbreak;\n\t\t\tcase OFTString:\n\t\t\tdefault:\n\t\t\t\tout[i] = Rcpp::CharacterVector(n_features);\n\t\t\t\tbreak;\n\t\t}\n\t\tnames[i] = poFieldDefn->GetNameRef();\n\t}\n\n\tif (fid_column.size())\n\t\tnames[ poFDefn->GetFieldCount() ] = fid_column[0];\n\n\tfor (int i = 0; i < poFDefn->GetGeomFieldCount(); i++) {\n\t\t// get the geometry fields:\n\t\tOGRGeomFieldDefn *poGFDefn = poFDefn->GetGeomFieldDefn(i);\n\t\tif (poGFDefn == NULL)\n\t\t\tRcpp::stop(\"GeomFieldDefn error\"); // #nocov\n\t\tstd::string geom = \"geometry\";\n\t\tconst char *geom_name = poGFDefn->GetNameRef();\n\t\tif (*geom_name == '\\0') {\n\t\t\tif (i > 0)\n\t\t\t\tnames[i + poFDefn->GetFieldCount() + fid_column.size()] = geom + std::to_string(i); // c++11; #nocov\n\t\t\telse\n\t\t\t\tnames[i + poFDefn->GetFieldCount() + fid_column.size()] = geom;\n\t\t} else\n\t\t\tnames[i + poFDefn->GetFieldCount() + fid_column.size()] = geom_name;\n\t\tout[i + poFDefn->GetFieldCount() + fid_column.size()] = Rcpp::List(n_features); // ?\n\t}\n\n\tout.attr(\"names\") = names;\n\treturn out;\n}\n\nOGRwkbGeometryType to_multi_what(std::vector gv) {\n\tbool points = false, multipoints = false,\n\t\tlines = false, multilines = false,\n\t\tpolygons = false, multipolygons = false;\n\n\tfor (unsigned int i = 0; i < gv.size(); i++) {\n\t\t// drop Z and M:\n\t\tif (gv[i] == NULL)\n\t\t\tbreak;\n\t\tOGRwkbGeometryType gt = OGR_GT_SetModifier(gv[i]->getGeometryType(), 0, 0);\n\t\tswitch(gt) {\n\t\t\tcase wkbPoint: points = true; break;\n\t\t\tcase wkbMultiPoint: multipoints = true; break;\n\t\t\tcase wkbLineString: lines = true; break;\n\t\t\tcase wkbMultiLineString: multilines = true; break;\n\t\t\tcase wkbPolygon: polygons = true; break;\n\t\t\tcase wkbMultiPolygon: multipolygons = true; break;\n\t\t\tdefault: return wkbUnknown; // #nocov\n\t\t}\n\t}\n\tint sum = points + multipoints + lines + multilines + polygons + multipolygons;\n\tif (sum == 2) {\n\t\tif (points && multipoints)\n\t\t\treturn wkbMultiPoint;\n\t\tif (lines && multilines)\n\t\t\treturn wkbMultiLineString;\n\t\tif (polygons && multipolygons)\n\t\t\treturn wkbMultiPolygon;\n\t}\n\t// another mix or single type:\n\treturn wkbUnknown;\n}\n\nsize_t count_features(OGRLayer *poLayer) {\n\tsize_t n = 0;\n\tOGRFeature *poFeature;\n\twhile((poFeature = poLayer->GetNextFeature()) != NULL) {\n\t\tn++;\n\t\tdelete poFeature;\n\t\tif (n == INT_MAX)\n\t\t\tRcpp::stop(\"Cannot read layer with more than MAX_INT features\"); // #nocov\n\t}\n\tpoLayer->ResetReading ();\n\treturn n;\n}\n\n// [[Rcpp::export(rng=false)]]\nRcpp::List CPL_get_layers(Rcpp::CharacterVector datasource, Rcpp::CharacterVector options, bool do_count = false) {\n\n\tif (datasource.size() != 1)\n\t\tRcpp::stop(\"argument datasource should have length 1.\\n\"); // #nocov\n\tstd::vector open_options = create_options(options, false);\n\tGDALDataset *poDS;\n\tpoDS = (GDALDataset *) GDALOpenEx(datasource[0], GDAL_OF_VECTOR | GDAL_OF_READONLY, NULL,\n\t\topen_options.data(), NULL);\n\tif (poDS == NULL) {\n\t\tRcpp::Rcout << \"Cannot open data source \" << datasource[0] << std::endl;\n\t\tRcpp::stop(\"Open failed.\\n\");\n\t}\n\t// template from ogrinfo.cpp:\n\tRcpp::CharacterVector names(poDS->GetLayerCount());\n\tRcpp::List geomtype(poDS->GetLayerCount());\n\tRcpp::NumericVector field_count(poDS->GetLayerCount());\n\tRcpp::NumericVector feature_count(poDS->GetLayerCount());\n\tRcpp::List layer_crs(poDS->GetLayerCount());\n\n\tfor(int iLayer = 0; iLayer < poDS->GetLayerCount(); iLayer++) {\n\t\tOGRLayer *poLayer = poDS->GetLayer(iLayer);\n\t\tlayer_crs[iLayer] = create_crs(poLayer->GetSpatialRef());\n\t\tnames(iLayer) = poLayer->GetName();\n\t\tint nGeomFieldCount = poLayer->GetLayerDefn()->GetGeomFieldCount();\n\t\tif (nGeomFieldCount == 0) {\n\t\t\tRcpp::CharacterVector fieldtp(1); // #nocov start ; though tested in #334\n\t\t\tfieldtp(0) = NA_STRING;\n\t\t\tgeomtype(iLayer) = fieldtp; // #nocov end\n\t\t} else {\n\t\t\tRcpp::CharacterVector fieldtp(nGeomFieldCount);\n\t\t\tif( nGeomFieldCount > 1 ) {\n\t\t\t\tfor(int iGeom = 0; iGeom < nGeomFieldCount; iGeom ++ ) {\n\t\t\t\t\tOGRGeomFieldDefn* poGFldDefn = poLayer->GetLayerDefn()->GetGeomFieldDefn(iGeom);\n\t\t\t\t\tfieldtp(iGeom) = OGRGeometryTypeToName(poGFldDefn->GetType());\n\t\t\t\t}\n\t\t\t} else if (poLayer->GetGeomType() != wkbUnknown)\n\t\t\t\tfieldtp(0) = OGRGeometryTypeToName(poLayer->GetGeomType());\n\t\t\tgeomtype(iLayer) = fieldtp;\n\t\t}\n\t\tOGRFeatureDefn *poFDefn = poLayer->GetLayerDefn();\n\t\tfield_count(iLayer) = poFDefn->GetFieldCount();\n\t\tfeature_count(iLayer) = poLayer->GetFeatureCount();\n\t\tif (feature_count(iLayer) < 0 && do_count)\n\t\t\tfeature_count(iLayer) = count_features(poLayer);\n\t}\n\n\tRcpp::List ret = Rcpp::List::create(\n\t\tRcpp::_[\"name\"] = names,\n\t\tRcpp::_[\"geomtype\"] = geomtype,\n\t\tRcpp::_[\"driver\"] = poDS->GetDriverName(),\n\t\tRcpp::_[\"features\"] = feature_count,\n\t\tRcpp::_[\"fields\"] = field_count,\n\t\tRcpp::_[\"crs\"] = layer_crs);\n\tGDALClose(poDS); // close & destroys data source\n\treturn ret;\n}\n\nRcpp::List sf_from_ogrlayer(OGRLayer *poLayer, bool quiet, bool int64_as_string,\n\t\tRcpp::NumericVector toTypeUser, Rcpp::CharacterVector fid_column, \n\t\tbool promote_to_multi = true, int nfeatures = -1) {\n\n\tOGRFeatureDefn *poFDefn = poLayer->GetLayerDefn();\n\n\tsize_t n = 0;\n\tif (nfeatures == -1) {\n\t\tdouble n_d = (double) poLayer->GetFeatureCount();\n\t\tif (n_d > INT_MAX)\n\t\t\tRcpp::stop(\"Cannot read layer with more than MAX_INT features\"); // #nocov\n\t\tif (n_d < 0)\n\t\t\tn_d = (double) count_features(poLayer);\n\t\tn = (size_t) n_d; // what is List's max length?\n\t } else\n\t\tn = nfeatures;\n\n\tstd::vector poFeatureV(n); // full archive\n\tRcpp::CharacterVector fids(n);\n\n\tstd::vector poGeometryV(n * poFDefn->GetGeomFieldCount());\n\t// cycles column wise: 2nd el is 1st geometry, 2nd feature\n\n\tRcpp::List out = allocate_out_list(poFDefn, n, int64_as_string, fid_column);\n\n\t// read all features:\n\tpoLayer->ResetReading();\n\tsize_t i = 0; // feature counter\n\tdouble dbl_max_int64 = pow(2.0, 53);\n\tbool warn_int64 = false, has_null_geometries = false;\n\tOGRFeature *poFeature;\n\twhile ((poFeature = poLayer->GetNextFeature()) != NULL) {\n\t\tif (i > (n - 1)) {\n\t\t\tRcpp::warning(\"more features available than GetFeatureCount() reported: some records may be failing\");\n\t\t\tbreak;\n\t\t}\n\t\t// getFID:\n\t\tfids[i] = std::to_string(poFeature->GetFID());\n\n\t\t// feature attribute fields:\n\t\tfor (int iField = 0; iField < poFDefn->GetFieldCount(); iField++ ) {\n\t\t\tOGRFieldDefn *poFieldDefn = poFDefn->GetFieldDefn( iField );\n#if GDAL_VERSION_NUM >= 2020000\n\t\t\tint not_NA = poFeature->IsFieldSetAndNotNull(iField);\n#else\n\t\t\tint not_NA = poFeature->IsFieldSet(iField);\n#endif\n\t\t\tswitch(poFieldDefn->GetType()) {\n\t\t\t\tcase OFTInteger: {\n\t\t\t\t\tif (poFieldDefn->GetSubType() == OFSTBoolean) {\n\t\t\t\t\t\tRcpp::LogicalVector lv;\n\t\t\t\t\t\tlv = out[iField];\n\t\t\t\t\t\tif (not_NA) {\n\t\t\t\t\t\t\tif (poFeature->GetFieldAsInteger(iField))\n\t\t\t\t\t\t\t\tlv[i] = true;\n\t\t\t\t\t\t\telse\n\t\t\t\t\t\t\t\tlv[i] = false;\n\t\t\t\t\t\t} else\n\t\t\t\t\t\t\tlv[i] = NA_LOGICAL;\n\t\t\t\t\t} else {\n\t\t\t\t\t\tRcpp::IntegerVector iv;\n\t\t\t\t\t\tiv = out[iField];\n\t\t\t\t\t\tif (not_NA)\n\t\t\t\t\t\t\tiv[i] = poFeature->GetFieldAsInteger(iField);\n\t\t\t\t\t\telse\n\t\t\t\t\t\t\tiv[i] = NA_INTEGER;\n\t\t\t\t\t}\n\t\t\t\t\t}\n\t\t\t\t\tbreak;\n\t\t\t\tcase OFTInteger64: {\n\t\t\t\t\tif (int64_as_string) {\n\t\t\t\t\t\tRcpp::CharacterVector cv;\n\t\t\t\t\t\tcv = out[iField];\n\t\t\t\t\t\tif (not_NA)\n\t\t\t\t\t\t\tcv[i] = poFeature->GetFieldAsString(iField);\n\t\t\t\t\t\telse\n\t\t\t\t\t\t\tcv[i] = NA_STRING;\n\t\t\t\t\t} else {\n\t\t\t\t\t\tRcpp::NumericVector nv;\n\t\t\t\t\t\tnv = out[iField];\n\t\t\t\t\t\tif (not_NA)\n\t\t\t\t\t\t\tnv[i] = (double) poFeature->GetFieldAsInteger64(iField);\n\t\t\t\t\t\telse\n\t\t\t\t\t\t\tnv[i] = NA_REAL;\n\t\t\t\t\t\t// OR: poFeature->GetFieldAsString(iField);\n\t\t\t\t\t\tif (nv[i] > dbl_max_int64)\n\t\t\t\t\t\t\twarn_int64 = true;\n\t\t\t\t\t\t}\n\t\t\t\t\t}\n\t\t\t\t\tbreak;\n\t\t\t\tcase OFTDateTime:\n\t\t\t\tcase OFTDate: {\n\t\t\t\t\tint Year, Month, Day, Hour, Minute, TZFlag;\n\t\t\t\t\tfloat Second;\n\t\t\t\t\tconst char *tzone = \"\";\n\t\t\t\t\tpoFeature->GetFieldAsDateTime(iField, &Year, &Month, &Day, &Hour, &Minute,\n\t\t\t\t\t\t&Second, &TZFlag);\n\t\t\t\t\tif (TZFlag == 100)\n\t\t\t\t\t\ttzone = \"UTC\";\n\t\t\t\t\t// POSIXlt: sec min hour mday mon year wday yday isdst ...\n\t\t\t\t\tRcpp::List dtlst =\n\t\t\t\t\t\tRcpp::List::create(\n\t\t\t\t\t\t\tRcpp::_[\"sec\"] = (double) Second,\n\t\t\t\t\t\t\tRcpp::_[\"min\"] = (int) Minute,\n\t\t\t\t\t\t\tRcpp::_[\"hour\"] = (int) Hour,\n\t\t\t\t\t\t\tRcpp::_[\"mday\"] = (int) Day,\n\t\t\t\t\t\t\tRcpp::_[\"mon\"] = (int) Month - 1,\n\t\t\t\t\t\t\tRcpp::_[\"year\"] = (int) Year - 1900,\n\t\t\t\t\t\t\tRcpp::_[\"wday\"] = NA_INTEGER,\n\t\t\t\t\t\t\tRcpp::_[\"yday\"] = NA_INTEGER,\n\t\t\t\t\t\t\tRcpp::_[\"isdst\"] = NA_INTEGER,\n\t\t\t\t\t\t\tRcpp::_[\"zone\"] = tzone,\n\t\t\t\t\t\t\tRcpp::_[\"gmtoff\"] = NA_INTEGER);\n\t\t\t\t\tif (TZFlag == 100)\n\t\t\t\t\t\tdtlst.attr(\"tzone\") = \"UTC\";\n\t\t\t\t\tdtlst.attr(\"class\") = \"POSIXlt\";\n\t\t\t\t\tRcpp::NumericVector nv;\n\t\t\t\t\tnv = out[iField];\n\t\t\t\t\tif (! not_NA) {\n\t\t\t\t\t\tnv[i] = NA_REAL;\n\t\t\t\t\t\tbreak;\n\t\t\t\t\t}\n\t\t\t\t\tif (poFieldDefn->GetType() == OFTDateTime) {\n\t\t\t\t\t\tRcpp::Function as_POSIXct_POSIXlt(\"as.POSIXct.POSIXlt\");\n\t\t\t\t\t\tRcpp::NumericVector ret = as_POSIXct_POSIXlt(dtlst); // R help me!\n\t\t\t\t\t\tnv[i] = ret[0];\n\t\t\t\t\t} else {\n\t\t\t\t\t\tRcpp::Function as_Date_POSIXlt(\"as.Date.POSIXlt\");\n\t\t\t\t\t\tRcpp::NumericVector ret = as_Date_POSIXlt(dtlst); // R help me!\n\t\t\t\t\t\tnv[i] = ret[0];\n\t\t\t\t\t}\n\t\t\t\t\tbreak;\n\t\t\t\t\t}\n\t\t\t\t\tbreak;\n\t\t\t\tcase OFTReal: {\n\t\t\t\t\tRcpp::NumericVector nv;\n\t\t\t\t\tnv = out[iField];\n\t\t\t\t\tif (not_NA)\n\t\t\t\t\t\tnv[i] = (double) poFeature->GetFieldAsDouble(iField);\n\t\t\t\t\telse\n\t\t\t\t\t\tnv[i] = NA_REAL;\n\t\t\t\t\t}\n\t\t\t\t\tbreak;\n\t\t\t\tcase OFTStringList: {\n\t\t\t\t\tRcpp::List lv;\n\t\t\t\t\tlv = out[iField];\n\t\t\t\t\tchar **sl = poFeature->GetFieldAsStringList(iField);\n\t\t\t\t\tRcpp::CharacterVector cv(CSLCount(sl));\n\t\t\t\t\tfor (int j = 0; j < cv.size(); j++)\n\t\t\t\t\t\tcv[j] = sl[j];\n\t\t\t\t\tlv[i] = cv;\n\t\t\t\t\t}\n\t\t\t\t\tbreak;\n\t\t\t\tcase OFTRealList: {\n\t\t\t\t\t// for all *List types, NA is handled by zero-length lists\n\t\t\t\t\tRcpp::List lv; // #nocov start\n\t\t\t\t\tlv = out[iField];\n\t\t\t\t\tint n;\n\t\t\t\t\tconst double *dl = poFeature->GetFieldAsDoubleList(iField, &n);\n\t\t\t\t\tRcpp::NumericVector nv(n);\n\t\t\t\t\tfor (int j = 0; j < nv.size(); j++)\n\t\t\t\t\t\tnv[j] = dl[j];\n\t\t\t\t\tlv[i] = nv;\n\t\t\t\t\t}\n\t\t\t\t\tbreak; // #nocov end\n\t\t\t\tcase OFTIntegerList: {\n\t\t\t\t\tRcpp::List lv;\n\t\t\t\t\tlv = out[iField];\n\t\t\t\t\tint n;\n\t\t\t\t\tconst int *il = poFeature->GetFieldAsIntegerList(iField, &n);\n\t\t\t\t\tRcpp::IntegerVector iv(n);\n\t\t\t\t\tfor (int j = 0; j < iv.size(); j++)\n\t\t\t\t\t\tiv[j] = il[j];\n\t\t\t\t\tlv[i] = iv;\n\t\t\t\t\t}\n\t\t\t\t\tbreak;\n\t\t\t\tcase OFTInteger64List: {\n\t\t\t\t\tRcpp::List lv;\n\t\t\t\t\tlv = out[iField];\n\t\t\t\t\tint n;\n\t\t\t\t\tconst GIntBig *int64list = poFeature->GetFieldAsInteger64List(iField, &n);\n\t\t\t\t\tif (int64_as_string) {\n\t\t\t\t\t\tRcpp::CharacterVector cv(n);\n\t\t\t\t\t\tfor (int j = 0; j < cv.size(); j++) {\n\t\t\t\t\t\t\tstd::stringstream stream;\n\t\t\t\t\t\t\tstream << int64list[j];\n\t\t\t\t\t\t\tcv[j] = stream.str();\n\t\t\t\t\t\t}\n\t\t\t\t\t\tlv[i] = cv;\n\t\t\t\t\t} else {\n\t\t\t\t\t\tRcpp::NumericVector nv(n);\n\t\t\t\t\t\tfor (int j = 0; j < nv.size(); j++) {\n\t\t\t\t\t\t\tnv[j] = (double) int64list[j];\n\t\t\t\t\t\t\tif (nv[j] > dbl_max_int64)\n\t\t\t\t\t\t\t\t\twarn_int64 = true; // #nocov\n\t\t\t\t\t\t}\n\t\t\t\t\t\tlv[i] = nv;\n\t\t\t\t\t}\n\t\t\t\t\t}\n\t\t\t\t\tbreak;\n\t\t\t\tcase OFTBinary: {\n\t\t\t\t\tRcpp::List lv;\n\t\t\t\t\tlv = out[iField];\n\t\t\t\t\tint n;\n\t\t\t\t\tconst GByte *bl = poFeature->GetFieldAsBinary(iField, &n);\n\t\t\t\t\tRcpp::RawVector rv(n);\n\t\t\t\t\tfor (int j = 0; j < rv.size(); j++)\n\t\t\t\t\t\trv[j] = bl[j];\n\t\t\t\t\tlv[i] = rv;\n\t\t\t\t\t}\n\t\t\t\t\tbreak;\n\t\t\t\tdefault: // break through: anything else to be converted to string?\n\t\t\t\tcase OFTString: {\n\t\t\t\t\tRcpp::CharacterVector cv;\n\t\t\t\t\tcv = out[iField];\n\t\t\t\t\tif (not_NA)\n\t\t\t\t\t\tcv[i] = poFeature->GetFieldAsString(iField);\n\t\t\t\t\telse\n\t\t\t\t\t\tcv[i] = NA_STRING;\n\t\t\t\t\t}\n\t\t\t\tbreak;\n\t\t\t}\n\t\t}\n\n\t\t// feature geometry:\n\t\tfor (int iGeom = 0; iGeom < poFDefn->GetGeomFieldCount(); iGeom++ ) {\n\t\t\tpoGeometryV[i + n * iGeom] = poFeature->GetGeomFieldRef(iGeom);\n\t\t\tif (poGeometryV[i + n * iGeom] == NULL)\n\t\t\t\thas_null_geometries = true;\n\t\t}\n\n\t\tpoFeatureV[i] = poFeature;\n\t\ti++;\n\t} // all read...\n\tif (i < n) { // re-read with preset n: see https://github.com/r-spatial/sf/issues/2248\n\t\tRcpp::Rcout << \"Re-reading with feature count reset from \" << n << \" to \" << i << std::endl;\n\t\treturn sf_from_ogrlayer(poLayer, quiet, int64_as_string, toTypeUser, fid_column, promote_to_multi, i);\n\t} else { \n\n\t\t// add feature IDs if needed:\n\t\tif (fid_column.size())\n\t\t\tout[ poFDefn->GetFieldCount() ] = fids;\n\n\t\tstd::vector to_be_freed;\n\t\tfor (int iGeom = 0; iGeom < poFDefn->GetGeomFieldCount(); iGeom++ ) {\n\n\t\t\tstd::vector poGeom(n);\n\t\t\tfor (i = 0; i < n; i++)\n\t\t\t\tpoGeom[i] = poGeometryV[i + n * iGeom];\n\n\t\t\tOGRwkbGeometryType toType = wkbUnknown, toTypeU = wkbUnknown;\n\t\t\tif (toTypeUser.size() == poFDefn->GetGeomFieldCount())\n\t\t\t\ttoTypeU = (OGRwkbGeometryType) toTypeUser[iGeom];\n\t\t\telse\n\t\t\t\ttoTypeU = (OGRwkbGeometryType) toTypeUser[0];\n\t\t\tif (promote_to_multi && toTypeU == wkbUnknown)\n\t\t\t\ttoType = to_multi_what(poGeom);\n\t\t\telse\n\t\t\t\ttoType = toTypeU;\n\n\t\t\tif (toType != 0) { // coerce to toType:\n\t\t\t\t// OGRGeomFieldDefn *poGFDefn = poFDefn->GetGeomFieldDefn(i);\n\t\t\t\tfor (i = 0; i < poFeatureV.size(); i++) {\n\t\t\t\t\tOGRGeometry *geom = poFeatureV[i]->StealGeometry(iGeom); // transfer ownership\n\t\t\t\t\tif (geom == NULL)\n\t\t\t\t\t\tgeom = OGRGeometryFactory::createGeometry((OGRwkbGeometryType) toType); // #nocov\n\t\t\t\t\telse if ((geom =\n#if GDAL_VERSION_NUM >= 3130000\n\t\t\t\t\t\t\tOGRGeometryFactory::forceTo(std::unique_ptr(geom), (OGRwkbGeometryType) toType, NULL).release()\n#else\n\t\t\t\t\t\t\tOGRGeometryFactory::forceTo(geom, (OGRwkbGeometryType) toType, NULL)\n#endif\n\t\t\t\t\t\t\t) == NULL)\n\t\t\t\t\t\tRcpp::stop(\"OGRGeometryFactory::forceTo returned NULL\"); // #nocov\n\t\t\t\t\thandle_error(poFeatureV[i]->SetGeomFieldDirectly(iGeom, geom));\n\t\t\t\t\tpoGeom[i] = poFeatureV[i]->GetGeomFieldRef(iGeom);\n\t\t\t\t\tif (poGeom[i] == NULL)\n\t\t\t\t\t\tRcpp::stop(\"GetGeomFieldRef returned NULL\"); // #nocov\n\t\t\t\t}\n\t\t\t} else if (has_null_geometries) {\n\t\t\t\tif (! quiet)\n\t\t\t\t\tRcpp::Rcout << \"replacing null geometries with empty geometries\" << std::endl; // #nocov\n\n\t\t\t\t// replace null's with empty:\n\t\t\t\tOGRwkbGeometryType gt = wkbGeometryCollection;\n\t\t\t\tfor (i = 0; i < poGeom.size(); i++) {\n\t\t\t\t\tif (poGeom[i] != NULL) {\n\t\t\t\t\t\tgt = poGeom[i]->getGeometryType(); // first non-NULL\n\t\t\t\t\t\tbreak;\n\t\t\t\t\t}\n\t\t\t\t}\n\t\t\t\tfor (i = 0; i < poGeom.size(); i++) {\n\t\t\t\t\tif (poGeom[i] == NULL) {\n\t\t\t\t\t\tpoGeom[i] = OGRGeometryFactory::createGeometry(gt);\n\t\t\t\t\t\tif (poGeom[i] == NULL)\n\t\t\t\t\t\t\tRcpp::stop(\"createGeometry returned NULL\"); // #nocov\n\t\t\t\t\t\telse\n\t\t\t\t\t\t\tto_be_freed.push_back(poGeom[i]);\n\t\t\t\t\t}\n\t\t\t\t}\n\t\t\t}\n\t\t\tif (! quiet && toTypeU != 0 && n > 0)\n\t\t\t\tRcpp::Rcout << \"converted into: \" << poGeom[0]->getGeometryName() << std::endl; // #nocov\n\t\t\t// convert to R:\n\t\t\tRcpp::List sfc = sfc_from_ogr(poGeom, false); // don't destroy\n\t\t\tOGRGeomFieldDefn *fdfn = poFDefn->GetGeomFieldDefn(iGeom);\n\t\t\tsfc.attr(\"crs\") = create_crs(fdfn->GetSpatialRef()); // overwrite: see #449 for the reason why\n\t\t\tout[iGeom + poFDefn->GetFieldCount() + fid_column.size()] = sfc;\n\t\t}\n\n\t\tif (warn_int64)\n\t\t\tRcpp::Rcout << \"Integer64 values larger than \" << dbl_max_int64 <<\n\t\t\t\t\" lost significance after conversion to double;\" << std::endl <<\n\t\t\t\t\"use argument int64_as_string = TRUE to import them lossless, as character\" << std::endl;\n\n\t\t// clean up:\n\t\tfor (i = 0; i < n; i++)\n\t\t\tOGRFeature::DestroyFeature(poFeatureV[i]);\n\t\tfor (i = 0; i < to_be_freed.size(); i++)\n\t\t\tOGRGeometryFactory::destroyGeometry(to_be_freed[i]);\n\n\t\treturn out;\n\t}\n}\n\nstatic void finalize_dataset_xptr(SEXP dataset_xptr) {\n\tGDALDataset *poDS = (GDALDataset*)R_ExternalPtrAddr(dataset_xptr);\n\tif (poDS != nullptr) {\n\t\tGDALClose(poDS);\n\t}\n}\n\nRcpp::List CPL_ogr_layer_setup(Rcpp::CharacterVector datasource, Rcpp::CharacterVector layer,\n\t\tRcpp::CharacterVector query,\n\t\tRcpp::CharacterVector options, bool quiet, Rcpp::CharacterVector drivers,\n\t\tRcpp::CharacterVector wkt_filter,\n\t\tbool dsn_exists,\n\t\tbool dsn_isdb,\n\t\tint width) {\n // adapted from the OGR tutorial @ www.gdal.org\n\tstd::vector open_options = create_options(options, quiet);\n\tstd::vector drivers_v = create_options(drivers, quiet);\n\tGDALDataset *poDS;\n\tpoDS = (GDALDataset *) GDALOpenEx( datasource[0], GDAL_OF_VECTOR | GDAL_OF_READONLY,\n\t\tdrivers.size() ? drivers_v.data() : NULL, open_options.data(), NULL );\n\tif( poDS == NULL ) {\n\t\t// could not open dsn\n\t\tif( dsn_isdb ) {\n\t\t\tRcpp::stop(\"Cannot open %s; Check connection parameters.\", datasource);\n\t\t}\n\t\tif( dsn_exists ) {\n\t\t\tRcpp::stop(\"Cannot open %s; %s %s\",\n datasource,\n \"The source could be corrupt or not supported.\",\n \"See `st_drivers()` for a list of supported formats.\");\n\t\t}\n\t\tRcpp::stop(\"Cannot open %s; The file doesn't seem to exist.\", datasource);\n\t}\n\n\t// Will close the dataset if some early return/exception prevents GDALClose() from being\n\t// called/allows the result to be accessed by the caller.\n\tRcpp::RObject dataset_xptr = R_MakeExternalPtr(poDS, R_NilValue, R_NilValue);\n\tR_RegisterCFinalizer(dataset_xptr, &finalize_dataset_xptr);\n\n\tif (layer.size() == 0 && Rcpp::CharacterVector::is_na(query[0])) { // no layer specified\n\t\tswitch (poDS->GetLayerCount()) {\n\t\t\tcase 0: { // error:\n\t\t\t\tRcpp::stop(\"No layers in datasource.\");\n\t\t\t}\n\t\t\tcase 1: { // silent:\n\t\t\t\tOGRLayer *poLayer = poDS->GetLayer(0);\n\t\t\t\tlayer = Rcpp::CharacterVector::create(poLayer->GetName());\n\t\t\t\tbreak;\n\t\t\t}\n\t\t\tdefault: { // select first layer: message + warning:\n\t\t\t\tOGRLayer *poLayer = poDS->GetLayer(0);\n\t\t\t\tlayer = Rcpp::CharacterVector::create(poLayer->GetName());\n\t\t\t\tif (! quiet) { // #nocov start\n\t\t\t\t\tRcpp::Rcout << \"Multiple layers are present in data source \" << datasource[0] << \", \";\n\t\t\t\t\tRcpp::Rcout << \"reading layer `\" << layer[0] << \"'.\" << std::endl;\n\t\t\t\t\tRcpp::Rcout << \"Use `st_layers' to list all layer names and their type in a data source.\" << std::endl;\n\t\t\t\t\tRcpp::Rcout << \"Set the `layer' argument in `st_read' to read a particular layer.\" << std::endl;\n\t\t\t\t} // #nocov end\n\t\t\t\tRcpp::Function warning(\"warning\");\n\t\t\t\twarning(\"automatically selected the first layer in a data source containing more than one.\");\n\t\t\t}\n\t\t}\n\t}\n\n\tOGRLayer *poLayer;\n\tif (! Rcpp::CharacterVector::is_na(query[0])) {\n\t\tpoLayer = poDS->ExecuteSQL(query[0], NULL, NULL);\n\t\tif (poLayer == NULL)\n\t\t\tRcpp::stop(\"Query execution failed, cannot open layer.\\n\"); // #nocov\n\t\tif (layer.size())\n\t\t\tRcpp::warning(\"argument layer is ignored when query is specified\\n\"); // #nocov\n\t} else\n\t\tpoLayer = \tpoDS->GetLayerByName(layer[0]);\n\tif (poLayer == NULL) {\n\t\tRcpp::Rcout << \"Cannot open layer \" << layer[0] << std::endl;\n\t\tRcpp::stop(\"Opening layer failed.\\n\");\n\t}\n\n\t// set spatial filter?\n\tif (wkt_filter.size()) {\n\t\tchar *wkt = wkt_filter[0];\n\t\tOGRGeometry *new_geom;\n#if GDAL_VERSION_NUM < 2030000\n\t\tOGRErr err = OGRGeometryFactory::createFromWkt(&wkt, poLayer->GetSpatialRef(), &new_geom);\n#else\n\t\tOGRErr err = OGRGeometryFactory::createFromWkt((const char *) wkt, poLayer->GetSpatialRef(), &new_geom);\n#endif\n\t\tif (err != OGRERR_NONE) {\n\t\t\tRcpp::Rcout << \"Cannot create geometry from: \" << wkt_filter[0] << std::endl;\n\t\t\tRcpp::stop(\"wkt parse error.\\n\");\n\t\t}\n\t\tpoLayer->SetSpatialFilter(new_geom);\n\t\tOGRGeometryFactory::destroyGeometry(new_geom);\n\t}\n\n\tif (! quiet) {\n\t\tif (! Rcpp::CharacterVector::is_na(query[0]))\n\t\t\tRcpp::Rcout << \"Reading query `\" << query[0] << \"'\" << std::endl << \"from data source \";\n\t\telse\n\t\t\tRcpp::Rcout << \"Reading layer `\" << layer[0] << \"' from data source \";\n\t\t// if (LENGTH(datasource[0]) > (width - (34 + LENGTH(layer[0]))))\n\t\tRcpp::String ds(datasource(0));\n\t\tif (layer.size()) {\n\t\t\tRcpp::String la(layer(0));\n\t\t\tif (strlen(ds.get_cstring()) > (width - (34 + strlen(la.get_cstring()))))\n\t\t\t\tRcpp::Rcout << std::endl << \" \";\n\t\t}\n\t\tRcpp::Rcout << \"`\" << datasource[0] << \"' \";\n\t\tif (((int) strlen(ds.get_cstring())) > (width - 25))\n\t\t\tRcpp::Rcout << std::endl << \" \";\n\t\tRcpp::Rcout << \"using driver `\" << poDS->GetDriverName() << \"'\" << std::endl; // #nocov\n\t}\n\n\t// Keeps the dataset external pointer alive as long as the layer external pointer is alive\n\tRcpp::RObject layer_xptr = R_MakeExternalPtr(poLayer, R_NilValue, dataset_xptr);\n\n\treturn Rcpp::List::create(dataset_xptr, layer_xptr);\n}\n\n// [[Rcpp::export(rng=false)]]\nRcpp::List CPL_read_ogr(Rcpp::CharacterVector datasource, Rcpp::CharacterVector layer,\n\t\tRcpp::CharacterVector query,\n\t\tRcpp::CharacterVector options, bool quiet, Rcpp::NumericVector toTypeUser,\n\t\tRcpp::CharacterVector fid_column_name, Rcpp::CharacterVector drivers,\n\t\tRcpp::CharacterVector wkt_filter,\n\t\tbool promote_to_multi = true, bool int64_as_string = false,\n\t\tbool dsn_exists = true,\n\t\tbool dsn_isdb = false,\n\t\tint width = 80) {\n Rcpp::List prep = CPL_ogr_layer_setup(datasource, layer, query, options,\n\t\t\t\t\t\t\tquiet, drivers,\n\t\t\t\t\t\t\twkt_filter,\n\t\t\t\t\t\t\tdsn_exists, dsn_isdb, width);\n\tOGRDataSource* poDS = (OGRDataSource*)(R_ExternalPtrAddr(prep[0]));\n\tOGRLayer* poLayer = (OGRLayer*)R_ExternalPtrAddr(prep[1]);\n\n\tRcpp::List out = sf_from_ogrlayer(poLayer, quiet, int64_as_string, toTypeUser, fid_column_name,\n\t\tpromote_to_multi, -1);\n\n\t// clean up if SQL was used https://www.gdal.org/classGDALDataset.html#ab2c2b105b8f76a279e6a53b9b4a182e0\n\tif (! Rcpp::CharacterVector::is_na(query[0]))\n\t\tpoDS->ReleaseResultSet(poLayer);\n\n\tGDALClose(poDS);\n\tR_SetExternalPtrAddr(prep[0], nullptr);\n\treturn out;\n}\n"
},
{
"path": "src/gdal_read.h",
"content": "#ifndef SF_GDAL_READ_H_\n#define SF_GDAL_READ_H_\nRcpp::List sf_from_ogrlayer(OGRLayer *poLayer, bool quiet, bool int64_as_string,\n\t\tRcpp::NumericVector toTypeUser, Rcpp::CharacterVector fid_column, bool promote_to_multi,\n\t\tint nfeatures);\n\nRcpp::List CPL_ogr_layer_setup(Rcpp::CharacterVector datasource, Rcpp::CharacterVector layer,\n\t\tRcpp::CharacterVector query,\n\t\tRcpp::CharacterVector options, bool quiet, Rcpp::CharacterVector drivers,\n\t\tRcpp::CharacterVector wkt_filter,\n\t\tbool dsn_exists,\n\t\tbool dsn_isdb,\n\t\tint width);\n\nRcpp::List CPL_read_gdal(Rcpp::CharacterVector fname, Rcpp::CharacterVector options, Rcpp::CharacterVector driver,\n\t\tbool read_data, Rcpp::NumericVector NA_value, Rcpp::List RasterIO_parameters);\n#endif // SF_GDAL_READ_H_\n"
},
{
"path": "src/gdal_read_stream.cpp",
"content": "\n#include \n\n#define RCPP_DEFAULT_INCLUDE_CALL false\n#include \"Rcpp.h\"\n\n#if GDAL_VERSION_NUM >= GDAL_COMPUTE_VERSION(3,6,0)\n\n#include \n#include \"gdal_read.h\"\n\nclass GDALStreamWrapper {\npublic:\n static void Make(struct ArrowArrayStream* stream, Rcpp::List shelter,\n struct ArrowArrayStream* stream_out) {\n stream_out->get_schema = &get_schema_wrap;\n stream_out->get_next = &get_next_wrap;\n stream_out->get_last_error = &get_last_error_wrap;\n stream_out->release = &release_wrap;\n stream_out->private_data = new GDALStreamWrapper(stream, shelter);\n }\n\n ~GDALStreamWrapper() {\n stream_.release(&stream_);\n GDALDataset* poDS = (GDALDataset*)R_ExternalPtrAddr(shelter_[0]);\n GDALClose(poDS);\n R_SetExternalPtrAddr(shelter_[0], nullptr);\n }\n\nprivate:\n // The parent stream as returned from GDAL\n struct ArrowArrayStream stream_;\n Rcpp::List shelter_;\n\n GDALStreamWrapper(struct ArrowArrayStream* stream, Rcpp::List shelter):\n shelter_(shelter) {\n memcpy(&stream_, stream, sizeof(struct ArrowArrayStream));\n stream->release = nullptr;\n }\n\n int get_schema(struct ArrowSchema* out) {\n return stream_.get_schema(&stream_, out);\n }\n\n int get_next(struct ArrowArray* out) {\n return stream_.get_next(&stream_, out);\n }\n\n const char* get_last_error() {\n return stream_.get_last_error(&stream_);\n }\n\n static int get_schema_wrap(struct ArrowArrayStream* stream, struct ArrowSchema* out) {\n return reinterpret_cast(stream->private_data)->get_schema(out);\n }\n\n static int get_next_wrap(struct ArrowArrayStream* stream, struct ArrowArray* out) {\n return reinterpret_cast(stream->private_data)->get_next(out);\n }\n\n static const char* get_last_error_wrap(struct ArrowArrayStream* stream) {\n return reinterpret_cast(stream->private_data)->get_last_error();\n }\n\n static void release_wrap(struct ArrowArrayStream* stream) {\n delete reinterpret_cast(stream->private_data);\n stream->release = nullptr;\n }\n};\n\n#endif\n\n// [[Rcpp::export(rng=false)]]\nRcpp::List CPL_read_gdal_stream(\n Rcpp::RObject stream_xptr,\n Rcpp::CharacterVector datasource, Rcpp::CharacterVector layer,\n\t\tRcpp::CharacterVector query,\n\t\tRcpp::CharacterVector options, bool quiet, Rcpp::CharacterVector drivers,\n\t\tRcpp::CharacterVector wkt_filter,\n\t\tbool dsn_exists,\n\t\tbool dsn_isdb,\n Rcpp::CharacterVector fid_column,\n\t\tint width) {\n\n#if GDAL_VERSION_NUM >= GDAL_COMPUTE_VERSION(3,6,0)\n\n const char* array_stream_options[] = {\"INCLUDE_FID=NO\", nullptr};\n if (fid_column.size() == 1) {\n array_stream_options[0] = \"INCLUDE_FID=YES\";\n }\n\n Rcpp::List prep = CPL_ogr_layer_setup(datasource, layer, query, options,\n\t\t\t\t\t\t\tquiet, drivers,\n\t\t\t\t\t\t\twkt_filter,\n\t\t\t\t\t\t\tdsn_exists, dsn_isdb, width);\n\tOGRLayer* poLayer = (OGRLayer*)R_ExternalPtrAddr(prep[1]);\n auto stream_out = reinterpret_cast(\n R_ExternalPtrAddr(stream_xptr));\n\n OGRFeatureDefn* poFDefn = poLayer->GetLayerDefn();\n Rcpp::CharacterVector geom_field_name(poFDefn->GetGeomFieldCount());\n Rcpp::CharacterVector geom_field_crs(poFDefn->GetGeomFieldCount());\n\n for (int i = 0; i < poFDefn->GetGeomFieldCount(); i++) {\n OGRGeomFieldDefn* poGFDefn = poFDefn->GetGeomFieldDefn(i);\n\t\tif (poGFDefn == nullptr) {\n\t\t\tRcpp::stop(\"GeomFieldDefn error\"); // #nocov\n }\n\n const char* name = poGFDefn->GetNameRef();\n if (strlen(name) == 0) {\n name = \"geometry\";\n }\n\n const OGRSpatialReference* crs = poGFDefn->GetSpatialRef();\n Rcpp::String wkt_str = NA_STRING;\n if (crs != nullptr) {\n char* wkt_out;\n crs->exportToWkt(&wkt_out);\n wkt_str = wkt_out;\n CPLFree(wkt_out);\n }\n\n geom_field_name[i] = name;\n geom_field_crs[i] = wkt_str;\n }\n\n struct ArrowArrayStream stream_temp;\n if (!poLayer->GetArrowStream(&stream_temp, array_stream_options)) {\n Rcpp::stop(\"Failed to open ArrayStream from Layer\");\n }\n\n GDALStreamWrapper::Make(&stream_temp, prep, stream_out);\n\n // The reported feature count is incorrect if there is a query\n double num_features;\n if (query.size() == 0) {\n num_features = (double) poLayer->GetFeatureCount(false);\n } else {\n num_features = -1;\n }\n\n return Rcpp::List::create(\n geom_field_name,\n geom_field_crs,\n Rcpp::NumericVector::create(num_features));\n\n#else\n\n Rcpp::stop(\"read_stream() requires GDAL >= 3.6\");\n\n#endif\n\n}\n"
},
{
"path": "src/gdal_sf_pkg.h",
"content": "#ifndef SF_GDAL_SF_PKG_H_\n#define SF_GDAL_SF_PKG_H_\n\n#ifndef NO_GDAL_CPP_HEADERS\nRcpp::CharacterVector p4s_from_spatial_reference(OGRSpatialReference *ref);\nRcpp::List sfc_from_ogr(std::vector, bool destroy);\nstd::vector ogr_from_sfc(Rcpp::List sfc, OGRSpatialReference **sref);\nRcpp::List create_crs(const OGRSpatialReference *ref, bool set_input = true);\n#endif\n\nvoid handle_error(OGRErr err);\nstd::vector create_options(Rcpp::CharacterVector lco, bool quiet = true);\nRcpp::CharacterVector charpp2CV(CSLConstList cp);\n#endif // SF_GDAL_SF_PKG_H_"
},
{
"path": "src/gdal_utils.cpp",
"content": "#include \"cpl_port.h\"\n#include \"cpl_conv.h\" // CPLFree()\n#include \"gdal_version.h\"\n#include \"gdalwarper.h\"\n\n#include \n#include \n\n#include \"Rcpp.h\"\n#include \"gdal.h\" // local\n\n#define NO_GDAL_CPP_HEADERS\n#include \"gdal_sf_pkg.h\"\n\n/* modified from GDALTermProgress: */\nint CPL_STDCALL GDALRProgress( double dfComplete,\n CPL_UNUSED const char * pszMessage,\n CPL_UNUSED void * pProgressArg )\n{\n const int nThisTick = std::min(40, std::max(0,\n static_cast(dfComplete * 40.0) ));\n\n // Have we started a new progress run?\n static int nLastTick = -1;\n if( nThisTick < nLastTick && nLastTick >= 39 )\n nLastTick = -1;\n\n if( nThisTick <= nLastTick )\n return TRUE;\n\n while( nThisTick > nLastTick )\n {\n ++nLastTick;\n if( nLastTick % 4 == 0 )\n Rprintf(\"%d\", (nLastTick / 4) * 10 );\n else\n Rprintf(\".\" );\n }\n\n if( nThisTick == 40 )\n Rprintf(\" - done.\\n\" );\n\n return TRUE;\n}\n\n#if GDAL_VERSION_NUM >= 2010000\n# include \"gdal_utils.h\" // requires >= 2.1\n\n// [[Rcpp::export(rng=false)]]\nRcpp::CharacterVector CPL_gdalinfo(Rcpp::CharacterVector obj, Rcpp::CharacterVector options, \n\t\tRcpp::CharacterVector oo, Rcpp::CharacterVector co) {\n\tset_config_options(co);\n\tstd::vector options_char = create_options(options, true);\n\tstd::vector oo_char = create_options(oo, true); // open options\n\tGDALInfoOptions* opt = GDALInfoOptionsNew(options_char.data(), NULL);\n\tGDALDatasetH ds = NULL;\n\tif (obj.size())\n\t\tds = GDALOpenEx((const char *) obj[0], GA_ReadOnly, NULL, oo_char.data(), NULL);\n\tchar *ret_val = GDALInfo(ds, opt);\n\tif (ret_val == NULL)\n\t\treturn Rcpp::CharacterVector::create();\n\tRcpp::CharacterVector ret = ret_val; // copies\n\tCPLFree(ret_val);\n\tGDALInfoOptionsFree(opt);\n\tif (ds)\n\t\tGDALClose(ds);\n\tunset_config_options(co);\n\treturn ret;\n}\n\n// [[Rcpp::export(rng=false)]]\nRcpp::CharacterVector CPL_ogrinfo(Rcpp::CharacterVector obj, Rcpp::CharacterVector options, \n\t\tRcpp::CharacterVector oo, Rcpp::CharacterVector co, bool read_only = false) {\n\tset_config_options(co);\n\tstd::vector options_char = create_options(options, true);\n\tstd::vector oo_char = create_options(oo, true); // open options\n\tGDALDatasetH ds = NULL;\n#if GDAL_VERSION_NUM >= 3070000\n\tif (obj.size())\n\t\tds = GDALOpenEx((const char *) obj[0], read_only ? GA_ReadOnly : GA_Update, NULL, oo_char.data(), NULL);\n\tGDALVectorInfoOptions* opt = GDALVectorInfoOptionsNew(options_char.data(), NULL);\n\tchar *ret_val = GDALVectorInfo(ds, opt);\n\tif (ret_val == NULL)\n\t\treturn Rcpp::CharacterVector::create();\n\tRcpp::CharacterVector ret = ret_val; // copies\n\tCPLFree(ret_val);\n\tGDALVectorInfoOptionsFree(opt);\n#else\n\tRcpp::CharacterVector ret;\n\tRcpp::stop(\"ogrinfo util requires GDAL >= 3.7.0\");\n#endif\n\tif (ds)\n\t\tGDALClose(ds);\n\tunset_config_options(co);\n\treturn ret;\n}\n\n// [[Rcpp::export(rng=false)]]\nRcpp::LogicalVector CPL_gdaladdo(Rcpp::CharacterVector obj, Rcpp::CharacterVector method, \n\t\tRcpp::IntegerVector overviews, Rcpp::IntegerVector bands, Rcpp::CharacterVector oo,\n\t\tRcpp::CharacterVector co, bool clean = false, bool read_only = false) {\n\n\tset_config_options(co);\n\t/*\n\tstd::vector options_char = create_options(options, true);\n\tGDALInfoOptions* opt = GDALInfoOptionsNew(options_char.data(), NULL);\n\t*/\n\tstd::vector oo_char = create_options(oo, true); // open options\n\n\tGDALDatasetH ds;\n\tif ((ds = GDALOpenEx((const char *) obj[0], \n\t\t\t\t\t\tGDAL_OF_RASTER | (read_only ? GA_ReadOnly : GA_Update),\n\t\t\t\t\t\tNULL, oo_char.data(), NULL)) == NULL)\n\t\tRcpp::stop(read_only ? \"cannot open file for reading\" : \"cannot open file for writing\");\n\n\tif (clean) { // remove overviews:\n\t\tif (GDALBuildOverviews(ds, method[0], 0, nullptr,\n 0, nullptr, GDALRProgress, nullptr) != CE_None) {\n\t\t\tGDALClose(ds);\n\t\t\tRcpp::stop(\"error while cleaning overviews\");\n\t\t}\n\t} else { // build overviews:\n\t\tif (GDALBuildOverviews(ds, method[0], \n\t\t\t\t\toverviews.size(), overviews.size() ? &(overviews[0]) : NULL,\n\t\t\t\t\tbands.size(), bands.size() ? &(bands[0]) : NULL, \n\t\t\t\t\tGDALRProgress, NULL) != CE_None) {\n\t\t\tGDALClose(ds);\n\t\t\tRcpp::stop(\"error while building overviews\");\n\t\t}\n\t}\n\tGDALClose(ds);\n\tunset_config_options(co);\n\treturn true;\n}\n\n// #nocov start\n\n// [[Rcpp::export(rng=false)]]\nRcpp::LogicalVector CPL_gdalwarp(Rcpp::CharacterVector src, Rcpp::CharacterVector dst,\n\t\tRcpp::CharacterVector options, Rcpp::CharacterVector oo, Rcpp::CharacterVector doo,\n\t\tRcpp::CharacterVector co, bool quiet = true, bool overwrite = false) {\n\n\tint err = 0;\n\n\tset_config_options(co);\n\tstd::vector oo_char = create_options(oo, true); // open options\n\tstd::vector src_pt(src.size());\n\tfor (int i = 0; i < src.size(); i++)\n\t\tsrc_pt[i] = GDALOpenEx((const char *) src[i], GA_ReadOnly, NULL, oo_char.data(), NULL);\n\n\tstd::vector doo_char = create_options(doo, true); // open options\n\tGDALDatasetH dst_ds = GDALOpenEx((const char *) dst[0], GDAL_OF_RASTER | GA_Update, NULL, doo_char.data(), NULL);\n\n\tstd::vector options_char = create_options(options, true);\n\tGDALWarpAppOptions* opt = GDALWarpAppOptionsNew(options_char.data(), NULL);\n\tif (opt == NULL)\n\t\tRcpp::stop(\"warp: options error\");\n\n\tif (! quiet) {\n\t\tGDALWarpAppOptionsSetProgress(opt, GDALRProgress, NULL);\n#if GDAL_VERSION_NUM >= 2030000\n\t\tGDALWarpAppOptionsSetQuiet(opt, 0);\n#endif\n\t}\n\tif (overwrite && dst_ds != NULL) {\n\t\tGDALClose(dst_ds);\n\t\tdst_ds = NULL;\n\t}\n\tGDALDatasetH result = GDALWarp(dst_ds == NULL ? (const char *) dst[0] : NULL, dst_ds, \n\t\tsrc.size(), src_pt.data(), opt, &err);\n\tGDALWarpAppOptionsFree(opt);\n\tfor (int i = 0; i < src.size(); i++)\n\t\tif (src_pt[i] != NULL)\n\t\t\tGDALClose(src_pt[i]);\n\tif (result != NULL)\n\t\tGDALClose(result);\n\tunset_config_options(co);\n\treturn result == NULL || err;\n}\n\n// [[Rcpp::export(rng=false)]]\nRcpp::LogicalVector CPL_gdalrasterize(Rcpp::CharacterVector src, Rcpp::CharacterVector dst,\n\t\tRcpp::CharacterVector options, Rcpp::CharacterVector oo, Rcpp::CharacterVector doo,\n\t\tRcpp::CharacterVector co, bool overwrite = false, bool quiet = true) {\n\n\tset_config_options(co);\n\tint err = 0;\n\tstd::vector options_char = create_options(options, true);\n\tstd::vector oo_char = create_options(oo, true); // open options\n\tGDALRasterizeOptions* opt = GDALRasterizeOptionsNew(options_char.data(), NULL);\n\tif (opt == NULL)\n\t\tRcpp::stop(\"rasterize: options error\");\n\n\tif (! quiet)\n\t\tGDALRasterizeOptionsSetProgress(opt, GDALRProgress, NULL);\n\tGDALDatasetH src_pt = GDALOpenEx((const char *) src[0], GDAL_OF_VECTOR | GA_ReadOnly, \n\t\tNULL, oo_char.data(), NULL);\n\tif (src_pt == NULL)\n\t\tRcpp::stop(\"source dataset not found\");\n\tunset_error_handler();\n\tGDALDatasetH dst_pt = NULL;\n\tif (! overwrite) {\n\t\tstd::vector doo_char = create_options(doo, true); // open options\n\t\tdst_pt = GDALOpenEx((const char *) dst[0], GDAL_OF_RASTER | GA_Update, NULL, doo_char.data(), NULL);\n\t}\n\tset_error_handler();\n\tGDALDatasetH result = \n\t\tGDALRasterize(dst_pt == NULL ? (const char *) dst[0] : NULL, dst_pt, src_pt, opt, &err);\n\tGDALRasterizeOptionsFree(opt);\n\tif (src_pt != NULL)\n\t\tGDALClose(src_pt);\n\tif (result != NULL)\n\t\tGDALClose(result);\n\tunset_config_options(co);\n\treturn result == NULL || err;\n}\n// #nocov end\n\n\n// [[Rcpp::export(rng=false)]]\nRcpp::LogicalVector CPL_gdaltranslate(Rcpp::CharacterVector src, Rcpp::CharacterVector dst,\n\t\tRcpp::CharacterVector options, Rcpp::CharacterVector oo, Rcpp::CharacterVector co,\n\t\tbool quiet = true) {\n\n\tset_config_options(co);\n\tint err = 0;\n\tstd::vector options_char = create_options(options, true);\n\tstd::vector oo_char = create_options(oo, true);\n\tGDALTranslateOptions* opt = GDALTranslateOptionsNew(options_char.data(), NULL);\n\tif (opt == NULL)\n\t\tRcpp::stop(\"translate: options error\");\n\n\tif (! quiet)\n\t\tGDALTranslateOptionsSetProgress(opt, GDALRProgress, NULL);\n\tGDALDatasetH src_pt = GDALOpenEx((const char *) src[0], GDAL_OF_RASTER | GA_ReadOnly, \n\t\tNULL, oo_char.data(), NULL);\n\tif (src_pt == NULL)\n\t\treturn 1; // #nocov\n\tGDALDatasetH result = GDALTranslate((const char *) dst[0], src_pt, opt, &err);\n\tGDALTranslateOptionsFree(opt);\n\t// see https://github.com/r-spatial/sf/issues/1352:\n\tif (result != NULL)\n\t\tGDALClose(result);\n\tif (src_pt != NULL)\n\t\tGDALClose(src_pt);\n\tunset_config_options(co);\n\treturn result == NULL || err;\n}\n\n\n// [[Rcpp::export(rng=false)]]\nRcpp::LogicalVector CPL_gdalfootprint(Rcpp::CharacterVector src, Rcpp::CharacterVector dst,\n Rcpp::CharacterVector options, Rcpp::CharacterVector oo, Rcpp::CharacterVector co,\n bool quiet = true) {\n\t\n#if GDAL_VERSION_NUM < 3080000\n\tRcpp::stop(\"footprint util requires GDAL >= 3.8.0\");\n#else\n\tint err = 0;\n\tset_config_options(co);\n\tstd::vector options_char = create_options(options, true);\n\tstd::vector oo_char = create_options(oo, true);\n\tGDALFootprintOptions* opt = GDALFootprintOptionsNew(options_char.data(), NULL);\n\t\n\tif (opt == NULL)\n\t\tRcpp::stop(\"footprint: options error\");\n\t\n\tif (! quiet)\n\t\tGDALFootprintOptionsSetProgress(opt, GDALRProgress, NULL);\n\tGDALDatasetH src_pt = GDALOpenEx((const char *) src[0], GDAL_OF_RASTER | GA_ReadOnly,\n NULL, oo_char.data(), NULL);\n\tif (src_pt == NULL)\n\t\treturn 1; // #nocov\n\tGDALDatasetH result = GDALFootprint((const char *) dst[0], NULL,src_pt, opt, &err);\n\tGDALFootprintOptionsFree(opt);\n\t// see https://github.com/r-spatial/sf/issues/1352:\n\tif (result != NULL)\n\t\tGDALClose(result);\n\tif (src_pt != NULL)\n\t\tGDALClose(src_pt);\n\tunset_config_options(co);\n\treturn result == NULL || err;\n#endif\n}\n\n// [[Rcpp::export(rng=false)]]\nRcpp::LogicalVector CPL_gdalvectortranslate(Rcpp::CharacterVector src, Rcpp::CharacterVector dst,\n\t\tRcpp::CharacterVector options, Rcpp::CharacterVector oo, Rcpp::CharacterVector doo,\n\t\tRcpp::CharacterVector co, bool quiet = true) {\n\n\tset_config_options(co);\n\tint err = 0;\n\tstd::vector options_char = create_options(options, true);\n\tGDALVectorTranslateOptions* opt = GDALVectorTranslateOptionsNew(options_char.data(), NULL);\n\tif (opt == NULL)\n\t\tRcpp::stop(\"vectortranslate: options error\");\n\n\tif (! quiet)\n\t\tGDALVectorTranslateOptionsSetProgress(opt, GDALRProgress, NULL);\n\tstd::vector oo_char = create_options(oo, true); // open options\n\tGDALDatasetH src_pt = GDALOpenEx((const char *) src[0], GDAL_OF_VECTOR | GA_ReadOnly, NULL, \n\t\too_char.data(), NULL);\n\tif (src_pt == NULL)\n\t\treturn 1; // #nocov\n\tstd::vector doo_char = create_options(doo, true); // open options\n\tunset_error_handler();\n\tGDALDatasetH dst_pt = GDALOpenEx((const char *) dst[0], GDAL_OF_VECTOR | GA_Update, NULL, doo_char.data(), NULL);\n\tset_error_handler();\n\tGDALDatasetH result = \n\t\tGDALVectorTranslate(dst_pt == NULL ? (const char *) dst[0] : NULL, dst_pt, 1, &src_pt, opt, &err);\n\tGDALVectorTranslateOptionsFree(opt);\n\tGDALClose(src_pt);\n\tif (result != NULL)\n\t\tGDALClose(result);\n\tunset_config_options(co);\n\treturn result == NULL || err;\n}\n\n// [[Rcpp::export(rng=false)]]\nRcpp::LogicalVector CPL_gdalbuildvrt(Rcpp::CharacterVector src, Rcpp::CharacterVector dst,\n\t\tRcpp::CharacterVector options, Rcpp::CharacterVector oo, \n\t\tRcpp::CharacterVector co, bool quiet = true) {\n\n\tset_config_options(co);\n\tint err = 0;\n\tstd::vector options_char = create_options(options, true);\n\tGDALBuildVRTOptions* opt = GDALBuildVRTOptionsNew(options_char.data(), NULL);\n\tif (opt == NULL)\n\t\tRcpp::stop(\"buildvrt: options error\");\n\n\tif (! quiet)\n\t\tGDALBuildVRTOptionsSetProgress(opt, GDALRProgress, NULL);\n\tGDALDatasetH result = NULL;\n\tif (oo.size()) { \n\t\t// to understand why we don't always take this path, read: \n\t\t// https://github.com/r-spatial/sf/issues/1336\n\t\tstd::vector oo_char = create_options(oo, true); // open options\n\t\tstd::vector srcpt(src.size());\n\t\tfor (int i = 0; i < src.size(); i++) {\n\t\t\tsrcpt[i] = GDALOpenEx((const char *) src[i], GDAL_OF_RASTER | GA_ReadOnly, NULL, \n\t\t\t\too_char.data(), NULL);\n\t\t\tif (srcpt[i] == NULL)\n\t\t\t\tRcpp::stop(\"cannot open source dataset\");\n\t\t}\n\t\tresult = GDALBuildVRT((const char *) dst[0], src.size(), srcpt.data(), NULL, opt, &err);\n\t\tfor (int i = 0; i < src.size(); i++)\n\t\t\tGDALClose(srcpt[i]);\n\t} else {\n\t\tstd::vector srcpt(src.size());\n\t\tfor (int i = 0; i < src.size(); i++)\n\t\t\tsrcpt[i] = (const char *) src[i];\n\t\tresult = GDALBuildVRT((const char *) dst[0], src.size(), NULL, srcpt.data(), opt, &err);\n\t}\n\tGDALBuildVRTOptionsFree(opt);\n\tif (result != NULL)\n\t\tGDALClose(result);\n\tunset_config_options(co);\n\treturn result == NULL || err;\n}\n\n// [[Rcpp::export(rng=false)]]\nRcpp::LogicalVector CPL_gdaldemprocessing(Rcpp::CharacterVector src, Rcpp::CharacterVector dst,\n\t\tRcpp::CharacterVector options, Rcpp::CharacterVector processing, \n\t\tRcpp::CharacterVector colorfilename, Rcpp::CharacterVector oo, \n\t\tRcpp::CharacterVector co, bool quiet = true) {\n\n\tint err = 0;\n\tset_config_options(co);\n\tstd::vector options_char = create_options(options, true);\n\tstd::vector oo_char = create_options(oo, true); // open options\n\tGDALDEMProcessingOptions* opt = GDALDEMProcessingOptionsNew(options_char.data(), NULL);\n\tif (opt == NULL)\n\t\tRcpp::stop(\"demprocessing: options error\");\n\n\tif (! quiet)\n\t\tGDALDEMProcessingOptionsSetProgress(opt, GDALRProgress, NULL);\n\tGDALDatasetH src_pt = GDALOpenEx((const char *) src[0], GDAL_OF_RASTER | GA_ReadOnly, \n\t\tNULL, oo_char.data(), NULL);\n\tif (src_pt == NULL)\n\t\tRcpp::stop(\"cannot open source dataset\"); // #nocov\n\tGDALDatasetH result = GDALDEMProcessing((const char *) dst[0], src_pt, \n\t\tprocessing.size() == 0 ? NULL : (const char *) processing[0], \n\t\tcolorfilename.size() == 0 ? NULL : (const char *) colorfilename[0], \n\t\topt, &err);\n\tGDALDEMProcessingOptionsFree(opt);\n\tif (result != NULL)\n\t\tGDALClose(result);\n\tif (src_pt != NULL)\n\t\tGDALClose(src_pt);\n\tunset_config_options(co);\n\treturn result == NULL || err;\n}\n\n// [[Rcpp::export(rng=false)]]\nRcpp::LogicalVector CPL_gdalnearblack(Rcpp::CharacterVector src, Rcpp::CharacterVector dst,\n\t\tRcpp::CharacterVector options, Rcpp::CharacterVector oo, Rcpp::CharacterVector doo, \n\t\tRcpp::CharacterVector co, bool quiet = true) {\n\n\tset_config_options(co);\n\tint err = 0;\n\tstd::vector options_char = create_options(options, true);\n\tstd::vector oo_char = create_options(oo, true); // open options\n\tstd::vector doo_char = create_options(doo, true); // open options\n\tGDALNearblackOptions* opt = GDALNearblackOptionsNew(options_char.data(), NULL);\n\tif (opt == NULL)\n\t\tRcpp::stop(\"nearblack: options error\");\n\n\tif (! quiet)\n\t\tGDALNearblackOptionsSetProgress(opt, GDALRProgress, NULL);\n\t// GDALDatasetH src_pt = GDALOpen((const char *) src[0], GA_ReadOnly);\n\tGDALDatasetH src_pt = GDALOpenEx((const char *) src[0], GDAL_OF_RASTER | GA_ReadOnly, NULL, oo_char.data(), NULL);\n\tGDALDatasetH dst_pt = GDALOpenEx((const char *) dst[0], GDAL_OF_RASTER | GA_Update, NULL, doo_char.data(), NULL);\n\tGDALDatasetH result = GDALNearblack(dst_pt == NULL ? (const char *) dst[0] : NULL, dst_pt, src_pt, opt, &err);\n\tGDALNearblackOptionsFree(opt);\n\tif (src_pt != NULL) \n\t\tGDALClose(src_pt);\n\tif (result != NULL)\n\t\tGDALClose(result);\n\tunset_config_options(co);\n\treturn result == NULL || err;\n}\n\n// [[Rcpp::export(rng=false)]]\nRcpp::LogicalVector CPL_gdalgrid(Rcpp::CharacterVector src, Rcpp::CharacterVector dst,\n\t\tRcpp::CharacterVector options, Rcpp::CharacterVector oo,\n\t\tRcpp::CharacterVector co, bool quiet = true) {\n\n\tset_config_options(co);\n\tint err = 0;\n\tstd::vector options_char = create_options(options, true);\n\tstd::vector oo_char = create_options(oo, true); // open options\n\tGDALGridOptions* opt = GDALGridOptionsNew(options_char.data(), NULL);\n\tif (opt == NULL)\n\t\tRcpp::stop(\"grid: options error\");\n\n\tif (! quiet)\n\t\tGDALGridOptionsSetProgress(opt, GDALRProgress, NULL);\n\tGDALDatasetH src_pt = GDALOpenEx((const char *) src[0], GDAL_OF_ALL | GA_ReadOnly, \n\t\tNULL, oo_char.data(), NULL);\n\tGDALDatasetH result = GDALGrid((const char *) dst[0], src_pt, opt, &err);\n\tGDALGridOptionsFree(opt);\n\tif (src_pt != NULL)\n\t\tGDALClose(src_pt);\n\tif (result != NULL)\n\t\tGDALClose(result);\n\tunset_config_options(co);\n\treturn result == NULL || err;\n}\n\n// gdal >= 3.1: mdim utils:\n#if GDAL_VERSION_NUM >= 3010000\n// [[Rcpp::export(rng=false)]]\nRcpp::CharacterVector CPL_gdalmdiminfo(Rcpp::CharacterVector obj, Rcpp::CharacterVector options,\n\t\tRcpp::CharacterVector oo, Rcpp::CharacterVector co) { \n\tset_config_options(co);\n\tstd::vector oo_char = create_options(oo, true);\n\tGDALDatasetH ds = GDALOpenEx((const char *) obj[0], GDAL_OF_MULTIDIM_RASTER | GDAL_OF_VERBOSE_ERROR , NULL, oo_char.data(), NULL);\n\tif (ds == NULL) {\n\t\tRcpp::Rcout << \"failed to open \" << obj[0] << std::endl;\n\t\tRcpp::stop(\"cannot open data source\");\n\t}\n\tstd::vector options_char = create_options(options, true);\n\tGDALMultiDimInfoOptions* opt = GDALMultiDimInfoOptionsNew(options_char.data(), NULL);\n\tchar *ret_val = GDALMultiDimInfo(ds, opt);\n\tGDALMultiDimInfoOptionsFree(opt);\n\tGDALClose(ds);\n\tif (ret_val == NULL)\n\t\tRcpp::stop(\"GDALMultiDimInfo returned NULL\");\n\tRcpp::CharacterVector ret(1);\n\tret[0] = ret_val;\n\tCPLFree(ret_val);\n\tunset_config_options(co);\n\treturn ret;\n}\n\n// [[Rcpp::export(rng=false)]]\nRcpp::LogicalVector CPL_gdalmdimtranslate(Rcpp::CharacterVector src, Rcpp::CharacterVector dst,\n\t\tRcpp::CharacterVector options, Rcpp::CharacterVector oo, Rcpp::CharacterVector co,\n\t\tbool quiet = true) {\n\n\tset_config_options(co);\n\tint err = 0;\n\tstd::vector options_char = create_options(options, true);\n\tstd::vector oo_char = create_options(oo, true);\n\tGDALMultiDimTranslateOptions* opt = GDALMultiDimTranslateOptionsNew(options_char.data(), NULL);\n\tif (opt == NULL)\n\t\tRcpp::stop(\"mdimtranslate: options error\");\n\n\tif (! quiet)\n\t\tGDALMultiDimTranslateOptionsSetProgress(opt, GDALRProgress, NULL);\n\tstd::vector srcpt(src.size());\n\tfor (int i = 0; i < src.size(); i++) {\n\t\tsrcpt[i] = GDALOpenEx((const char *) src[i], GDAL_OF_RASTER | GDAL_OF_MULTIDIM_RASTER | GDAL_OF_VERBOSE_ERROR, NULL, \n\t\t\too_char.data(), NULL);\n\t\tif (srcpt[i] == NULL) {\n\t\t\tRcpp::Rcout << \"dataset: \" << src[i] << \": \" << std::endl;\n\t\t\tRcpp::stop(\"Cannot open source dataset\");\n\t\t}\n\t}\n\tGDALDatasetH result = GDALMultiDimTranslate((const char *) dst[0], NULL, srcpt.size(), srcpt.data(), opt, &err);\n\tGDALMultiDimTranslateOptionsFree(opt);\n\tif (result != NULL)\n\t\tGDALClose(result);\n\telse \n\t\tRcpp::stop(\"failed to open destination data set\");\n\tfor (int i = 0; i < src.size(); i++)\n\t\tGDALClose(srcpt[i]);\n\tunset_config_options(co);\n\treturn result == NULL || err;\n}\n#else\nRcpp::CharacterVector CPL_gdalmdiminfo(Rcpp::CharacterVector obj, Rcpp::CharacterVector options,\n\t\tRcpp::CharacterVector oo, Rcpp::CharacterVector co) { \n\tRcpp::stop(\"GDAL version >= 3.1 required for mdiminfo\");\n}\nRcpp::LogicalVector CPL_gdalmdimtranslate(Rcpp::CharacterVector src, Rcpp::CharacterVector dst,\n\t\tRcpp::CharacterVector options, Rcpp::CharacterVector oo, Rcpp::CharacterVector co,\n\t\tbool quiet = true) {\n\tRcpp::stop(\"GDAL version >= 3.1 required for mdimtranslate\");\n}\n#endif\n\n#else\n#include \"Rcpp.h\"\n\nRcpp::CharacterVector CPL_gdalinfo(Rcpp::CharacterVector obj, Rcpp::CharacterVector options, \n\t\tRcpp::CharacterVector oo, Rcpp::CharacterVector co) {\n\tRcpp::stop(\"GDAL version >= 2.1 required for gdal_utils\");\n}\n\nRcpp::LogicalVector CPL_gdalwarp(Rcpp::CharacterVector src, Rcpp::CharacterVector dst,\n\t\tRcpp::CharacterVector options, Rcpp::CharacterVector oo, Rcpp::CharacterVector doo, Rcpp::CharacterVector co) {\n\tRcpp::stop(\"GDAL version >= 2.1 required for gdal_utils\");\n}\n\nRcpp::LogicalVector CPL_gdalrasterize(Rcpp::CharacterVector src, Rcpp::CharacterVector dst,\n\t\tRcpp::CharacterVector options, Rcpp::CharacterVector oo, Rcpp::CharacterVector doo, Rcpp::CharacterVector co,\n\t\tbool overwrite = false) {\n\tRcpp::stop(\"GDAL version >= 2.1 required for gdal_utils\");\n}\n\nRcpp::LogicalVector CPL_gdaltranslate(Rcpp::CharacterVector src, Rcpp::CharacterVector dst,\n\t\tRcpp::CharacterVector options, Rcpp::CharacterVector oo, Rcpp::CharacterVector co) {\n\tRcpp::stop(\"GDAL version >= 2.1 required for gdal_utils\");\n}\n\nRcpp::LogicalVector CPL_gdalvectortranslate(Rcpp::CharacterVector src, Rcpp::CharacterVector dst,\n\t\tRcpp::CharacterVector options, Rcpp::CharacterVector oo, Rcpp::CharacterVector doo, Rcpp::CharacterVector co) {\n\tRcpp::stop(\"GDAL version >= 2.1 required for gdal_utils\");\n}\n\nRcpp::LogicalVector CPL_gdalbuildvrt(Rcpp::CharacterVector src, Rcpp::CharacterVector dst,\n\t\tRcpp::CharacterVector options, Rcpp::CharacterVector oo, Rcpp::CharacterVector co) {\n\tRcpp::stop(\"GDAL version >= 2.1 required for gdal_utils\");\n}\n\nRcpp::LogicalVector CPL_gdaldemprocessing(Rcpp::CharacterVector src, Rcpp::CharacterVector dst,\n\t\tRcpp::CharacterVector options, Rcpp::CharacterVector processing, Rcpp::CharacterVector colorfilename,\n\t\tRcpp::CharacterVector oo, Rcpp::CharacterVector co) {\n\tRcpp::stop(\"GDAL version >= 2.1 required for gdal_utils\");\n}\n\nRcpp::LogicalVector CPL_gdalnearblack(Rcpp::CharacterVector src, Rcpp::CharacterVector dst,\n\t\tRcpp::CharacterVector options, Rcpp::CharacterVector oo, Rcpp::CharacterVector doo, Rcpp::CharacterVector co) {\n\tRcpp::stop(\"GDAL version >= 2.1 required for gdal_utils\");\n}\n\nRcpp::LogicalVector CPL_gdalgrid(Rcpp::CharacterVector src, Rcpp::CharacterVector dst,\n\t\tRcpp::CharacterVector options, Rcpp::CharacterVector oo, Rcpp::CharacterVector co) {\n\tRcpp::stop(\"GDAL version >= 2.1 required for gdal_utils\");\n}\n\nRcpp::CharacterVector CPL_gdalmdiminfo(Rcpp::CharacterVector obj, Rcpp::CharacterVector options, \n\t\tRcpp::CharacterVector oo, Rcpp::CharacterVector co) {\n\tRcpp::stop(\"GDAL version >= 3.1 required for mdiminfo\");\n}\n\nRcpp::LogicalVector CPL_gdalmdimtranslate(Rcpp::CharacterVector src, Rcpp::CharacterVector dst,\n\t\tRcpp::CharacterVector options, Rcpp::CharacterVector oo, Rcpp::CharacterVector co) {\n\tRcpp::stop(\"GDAL version >= 3.1 required for mdimtranslate\");\n}\n#endif\n\n// #nocov start\n// https://gdal.org/tutorials/warp_tut.html\n// [[Rcpp::export(rng=false)]]\nRcpp::LogicalVector CPL_gdal_warper(Rcpp::CharacterVector infile, Rcpp::CharacterVector outfile,\n\t\tRcpp::IntegerVector options, Rcpp::CharacterVector oo, Rcpp::CharacterVector doo,\n\t\tRcpp::CharacterVector co, bool quiet = true) {\n\n\tset_config_options(co);\n\tstd::vector oo_char = create_options(oo, true); // open options\n\tGDALDatasetH hSrcDS, hDstDS;\n\t// Open input and output files.\n\tGDALAllRegister();\n\thSrcDS = GDALOpenEx( infile[0], GA_ReadOnly, NULL, oo_char.data(), NULL );\n\tif (hSrcDS == NULL)\n\t\tRcpp::stop(\"input file not found\");\n\tstd::vector doo_char = create_options(doo, true); // open options\n\thDstDS = GDALOpenEx(outfile[0], GA_Update, NULL, doo_char.data(), NULL);\n\tif (hDstDS == NULL)\n\t\tRcpp::stop(\"could not open output file for writing\");\n\t// Setup warp options.\n\tGDALWarpOptions *psWarpOptions = GDALCreateWarpOptions();\n\tpsWarpOptions->hSrcDS = hSrcDS;\n\tpsWarpOptions->hDstDS = hDstDS;\n\n\tif (GDALGetRasterCount(hSrcDS) != GDALGetRasterCount(hDstDS))\n\t\tRcpp::stop(\"warper: source and destination must have the same number of bands\");\n\n\tpsWarpOptions->nBandCount = GDALGetRasterCount(hSrcDS);\n\tpsWarpOptions->panSrcBands =\n\t\t(int *) CPLMalloc(sizeof(int) * psWarpOptions->nBandCount );\n\tpsWarpOptions->panDstBands =\n\t\t(int *) CPLMalloc(sizeof(int) * psWarpOptions->nBandCount );\n\tfor (int i = 0; i < psWarpOptions->nBandCount; i++) {\n\t\tpsWarpOptions->panSrcBands[i] = i + 1;\n\t\tpsWarpOptions->panDstBands[i] = i + 1;\n\t}\n\n\tpsWarpOptions->padfSrcNoDataReal = (double *) CPLMalloc(sizeof(double) * GDALGetRasterCount(hSrcDS));\n\tpsWarpOptions->padfDstNoDataReal = (double *) CPLMalloc(sizeof(double) * GDALGetRasterCount(hSrcDS));\n\n\tGDALRasterBandH poBand;\n\tint success;\n\tdouble d = 0xffffffff;\n\tfor (int i = 0; i < GDALGetRasterCount(hSrcDS); i++) {\n\t\tpoBand = GDALGetRasterBand(hSrcDS, i + 1);\n\t\tGDALGetRasterNoDataValue(poBand, &success);\n\t\tif (success) {\n\t\t\tpsWarpOptions->padfSrcNoDataReal[i] = GDALGetRasterNoDataValue(poBand, &success);\n\t\t\t// Rcpp::Rcout << \"1: \" << GDALGetRasterNoDataValue(poBand, &success) << std::endl;\n\t\t } else\n\t\t\tmemcpy(&(psWarpOptions->padfSrcNoDataReal[i]), &d, sizeof(double));\n\t\tpoBand = GDALGetRasterBand(hDstDS, i + 1);\n\t\tGDALGetRasterNoDataValue(poBand, &success);\n\t\tif (success) {\n\t\t\tpsWarpOptions->padfDstNoDataReal[i] = GDALGetRasterNoDataValue(poBand, &success);\n\t\t\t// Rcpp::Rcout << \"2: \" << GDALGetRasterNoDataValue(poBand, &success) << std::endl;\n\t\t} else // NaN:\n\t\t\tmemcpy(&(psWarpOptions->padfDstNoDataReal[i]), &d, sizeof(double));\n\t}\n\n\tif (quiet)\n\t\tpsWarpOptions->pfnProgress = GDALDummyProgress;\n\telse\n\t\tpsWarpOptions->pfnProgress = GDALRProgress; // 0...10...20...30...40...50...60...70...80...90...100 - done.\n\t// Establish reprojection transformer.\n\tif (options.size() == 1)\n\t\tpsWarpOptions->eResampleAlg = (GDALResampleAlg) options[0];\n\tpsWarpOptions->pTransformerArg =\n\t\tGDALCreateGenImgProjTransformer( hSrcDS,\n\t\t\t\t\t\t\t\t\t\t GDALGetProjectionRef(hSrcDS),\n\t\t\t\t\t\t\t\t\t\t hDstDS,\n\t\t\t\t\t\t\t\t\t\t GDALGetProjectionRef(hDstDS),\n\t\t\t\t\t\t\t\t\t\t FALSE, 0.0, 1 );\n\tpsWarpOptions->pfnTransformer = GDALGenImgProjTransform;\n\t// Initialize and execute the warp operation.\n\tGDALWarpOperation oOperation;\n\toOperation.Initialize( psWarpOptions );\n\toOperation.ChunkAndWarpImage( 0, 0,\n\t\t\t\t\t\t\t\t GDALGetRasterXSize( hDstDS ),\n\t\t\t\t\t\t\t\t GDALGetRasterYSize( hDstDS ) );\n\tGDALDestroyGenImgProjTransformer( psWarpOptions->pTransformerArg );\n\tGDALDestroyWarpOptions( psWarpOptions );\n\tif (hDstDS)\n\t\tGDALClose( hDstDS );\n\tif (hSrcDS)\n\t\tGDALClose( hSrcDS );\n\tunset_config_options(co);\n\treturn false;\n}\n// #nocov end\n"
},
{
"path": "src/gdal_write.cpp",
"content": "#include \n\n#include \"Rcpp.h\"\n\n#include \"ogrsf_frmts.h\"\n#include \"wkb.h\"\n#include \"gdal.h\"\n#include \"gdal_sf_pkg.h\"\n\nstd::vector SetupFields(OGRLayer *poLayer, Rcpp::List obj, bool update_layer) {\n\tstd::vector ret(obj.size());\n\tRcpp::CharacterVector cls = obj.attr(\"colclasses\");\n\tRcpp::CharacterVector nm = obj.attr(\"names\");\n\tfor (int i = 0; i < obj.size(); i++) {\n\t\tif (strcmp(cls[i], \"character\") == 0)\n\t\t\tret[i] = OFTString;\n\t\telse if (strcmp(cls[i], \"integer\") == 0 || strcmp(cls[i], \"logical\") == 0)\n\t\t\tret[i] = OFTInteger;\n\t\telse if (strcmp(cls[i], \"numeric\") == 0)\n\t\t\tret[i] = OFTReal;\n\t\telse if (strcmp(cls[i], \"Date\") == 0)\n\t\t\tret[i] = OFTDate;\n\t\telse if (strcmp(cls[i], \"POSIXct\") == 0)\n\t\t\tret[i] = OFTDateTime;\n\t\telse if (strcmp(cls[i], \"list\") == 0) // list with raw vectors; #1721\n\t\t\tret[i] = OFTBinary;\n\t\telse { // #nocov start\n\t\t\tRcpp::Rcout << \"Field \" << nm[i] << \" of type \" << cls[i] << \" not supported.\" << std::endl;\n\t\t\tRcpp::stop(\"Layer creation failed.\\n\");\n\t\t} // #nocov end\n\t\tif (poLayer->FindFieldIndex(nm[i], TRUE) == -1) { // not already present:\n\t\t\tOGRFieldDefn oField(nm[i], ret[i]);\n\t\t\tif (strcmp(cls[i], \"logical\") == 0)\n\t\t\t\toField.SetSubType(OFSTBoolean);\n\t\t\tif (!update_layer && poLayer->CreateField(&oField) != OGRERR_NONE) { // #nocov start\n\t\t\t\tRcpp::Rcout << \"Creating field \" << nm[i] << \" failed.\" << std::endl;\n\t\t\t\tRcpp::stop(\"Layer creation failed.\\n\");\n\t\t\t} // #nocov end\n\t\t} else {\n\t\t\t// otherwise, one could check the type?\n\t\t\t// some type conversion, e.g. int -> char seems to be done by GDAL, see #2202\n\t\t}\n\t}\n\treturn ret;\n}\n\n// this is like an unlist -> dbl, but only does the first 6; if we'd do unlist on the POSIXlt\n// object, we'd get a character vector...\nRcpp::NumericVector get_dbl6(Rcpp::List in) { \n\tRcpp::NumericVector ret(6);\n\tfor (int i = 0; i < 6; i++) {\n\t\tRcpp::NumericVector x = in(i);\n\t\tret(i) = x(0);\n\t}\n\treturn ret;\n}\n\nvoid SetNull(OGRFeature *poFeature, size_t field) {\n#if GDAL_VERSION_NUM >= 2020000\n\tpoFeature->SetFieldNull(field);\n#else\n\tpoFeature->UnsetField(field);\n#endif\n}\n\nstd::vector GetFieldIndex(OGRLayer *poLayer, Rcpp::List obj) {\n\tstd::vector ret(obj.size());\n\tRcpp::CharacterVector nm = obj.attr(\"names\");\n\tfor (int i = 0; i < obj.size(); i++) {\n\t\tret[i] = poLayer->FindFieldIndex(nm[i], TRUE);\n\t\tif (ret[i] == -1) {\n\t\t\tRcpp::Rcout << \"Unknown field name `\" << nm[i] << \n\t\t\t\t\"': updating a layer with improper field name(s)?\" << std::endl;\n\t\t\tRcpp::stop(\"Write error\\n\");\n\t\t}\n\t}\n\treturn ret;\n}\n\nvoid SetFields(OGRFeature *poFeature, std::vector tp, Rcpp::List obj, size_t i, std::vector fld) {\n\tfor (size_t j = 0; j < tp.size(); j++) {\n\t\tif (j >= (size_t) poFeature->GetFieldCount())\n\t\t\tRcpp::stop(\"Field count reached: duplicate names present?\\n\"); // #nocov\n\t\tswitch (tp[j]) {\n\t\t\tcase OFTString: {\n\t\t\t\tRcpp::CharacterVector cv;\n\t\t\t\tcv = obj[j];\n\t\t\t\tif (! Rcpp::CharacterVector::is_na(cv[i]))\n\t\t\t\t\tpoFeature->SetField(fld[j], (const char *) cv[i]);\n\t\t\t\telse\n\t\t\t\t\tSetNull(poFeature, fld[j]);\n\t\t\t\t} break;\n\t\t\tcase OFTInteger: {\n\t\t\t\tconst OGRFieldDefn *def = poFeature->GetFieldDefnRef(j);\n\t\t\t\tif (def->GetSubType() == OFSTBoolean) {\n\t\t\t\t\tRcpp::LogicalVector lv;\n\t\t\t\t\tlv = obj[j];\n\t\t\t\t\tif (! Rcpp::LogicalVector::is_na(lv[i]))\n\t\t\t\t\t\tpoFeature->SetField(fld[j], (int) lv[i]);\n\t\t\t\t\telse\n\t\t\t\t\t\tSetNull(poFeature, fld[j]); // #nocov\n\t\t\t\t} else { // integer:\n\t\t\t\t\tRcpp::IntegerVector iv;\n\t\t\t\t\tiv = obj[j];\n\t\t\t\t\tif (! Rcpp::IntegerVector::is_na(iv[i]))\n\t\t\t\t\t\tpoFeature->SetField(fld[j], (int) iv[i]);\n\t\t\t\t\telse\n\t\t\t\t\t\tSetNull(poFeature, fld[j]); // #nocov\n\t\t\t\t}\n\t\t\t\t} break;\n\t\t\tcase OFTReal: {\n\t\t\t\tRcpp::NumericVector nv;\n\t\t\t\tnv = obj[j];\n\t\t\t\tif (! Rcpp::NumericVector::is_na(nv[i]))\n\t\t\t\t\tpoFeature->SetField(fld[j], (double) nv[i]);\n\t\t\t\telse\n\t\t\t\t\tSetNull(poFeature, fld[j]);\n\t\t\t\t} break;\n\t\t\tcase OFTDate: {\n\t\t\t\tRcpp::NumericVector nv;\n\t\t\t\tnv = obj[j];\n\t\t\t\tif (Rcpp::NumericVector::is_na(nv[i])) {\n\t\t\t\t\tSetNull(poFeature, fld[j]);\n\t\t\t\t\tbreak;\n\t\t\t\t}\n\t\t\t\tRcpp::NumericVector nv0(1);\n\t\t\t\tnv0[0] = nv[i];\n\t\t\t\tnv0.attr(\"class\") = \"Date\";\n\t\t\t\tRcpp::Function as_POSIXlt_Date(\"as.POSIXlt.Date\");\n\t\t\t\tRcpp::NumericVector ret = get_dbl6(as_POSIXlt_Date(nv0));\n\t\t\t\tpoFeature->SetField(fld[j], 1900 + (int) ret[5], (int) ret[4] + 1, (int) ret[3]);\n\t\t\t\t} break;\n\t\t\tcase OFTDateTime: {\n\t\t\t\tRcpp::NumericVector nv;\n\t\t\t\tnv = obj[j];\n\t\t\t\tif (Rcpp::NumericVector::is_na(nv[i])) {\n\t\t\t\t\tSetNull(poFeature, fld[j]);\n\t\t\t\t\tbreak;\n\t\t\t\t}\n\t\t\t\tRcpp::NumericVector nv0(1);\n\t\t\t\tnv0[0] = nv[i];\n\t\t\t\tnv0.attr(\"tzone\") = \"UTC\";\n\t\t\t\tRcpp::Function as_POSIXlt_POSIXct(\"as.POSIXlt.POSIXct\");\n\t\t\t\tRcpp::NumericVector rd = get_dbl6(as_POSIXlt_POSIXct(nv0)); // use R\n\t\t\t\tpoFeature->SetField(fld[j], 1900 + (int) rd[5], (int) rd[4] + 1, // #nocov start\n\t\t\t\t\t\t(int) rd[3], (int) rd[2], (int) rd[1],\n\t\t\t\t\t\t(float) rd[0], 100); // nTZFlag: 0=unkown, 1=local, 100=GMT; #nocov end\n\t\t\t\t} break;\n\t\t\tcase OFTBinary: \n#if GDAL_VERSION_NUM > 3000000\n\t\t\t\t{\n\t\t\t\tRcpp::List lv;\n\t\t\t\tlv = obj[j];\n\t\t\t\tRcpp::RawVector rv;\n\t\t\t\trv = lv(0);\n\t\t\t\tif (rv.size() == 0)\n\t\t\t\t\tSetNull(poFeature, fld[j]); // #nocov\n\t\t\t\telse {\n\t\t\t\t\tconst void *ptr = &(rv[0]);\n\t\t\t\t\tint size = rv.size();\n\t\t\t\t\tpoFeature->SetField(fld[j], size, ptr);\n\t\t\t\t}\n\t\t\t\t} break;\n#endif\n\t\t\tdefault:\n\t\t\t\t// we should never get here! // #nocov start\n\t\t\t\tRcpp::Rcout << \"field with unsupported type ignored\" << std::endl; \n\t\t\t\tRcpp::stop(\"Layer creation failed.\\n\");\n\t\t\t\tbreak; // #nocov end\n\t\t}\n\t}\n}\n\n// [[Rcpp::export(rng=false)]]\nint CPL_write_ogr(Rcpp::List obj, Rcpp::CharacterVector dsn, Rcpp::CharacterVector layer,\n\tRcpp::CharacterVector driver, Rcpp::CharacterVector dco, Rcpp::CharacterVector lco,\n\tRcpp::List geom, Rcpp::CharacterVector dim, Rcpp::CharacterVector fids,\n\tRcpp::CharacterVector ConfigOptions,\n\tbool quiet, Rcpp::LogicalVector append, bool delete_dsn = false, bool delete_layer = false,\n\tbool write_geometries = true, int width = 80) {\n\n\t// init:\n\tset_config_options(ConfigOptions);\n\tif (driver.size() != 1 || dsn.size() != 1 || layer.size() != 1)\n\t\tRcpp::stop(\"argument dsn, layer or driver not of length 1.\\n\");\n\n\t/* GDALAllRegister(); -- has been done during .onLoad() */\n\t// get driver:\n\tGDALDriver *poDriver = GetGDALDriverManager()->GetDriverByName(driver[0]);\n\tif (poDriver == NULL) {\n\t\tRcpp::Rcout << \"driver `\" << driver[0] << \"' not available.\" << std::endl;\n\t\tRcpp::stop(\"Driver not available.\\n\");\n\t}\n\n\t// delete data source:\n\tif (delete_dsn) {\n\t\tif (poDriver->Delete(dsn[0]) != CE_None) {\n\t\t\tif (! quiet)\n\t\t\t\tRcpp::Rcout << \"Deleting source `\" << dsn[0] << \"' failed\" << std::endl;\n\t\t} else if (! quiet)\n\t\t\tRcpp::Rcout << \"Deleting source `\" << dsn[0] << \"' using driver `\" << driver[0] << \"'\" << std::endl;\n\t}\n\n\tstd::vector options = create_options(dco, quiet);\n\tstd::vector drivers = create_options(driver, true);\n\n\t// data set:\n\tGDALDataset *poDS; \n\n\t// delete layer:\n\tif (delete_layer && (poDS = (GDALDataset *) GDALOpenEx(dsn[0], GDAL_OF_VECTOR | GDAL_OF_UPDATE, \n\t\t\t\tdrivers.data(), options.data(), NULL)) != NULL) { // don't complain if the layer is not present\n\t\t// find & delete layer:\n\t\tbool deleted = false;\n\t\tfor (int iLayer = 0; iLayer < poDS->GetLayerCount(); iLayer++) {\n\t\t\tOGRLayer *poLayer = poDS->GetLayer(iLayer);\n\t\t\tif (poLayer != NULL && EQUAL(poLayer->GetName(), layer[0])) {\n\t\t\t\tOGRErr err = poDS->DeleteLayer(iLayer);\n\t\t\t\tif (! quiet) {\n\t\t\t\t\tif (err == OGRERR_UNSUPPORTED_OPERATION)\n\t\t\t\t\t\tRcpp::Rcout << \"Deleting layer not supported by driver `\" << driver[0] << \"'\" // #nocov\n\t\t\t\t\t\t\t<< std::endl; // #nocov\n\t\t\t\t\telse {\n\t\t\t\t\t\tRcpp::Rcout << \"Deleting layer `\" << layer[0] << \"' using driver `\" << \n\t\t\t\t\t\t\tdriver[0] << \"'\" << std::endl;\n\t\t\t\t\t}\n\t\t\t\t}\n\t\t\t\tdeleted = (err == OGRERR_NONE);\n\t\t\t\tbreak;\n\t\t\t}\n\t\t}\n\t\tif (! deleted && ! quiet)\n\t\t\tRcpp::Rcout << \"Deleting layer `\" << layer[0] << \"' failed\" << std::endl;\n\t\tGDALClose(poDS);\n\t}\n\t\n\t// append to ds:\n\tif (append[0] == TRUE) { // and not NA_LOGICAL:\n\t\tpoDS = (GDALDataset *) GDALOpenEx(dsn[0], GDAL_OF_VECTOR | GDAL_OF_UPDATE, \n\t\t\t\tdrivers.data(), options.data(), NULL);\n\t\tif (poDS == NULL) {\n\t\t\tif ((poDS = (GDALDataset *) GDALOpenEx(dsn[0], GDAL_OF_VECTOR | GDAL_OF_READONLY, NULL, \n\t\t\t\t\t\toptions.data(), NULL)) != NULL) { // exists read-only:\n\t\t\t\tGDALClose(poDS);\n\t\t\t\tRcpp::Rcout << \"Cannot append to \" << dsn[0] << \n\t\t\t\t\t\": do you have write permission?\" << std::endl;\n\t\t\t\tRcpp::stop(\"Cannot append to existing dataset.\\n\");\n\t\t\t} else { // doesn't exist: create\n\t\t\t\tif ((poDS = poDriver->Create(dsn[0], 0, 0, 0, GDT_Unknown, options.data())) == NULL) {\n\t\t\t\t\tRcpp::Rcout << \"Creating dataset \" << dsn[0] << \" failed.\" << std::endl;\n\t\t\t\t\tRcpp::stop(\"Creation failed.\\n\");\n\t\t\t\t}\n\t\t\t}\n\t\t}\n\t\tif (! quiet)\n\t\t\tRcpp::Rcout << \"Updating layer `\" << layer[0] << \"' to data source `\" << dsn[0] <<\n\t\t\t\"' using driver `\" << driver[0] << \"'\" << std::endl;\n\t} else { // add to existing ds or create new ds: \n\t\t// when append == NA, raise error when it already exists:\n\t\tif (!delete_dsn && !delete_layer && append[0] == NA_LOGICAL && \n\t\t\t\t(poDS = (GDALDataset *) GDALOpenEx(dsn[0], \n\t\t\t\t\tGDAL_OF_VECTOR | GDAL_OF_READONLY, NULL, options.data(), NULL)) != NULL &&\n\t\t\t\tpoDS->GetLayerByName(layer[0]) != NULL) {\n\t\t\tGDALClose(poDS);\n\t\t\tRcpp::Rcout << \"Layer \" << layer[0] << \" in dataset \" << dsn[0] << \" already exists:\\n\" <<\n\t\t\t\t\"use either append=TRUE to append to layer or append=FALSE to overwrite layer\" << std::endl;\n\t\t\tRcpp::stop(\"Dataset already exists.\\n\");\n\t\t}\n\n\t\tif (delete_dsn || (poDS = (GDALDataset *) GDALOpenEx(dsn[0], GDAL_OF_VECTOR | GDAL_OF_UPDATE, \n\t\t\t\tdrivers.data(), options.data(), NULL)) == NULL) {\n\t\t\t// if dsn does not exist, then create:\n\t\t\tif ((poDS = poDriver->Create(dsn[0], 0, 0, 0, GDT_Unknown, options.data())) == NULL) {\n\t\t\t\tRcpp::Rcout << \"Creating dataset \" << dsn[0] << \" failed.\" << std::endl;\n\t\t\t\tRcpp::stop(\"Creation failed.\\n\");\n\t\t\t}\n\t\t}\n\t\tif (! quiet) {\n\t\t\tRcpp::Rcout << \"Writing layer `\" << layer[0] << \"' to data source \";\n\t\t\tif (LENGTH(dsn[0]) > width - (44 + LENGTH(layer[0]) + LENGTH(driver[0])))\n\t\t\t\tRcpp::Rcout << std::endl << \" \";\n\t\t\tRcpp::Rcout << \"`\" << dsn[0] << \"' using driver `\" << driver[0] << \"'\" << std::endl;\n\t\t}\n\t}\n\n\t// can & do transaction?\n\tbool can_do_transaction = (poDS->TestCapability(ODsCTransactions) == TRUE); // can?\n\tbool transaction = false;\n\tif (can_do_transaction) { // try to start transaction:\n\t\tunset_error_handler();\n\t\ttransaction = (poDS->StartTransaction() == OGRERR_NONE); // do?\n\t\tset_error_handler();\n\t\tif (! transaction) { // failed: #nocov start\n\t\t\tGDALClose(poDS);\n\t\t\treturn 1; // transaction failed!\n\t\t} // #nocov end\n\t}\n\n\t// read geometries:\n\tOGRSpatialReference *sref = NULL;\n\tstd::vector geomv; \n\tOGRwkbGeometryType wkbType;\n\tif (! write_geometries) { // write an aspatial table, see #1345\n\t\twkbType = wkbNone;\n\t\tfor (int i = 0; i < geom.size(); i++)\n\t\t\tgeomv.push_back(NULL);\n\t} else {\n\t\tRcpp::CharacterVector clsv = geom.attr(\"class\");\n\t\twkbType = (OGRwkbGeometryType) make_type(clsv[0], dim[0], false, NULL, 0);\n\t\tgeomv = ogr_from_sfc(geom, &sref);\n\t\tsref = handle_axis_order(sref);\n\t}\n\n\t// create layer:\n\toptions = create_options(lco, quiet);\n\tOGRLayer *poLayer = NULL;\n\tbool update_layer = false;\n\tif ((poLayer = poDS->GetLayerByName(layer[0])) != NULL) {\n\t\tif (!quiet)\n\t\t\tRcpp::Rcout << \"Updating existing layer \" << layer[0] << std::endl;\n\t\tupdate_layer = true;\n\t} else\n\t\tpoLayer = poDS->CreateLayer(layer[0], sref, wkbType, options.data());\n\tif (sref != NULL)\n\t\tsref->Release();\n\tif (poLayer == NULL) {\n\t\tRcpp::Rcout << \"Creating or updating layer \" << layer[0] << \" failed.\" << std::endl;\n\t\tGDALClose(poDS);\n\t\tRcpp::stop(\"Write error.\\n\");\n\t}\n\n\t// write feature attribute fields & geometries:\n\tstd::vector fieldTypes = SetupFields(poLayer, obj, update_layer);\n\tif (! quiet) {\n\t\tRcpp::Rcout << \"Writing \" << geomv.size() << \" features with \" << \n\t\t\tfieldTypes.size() << \" fields\";\n\t\tif (write_geometries)\n\t\t\tRcpp::Rcout << \" and geometry type \" << OGRGeometryTypeToName(wkbType);\n\t\telse\n\t\t\tRcpp::Rcout << \" without geometries\";\n\t\tRcpp::Rcout << \".\" << std::endl;\n\t}\n\n\tstd::vector fieldIndex = GetFieldIndex(poLayer, obj);\n\n\tfor (size_t i = 0; i < geomv.size(); i++) { // create all features & add to layer:\n\t\tOGRFeature *poFeature = OGRFeature::CreateFeature(poLayer->GetLayerDefn());\n\t\tSetFields(poFeature, fieldTypes, obj, i, fieldIndex);\n\t\tif (write_geometries)\n\t\t\tpoFeature->SetGeometryDirectly(geomv[i]);\n\t\tif (fids.size() > (int) i)\n\t\t\tpoFeature->SetFID(std::stoll(Rcpp::as(fids[i]), NULL, 10));\n\t\tif (poLayer->CreateFeature(poFeature) != OGRERR_NONE) {\n\t\t\tRcpp::Rcout << \"Failed to create feature \" << i << \" in \" << layer[0] << std::endl;\n\t\t // delete layer when failing to create feature\n\t\t\tOGRErr err = poDS->DeleteLayer(0);\n\t\t\tGDALClose(poDS);\n\t\t\tif (err != OGRERR_NONE) { // #nocov start\n\t\t\t if (err == OGRERR_UNSUPPORTED_OPERATION)\n\t\t\t Rcpp::Rcout << \"Deleting layer not supported by driver `\" << driver[0] << \"'\" << std::endl;\n\t\t\t else if (! transaction)\n\t\t\t Rcpp::Rcout << \"Deleting layer `\" << layer[0] << \"' failed\" << std::endl;\n\t\t\t} // #nocov end\n\t\t\tOGRFeature::DestroyFeature(poFeature);\n\t\t\tif (transaction) {\n\t\t\t\tunset_config_options(ConfigOptions);\n\t\t\t\treturn 1; // try once more, writing to tmp file and copy #nocov\n\t\t\t} else\n\t\t\t\tRcpp::stop(\"Feature creation failed.\\n\");\n\t\t}\n\t\tOGRFeature::DestroyFeature(poFeature); // deletes geom[i] as well\n\t}\n\tif (transaction && poDS->CommitTransaction() != OGRERR_NONE) { // #nocov start\n\t\tpoDS->RollbackTransaction();\n\t\tGDALClose(poDS);\n\t\tRcpp::stop(\"CommitTransaction() failed.\\n\"); \n\t} // #nocov end\n\tGDALClose(poDS);\n\tunset_config_options(ConfigOptions);\n\treturn 0; // all O.K.\n}\n\n// delete a data source, or one or more layers within a data source\n// [[Rcpp::export(rng=false)]]\nint CPL_delete_ogr(Rcpp::CharacterVector dsn, Rcpp::CharacterVector layer,\n\tRcpp::CharacterVector driver, bool quiet = true) {\n\n\t// init:\n\tif (driver.size() != 1 || dsn.size() != 1)\n\t\tRcpp::stop(\"argument dsn or driver not of length 1.\\n\");\n\n\t/* GDALAllRegister(); -- has been done during .onLoad() */\n\t// get driver:\n\tGDALDriver *poDriver = GetGDALDriverManager()->GetDriverByName(driver[0]);\n\tif (poDriver == NULL) {\n\t\tRcpp::Rcout << \"driver `\" << driver[0] << \"' not available.\" << std::endl;\n\t\tRcpp::stop(\"Driver not available.\\n\");\n\t}\n\n\t// delete data source:\n\tif (layer.size() == 0) {\n\t\tif (poDriver->Delete(dsn[0]) != CE_None)\n\t\t\tRcpp::Rcout << \"Deleting source `\" << dsn[0] << \"' failed\" << std::endl;\n\t\telse if (! quiet)\n\t\t\tRcpp::Rcout << \"Deleting source `\" << dsn[0] << \"' using driver `\" << driver[0] << \"'\" << std::endl;\n\t\treturn 0;\n\t} \n\n\t// delete layer(s):\n\n\t// data set:\n\tGDALDataset *poDS = (GDALDataset *) GDALOpenEx(dsn[0], GDAL_OF_VECTOR | GDAL_OF_UPDATE, NULL, NULL, NULL); \n\tif (poDS == NULL) {\n\t\tRcpp::Rcout << \"Data source `\" << dsn[0] << \"' not found\" << std::endl;\n\t\treturn 1;\n\t}\n\n\tbool can_do_transaction = (poDS->TestCapability(ODsCTransactions) == TRUE); // can?\n\tbool transaction = false;\n\tif (can_do_transaction) { // try to start transaction:\n\t\tunset_error_handler();\n\t\ttransaction = (poDS->StartTransaction() == OGRERR_NONE); // do?\n\t\tset_error_handler();\n\t\tif (! transaction) { // failed: #nocov start\n\t\t\tGDALClose(poDS);\n\t\t\tRcpp::Rcout << \"On data source `\" << dsn[0] << \"' cannot start transaction\" << std::endl;\n\t\t\treturn 1; // transaction failed!\n\t\t} // #nocov end\n\t}\n\n\tfor (int i = 0; i < layer.size(); i++) { // reverse loop order if inefficient?\n\t\t// find & delete layer:\n\t\tfor (int iLayer = 0; iLayer < poDS->GetLayerCount(); iLayer++) {\n\t\t\tOGRLayer *poLayer = poDS->GetLayer(iLayer);\n\t\t\tif (poLayer != NULL && EQUAL(poLayer->GetName(), layer[i])) {\n\t\t\t\tOGRErr err = poDS->DeleteLayer(iLayer);\n\t\t\t\tif (! quiet) {\n\t\t\t\t\tif (err == OGRERR_UNSUPPORTED_OPERATION)\n\t\t\t\t\t\tRcpp::Rcout << \"Deleting layer not supported by driver `\" << driver[0] << \"'\" // #nocov\n\t\t\t\t\t\t\t<< std::endl; // #nocov\n\t\t\t\t\telse {\n\t\t\t\t\t\tRcpp::Rcout << \"Deleting layer `\" << layer[0] << \"' using driver `\" << \n\t\t\t\t\t\t\tdriver[0] << \"'\" << std::endl;\n\t\t\t\t\t}\n\t\t\t\t}\n\t\t\t\tif (err != OGRERR_NONE)\n\t\t\t\t\tRcpp::Rcout << \"Deleting layer `\" << layer[i] << \"' failed\" << std::endl;\n\t\t\t}\n\t\t}\n\t}\n\tif (transaction && poDS->CommitTransaction() != OGRERR_NONE) { // #nocov start\n\t\tpoDS->RollbackTransaction();\n\t\tRcpp::Rcout << \"CommitTransaction() failed.\" << std::endl; \n\t\treturn 1;\n\t} // #nocov end\n\tGDALClose(poDS);\n\treturn 0;\n}\n"
},
{
"path": "src/geos.cpp",
"content": "#define GEOS_USE_ONLY_R_API // prevents using non-thread-safe GEOSxx functions without _r extension.\n#include \n\n#if GEOS_VERSION_MAJOR == 3\n# if GEOS_VERSION_MINOR >= 4\n# define HAVE340\n# endif\n# if GEOS_VERSION_MINOR >= 5\n# define HAVE350\n# endif\n# if GEOS_VERSION_MINOR == 6\n# if GEOS_VERSION_PATCH >= 1\n# define HAVE361\n# endif\n# endif\n# if GEOS_VERSION_MINOR >= 7\n# define HAVE361\n# define HAVE370\n# endif\n# if GEOS_VERSION_MINOR >= 8\n# define HAVE380\n# endif\n# if GEOS_VERSION_MINOR >= 9\n# define HAVE390\n# endif\n# if GEOS_VERSION_MINOR == 10\n# if GEOS_VERSION_PATCH >= 1\n# define HAVE3101\n# endif\n# endif\n# if GEOS_VERSION_MINOR >= 10\n# define HAVE310\n# define HAVE3101\n# endif\n# if GEOS_VERSION_MINOR >= 11\n# define HAVE311\n# endif\n# if GEOS_VERSION_MINOR >= 12\n# define HAVE312\n# endif\n#else\n# if GEOS_VERSION_MAJOR > 3\n# define HAVE340\n# define HAVE350\n# define HAVE370\n# define HAVE361\n# define HAVE380\n# define HAVE390\n# define HAVE310\n# define HAVE3101\n# define HAVE311\n# endif\n#endif\n\n#include \n#include \n#include \n\n#include \"wkb.h\"\n#include \"hex.h\"\n\ntypedef int (* dist_fn)(GEOSContextHandle_t, const GEOSGeometry *, const GEOSGeometry *, double *);\ntypedef int (* dist_parfn)(GEOSContextHandle_t, const GEOSGeometry *, const GEOSGeometry *, double, double *);\ntypedef char (* log_fn)(GEOSContextHandle_t, const GEOSGeometry *, const GEOSGeometry *);\ntypedef char (* log_prfn)(GEOSContextHandle_t, const GEOSPreparedGeometry *,\n\tconst GEOSGeometry *);\ntypedef GEOSGeom (* geom_fn)(GEOSContextHandle_t, const GEOSGeom, const GEOSGeom);\ntypedef GEOSGeom (* geom_fnp)(GEOSContextHandle_t, const GEOSGeom, const GEOSGeom, double grid_size);\n\nstatic void __errorHandler(const char *fmt, ...) { // #nocov start\n\n\tchar buf[BUFSIZ], *p;\n\tva_list ap;\n\tva_start(ap, fmt);\n\tvsnprintf(buf, (size_t) BUFSIZ, fmt, ap);\n\tva_end(ap);\n\tp = buf + strlen(buf) - 1;\n\tif(strlen(buf) > 0 && *p == '\\n') *p = '\\0';\n\n\tRcpp::Function error(\".stop_geos\", Rcpp::Environment::namespace_env(\"sf\"));\n\terror(buf);\n\n\treturn; // #nocov end\n}\n\nstatic void __warningHandler(const char *fmt, ...) {\n\n\tchar buf[BUFSIZ], *p;\n\tva_list ap;\n\tva_start(ap, fmt);\n\tvsnprintf(buf, (size_t) BUFSIZ, fmt, ap);\n\tva_end(ap);\n\tp = buf + strlen(buf) - 1;\n\tif(strlen(buf) > 0 && *p == '\\n') *p = '\\0';\n\n\tRcpp::Function warning(\"warning\");\n\twarning(buf);\n\n\treturn;\n}\n\n// #nocov start\nstatic void __countErrorHandler(const char *fmt, void *userdata) {\n\tint *i = (int *) userdata;\n\t*i = *i + 1;\n}\n\nstatic void __emptyNoticeHandler(const char *fmt, void *userdata) { }\n\n#ifdef GEOS350\nstatic void __checkInterruptFn(void*) {\n\tR_CheckUserInterrupt();\n}\n\nstatic void __checkInterrupt() {\n\t// Adapted from Rcpp/Interrupt.h\n\tif (!R_ToplevelExec(__checkInterruptFn, nullptr)) {\n\t\tGEOS_interruptRequest();\n\t}\n}\n// #nocov end\n#endif\n\n// from terra:\nstatic void __warningIgnore(const char *fmt, ...) {\n\treturn;\n}\n\ninline GEOSContextHandle_t geos_init(void) {\n#ifdef GEOS350\n\tGEOSContextHandle_t ctxt = GEOS_init_r();\n\tGEOSContext_setNoticeHandler_r(ctxt, __warningHandler);\n\tGEOSContext_setErrorHandler_r(ctxt, __errorHandler);\n\tGEOS_interruptRegisterCallback(__checkInterrupt);\n\treturn ctxt;\n#else\n\treturn initGEOS_r((GEOSMessageHandler) __warningHandler, (GEOSMessageHandler) __errorHandler);\n#endif\n}\n\ninline void geos_finish(GEOSContextHandle_t ctxt) {\n#ifdef GEOS350\n\tGEOS_finish_r(ctxt);\n#else\n\tfinishGEOS_r(ctxt);\n#endif\n}\n\ninline GEOSContextHandle_t geos_init2(void) {\n\n#ifdef GEOS350\n\tGEOSContextHandle_t ctxt = GEOS_init_r();\n\tGEOSContext_setNoticeHandler_r(ctxt, __warningIgnore);\n\tGEOSContext_setErrorHandler_r(ctxt, __errorHandler);\n\treturn ctxt;\n#else\n\treturn initGEOS_r((GEOSMessageHandler) __warningIgnore, (GEOSMessageHandler) __errorHandler);\n#endif\n}\n\n// RAII wrapper: declares the context handle before geometry vectors so that,\n// on scope exit, geometry vectors (which call GEOSGeom_destroy_r) are destroyed\n// first, and geos_finish is called last. Implicit conversion to\n// GEOSContextHandle_t means existing code works without changes.\nstruct GEOSContextScope {\n GEOSContextHandle_t hctx;\n GEOSContextScope() : hctx(geos_init()) {}\n explicit GEOSContextScope(bool quiet) : hctx(quiet ? geos_init2() : geos_init()) {}\n ~GEOSContextScope() { geos_finish(hctx); }\n operator GEOSContextHandle_t() const { return hctx; }\n GEOSContextScope(const GEOSContextScope&) = delete;\n GEOSContextScope& operator=(const GEOSContextScope&) = delete;\n};\n\nstatic int notice = 0; // global var to silently catch notice of illegal geoms, e.g. non-closed rings\n\nvoid cb(void *item, void *userdata) { // callback function for tree selection\n\tstd::vector *ret = (std::vector *) userdata;\n\tret->push_back(*((size_t *) item));\n}\n\nusing PrepGeomPtr= std::unique_ptr >;\nusing GeomPtr= std::unique_ptr >;\nusing TreePtr= std::unique_ptr >;\n\nstatic GeomPtr geos_ptr(GEOSGeometry* g, GEOSContextHandle_t hGEOSctxt) {\n\tauto deleter = std::bind(GEOSGeom_destroy_r, hGEOSctxt, std::placeholders::_1);\n\treturn GeomPtr(g, deleter);\n}\n\nstatic PrepGeomPtr geos_ptr(const GEOSPreparedGeometry* pg, GEOSContextHandle_t hGEOSctxt) {\n\tauto deleter = std::bind(GEOSPreparedGeom_destroy_r, hGEOSctxt, std::placeholders::_1);\n\treturn PrepGeomPtr(pg, deleter);\n}\n\nstatic TreePtr geos_ptr(GEOSSTRtree* t, GEOSContextHandle_t hGEOSctxt) {\n\tauto deleter = std::bind(GEOSSTRtree_destroy_r, hGEOSctxt, std::placeholders::_1);\n\treturn TreePtr(t, deleter);\n}\n\nstatic std::vector to_raw(std::vector & g) {\n\tstd::vector raw(g.size());\n\tstd::transform(g.begin(), g.end(), raw.begin(), [](GeomPtr & g) { return g.release(); });\n\treturn raw;\n}\n\ndouble geos_grid_size(Rcpp::List x) {\n\tdouble precision = x.attr(\"precision\");\n\tif (precision != 0.0)\n\t\tprecision = 1. / precision;\n\treturn precision;\n}\n\ndouble geos_grid_size_xy(Rcpp::List x, Rcpp::List y) {\n\treturn std::max(geos_grid_size(x), geos_grid_size(y));\n}\n\nstd::vector geometries_from_sfc(GEOSContextHandle_t hGEOSCtxt, Rcpp::List sfc, int *dim = NULL, bool stop_on_NULL = true) {\n\n\tRcpp::List sfc_cls = get_dim_sfc(sfc);\n\tRcpp::CharacterVector cls = sfc_cls[\"_cls\"];\n\tif (dim != NULL) {\n\t\tRcpp::IntegerVector sfc_dim = sfc_cls[\"_dim\"];\n\t\tif (sfc_dim.size() == 0)\n\t\t\tRcpp::stop(\"sfc_dim size 0: should not happen\"); // #nocov\n\t\t*dim = sfc_dim[0];\n\t}\n\n\tif (cls[0] == \"XYM\" || cls[0] == \"XYZM\")\n\t\tRcpp::stop(\"GEOS does not support XYM or XYZM geometries; use st_zm() to drop M\\n\"); // #nocov\n\n#ifdef HAVE_390\n\tdouble grid_size = geos_grid_size(sfc);\n\tbool set_precision = grid_size != 0.0;\n\tsfc.attr(\"precision\") = 0.0; // so that CPL_write_wkb doesn't do the rounding;\n#endif\n\tRcpp::List wkblst = CPL_write_wkb(sfc, true);\n\tstd::vector g(sfc.size());\n\tGEOSWKBReader *wkb_reader = GEOSWKBReader_create_r(hGEOSCtxt);\n\tfor (int i = 0; i < sfc.size(); i++) {\n\t\tRcpp::RawVector r = wkblst[i];\n\t\tg[i] = geos_ptr(GEOSWKBReader_read_r(hGEOSCtxt, wkb_reader, &(r[0]), r.size()), hGEOSCtxt);\n\t\tif (g[i].get() == NULL) {\n\t\t\tif (stop_on_NULL) {\n\t\t\t\tRcpp::Rcout << \"While converting geometry of record: \" << i << \" to GEOS:\" << std::endl;\n\t\t\t\tRcpp::stop(\"Illegal geometry found: fix manually, or filter out using st_is_valid() and is.na()\\n\");\n\t\t\t}\n\t\t}\n#ifdef HAVE_390\n\t\telse if (set_precision)\n\t\t\tg[i] = geos_ptr(GEOSGeom_setPrecision_r(hGEOSCtxt, g[i].get(), grid_size, GEOS_PREC_VALID_OUTPUT), hGEOSCtxt);\n#endif\n\t}\n\tGEOSWKBReader_destroy_r(hGEOSCtxt, wkb_reader);\n\treturn g;\n}\n\nRcpp::List sfc_from_geometry(GEOSContextHandle_t hGEOSCtxt, std::vector & geom, int dim = 2, bool free = true) {\n\n\tRcpp::List out(geom.size());\n\tGEOSWKBWriter *wkb_writer = GEOSWKBWriter_create_r(hGEOSCtxt);\n\tGEOSWKBWriter_setOutputDimension_r(hGEOSCtxt, wkb_writer, dim);\n\t// empty point, binary, with R NA's (not NaN's); GEOS can't WKB empty points,\n\t// so we need to work around; see also https://trac.osgeo.org/postgis/ticket/3031\n\t// > sf:::CPL_raw_to_hex(st_as_binary(st_point()))\n\t// [1] \"0101000000a20700000000f07fa20700000000f07f\"\n\tRcpp::RawVector empty_point(CPL_hex_to_raw(\"0101000000a20700000000f07fa20700000000f07f\")[0]);\n\tfor (size_t i = 0; i < geom.size(); i++) {\n\t\tbool is_empty_point = false;\n\t\tbool is_empty = GEOSisEmpty_r(hGEOSCtxt, geom[i].get()) == 1;\n\t\tif (is_empty) {\n\t\t\tchar *geom_type = GEOSGeomType_r(hGEOSCtxt, geom[i].get());\n\t\t\tis_empty_point = strcmp(\"Point\", geom_type) == 0;\n\t\t\tGEOSFree_r(hGEOSCtxt, geom_type);\n\t\t}\n\t\tif (is_empty_point)\n\t\t\tout[i] = empty_point;\n\t\telse {\n\t\t\tsize_t size;\n\t\t\tunsigned char *buf = GEOSWKBWriter_write_r(hGEOSCtxt, wkb_writer, geom[i].get(), &size);\n\t\t\tRcpp::RawVector raw(size);\n\t\t\tmemcpy(&(raw[0]), buf, size);\n\t\t\tGEOSFree_r(hGEOSCtxt, buf);\n\t\t\tout[i] = raw;\n\t\t}\n\t}\n\tGEOSWKBWriter_destroy_r(hGEOSCtxt, wkb_writer);\n\treturn CPL_read_wkb(out, true, false);\n}\n\nRcpp::NumericVector get_dim(double dim0, double dim1) {\n\tRcpp::NumericVector dim(2);\n\tdim(0) = dim0;\n\tdim(1) = dim1;\n\treturn dim;\n}\n\nRcpp::IntegerVector get_which(Rcpp::LogicalVector row) {\n\tstd::vector v;\n\tfor (int i = 0; i < row.length(); i++)\n\t\tif (row(i))\n\t\t\tv.push_back(i + 1);\n\treturn Rcpp::wrap(v);\n}\n\nbool chk_(char value) {\n\tif (value == 2)\n\t\tRcpp::stop(\"GEOS exception\"); // #nocov\n\treturn value; // 1: true, 0: false\n}\n\nlog_fn which_geom_fn(const std::string op) {\n\tif (op == \"intersects\")\n\t\treturn GEOSIntersects_r;\n//\telse if (op == \"disjoint\")\n//\t\treturn GEOSDisjoint_r;\n\telse if (op == \"touches\")\n\t\treturn GEOSTouches_r;\n\telse if (op == \"crosses\")\n\t\treturn GEOSCrosses_r;\n\telse if (op == \"within\")\n\t\treturn GEOSWithin_r;\n\telse if (op == \"contains\")\n\t\treturn GEOSContains_r;\n\telse if (op == \"overlaps\")\n\t\treturn GEOSOverlaps_r;\n\telse if (op == \"equals\")\n\t\treturn GEOSEquals_r;\n\telse if (op == \"covers\")\n\t\treturn GEOSCovers_r;\n\telse if (op == \"covered_by\")\n\t\treturn GEOSCoveredBy_r;\n\tRcpp::stop(\"wrong value for op: please report as issue\"); // unlikely to happen unless user wants to #nocov\n\treturn GEOSCoveredBy_r; // never reached; satisfy -Wreturn-type #nocov\n}\n\nlog_prfn which_prep_geom_fn(const std::string op) {\n\tif (op == \"intersects\")\n\t\treturn GEOSPreparedIntersects_r;\n//\telse if (op == \"disjoint\")\n//\t\treturn GEOSPreparedDisjoint_r;\n\telse if (op == \"touches\")\n\t\treturn GEOSPreparedTouches_r;\n\telse if (op == \"crosses\")\n\t\treturn GEOSPreparedCrosses_r;\n\telse if (op == \"within\")\n\t\treturn GEOSPreparedWithin_r;\n\telse if (op == \"contains\")\n\t\treturn GEOSPreparedContains_r;\n\telse if (op == \"contains_properly\")\n\t\treturn GEOSPreparedContainsProperly_r;\n\telse if (op == \"overlaps\")\n\t\treturn GEOSPreparedOverlaps_r;\n\t//else if (op == \"equals\")\n\t//\treturn GEOSPreparedEquals_r;\n\telse if (op == \"covers\")\n\t\treturn GEOSPreparedCovers_r;\n\telse if (op == \"covered_by\")\n\t\treturn GEOSPreparedCoveredBy_r;\n\tRcpp::stop(\"wrong value for op\"); // unlikely to happen unless user wants to #nocov\n\treturn GEOSPreparedCoveredBy_r; // never reached; satisfy -Wreturn-type #nocov\n}\n\n/*\nRcpp::LogicalVector get_dense(std::vector items, int length) {\n\tRcpp::LogicalVector rowi(length);\n\tfor (int j = 0; j < length; j++)\n\t\trowi(j) = false;\n\tfor (size_t j = 0; j < items.size(); j++)\n\t\trowi(items[j] - 1) = true; // items is 1-based\n\treturn rowi;\n}\n*/\n\n// [[Rcpp::export(rng=false)]]\nRcpp::List CPL_geos_binop(Rcpp::List sfc0, Rcpp::List sfc1, std::string op, double par = 0.0,\n\t\tstd::string pattern = \"\", bool prepared = false) {\n\n\tGEOSContextScope hGEOSCtxt;\n\n\tstd::vector gmv0 = geometries_from_sfc(hGEOSCtxt, sfc0, NULL);\n\tstd::vector gmv1 = geometries_from_sfc(hGEOSCtxt, sfc1, NULL);\n\n\tRcpp::List ret_list;\n\n\tusing namespace Rcpp; // so that later on the (i,_) works\n\tif (op == \"relate\") { // return character matrix:\n\t\tRcpp::CharacterVector out(sfc0.length() * sfc1.length());\n\t\tfor (int i = 0; i < sfc0.length(); i++) {\n\t\t\tfor (int j = 0; j < sfc1.length(); j++) {\n\t\t\t\tchar *cp = GEOSRelate_r(hGEOSCtxt, gmv0[i].get(), gmv1[j].get());\n\t\t\t\tif (cp == NULL) {\n\t\t\t\t\tGEOSFree_r(hGEOSCtxt, cp); // #nocov\n\t\t\t\t\tRcpp::stop(\"GEOS error in GEOSRelate_r\"); // #nocov\n\t\t\t\t}\n\t\t\t\tout[j * sfc0.length() + i] = cp;\n\t\t\t\tGEOSFree_r(hGEOSCtxt, cp);\n\t\t\t}\n\t\t\tRcpp::checkUserInterrupt();\n\t\t}\n\t\tout.attr(\"dim\") = get_dim(sfc0.length(), sfc1.length());\n\t\tret_list = Rcpp::List::create(out);\n\t} else if (op == \"Euclidean\" || op == \"distance\" || op == \"Hausdorff\" || op == \"Frechet\") { // return double matrix:\n\t\t// dist_fn, dist_parfn\n\t\tRcpp::NumericMatrix out(sfc0.length(), sfc1.length());\n\t\tif (par <= 0.0) {\n\t\t\tdist_fn dist_function;\n\t\t\tif (op == \"Euclidean\" || op == \"distance\")\n\t\t\t\tdist_function = GEOSDistance_r;\n\t\t\telse if (op == \"Hausdorff\")\n\t\t\t\tdist_function = GEOSHausdorffDistance_r;\n#ifdef HAVE370\n\t\t\telse if (op == \"Frechet\")\n\t\t\t\tdist_function = GEOSFrechetDistance_r;\n#endif\n\t\t\telse\n\t\t\t\tRcpp::stop(\"distance function not supported\"); // #nocov\n\n\t\t\tfor (size_t i = 0; i < gmv0.size(); i++) {\n\t\t\t\tif (GEOSisEmpty_r(hGEOSCtxt, gmv0[i].get())) {\n\t\t\t\t\tfor (size_t j = 0; j < gmv1.size(); j++) // #nocov\n\t\t\t\t\t\tout(i, j) = NA_REAL; // #nocov\n\t\t\t\t} else for (size_t j = 0; j < gmv1.size(); j++) {\n\t\t\t\t\tif (GEOSisEmpty_r(hGEOSCtxt, gmv1[j].get()))\n\t\t\t\t\t\tout(i, j) = NA_REAL;\n\t\t\t\t\telse {\n\t\t\t\t\t\tdouble dist = -1.0;\n\t\t\t\t\t\tif (dist_function(hGEOSCtxt, gmv0[i].get(), gmv1[j].get(), &dist) == 0)\n\t\t\t\t\t\t\tRcpp::stop(\"GEOS error in GEOS_xx_Distance_r\"); // #nocov\n\t\t\t\t\t\tout(i, j) = dist;\n\t\t\t\t\t}\n\t\t\t\t}\n\t\t\t\tRcpp::checkUserInterrupt();\n\t\t\t}\n\t\t} else {\n\t\t\tdist_parfn dist_function = NULL;\n\t\t\tif (op == \"Hausdorff\")\n\t\t\t\tdist_function = GEOSHausdorffDistanceDensify_r;\n#ifdef HAVE370\n\t\t\telse if (op == \"Frechet\")\n\t\t\t\tdist_function = GEOSFrechetDistanceDensify_r;\n#endif\n\t\t\telse\n\t\t\t\tRcpp::stop(\"distance function not supported\"); // #nocov\n\n\t\t\tfor (size_t i = 0; i < gmv0.size(); i++) {\n\t\t\t\tif (GEOSisEmpty_r(hGEOSCtxt, gmv0[i].get())) {\n\t\t\t\t\tfor (size_t j = 0; j < gmv1.size(); j++)\n\t\t\t\t\t\tout(i, j) = NA_REAL;\n\t\t\t\t} else for (size_t j = 0; j < gmv1.size(); j++) {\n\t\t\t\t\tif (GEOSisEmpty_r(hGEOSCtxt, gmv1[j].get()))\n\t\t\t\t\t\tout(i, j) = NA_REAL;\n\t\t\t\t\telse {\n\t\t\t\t\t\tdouble dist = -1.0;\n\t\t\t\t\t\tif (dist_function(hGEOSCtxt, gmv0[i].get(), gmv1[j].get(), par, &dist) == 0)\n\t\t\t\t\t\t\tRcpp::stop(\"GEOS error in GEOS_xx_Distance_r\"); // #nocov\n\t\t\t\t\t\tout(i, j) = dist;\n\t\t\t\t\t}\n\t\t\t\t}\n\t\t\t\tRcpp::checkUserInterrupt();\n\t\t\t}\n\t\t}\n\t\tret_list = Rcpp::List::create(out);\n\t} else if (op == \"is_within_distance\") {\n\t\tRcpp::List sparsemat(sfc0.length());\n\t\tfor (size_t i = 0; i < gmv0.size(); i++) {\n\t\t\tstd::vector sel;\n\t\t\tfor (size_t j = 0; j < gmv1.size(); j++) {\n\t\t\t\tdouble dist = -1.0;\n\t\t\t\tif (GEOSDistance_r(hGEOSCtxt, gmv0[i].get(), gmv1[j].get(), &dist) == 0)\n\t\t\t\t\tRcpp::stop(\"GEOS error in GEOSDistance_r\"); // #nocov\n\t\t\t\tif (dist <= par)\n\t\t\t\t\tsel.push_back(j + 1); // 1-based\n\t\t\t}\n\t\t\tsparsemat[i] = Rcpp::IntegerVector(sel.begin(), sel.end());\n\t\t\tRcpp::checkUserInterrupt();\n\t\t}\n\t\tret_list = sparsemat;\n\t} else if (gmv1.size()) {\n\t\t// other cases: sparse matrix\n\t\tRcpp::List sparsemat(sfc0.length());\n\n\t\tstd::vector items(gmv1.size());\n\t\tTreePtr tree1 = geos_ptr(GEOSSTRtree_create_r(hGEOSCtxt, 10), hGEOSCtxt);\n\t\tfor (size_t i = 0; i < gmv1.size(); i++) {\n\t\t\titems[i] = i;\n\t\t\tif (! GEOSisEmpty_r(hGEOSCtxt, gmv1[i].get()))\n\t\t\t\tGEOSSTRtree_insert_r(hGEOSCtxt, tree1.get(), gmv1[i].get(), &(items[i]));\n\t\t}\n\n\t\tif (op == \"equals_exact\") { // has it's own signature, needing `par':\n\t\t\tfor (int i = 0; i < sfc0.length(); i++) { // row\n\t\t\t\tRcpp::LogicalVector rowi(sfc1.length());\n\t\t\t\tfor (int j = 0; j < sfc1.length(); j++)\n\t\t\t\t\trowi(j) = chk_(GEOSEqualsExact_r(hGEOSCtxt, gmv0[i].get(), gmv1[j].get(), par));\n\t\t\t\tsparsemat[i] = get_which(rowi);\n\t\t\t\tRcpp::checkUserInterrupt();\n\t\t\t}\n\t\t} else if (op == \"relate_pattern\") { // needing pattern\n\t\t\tif (GEOSRelatePatternMatch_r(hGEOSCtxt, pattern.c_str(), \"FF*FF****\"))\n\t\t\t\tRcpp::stop(\"use st_disjoint for this pattern\");\n\t\t\t// all remaining can use tree:\n\t\t\tfor (int i = 0; i < sfc0.length(); i++) { // row\n\t\t\t\t// pre-select sfc1's using tree:\n\t\t\t\tstd::vector tree_sel, sel;\n\t\t\t\tif (! GEOSisEmpty_r(hGEOSCtxt, gmv0[i].get()))\n\t\t\t\t\tGEOSSTRtree_query_r(hGEOSCtxt, tree1.get(), gmv0[i].get(), cb, &tree_sel);\n\t\t\t\tfor (size_t j = 0; j < tree_sel.size(); j++)\n\t\t\t\t\tif (chk_(GEOSRelatePattern_r(hGEOSCtxt, gmv0[i].get(), gmv1[tree_sel[j]].get(), pattern.c_str())))\n\t\t\t\t\t\tsel.push_back(tree_sel[j] + 1); // 1-based\n\t\t\t\tstd::sort(sel.begin(), sel.end());\n\t\t\t\tsparsemat[i] = Rcpp::IntegerVector(sel.begin(), sel.end());\n\t\t\t\tRcpp::checkUserInterrupt();\n\t\t\t}\n\t\t} else if (op == \"disjoint\")\n\t\t\tRcpp::stop(\"disjoint should have been handled in R\"); // #nocov\n\t\telse { // anything else:\n\t\t\tif (prepared) {\n\t\t\t\tlog_prfn logical_fn = which_prep_geom_fn(op);\n\t\t\t\tfor (int i = 0; i < sfc0.length(); i++) { // row\n\t\t\t\t\t// pre-select sfc1's using tree:\n\t\t\t\t\tstd::vector tree_sel, sel;\n\t\t\t\t\tif (! GEOSisEmpty_r(hGEOSCtxt, gmv0[i].get()))\n\t\t\t\t\t\tGEOSSTRtree_query_r(hGEOSCtxt, tree1.get(), gmv0[i].get(), cb, &tree_sel);\n\n\t\t\t\t\tif (! tree_sel.empty()) {\n\t\t\t\t\t\tPrepGeomPtr pr = geos_ptr(GEOSPrepare_r(hGEOSCtxt, gmv0[i].get()), hGEOSCtxt);\n\t\t\t\t\t\tfor (size_t j = 0; j < tree_sel.size(); j++)\n\t\t\t\t\t\t\tif (chk_(logical_fn(hGEOSCtxt, pr.get(), gmv1[tree_sel[j]].get())))\n\t\t\t\t\t\t\t\tsel.push_back(tree_sel[j] + 1); // 1-based\n\t\t\t\t\t\tstd::sort(sel.begin(), sel.end());\n\t\t\t\t\t}\n\n\t\t\t\t\tsparsemat[i] = Rcpp::IntegerVector(sel.begin(), sel.end());\n\t\t\t\t\tRcpp::checkUserInterrupt();\n\t\t\t\t}\n\t\t\t} else {\n\t\t\t\tlog_fn logical_fn = which_geom_fn(op);\n\t\t\t\tfor (int i = 0; i < sfc0.length(); i++) { // row\n\t\t\t\t\t// pre-select sfc1's using tree:\n\t\t\t\t\tstd::vector tree_sel, sel;\n\t\t\t\t\tif (! GEOSisEmpty_r(hGEOSCtxt, gmv0[i].get()))\n\t\t\t\t\t\tGEOSSTRtree_query_r(hGEOSCtxt, tree1.get(), gmv0[i].get(), cb, &tree_sel);\n\t\t\t\t\tfor (size_t j = 0; j < tree_sel.size(); j++)\n\t\t\t\t\t\tif (chk_(logical_fn(hGEOSCtxt, gmv0[i].get(), gmv1[tree_sel[j]].get())))\n\t\t\t\t\t\t\tsel.push_back(tree_sel[j] + 1); // 1-based\n\t\t\t\t\tstd::sort(sel.begin(), sel.end());\n\t\t\t\t\tsparsemat[i] = Rcpp::IntegerVector(sel.begin(), sel.end());\n\t\t\t\t\tRcpp::checkUserInterrupt();\n\t\t\t\t}\n\t\t\t}\n\t\t}\n\t\tret_list = sparsemat;\n\t} else { // gmv1.size() == 0:\n\t\tRcpp::List sparsemat(sfc0.length());\n\t\tfor (size_t i = 0; i < gmv0.size(); i++)\n\t\t\tsparsemat[i] = Rcpp::IntegerVector();\n\t\tret_list = sparsemat;\n\t}\n\treturn ret_list;\n}\n\n// [[Rcpp::export(rng=false)]]\nRcpp::List CPL_geos_binop_by_element(Rcpp::List sfc0, Rcpp::List sfc1,\n std::string op, double par, std::string pattern, bool prepared) {\n \n GEOSContextScope hGEOSCtxt;\n\n std::vector gmv0 = geometries_from_sfc(hGEOSCtxt, sfc0, NULL);\n std::vector gmv1 = geometries_from_sfc(hGEOSCtxt, sfc1, NULL);\n\n if (gmv0.size() != gmv1.size())\n Rcpp::stop(\"for element-wise predicates, x and y must have equal length\");\n\n size_t n = gmv0.size();\n Rcpp::List ret_list;\n \n if (op == \"relate\") {\n Rcpp::CharacterVector out(n);\n for (size_t i = 0; i < n; i++) {\n char *cp = GEOSRelate_r(hGEOSCtxt, gmv0[i].get(), gmv1[i].get());\n if (cp == NULL)\n Rcpp::stop(\"GEOS error in GEOSRelate_r\"); // #nocov\n out[i] = cp;\n GEOSFree_r(hGEOSCtxt, cp);\n Rcpp::checkUserInterrupt();\n }\n ret_list = Rcpp::List::create(out);\n } else if (op == \"relate_pattern\") {\n Rcpp::LogicalVector out(n);\n for (size_t i = 0; i < n; i++) {\n out[i] = chk_(GEOSRelatePattern_r(hGEOSCtxt,\n gmv0[i].get(), gmv1[i].get(), pattern.c_str()));\n Rcpp::checkUserInterrupt();\n }\n ret_list = Rcpp::List::create(out);\n } else if (op == \"equals_exact\") {\n Rcpp::LogicalVector out(n);\n for (size_t i = 0; i < n; i++) {\n out[i] = chk_(GEOSEqualsExact_r(hGEOSCtxt,\n gmv0[i].get(), gmv1[i].get(), par));\n Rcpp::checkUserInterrupt();\n }\n ret_list = Rcpp::List::create(out);\n } else if (op == \"is_within_distance\") {\n Rcpp::LogicalVector out(n);\n for (size_t i = 0; i < n; i++) {\n double dist = -1.0;\n\n if (GEOSDistance_r(hGEOSCtxt, gmv0[i].get(), gmv1[i].get(), &dist) == 0)\n Rcpp::stop(\"GEOS error in GEOSDistance_r\"); // #nocov\n\t\t\t\t\t\t\t\t\t\t\t\t\t//\n out[i] = dist <= par;\n Rcpp::checkUserInterrupt();\n }\n ret_list = Rcpp::List::create(out);\n } else {\n log_fn logical_fn = which_geom_fn(op);\n Rcpp::LogicalVector out(n);\n for (size_t i = 0; i < n; i++) {\n out[i] = chk_(logical_fn(hGEOSCtxt, gmv0[i].get(), gmv1[i].get()));\n Rcpp::checkUserInterrupt();\n }\n ret_list = Rcpp::List::create(out);\n }\n return ret_list;\n}\n\n// [[Rcpp::export(rng=false)]]\nRcpp::CharacterVector CPL_geos_is_valid_reason(Rcpp::List sfc) {\n\tGEOSContextScope hGEOSCtxt;\n\n\tstd::vector gmv = geometries_from_sfc(hGEOSCtxt, sfc, NULL, false);\n\tRcpp::CharacterVector out(gmv.size());\n\tfor (int i = 0; i < out.length(); i++) {\n\t\tif (gmv[i].get() == NULL)\n\t\t\tout[i] = NA_STRING;\n\t\telse {\n\t\t\tchar *buf = GEOSisValidReason_r(hGEOSCtxt, gmv[i].get());\n\t\t\tif (buf == NULL)\n\t\t\t\tout[i] = NA_STRING; // #nocov\n\t\t\telse {\n\t\t\t\tout[i] = buf;\n\t\t\t\tGEOSFree_r(hGEOSCtxt, buf);\n\t\t\t}\n\t\t}\n\t}\n\treturn out;\n}\n\n// #nocov start - no GEOS 3.8.0 on travis yet\n// [[Rcpp::export(rng=false)]]\nRcpp::List CPL_geos_make_valid(Rcpp::List sfc, std::string method, bool keep_collapsed) {\n\tGEOSContextScope hGEOSCtxt;\n\n\tstd::vector gmv = geometries_from_sfc(hGEOSCtxt, sfc, NULL);\n\tstd::vector out(gmv.size());\n#ifdef HAVE380\n# ifdef HAVE3101\n\tGEOSMakeValidParams *makeValidParams = GEOSMakeValidParams_create_r(hGEOSCtxt);\n\tif (method == \"valid_linework\")\n\t\tGEOSMakeValidParams_setMethod_r(hGEOSCtxt, makeValidParams, GEOS_MAKE_VALID_LINEWORK);\n\telse if (method == \"valid_structure\")\n\t\tGEOSMakeValidParams_setMethod_r(hGEOSCtxt, makeValidParams, GEOS_MAKE_VALID_STRUCTURE);\n\telse\n\t\tRcpp::stop(\"geos_method not recognized\");\n\tGEOSMakeValidParams_setKeepCollapsed_r(hGEOSCtxt, makeValidParams, (int) keep_collapsed);\n\tfor (size_t i = 0; i < gmv.size(); i++)\n\t\tgmv[i] = geos_ptr(GEOSMakeValidWithParams_r(hGEOSCtxt, gmv[i].get(), makeValidParams), hGEOSCtxt);\n\tGEOSMakeValidParams_destroy_r(hGEOSCtxt, makeValidParams);\n# else\n\tfor (size_t i = 0; i < gmv.size(); i++)\n\t\tgmv[i] = geos_ptr(GEOSMakeValid_r(hGEOSCtxt, gmv[i].get()), hGEOSCtxt);\n# endif\n#else\n\tRcpp::stop(\"this shouldn't happen: st_make_valid should use lwgeom\");\n#endif\n\tRcpp::List ret = sfc_from_geometry(hGEOSCtxt, gmv);\n\treturn ret;\n}\n// #nocov end\n\n// [[Rcpp::export(rng=false)]]\nRcpp::LogicalVector CPL_geos_is_valid(Rcpp::List sfc, bool NA_on_exception = true) {\n\tGEOSContextScope hGEOSCtxt;\n\n\tnotice = 0;\n\tif (NA_on_exception) {\n/*\n\t\tif (sfc.size() > 1)\n\t\t\tRcpp::stop(\"NA_on_exception will only work reliably with length 1 sfc objects\"); // #nocov\n*/\n#ifdef HAVE350\n\t\tGEOSContext_setNoticeMessageHandler_r(hGEOSCtxt,\n\t\t\t(GEOSMessageHandler_r) __emptyNoticeHandler, (void *) ¬ice);\n\t\tGEOSContext_setErrorMessageHandler_r(hGEOSCtxt,\n\t\t\t(GEOSMessageHandler_r) __countErrorHandler, (void *) ¬ice);\n#endif\n\t}\n\tRcpp::LogicalVector out(sfc.size());\n\tfor (int i = 0; i < out.length(); i++) {\n\t\t// get geometry i:\n\t\tRcpp::List geom_i = Rcpp::List::create(sfc[i]);\n\t\tgeom_i.attr(\"precision\") = sfc.attr(\"precision\");\n\t\tgeom_i.attr(\"class\") = sfc.attr(\"class\");\n\t\tgeom_i.attr(\"crs\") = sfc.attr(\"crs\");\n\t\tSEXP classes = sfc.attr(\"classes\");\n\t\tif (classes != R_NilValue) {\n\t\t\tRcpp::CharacterVector cl = sfc.attr(\"classes\");\n\t\t\tgeom_i.attr(\"classes\") = cl[i];\n\t\t}\n\t\tstd::vector gmv = geometries_from_sfc(hGEOSCtxt, geom_i, NULL, false); // where notice might be set!\n\t\tint ret;\n\t\tif (gmv[0].get() == NULL)\n\t\t\tret = 2;\n\t\telse\n\t\t\tret = GEOSisValid_r(hGEOSCtxt, gmv[0].get());\n\t\tif (NA_on_exception && (ret == 2 || notice != 0))\n\t\t\tout[i] = NA_LOGICAL; // no need to set notice back here, as we only consider 1 geometry #nocov\n\t\telse\n\t\t\tout[i] = chk_(ret);\n\t\tnotice = 0; // reset notice.\n\t}\n#ifdef HAVE350\n\tGEOSContext_setNoticeHandler_r(hGEOSCtxt, __warningHandler);\n\tGEOSContext_setErrorHandler_r(hGEOSCtxt, __errorHandler);\n#endif\n\treturn out;\n}\n\n// [[Rcpp::export(rng=false)]]\nRcpp::LogicalVector CPL_geos_is_simple(Rcpp::List sfc) {\n\tGEOSContextScope hGEOSCtxt;\n\tRcpp::LogicalVector out(sfc.length());\n\tstd::vector g = geometries_from_sfc(hGEOSCtxt, sfc, NULL);\n\tfor (size_t i = 0; i < g.size(); i++)\n\t\tout[i] = chk_(GEOSisSimple_r(hGEOSCtxt, g[i].get()));\n\treturn out;\n}\n\n// [[Rcpp::export(rng=false)]]\nRcpp::LogicalVector CPL_geos_is_empty(Rcpp::List sfc) {\n\tGEOSContextScope hGEOSCtxt;\n\tRcpp::LogicalVector out(sfc.length());\n\tstd::vector g = geometries_from_sfc(hGEOSCtxt, sfc, NULL);\n\tfor (size_t i = 0; i < g.size(); i++)\n\t\tout[i] = chk_(GEOSisEmpty_r(hGEOSCtxt, g[i].get()));\n\treturn out;\n}\n\n// [[Rcpp::export(rng=false)]]\nRcpp::List CPL_geos_normalize(Rcpp::List sfc) { // #nocov start\n\tint dim = 2;\n\tGEOSContextScope hGEOSCtxt;\n\tstd::vector gmv = geometries_from_sfc(hGEOSCtxt, sfc, &dim);\n\tfor (int i = 0; i < sfc.size(); i++) {\n\t\tif (GEOSNormalize_r(hGEOSCtxt, gmv[i].get()) == -1)\n\t\t\tRcpp::stop(\"normalize: GEOS exception\");\n\t}\n\tRcpp::List out(sfc_from_geometry(hGEOSCtxt, gmv, dim));\n\tout.attr(\"precision\") = sfc.attr(\"precision\");\n\tout.attr(\"crs\") = sfc.attr(\"crs\");\n\treturn out;\n} // #nocov end\n\n// [[Rcpp::export(rng=false)]]\nRcpp::List CPL_geos_union(Rcpp::List sfc, bool by_feature = false, bool is_coverage = false) {\n\n\tGEOSContextScope hGEOSCtxt;\n#ifndef HAVE380\n\tif (is_coverage) {\n\t\tRcpp::warning(\"ignoring 'is_coverage = TRUE' which requires GEOS version 3.8 or greater\");\n\t\tis_coverage = false;\n\t}\n#endif\n\n\tif (sfc.size() == 0)\n\t\treturn sfc; // #nocov\n\n\tint dim = 2;\n\tstd::vector gmv = geometries_from_sfc(hGEOSCtxt, sfc, &dim);\n\tstd::vector gmv_out(by_feature ? sfc.size() : 1);\n\n\tif (by_feature) {\n\t\tfor (int i = 0; i < sfc.size(); i++) {\n\t\t\tgmv_out[i] = geos_ptr(GEOSUnaryUnion_r(hGEOSCtxt, gmv[i].get()), hGEOSCtxt);\n\t\t}\n\t} else {\n\t\tbool all_inputs_same = true;\n\n\t\t// check to see if all geometries are identical, as in a call to summarize(..., do_union=TRUE)\n\t\tfor (size_t i = 1; i < gmv.size(); i++) {\n\t\t\tif (!GEOSEqualsExact_r(hGEOSCtxt, gmv[0].get(), gmv[i].get(), 0.0)) {\n\t\t\t\tall_inputs_same = false;\n\t\t\t\tbreak;\n\t\t\t}\n\t\t}\n\n\t\tif (all_inputs_same) {\n\t\t\tgmv_out[0] = std::move(gmv[0]);\n\t\t} else {\n\t\t\tGeomPtr gc = geos_ptr(GEOSGeom_createCollection_r(hGEOSCtxt, GEOS_GEOMETRYCOLLECTION, to_raw(gmv).data(), gmv.size()), hGEOSCtxt);\n\n#ifdef HAVE380\n\t\t\tif (is_coverage)\n\t\t\t\tgmv_out[0] = geos_ptr(GEOSCoverageUnion_r(hGEOSCtxt, gc.get()), hGEOSCtxt);\n\t\t\telse\n#endif\n\t\t\tgmv_out[0] = geos_ptr(GEOSUnaryUnion_r(hGEOSCtxt, gc.get()), hGEOSCtxt);\n\t\t}\n\t}\n\n\tRcpp::List out(sfc_from_geometry(hGEOSCtxt, gmv_out, dim));\n\tout.attr(\"precision\") = sfc.attr(\"precision\");\n\tout.attr(\"crs\") = sfc.attr(\"crs\");\n\treturn out;\n}\n\n// [[Rcpp::export(rng=false)]]\nRcpp::List CPL_geos_snap(Rcpp::List sfc0, Rcpp::List sfc1, Rcpp::NumericVector tolerance) {\n\tint dim = 2;\n\tGEOSContextScope hGEOSCtxt;\n\tstd::vector gmv0 = geometries_from_sfc(hGEOSCtxt, sfc0, &dim);\n\tstd::vector gmv1 = geometries_from_sfc(hGEOSCtxt, sfc1, &dim);\n\tGeomPtr gc;\n\tif (gmv1.size() > 1)\n\t\tgc = geos_ptr(GEOSGeom_createCollection_r(hGEOSCtxt, GEOS_GEOMETRYCOLLECTION,\n\t\t\tto_raw(gmv1).data(), gmv1.size()), hGEOSCtxt);\n\telse\n\t\tgc = std::move(gmv1[0]);\n\n\tstd::vector gmv_out(sfc0.size());\n\tfor (int i = 0; i < sfc0.size(); i++) {\n\t\tgmv_out[i] = geos_ptr(GEOSSnap_r(hGEOSCtxt, gmv0[i].get(), gc.get(), tolerance[i]), hGEOSCtxt);\n\t\tif (gmv_out[i] == NULL)\n\t\t\tRcpp::stop(\"snap: GEOS exception\"); // #nocov\n\t}\n\tRcpp::List out(sfc_from_geometry(hGEOSCtxt, gmv_out, dim));\n\tout.attr(\"precision\") = sfc0.attr(\"precision\");\n\tout.attr(\"crs\") = sfc0.attr(\"crs\");\n\treturn out;\n}\n\nGEOSGeometry *chkNULL(GEOSGeometry *value) {\n\tif (value == NULL)\n\t\tRcpp::stop(\"GEOS exception\"); // #nocov\n\tRcpp::checkUserInterrupt();\n\treturn value;\n}\n\n// [[Rcpp::export(rng=false)]]\nRcpp::List CPL_geos_op(std::string op, Rcpp::List sfc,\n Rcpp::NumericVector bufferDist, Rcpp::IntegerVector nQuadSegs,\n Rcpp::NumericVector dTolerance, Rcpp::LogicalVector preserveTopology,\n int bOnlyEdges = 1,\n Rcpp::IntegerVector endCapStyle = 0, Rcpp::IntegerVector joinStyle = 0,\n\t\t\t\t\t Rcpp::NumericVector mitreLimit = 1, Rcpp::LogicalVector singleside = 0)\n{\n\tGEOSContextScope hGEOSCtxt;\n\tint dim = 2;\n\n\tstd::vector g = geometries_from_sfc(hGEOSCtxt, sfc, &dim);\n\tstd::vector out(sfc.length());\n\n\tif (op == \"buffer\") {\n\t\tif (bufferDist.size() != (int) g.size())\n\t\t\tRcpp::stop(\"invalid dist argument\"); // #nocov\n\t\tfor (size_t i = 0; i < g.size(); i++)\n\t\t\tout[i] = geos_ptr(chkNULL(GEOSBuffer_r(hGEOSCtxt, g[i].get(), bufferDist[i], nQuadSegs[i])), hGEOSCtxt);\n\t} else if (op == \"buffer_with_style\") {\n\t\tGEOSBufferParams *bufferparams = GEOSBufferParams_create_r(hGEOSCtxt);\n\t\tfor (size_t i = 0; i < g.size(); i++) {\n\t\t\tif (GEOSBufferParams_setEndCapStyle_r(hGEOSCtxt, bufferparams, endCapStyle[i]) &&\n\t\t\t\t\tGEOSBufferParams_setJoinStyle_r(hGEOSCtxt, bufferparams, joinStyle[i]) &&\n\t\t\t\t\tGEOSBufferParams_setMitreLimit_r(hGEOSCtxt, bufferparams, mitreLimit[i]) &&\n\t\t\t\t\tGEOSBufferParams_setQuadrantSegments_r(hGEOSCtxt, bufferparams, nQuadSegs[i]) &&\n\t\t\t\t\tGEOSBufferParams_setSingleSided_r(hGEOSCtxt, bufferparams, singleside[i]))\n\t\t\t\t// out[i] = geos_ptr(chkNULL(GEOSBufferWithStyle_r(hGEOSCtxt, g[i].get(), bufferDist[i], nQuadSegs[i], endCapStyle[i], joinStyle[i], mitreLimit[i])), hGEOSCtxt);\n\t\t\t\tout[i] = geos_ptr(chkNULL(GEOSBufferWithParams_r(hGEOSCtxt, g[i].get(),\n\t\t\t\t\tbufferparams, bufferDist[i])), hGEOSCtxt);\n\t\t\telse\n\t\t\t\tRcpp::stop(\"invalid buffer parameters\"); // #nocov\n\t\t}\n\t\tGEOSBufferParams_destroy_r(hGEOSCtxt, bufferparams);\n\t} else if (op == \"boundary\") {\n\t\tfor (size_t i = 0; i < g.size(); i++)\n\t\t\tout[i] = geos_ptr(chkNULL(GEOSBoundary_r(hGEOSCtxt, g[i].get())), hGEOSCtxt);\n\t} else if (op == \"concave_hull\") {\n#ifdef HAVE311\n\t\tdouble ratio = bufferDist[0];\n\t\tunsigned int allowHoles = preserveTopology[0];\n\t\tfor (size_t i = 0; i < g.size(); i++)\n\t\t\tout[i] = geos_ptr(chkNULL(GEOSConcaveHull_r(hGEOSCtxt, g[i].get(), ratio, allowHoles)), hGEOSCtxt);\n#else\n\t\tRcpp::stop(\"st_concave_hull requires GEOS >= 3.11\");\n#endif\n\t} else if (op == \"convex_hull\") {\n\t\tfor (size_t i = 0; i < g.size(); i++)\n\t\t\tout[i] = geos_ptr(chkNULL(GEOSConvexHull_r(hGEOSCtxt, g[i].get())), hGEOSCtxt);\n\t} else if (op == \"simplify\") {\n\t\tfor (size_t i = 0; i < g.size(); i++)\n\t\t\tout[i] = geos_ptr(\n\t\t\t\t\tpreserveTopology[i] ?\n\t\t\t\t\t\tchkNULL(GEOSTopologyPreserveSimplify_r(hGEOSCtxt, g[i].get(),\n\t\t\t\t\t\t\tdTolerance[i])) :\n\t\t\t\t\t\tchkNULL(GEOSSimplify_r(hGEOSCtxt, g[i].get(), dTolerance[i])), hGEOSCtxt);\n\t} else if (op == \"linemerge\") {\n\t\tfor (size_t i = 0; i < g.size(); i++)\n\t\t\tout[i] = geos_ptr(chkNULL(GEOSLineMerge_r(hGEOSCtxt, g[i].get())), hGEOSCtxt);\n\t} else if (op == \"linemergedirected\") {\n#ifdef HAVE311\n\t\tfor (size_t i = 0; i < g.size(); i++)\n\t\t\tout[i] = geos_ptr(chkNULL(GEOSLineMergeDirected_r(hGEOSCtxt, g[i].get())), hGEOSCtxt);\n#else\n\t\tRcpp::stop(\"directed line merge requires GEOS >= 3.11\");\n#endif\n\t} else if (op == \"polygonize\") {\n\t\tfor (size_t i = 0; i < g.size(); i++) {\n\t\t\tconst GEOSGeometry* gi = g[i].get();\n\t\t\tout[i] = geos_ptr(chkNULL(GEOSPolygonize_r(hGEOSCtxt, &gi, 1)), hGEOSCtxt);\n\t\t}\n\t} else if (op == \"centroid\") {\n\t\tfor (size_t i = 0; i < g.size(); i++) {\n\t\t\tout[i] = geos_ptr(chkNULL(GEOSGetCentroid_r(hGEOSCtxt, g[i].get())), hGEOSCtxt);\n\t\t}\n\t} else\n\tif (op == \"node\") {\n\t\tfor (size_t i = 0; i < g.size(); i++) {\n\t\t\tout[i] = geos_ptr(chkNULL(GEOSNode_r(hGEOSCtxt, g[i].get())), hGEOSCtxt);\n\t\t}\n\t} else if (op == \"point_on_surface\") {\n\t\tfor (size_t i = 0; i < g.size(); i++) {\n\t\t\tout[i] = geos_ptr(chkNULL(GEOSPointOnSurface_r(hGEOSCtxt, g[i].get())), hGEOSCtxt);\n\t\t}\n\t} else\n#ifdef HAVE340\n\tif (op == \"triangulate\") {\n\t\tfor (size_t i = 0; i < g.size(); i++)\n\t\t\tout[i] = geos_ptr(chkNULL(GEOSDelaunayTriangulation_r(hGEOSCtxt, g[i].get(),\n\t\t\t\tdTolerance[i], bOnlyEdges)), hGEOSCtxt);\n\t} else\n#endif\n#ifdef HAVE310\n\tif (op == \"triangulate_constrained\") {\n\t\tfor (size_t i = 0; i < g.size(); i++)\n\t\t\tout[i] = geos_ptr(chkNULL(GEOSConstrainedDelaunayTriangulation_r(hGEOSCtxt, g[i].get())), \n\t\t\t\t\t\t\thGEOSCtxt);\n\t} else\n#endif\n#ifdef HAVE370\n\tif (op == \"reverse\") {\n\t\tfor (size_t i = 0; i < g.size(); i++) {\n\t\t\tout[i] = geos_ptr(chkNULL(GEOSReverse_r(hGEOSCtxt, g[i].get())), hGEOSCtxt);\n\t\t}\n\t} else\n#endif\n#ifdef HAVE380\n\tif (op == \"bounding_circle\") {\n\t\tdouble r;\n\t\tfor (size_t i = 0; i < g.size(); i++)\n\t\t\tout[i] = geos_ptr(chkNULL(GEOSMinimumBoundingCircle_r(hGEOSCtxt, g[i].get(), &r, NULL)), hGEOSCtxt);\n\t} else\n#endif\n#ifdef HAVE390\n\tif (op == \"inscribed_circle\") {\n\t\tfor (size_t i = 0; i < g.size(); i++) {\n\t\t\tout[i] = geos_ptr(chkNULL(GEOSMaximumInscribedCircle_r(hGEOSCtxt, g[i].get(),\n\t\t\t\tdTolerance[i])), hGEOSCtxt);\n\t\t}\n\t} else if (op == \"minimum_rotated_rectangle\") {\n\t\tfor (size_t i = 0; i < g.size(); i++) {\n\t\t\tout[i] = geos_ptr(chkNULL(GEOSMinimumRotatedRectangle_r(hGEOSCtxt, g[i].get())), hGEOSCtxt);\n\t\t}\n\t} else\n#endif\n\t\tRcpp::stop(\"invalid operation\"); // #nocov\n\n\tRcpp::List ret(sfc_from_geometry(hGEOSCtxt, out, dim));\n\tret.attr(\"precision\") = sfc.attr(\"precision\");\n\tret.attr(\"crs\") = sfc.attr(\"crs\");\n\treturn ret;\n}\n\n// [[Rcpp::export(rng=false)]]\nRcpp::List CPL_geos_voronoi(Rcpp::List sfc, Rcpp::List env, double dTolerance = 0.0, int bOnlyEdges = 1) {\n\n\tGEOSContextScope hGEOSCtxt;\n\tint dim = 2;\n\n\tstd::vector g = geometries_from_sfc(hGEOSCtxt, sfc, &dim);\n\tstd::vector out(sfc.length());\n\n#ifdef HAVE350\n\tswitch (env.size()) {\n\t\tcase 0: ;\n\t\tcase 1: {\n\t\t\tstd::vector g_env = geometries_from_sfc(hGEOSCtxt, env);\n\t\t\tfor (size_t i = 0; i < g.size(); i++) {\n\t\t\t\tout[i] = geos_ptr(chkNULL(GEOSVoronoiDiagram_r(hGEOSCtxt, g[i].get(),\n\t\t\t\t\tg_env.size() ? g_env[0].get() : NULL, dTolerance, bOnlyEdges)), hGEOSCtxt);\n\t\t\t}\n\t\t\tbreak;\n\t\t}\n\t\tdefault:\n\t\t\tRcpp::stop(\"env should have length 0 or 1\"); // #nocov\n\t}\n#else\n\tRcpp::stop(\"voronoi diagrams require a GEOS version >= 3.5.0\"); // #nocov\n#endif\n\n\tRcpp::List ret(sfc_from_geometry(hGEOSCtxt, out, dim));\n\tret.attr(\"precision\") = sfc.attr(\"precision\");\n\tret.attr(\"crs\") = sfc.attr(\"crs\");\n\treturn ret;\n}\n\n// [[Rcpp::export(rng=false)]]\nRcpp::List CPL_geos_op2(std::string op, Rcpp::List sfcx, Rcpp::List sfcy) {\n\n\tusing namespace Rcpp; // so that later on the (_,1) works\n\n\tint dim = 2;\n\tGEOSContextScope hGEOSCtxt;\n\tstd::vector x = geometries_from_sfc(hGEOSCtxt, sfcx, &dim);\n\tstd::vector y = geometries_from_sfc(hGEOSCtxt, sfcy, &dim);\n\tstd::vector out;\n\tstd::vector index_x, index_y;\n\tstd::vector items(x.size());\n#ifdef HAVE_390\n\tdouble grid_size = geos_grid_size_xy(sfcx, sfcy);\n#endif\n\n\tif (op == \"intersection\") {\n\n\t\tbool tree_empty = true;\n\t\tTreePtr tree = geos_ptr(GEOSSTRtree_create_r(hGEOSCtxt, 10), hGEOSCtxt);\n\t\tfor (size_t i = 0; i < x.size(); i++) {\n\t\t\titems[i] = i;\n\t\t\tif (! GEOSisEmpty_r(hGEOSCtxt, x[i].get())) {\n\t\t\t\tGEOSSTRtree_insert_r(hGEOSCtxt, tree.get(), x[i].get(), &(items[i]));\n\t\t\t\ttree_empty = false;\n\t\t\t}\n\t\t}\n\n\t\tfor (size_t i = 0; i < y.size(); i++) {\n\t\t\t// select x's using tree:\n\t\t\tstd::vector sel;\n\t\t\tsel.reserve(x.size());\n\t\t\tif (! GEOSisEmpty_r(hGEOSCtxt, y[i].get()) && ! tree_empty)\n\t\t\t\tGEOSSTRtree_query_r(hGEOSCtxt, tree.get(), y[i].get(), cb, &sel);\n\t\t\tstd::sort(sel.begin(), sel.end());\n\t\t\tfor (size_t item = 0; item < sel.size(); item++) {\n\t\t\t\tsize_t j = sel[item];\n#ifndef HAVE_390\n\t\t\t\tGeomPtr geom = geos_ptr(GEOSIntersection_r(hGEOSCtxt, x[j].get(), y[i].get()), hGEOSCtxt);\n#else\n\t\t\t\tGeomPtr geom = geos_ptr(GEOSIntersectionPrec_r(hGEOSCtxt, x[j].get(), y[i].get(), grid_size), hGEOSCtxt);\n#endif\n\t\t\t\tif (geom == nullptr)\n\t\t\t\t\tRcpp::stop(\"GEOS exception\"); // #nocov\n\t\t\t\tif (! chk_(GEOSisEmpty_r(hGEOSCtxt, geom.get()))) {\n\t\t\t\t\tindex_x.push_back(j + 1);\n\t\t\t\t\tindex_y.push_back(i + 1);\n\t\t\t\t\tout.push_back(std::move(geom)); // keep\n\t\t\t\t}\n\t\t\t\tRcpp::checkUserInterrupt();\n\t\t\t}\n\t\t}\n\n\t} else {\n#ifndef HAVE_390\n\t\tgeom_fn geom_function;\n\t\tif (op == \"union\")\n\t\t\tgeom_function = (geom_fn) GEOSUnion_r;\n\t\telse if (op == \"difference\")\n\t\t\tgeom_function = (geom_fn) GEOSDifference_r;\n\t\telse if (op == \"sym_difference\")\n\t\t\tgeom_function = (geom_fn) GEOSSymDifference_r;\n#else\n\t\tgeom_fnp geom_function;\n\t\tif (op == \"union\")\n\t\t\tgeom_function = (geom_fn) GEOSUnionPrec_r;\n\t\telse if (op == \"difference\")\n\t\t\tgeom_function = (geom_fn) GEOSDifferencePrec_r;\n\t\telse if (op == \"sym_difference\")\n\t\t\tgeom_function = (geom_fn) GEOSSymDifferencePrec_r;\n#endif\n\t\telse\n\t\t\tRcpp::stop(\"invalid operation\"); // #nocov\n\n\t\tfor (size_t i = 0; i < y.size(); i++) {\n\t\t\tfor (size_t j = 0; j < x.size(); j++) {\n#ifndef HAVE_390\n\t\t\t\tGeomPtr geom = geos_ptr(geom_function(hGEOSCtxt, x[j].get(), y[i].get()), hGEOSCtxt);\n#else\n\t\t\t\tGeomPtr geom = geos_ptr(geom_function(hGEOSCtxt, x[j].get(), y[i].get(), grid_size), hGEOSCtxt);\n#endif\n\t\t\t\tif (geom == nullptr)\n\t\t\t\t\tRcpp::stop(\"GEOS exception\"); // #nocov\n\t\t\t\tif (! chk_(GEOSisEmpty_r(hGEOSCtxt, geom.get()))) {\n\t\t\t\t\tindex_x.push_back(j + 1);\n\t\t\t\t\tindex_y.push_back(i + 1);\n\t\t\t\t\tout.push_back(std::move(geom)); // keep\n\t\t\t\t}\n\t\t\t\tRcpp::checkUserInterrupt();\n\t\t\t}\n\t\t}\n\t}\n\n\tRcpp::NumericMatrix m(index_x.size(), 2); // and a set of 1-based indices to x and y\n\tm(_, 0) = Rcpp::NumericVector(index_x.begin(), index_x.end());\n\tm(_, 1) = Rcpp::NumericVector(index_y.begin(), index_y.end());\n\n\tRcpp::List ret;\n\tif ((x.size() == 0 || y.size() == 0) && op != \"intersection\") {\n\t\tif (op == \"union\" || op == \"sym_difference\") { // return \"the other\"\n\t\t\tif (y.size() == 0)\n\t\t\t\tret = sfcx;\n\t\t\telse\n\t\t\t\tret = sfcy;\n\t\t} else // \"difference\" is asymmetric: x - 0 -> return x\n\t\t\tret = sfcx;\n\t} else {\n\t\tret = sfc_from_geometry(hGEOSCtxt, out, dim);\n\t\tret.attr(\"crs\") = sfcx.attr(\"crs\");\n\t\tret.attr(\"idx\") = m;\n\t}\n\treturn ret;\n}\n\n// [[Rcpp::export(rng=false)]]\nRcpp::NumericVector CPL_geos_dist_by_element(Rcpp::List sfc0, Rcpp::List sfc1,\n std::string which, double par) {\n \n GEOSContextScope hGEOSCtxt;\n\n int dim = 2;\n std::vector