<!DOCTYPE html>
<!-- Generated by pkgdown: do not edit by hand --><html lang="en"><head><meta http-equiv="Content-Type" content="text/html; charset=UTF-8"><meta charset="utf-8"><meta http-equiv="X-UA-Compatible" content="IE=edge"><meta name="viewport" content="width=device-width, initial-scale=1.0"><title>Retrieve coordinate reference system from sf or sfc object — st_crs2 • sen2r</title><!-- jquery --><script src="https://cdnjs.cloudflare.com/ajax/libs/jquery/3.4.1/jquery.min.js" integrity="sha256-CSXorXvZcTkaix6Yvo6HppcZGetbYMGWSFlBw8HfCJo=" crossorigin="anonymous"></script><!-- Bootstrap --><link href="https://cdnjs.cloudflare.com/ajax/libs/bootswatch/3.4.0/yeti/bootstrap.min.css" rel="stylesheet" crossorigin="anonymous"><script src="https://cdnjs.cloudflare.com/ajax/libs/twitter-bootstrap/3.4.1/js/bootstrap.min.js" integrity="sha256-nuL8/2cJ5NDSSwnKD8VqreErSWHtnEP9E7AySL+1ev4=" crossorigin="anonymous"></script><!-- bootstrap-toc --><link rel="stylesheet" href="../bootstrap-toc.css"><script src="../bootstrap-toc.js"></script><!-- Font Awesome icons --><link rel="stylesheet" href="https://cdnjs.cloudflare.com/ajax/libs/font-awesome/5.12.1/css/all.min.css" integrity="sha256-mmgLkCYLUQbXn0B1SRqzHar6dCnv9oZFPEC1g1cwlkk=" crossorigin="anonymous"><link rel="stylesheet" href="https://cdnjs.cloudflare.com/ajax/libs/font-awesome/5.12.1/css/v4-shims.min.css" integrity="sha256-wZjR52fzng1pJHwx4aV2AO3yyTOXrcDW7jBpJtTwVxw=" crossorigin="anonymous"><!-- clipboard.js --><script src="https://cdnjs.cloudflare.com/ajax/libs/clipboard.js/2.0.6/clipboard.min.js" integrity="sha256-inc5kl9MA1hkeYUt+EC3BhlIgyp/2jDIyBLS6k3UxPI=" crossorigin="anonymous"></script><!-- headroom.js --><script src="https://cdnjs.cloudflare.com/ajax/libs/headroom/0.11.0/headroom.min.js" integrity="sha256-AsUX4SJE1+yuDu5+mAVzJbuYNPHj/WroHuZ8Ir/CkE0=" crossorigin="anonymous"></script><script src="https://cdnjs.cloudflare.com/ajax/libs/headroom/0.11.0/jQuery.headroom.min.js" integrity="sha256-ZX/yNShbjqsohH1k95liqY9Gd8uOiE1S4vZc+9KQ1K4=" crossorigin="anonymous"></script><!-- pkgdown --><link href="../pkgdown.css" rel="stylesheet"><script src="../pkgdown.js"></script><meta property="og:title" content="Retrieve coordinate reference system from sf or sfc object — st_crs2"><meta property="og:description" content="This function is a wrapper for sf::st_crs, unless
threating numeric character strings as integers, and
accepting also UTM timezones, paths of spatial files and paths of
text files containing WKT like .prj (see details) ."><!-- mathjax --><script src="https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.5/MathJax.js" integrity="sha256-nvJJv9wWKEm88qvoQl9ekL2J+k/RWIsaSScxxlsrv8k=" crossorigin="anonymous"></script><script src="https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.5/config/TeX-AMS-MML_HTMLorMML.js" integrity="sha256-84DKXVJXs0/F8OTMzX4UR909+jtl4G7SPypPavF+GfA=" crossorigin="anonymous"></script><!--[if lt IE 9]>
<script src="https://oss.maxcdn.com/html5shiv/3.7.3/html5shiv.min.js"></script>
<script src="https://oss.maxcdn.com/respond/1.4.2/respond.min.js"></script>
<![endif]--></head><body data-spy="scroll" data-target="#toc">
    

    <div class="container template-reference-topic">
      <header><div class="navbar navbar-inverse navbar-fixed-top" role="navigation">
  <div class="container">
    <div class="navbar-header">
      <button type="button" class="navbar-toggle collapsed" data-toggle="collapse" data-target="#navbar" aria-expanded="false">
        <span class="sr-only">Toggle navigation</span>
        <span class="icon-bar"></span>
        <span class="icon-bar"></span>
        <span class="icon-bar"></span>
      </button>
      <span class="navbar-brand">
        <a class="navbar-link" href="../index.html">sen2r</a>
        <span class="version label label-default" data-toggle="tooltip" data-placement="bottom" title="">1.6.0</span>
      </span>
    </div>

    <div id="navbar" class="navbar-collapse collapse">
      <ul class="nav navbar-nav"></ul><ul class="nav navbar-nav navbar-right"><li>
  <a href="../index.html">
    <span class="fa fa-home fa-lg"></span>
     
  </a>
</li>
<li>
  <a href="../reference/index.html">
    <span class="fa fa-file-code"></span>
     
     Reference
  </a>
</li>
<li class="dropdown">
  <a href="#" class="dropdown-toggle" data-toggle="dropdown" role="button" data-bs-toggle="dropdown" aria-expanded="false">
    <span class="fa fa-book"></span>
     
     Articles
     
    <span class="caret"></span>
  </a>
  <ul class="dropdown-menu" role="menu"><li>
      <a href="../articles/installation.html">Installation</a>
    </li>
    <li>
      <a href="../articles/docker.html">Run in a Docker container</a>
    </li>
    <li>
      <a href="../articles/sen2r_gui.html">Using sen2r() from the GUI</a>
    </li>
    <li>
      <a href="../articles/sen2r_cmd.html">Using sen2r() from the command line</a>
    </li>
    <li>
      <a href="../articles/outstructure.html">Output file structure</a>
    </li>
  </ul></li>
<li>
  <a href="../news/index.html">
    <span class="fa fa-newspaper"></span>
     
     Changelog
  </a>
</li>
<li>
  <a href="http://luigi.ranghetti.info" class="external-link">
    <span class="fa fa-user"></span>
     
  </a>
</li>
<li>
  <a href="https://github.com/ranghetti/sen2r/" class="external-link">
    <span class="fa fa-github fa-lg"></span>
     
  </a>
</li>
      </ul></div><!--/.nav-collapse -->
  </div><!--/.container -->
</div><!--/.navbar -->

      

      </header><div class="row">
  <div class="col-md-9 contents">
    <div class="page-header">
    <h1>Retrieve coordinate reference system from sf or sfc object</h1>
    <small class="dont-index">Source: <a href="https://github.com/ranghetti/sen2r/blob/HEAD/R/st_crs2.R" class="external-link"><code>R/st_crs2.R</code></a></small>
    <div class="hidden name"><code>st_crs2.Rd</code></div>
    </div>

    <div class="ref-description">
    <p>This function is a wrapper for <a href="https://r-spatial.github.io/sf/reference/st_crs.html" class="external-link">sf::st_crs</a>, unless
threating numeric <code>character</code> strings as integers, and
accepting also UTM timezones, paths of spatial files and paths of
text files containing WKT like .prj (see details) .</p>
    </div>

    <div id="ref-usage">
    <div class="sourceCode"><pre class="sourceCode r"><code><span><span class="fu">st_crs2</span><span class="op">(</span><span class="va">x</span>, <span class="va">...</span><span class="op">)</span></span></code></pre></div>
    </div>

    <div id="arguments">
    <h2>Arguments</h2>
    <dl><dt>x</dt>
<dd><p>numeric, character, or object of class <a href="https://r-spatial.github.io/sf/reference/sf.html" class="external-link">sf</a> or <a href="https://r-spatial.github.io/sf/reference/sfc.html" class="external-link">sfc</a>, being:</p><ul><li><p>EPSG code: numeric (e.g. <code>32632</code>) or character (in the form
<code>"32632"</code> or <code>"EPSG:32632"</code>);</p></li>
<li><p>UTM zone: numeric (e.g. <code>32</code>, interpreted as 32 North) or character
(e.g. <code>"32"</code> or <code>"32N"</code> for zone 32 North, <code>"32S"</code> for 32 South);</p></li>
<li><p>WKT test: passed as character string or as path of a text file
containing it (e.g. the path of a .prj file);</p></li>
<li><p>PROJ.4 string, passed as character (e.g.
<code>"+proj=utm +zone=32 +datum=WGS84 +units=m +no_defs"</code>
(<strong>NOTE</strong>: this representation is deprecated with PROJ &gt;= 6
-- see http://rgdal.r-forge.r-project.org/articles/PROJ6_GDAL3.html --
so a warning is returned using it, unless the string contains only
the epsg code -- e.g. <code>"+init=epsg:32632"</code>, in which case the EPSG
code is taken);</p></li>
<li><p>path of a spatial file (managed by <a href="https://r-spatial.github.io/sf/reference/st_read.html" class="external-link">sf::st_read</a> or <a href="https://r-spatial.github.io/stars/reference/read_stars.html" class="external-link">stars::read_stars</a>),
passed as character string of length 1;</p></li>
<li><p>spatial file of class <a href="https://r-spatial.github.io/sf/reference/sf.html" class="external-link">sf</a> or <a href="https://r-spatial.github.io/sf/reference/sfc.html" class="external-link">sfc</a>.</p></li>
</ul></dd>


<dt>...</dt>
<dd><p>other parameters passed to <a href="https://r-spatial.github.io/sf/reference/st_crs.html" class="external-link">sf::st_crs</a>.</p></dd>

</dl></div>
    <div id="value">
    <h2>Value</h2>
    

<p>An object of class crs of length 2.</p>
    </div>
    <div id="details">
    <h2>Details</h2>
    <p>See <a href="https://r-spatial.github.io/sf/reference/st_crs.html" class="external-link">sf::st_crs</a> for details.</p>
    </div>
    <div id="note">
    <h2>Note</h2>
    <p>License: GPL 3.0</p>
    </div>
    <div id="references">
    <h2>References</h2>
    <p>L. Ranghetti, M. Boschetti, F. Nutini, L. Busetto (2020).
"sen2r": An R toolbox for automatically downloading and preprocessing
Sentinel-2 satellite data. <em>Computers &amp; Geosciences</em>, 139, 104473.
<a href="https://doi.org/10.1016/j.cageo.2020.104473" class="external-link">doi:10.1016/j.cageo.2020.104473</a>
, URL: <a href="https://sen2r.ranghetti.info/" class="external-link">https://sen2r.ranghetti.info/</a>.</p>
    </div>
    <div id="author">
    <h2>Author</h2>
    <p>Luigi Ranghetti, phD (2019)</p>
    </div>

    <div id="ref-examples">
    <h2>Examples</h2>
    <div class="sourceCode"><pre class="sourceCode r"><code><span class="r-in"><span><span class="co">## CRS from EPSG</span></span></span>
<span class="r-in"><span><span class="fu">st_crs2</span><span class="op">(</span><span class="fl">32609</span><span class="op">)</span></span></span>
<span class="r-out co"><span class="r-pr">#&gt;</span> Coordinate Reference System:</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>   User input: EPSG:32609 </span>
<span class="r-out co"><span class="r-pr">#&gt;</span>   wkt:</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> PROJCRS["WGS 84 / UTM zone 9N",</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>     BASEGEOGCRS["WGS 84",</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>         DATUM["World Geodetic System 1984",</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             ELLIPSOID["WGS 84",6378137,298.257223563,</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>                 LENGTHUNIT["metre",1]]],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>         PRIMEM["Greenwich",0,</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             ANGLEUNIT["degree",0.0174532925199433]],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>         ID["EPSG",4326]],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>     CONVERSION["UTM zone 9N",</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>         METHOD["Transverse Mercator",</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             ID["EPSG",9807]],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>         PARAMETER["Latitude of natural origin",0,</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             ANGLEUNIT["degree",0.0174532925199433],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             ID["EPSG",8801]],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>         PARAMETER["Longitude of natural origin",-129,</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             ANGLEUNIT["degree",0.0174532925199433],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             ID["EPSG",8802]],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>         PARAMETER["Scale factor at natural origin",0.9996,</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             SCALEUNIT["unity",1],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             ID["EPSG",8805]],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>         PARAMETER["False easting",500000,</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             LENGTHUNIT["metre",1],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             ID["EPSG",8806]],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>         PARAMETER["False northing",0,</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             LENGTHUNIT["metre",1],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             ID["EPSG",8807]]],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>     CS[Cartesian,2],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>         AXIS["(E)",east,</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             ORDER[1],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             LENGTHUNIT["metre",1]],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>         AXIS["(N)",north,</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             ORDER[2],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             LENGTHUNIT["metre",1]],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>     USAGE[</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>         SCOPE["Engineering survey, topographic mapping."],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>         AREA["Between 132°W and 126°W, northern hemisphere between equator and 84°N, onshore and offshore. Canada - British Columbia (BC); NorthW Territories (NWT); Yukon. United States (USA) - Alaska (AK)."],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>         BBOX[0,-132,84,-126]],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>     ID["EPSG",32609]]</span>
<span class="r-in"><span><span class="fu">st_crs2</span><span class="op">(</span><span class="st">"EPSG:32609"</span><span class="op">)</span></span></span>
<span class="r-out co"><span class="r-pr">#&gt;</span> Coordinate Reference System:</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>   User input: EPSG:32609 </span>
<span class="r-out co"><span class="r-pr">#&gt;</span>   wkt:</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> PROJCRS["WGS 84 / UTM zone 9N",</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>     BASEGEOGCRS["WGS 84",</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>         DATUM["World Geodetic System 1984",</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             ELLIPSOID["WGS 84",6378137,298.257223563,</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>                 LENGTHUNIT["metre",1]]],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>         PRIMEM["Greenwich",0,</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             ANGLEUNIT["degree",0.0174532925199433]],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>         ID["EPSG",4326]],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>     CONVERSION["UTM zone 9N",</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>         METHOD["Transverse Mercator",</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             ID["EPSG",9807]],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>         PARAMETER["Latitude of natural origin",0,</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             ANGLEUNIT["degree",0.0174532925199433],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             ID["EPSG",8801]],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>         PARAMETER["Longitude of natural origin",-129,</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             ANGLEUNIT["degree",0.0174532925199433],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             ID["EPSG",8802]],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>         PARAMETER["Scale factor at natural origin",0.9996,</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             SCALEUNIT["unity",1],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             ID["EPSG",8805]],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>         PARAMETER["False easting",500000,</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             LENGTHUNIT["metre",1],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             ID["EPSG",8806]],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>         PARAMETER["False northing",0,</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             LENGTHUNIT["metre",1],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             ID["EPSG",8807]]],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>     CS[Cartesian,2],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>         AXIS["(E)",east,</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             ORDER[1],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             LENGTHUNIT["metre",1]],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>         AXIS["(N)",north,</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             ORDER[2],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             LENGTHUNIT["metre",1]],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>     USAGE[</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>         SCOPE["Engineering survey, topographic mapping."],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>         AREA["Between 132°W and 126°W, northern hemisphere between equator and 84°N, onshore and offshore. Canada - British Columbia (BC); NorthW Territories (NWT); Yukon. United States (USA) - Alaska (AK)."],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>         BBOX[0,-132,84,-126]],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>     ID["EPSG",32609]]</span>
<span class="r-in"><span></span></span>
<span class="r-in"><span><span class="co">## CRS from UTM zone</span></span></span>
<span class="r-in"><span><span class="fu">st_crs2</span><span class="op">(</span><span class="fl">9</span><span class="op">)</span></span></span>
<span class="r-out co"><span class="r-pr">#&gt;</span> Coordinate Reference System:</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>   User input: EPSG:32609 </span>
<span class="r-out co"><span class="r-pr">#&gt;</span>   wkt:</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> PROJCRS["WGS 84 / UTM zone 9N",</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>     BASEGEOGCRS["WGS 84",</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>         DATUM["World Geodetic System 1984",</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             ELLIPSOID["WGS 84",6378137,298.257223563,</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>                 LENGTHUNIT["metre",1]]],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>         PRIMEM["Greenwich",0,</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             ANGLEUNIT["degree",0.0174532925199433]],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>         ID["EPSG",4326]],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>     CONVERSION["UTM zone 9N",</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>         METHOD["Transverse Mercator",</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             ID["EPSG",9807]],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>         PARAMETER["Latitude of natural origin",0,</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             ANGLEUNIT["degree",0.0174532925199433],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             ID["EPSG",8801]],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>         PARAMETER["Longitude of natural origin",-129,</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             ANGLEUNIT["degree",0.0174532925199433],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             ID["EPSG",8802]],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>         PARAMETER["Scale factor at natural origin",0.9996,</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             SCALEUNIT["unity",1],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             ID["EPSG",8805]],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>         PARAMETER["False easting",500000,</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             LENGTHUNIT["metre",1],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             ID["EPSG",8806]],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>         PARAMETER["False northing",0,</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             LENGTHUNIT["metre",1],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             ID["EPSG",8807]]],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>     CS[Cartesian,2],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>         AXIS["(E)",east,</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             ORDER[1],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             LENGTHUNIT["metre",1]],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>         AXIS["(N)",north,</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             ORDER[2],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             LENGTHUNIT["metre",1]],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>     USAGE[</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>         SCOPE["Engineering survey, topographic mapping."],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>         AREA["Between 132°W and 126°W, northern hemisphere between equator and 84°N, onshore and offshore. Canada - British Columbia (BC); NorthW Territories (NWT); Yukon. United States (USA) - Alaska (AK)."],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>         BBOX[0,-132,84,-126]],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>     ID["EPSG",32609]]</span>
<span class="r-in"><span><span class="fu">st_crs2</span><span class="op">(</span><span class="st">"09"</span><span class="op">)</span></span></span>
<span class="r-out co"><span class="r-pr">#&gt;</span> Coordinate Reference System:</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>   User input: EPSG:32609 </span>
<span class="r-out co"><span class="r-pr">#&gt;</span>   wkt:</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> PROJCRS["WGS 84 / UTM zone 9N",</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>     BASEGEOGCRS["WGS 84",</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>         DATUM["World Geodetic System 1984",</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             ELLIPSOID["WGS 84",6378137,298.257223563,</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>                 LENGTHUNIT["metre",1]]],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>         PRIMEM["Greenwich",0,</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             ANGLEUNIT["degree",0.0174532925199433]],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>         ID["EPSG",4326]],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>     CONVERSION["UTM zone 9N",</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>         METHOD["Transverse Mercator",</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             ID["EPSG",9807]],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>         PARAMETER["Latitude of natural origin",0,</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             ANGLEUNIT["degree",0.0174532925199433],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             ID["EPSG",8801]],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>         PARAMETER["Longitude of natural origin",-129,</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             ANGLEUNIT["degree",0.0174532925199433],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             ID["EPSG",8802]],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>         PARAMETER["Scale factor at natural origin",0.9996,</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             SCALEUNIT["unity",1],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             ID["EPSG",8805]],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>         PARAMETER["False easting",500000,</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             LENGTHUNIT["metre",1],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             ID["EPSG",8806]],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>         PARAMETER["False northing",0,</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             LENGTHUNIT["metre",1],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             ID["EPSG",8807]]],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>     CS[Cartesian,2],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>         AXIS["(E)",east,</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             ORDER[1],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             LENGTHUNIT["metre",1]],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>         AXIS["(N)",north,</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             ORDER[2],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             LENGTHUNIT["metre",1]],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>     USAGE[</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>         SCOPE["Engineering survey, topographic mapping."],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>         AREA["Between 132°W and 126°W, northern hemisphere between equator and 84°N, onshore and offshore. Canada - British Columbia (BC); NorthW Territories (NWT); Yukon. United States (USA) - Alaska (AK)."],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>         BBOX[0,-132,84,-126]],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>     ID["EPSG",32609]]</span>
<span class="r-in"><span><span class="fu">st_crs2</span><span class="op">(</span><span class="st">"9N"</span><span class="op">)</span></span></span>
<span class="r-out co"><span class="r-pr">#&gt;</span> Coordinate Reference System:</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>   User input: EPSG:32609 </span>
<span class="r-out co"><span class="r-pr">#&gt;</span>   wkt:</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> PROJCRS["WGS 84 / UTM zone 9N",</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>     BASEGEOGCRS["WGS 84",</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>         DATUM["World Geodetic System 1984",</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             ELLIPSOID["WGS 84",6378137,298.257223563,</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>                 LENGTHUNIT["metre",1]]],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>         PRIMEM["Greenwich",0,</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             ANGLEUNIT["degree",0.0174532925199433]],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>         ID["EPSG",4326]],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>     CONVERSION["UTM zone 9N",</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>         METHOD["Transverse Mercator",</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             ID["EPSG",9807]],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>         PARAMETER["Latitude of natural origin",0,</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             ANGLEUNIT["degree",0.0174532925199433],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             ID["EPSG",8801]],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>         PARAMETER["Longitude of natural origin",-129,</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             ANGLEUNIT["degree",0.0174532925199433],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             ID["EPSG",8802]],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>         PARAMETER["Scale factor at natural origin",0.9996,</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             SCALEUNIT["unity",1],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             ID["EPSG",8805]],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>         PARAMETER["False easting",500000,</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             LENGTHUNIT["metre",1],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             ID["EPSG",8806]],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>         PARAMETER["False northing",0,</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             LENGTHUNIT["metre",1],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             ID["EPSG",8807]]],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>     CS[Cartesian,2],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>         AXIS["(E)",east,</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             ORDER[1],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             LENGTHUNIT["metre",1]],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>         AXIS["(N)",north,</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             ORDER[2],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             LENGTHUNIT["metre",1]],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>     USAGE[</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>         SCOPE["Engineering survey, topographic mapping."],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>         AREA["Between 132°W and 126°W, northern hemisphere between equator and 84°N, onshore and offshore. Canada - British Columbia (BC); NorthW Territories (NWT); Yukon. United States (USA) - Alaska (AK)."],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>         BBOX[0,-132,84,-126]],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>     ID["EPSG",32609]]</span>
<span class="r-in"><span><span class="fu">st_crs2</span><span class="op">(</span><span class="st">"09S"</span><span class="op">)</span></span></span>
<span class="r-out co"><span class="r-pr">#&gt;</span> Coordinate Reference System:</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>   User input: EPSG:32709 </span>
<span class="r-out co"><span class="r-pr">#&gt;</span>   wkt:</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> PROJCRS["WGS 84 / UTM zone 9S",</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>     BASEGEOGCRS["WGS 84",</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>         DATUM["World Geodetic System 1984",</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             ELLIPSOID["WGS 84",6378137,298.257223563,</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>                 LENGTHUNIT["metre",1]]],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>         PRIMEM["Greenwich",0,</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             ANGLEUNIT["degree",0.0174532925199433]],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>         ID["EPSG",4326]],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>     CONVERSION["UTM zone 9S",</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>         METHOD["Transverse Mercator",</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             ID["EPSG",9807]],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>         PARAMETER["Latitude of natural origin",0,</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             ANGLEUNIT["degree",0.0174532925199433],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             ID["EPSG",8801]],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>         PARAMETER["Longitude of natural origin",-129,</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             ANGLEUNIT["degree",0.0174532925199433],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             ID["EPSG",8802]],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>         PARAMETER["Scale factor at natural origin",0.9996,</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             SCALEUNIT["unity",1],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             ID["EPSG",8805]],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>         PARAMETER["False easting",500000,</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             LENGTHUNIT["metre",1],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             ID["EPSG",8806]],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>         PARAMETER["False northing",10000000,</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             LENGTHUNIT["metre",1],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             ID["EPSG",8807]]],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>     CS[Cartesian,2],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>         AXIS["(E)",east,</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             ORDER[1],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             LENGTHUNIT["metre",1]],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>         AXIS["(N)",north,</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             ORDER[2],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             LENGTHUNIT["metre",1]],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>     USAGE[</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>         SCOPE["Engineering survey, topographic mapping."],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>         AREA["Between 132°W and 126°W, southern hemisphere between 80°S and equator, onshore and offshore."],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>         BBOX[-80,-132,0,-126]],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>     ID["EPSG",32709]]</span>
<span class="r-in"><span></span></span>
<span class="r-in"><span><span class="co">## CRS from WKT (string or path)</span></span></span>
<span class="r-in"><span><span class="op">(</span><span class="va">wkt_32n</span> <span class="op">&lt;-</span> <span class="fu">sf</span><span class="fu">::</span><span class="fu"><a href="https://r-spatial.github.io/sf/reference/st_as_text.html" class="external-link">st_as_text</a></span><span class="op">(</span><span class="fu">sf</span><span class="fu">::</span><span class="fu"><a href="https://r-spatial.github.io/sf/reference/st_crs.html" class="external-link">st_crs</a></span><span class="op">(</span><span class="fl">32609</span><span class="op">)</span><span class="op">)</span><span class="op">)</span></span></span>
<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "PROJCS[\"WGS 84 / UTM zone 9N\",GEOGCS[\"WGS 84\",DATUM[\"WGS_1984\",SPHEROID[\"WGS 84\",6378137,298.257223563]],PRIMEM[\"Greenwich\",0],UNIT[\"degree\",0.0174532925199433,AUTHORITY[\"EPSG\",\"9122\"]],AUTHORITY[\"EPSG\",\"4326\"]],PROJECTION[\"Transverse_Mercator\"],PARAMETER[\"latitude_of_origin\",0],PARAMETER[\"central_meridian\",-129],PARAMETER[\"scale_factor\",0.9996],PARAMETER[\"false_easting\",500000],PARAMETER[\"false_northing\",0],UNIT[\"metre\",1],AXIS[\"Easting\",EAST],AXIS[\"Northing\",NORTH],AUTHORITY[\"EPSG\",\"32609\"]]"</span>
<span class="r-in"><span><span class="fu">st_crs2</span><span class="op">(</span><span class="va">wkt_32n</span><span class="op">)</span></span></span>
<span class="r-out co"><span class="r-pr">#&gt;</span> Coordinate Reference System:</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>   User input: PROJCS["WGS 84 / UTM zone 9N",GEOGCS["WGS 84",DATUM["WGS_1984",SPHEROID["WGS 84",6378137,298.257223563]],PRIMEM["Greenwich",0],UNIT["degree",0.0174532925199433,AUTHORITY["EPSG","9122"]],AUTHORITY["EPSG","4326"]],PROJECTION["Transverse_Mercator"],PARAMETER["latitude_of_origin",0],PARAMETER["central_meridian",-129],PARAMETER["scale_factor",0.9996],PARAMETER["false_easting",500000],PARAMETER["false_northing",0],UNIT["metre",1],AXIS["Easting",EAST],AXIS["Northing",NORTH],AUTHORITY["EPSG","32609"]] </span>
<span class="r-out co"><span class="r-pr">#&gt;</span>   wkt:</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> PROJCRS["WGS 84 / UTM zone 9N",</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>     BASEGEOGCRS["WGS 84",</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>         DATUM["World Geodetic System 1984",</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             ELLIPSOID["WGS 84",6378137,298.257223563,</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>                 LENGTHUNIT["metre",1]]],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>         PRIMEM["Greenwich",0,</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             ANGLEUNIT["degree",0.0174532925199433]],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>         ID["EPSG",4326]],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>     CONVERSION["UTM zone 9N",</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>         METHOD["Transverse Mercator",</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             ID["EPSG",9807]],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>         PARAMETER["Latitude of natural origin",0,</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             ANGLEUNIT["degree",0.0174532925199433],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             ID["EPSG",8801]],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>         PARAMETER["Longitude of natural origin",-129,</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             ANGLEUNIT["degree",0.0174532925199433],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             ID["EPSG",8802]],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>         PARAMETER["Scale factor at natural origin",0.9996,</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             SCALEUNIT["unity",1],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             ID["EPSG",8805]],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>         PARAMETER["False easting",500000,</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             LENGTHUNIT["metre",1],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             ID["EPSG",8806]],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>         PARAMETER["False northing",0,</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             LENGTHUNIT["metre",1],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             ID["EPSG",8807]]],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>     CS[Cartesian,2],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>         AXIS["easting",east,</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             ORDER[1],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             LENGTHUNIT["metre",1]],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>         AXIS["northing",north,</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             ORDER[2],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             LENGTHUNIT["metre",1]],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>     ID["EPSG",32609]]</span>
<span class="r-in"><span><span class="fu"><a href="https://rdrr.io/r/base/writeLines.html" class="external-link">writeLines</a></span><span class="op">(</span><span class="va">wkt_32n</span>, <span class="va">wkt_32n_path</span> <span class="op">&lt;-</span> <span class="fu"><a href="https://rdrr.io/r/base/tempfile.html" class="external-link">tempfile</a></span><span class="op">(</span><span class="op">)</span><span class="op">)</span></span></span>
<span class="r-in"><span><span class="fu">st_crs2</span><span class="op">(</span><span class="va">wkt_32n_path</span><span class="op">)</span></span></span>
<span class="r-out co"><span class="r-pr">#&gt;</span> Coordinate Reference System:</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>   User input: PROJCS["WGS 84 / UTM zone 9N",GEOGCS["WGS 84",DATUM["WGS_1984",SPHEROID["WGS 84",6378137,298.257223563]],PRIMEM["Greenwich",0],UNIT["degree",0.0174532925199433,AUTHORITY["EPSG","9122"]],AUTHORITY["EPSG","4326"]],PROJECTION["Transverse_Mercator"],PARAMETER["latitude_of_origin",0],PARAMETER["central_meridian",-129],PARAMETER["scale_factor",0.9996],PARAMETER["false_easting",500000],PARAMETER["false_northing",0],UNIT["metre",1],AXIS["Easting",EAST],AXIS["Northing",NORTH],AUTHORITY["EPSG","32609"]] </span>
<span class="r-out co"><span class="r-pr">#&gt;</span>   wkt:</span>
<span class="r-out co"><span class="r-pr">#&gt;</span> PROJCRS["WGS 84 / UTM zone 9N",</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>     BASEGEOGCRS["WGS 84",</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>         DATUM["World Geodetic System 1984",</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             ELLIPSOID["WGS 84",6378137,298.257223563,</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>                 LENGTHUNIT["metre",1]]],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>         PRIMEM["Greenwich",0,</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             ANGLEUNIT["degree",0.0174532925199433]],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>         ID["EPSG",4326]],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>     CONVERSION["UTM zone 9N",</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>         METHOD["Transverse Mercator",</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             ID["EPSG",9807]],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>         PARAMETER["Latitude of natural origin",0,</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             ANGLEUNIT["degree",0.0174532925199433],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             ID["EPSG",8801]],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>         PARAMETER["Longitude of natural origin",-129,</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             ANGLEUNIT["degree",0.0174532925199433],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             ID["EPSG",8802]],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>         PARAMETER["Scale factor at natural origin",0.9996,</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             SCALEUNIT["unity",1],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             ID["EPSG",8805]],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>         PARAMETER["False easting",500000,</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             LENGTHUNIT["metre",1],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             ID["EPSG",8806]],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>         PARAMETER["False northing",0,</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             LENGTHUNIT["metre",1],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             ID["EPSG",8807]]],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>     CS[Cartesian,2],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>         AXIS["easting",east,</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             ORDER[1],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             LENGTHUNIT["metre",1]],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>         AXIS["northing",north,</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             ORDER[2],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>             LENGTHUNIT["metre",1]],</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>     ID["EPSG",32609]]</span>
<span class="r-in"><span></span></span>
<span class="r-in"><span><span class="kw">if</span> <span class="op">(</span><span class="cn">FALSE</span><span class="op">)</span> <span class="op">{</span></span></span>
<span class="r-in"><span><span class="co">## CRS from spatial file path</span></span></span>
<span class="r-in"><span><span class="va">raster_path</span> <span class="op">&lt;-</span> <span class="fu"><a href="https://rdrr.io/r/base/system.file.html" class="external-link">system.file</a></span><span class="op">(</span></span></span>
<span class="r-in"><span>  <span class="st">"extdata/out/S2A2A_20190723_022_Barbellino_BOA_10.tif"</span>, </span></span>
<span class="r-in"><span>  package<span class="op">=</span><span class="st">"sen2r"</span></span></span>
<span class="r-in"><span><span class="op">)</span></span></span>
<span class="r-in"><span><span class="va">vector_path</span> <span class="op">&lt;-</span> <span class="fu"><a href="https://rdrr.io/r/base/system.file.html" class="external-link">system.file</a></span><span class="op">(</span></span></span>
<span class="r-in"><span>  <span class="st">"extdata/vector/barbellino.geojson"</span>, </span></span>
<span class="r-in"><span>  package<span class="op">=</span><span class="st">"sen2r"</span></span></span>
<span class="r-in"><span><span class="op">)</span></span></span>
<span class="r-in"><span><span class="kw"><a href="https://rdrr.io/r/base/try.html" class="external-link">try</a></span><span class="op">(</span> <span class="fu">st_crs2</span><span class="op">(</span><span class="va">raster_path</span><span class="op">)</span> <span class="op">)</span></span></span>
<span class="r-in"><span><span class="fu">st_crs2</span><span class="op">(</span><span class="va">vector_path</span><span class="op">)</span></span></span>
<span class="r-in"><span></span></span>
<span class="r-in"><span><span class="co">## CRS from spatial files</span></span></span>
<span class="r-in"><span><span class="fu">st_crs2</span><span class="op">(</span><span class="fu">stars</span><span class="fu">::</span><span class="fu"><a href="https://r-spatial.github.io/stars/reference/read_stars.html" class="external-link">read_stars</a></span><span class="op">(</span><span class="va">raster_path</span><span class="op">)</span><span class="op">)</span></span></span>
<span class="r-in"><span><span class="fu">st_crs2</span><span class="op">(</span><span class="fu">sf</span><span class="fu">::</span><span class="fu"><a href="https://r-spatial.github.io/sf/reference/st_read.html" class="external-link">read_sf</a></span><span class="op">(</span><span class="va">vector_path</span><span class="op">)</span><span class="op">)</span></span></span>
<span class="r-in"><span></span></span>
<span class="r-in"><span><span class="co">## CRS from PROJ.4 string</span></span></span>
<span class="r-in"><span><span class="co"># (avoid using this with PROJ &gt;= 6!)</span></span></span>
<span class="r-in"><span><span class="fu">st_crs2</span><span class="op">(</span><span class="st">"+init=epsg:32609"</span><span class="op">)</span> <span class="co"># this makes use of the EPSG code</span></span></span>
<span class="r-in"><span><span class="fu">st_crs2</span><span class="op">(</span><span class="st">"+proj=utm +zone=9 +datum=WGS84 +units=m +no_defs"</span><span class="op">)</span></span></span>
<span class="r-in"><span><span class="fu">st_crs2</span><span class="op">(</span><span class="fu">raster</span><span class="fu">::</span><span class="fu"><a href="https://rdrr.io/pkg/raster/man/raster.html" class="external-link">raster</a></span><span class="op">(</span><span class="va">raster_path</span><span class="op">)</span><span class="op">)</span> <span class="co"># st_crs(raster) uses the PROJ.4 as input</span></span></span>
<span class="r-in"><span><span class="op">}</span></span></span>
</code></pre></div>
    </div>
  </div>
  <div class="col-md-3 hidden-xs hidden-sm" id="pkgdown-sidebar">
    <nav id="toc" data-toggle="toc" class="sticky-top"><h2 data-toc-skip>Contents</h2>
    </nav></div>
</div>


      <footer><div class="copyright">
  <p></p><p>Developed by Luigi Ranghetti, Lorenzo Busetto.</p>
</div>

<div class="pkgdown">
  <p></p><p>Site built with <a href="https://pkgdown.r-lib.org/" class="external-link">pkgdown</a> 2.0.7.</p>
</div>

      </footer></div>

  


  

  </body></html>

