1) Introducción

2) Configuración

library(elevatr)
library(sf)
Linking to GEOS 3.13.0, GDAL 3.10.1, PROJ 9.5.1; sf_use_s2() is TRUE
library(leaflet)
Registered S3 method overwritten by 'htmlwidgets':
  method           from         
  print.htmlwidget tools:rstudio
library(terra)
terra 1.8.54

3) Introducción a elevatr

4) Obtención de los datos de elevación para el magdalena

4.1) Importar límites del magdalena

list.files("C:\\Users\\brand\\OneDrive\\Escritorio\\GB2\\P5\\MAGDALENA")
[1] "Area_de_agua_magdalena.gpkg" "CIUDADES_MAGDALENA.gpkg"     "elevacion_magdalena.tif"    
[4] "magdalena.gpkg"              "Rios_magdalena.gpkg"         "vias_magdalena.gpkg"        
(munic <- sf::st_read("C:\\Users\\brand\\OneDrive\\Escritorio\\GB2\\P5\\MAGDALENA\\magdalena.gpkg"))
Reading layer `magdalena' from data source `C:\Users\brand\OneDrive\Escritorio\GB2\P5\MAGDALENA\magdalena.gpkg' using driver `GPKG'
Simple feature collection with 30 features and 11 fields
Geometry type: POLYGON
Dimension:     XY
Bounding box:  xmin: -74.9466 ymin: 8.936489 xmax: -73.54184 ymax: 11.34891
Geodetic CRS:  MAGNA-SIRGAS
Simple feature collection with 30 features and 11 fields
Geometry type: POLYGON
Dimension:     XY
Bounding box:  xmin: -74.9466 ymin: 8.936489 xmax: -73.54184 ymax: 11.34891
Geodetic CRS:  MAGNA-SIRGAS
First 10 features:
   dpto_ccdgo mpio_ccdgo mpio_cdpmp dpto_cnmbr           mpio_cnmbr                               mpio_crslc
1          47        001      47001  MAGDALENA          SANTA MARTA                                     1525
2          47        030      47030  MAGDALENA            ALGARROBO        Ordenanza 008 de Junio 24 de 1999
3          47        053      47053  MAGDALENA            ARACATACA     Ordenanza 47 del 28 de Abril de 1915
4          47        058      47058  MAGDALENA             ARIGUANÍ Ordenanza 14 Bis de Noviembre 30 de 1966
5          47        161      47161  MAGDALENA CERRO DE SAN ANTONIO                   Ordenanza 3038 de 1912
6          47        170      47170  MAGDALENA              CHIVOLO           Decreto 107 de Marzo 8 de 1974
7          47        189      47189  MAGDALENA              CIÉNAGA                         Ley 0339 de 1876
8          47        205      47205  MAGDALENA            CONCORDIA    Ordenanza 007 del 24 de Junio de 1999
9          47        245      47245  MAGDALENA             EL BANCO                         Ley 0182 de 1871
10         47        258      47258  MAGDALENA             EL PIÑÓN    Ordenanza 032 del 20 de Abril de 1815
   mpio_tipo mpio_narea mpio_nano shape_Leng  shape_Area                           geom
1  MUNICIPIO  2347.1387      2023  3.1295353 0.194233279 POLYGON ((-74.04165 11.3416...
2  MUNICIPIO   406.3884      2023  1.2656800 0.033536941 POLYGON ((-74.10861 10.3915...
3  MUNICIPIO  1740.8301      2023  2.6435935 0.143834701 POLYGON ((-73.74632 10.8755...
4  MUNICIPIO  1131.7442      2023  1.9928810 0.093278409 POLYGON ((-74.03381 9.99541...
5  MUNICIPIO   177.1961      2023  0.7003465 0.014622408 POLYGON ((-74.85084 10.367,...
6  MUNICIPIO   536.5501      2023  1.3253970 0.044254975 POLYGON ((-74.50895 10.0216...
7  MUNICIPIO  1324.8364      2023  2.7087009 0.109551833 POLYGON ((-74.11801 11.1032...
8  MUNICIPIO   109.4837      2023  0.5443263 0.009033178 POLYGON ((-74.81188 10.2748...
9  MUNICIPIO   814.8733      2023  1.6768118 0.067024891 POLYGON ((-73.98838 9.33807...
10 MUNICIPIO   557.1424      2023  1.1771096 0.045985558 POLYGON ((-74.67476 10.4604...
LS0tDQp0aXRsZTogIlByb2Nlc28geSBhbmFsaXNpcyBkZSBkYXRvcyBkZSBlbGV2YWNpw7NuIGVuIFIiDQphdXRob3I6ICJCcmFuZG9uIEFsZWphbmRybyBTYWxnYWRvIEdhcnrDs24iDQpkYXRlOiAiNC8wNi8yMDI1Ig0Kb3V0cHV0OiBodG1sX25vdGVib29rDQotLS0NCg0KIyMgKioxKSBJbnRyb2R1Y2Npw7NuKioNCg0KIyMgKioyKSBDb25maWd1cmFjacOzbioqDQoNCmBgYHtyfQ0KbGlicmFyeShlbGV2YXRyKQ0KYGBgDQoNCg0KYGBge3J9DQpsaWJyYXJ5KHNmKQ0KYGBgDQoNCmBgYHtyfQ0KbGlicmFyeShsZWFmbGV0KQ0KYGBgDQoNCmBgYHtyfQ0KbGlicmFyeSh0ZXJyYSkNCmBgYA0KDQojIyAqKjMpIEludHJvZHVjY2nDs24gYSBlbGV2YXRyKioNCg0KDQojIyAqKjQpIE9idGVuY2nDs24gZGUgbG9zIGRhdG9zIGRlIGVsZXZhY2nDs24gcGFyYSBlbCBtYWdkYWxlbmEqKg0KDQojIyAqKjQuMSkgSW1wb3J0YXIgbMOtbWl0ZXMgZGVsIG1hZ2RhbGVuYSoqDQoNCmBgYHtyfQ0KbGlzdC5maWxlcygiQzpcXFVzZXJzXFxicmFuZFxcT25lRHJpdmVcXEVzY3JpdG9yaW9cXEdCMlxcUDVcXE1BR0RBTEVOQSIpDQpgYGANCg0KYGBge3J9DQoobXVuaWMgPC0gc2Y6OnN0X3JlYWQoIkM6XFxVc2Vyc1xcYnJhbmRcXE9uZURyaXZlXFxFc2NyaXRvcmlvXFxHQjJcXFA1XFxNQUdEQUxFTkFcXG1hZ2RhbGVuYS5ncGtnIikpDQpgYGANCg0KYGBge3J9DQoNCmBgYA0KDQoNCg==