finished cap 02

.vscode/settings.json

@@ -0,0 +1,3 @@
+{
+    "terminal.integrated.autoReplies": {}
+}

01_requeriments.qmd

@@ -144,7 +144,7 @@ Este proceso solo se realizar una única vez, cuando ya tienes instalado y confi
 ```{r}
 #| eval: false
 # Lista de paquetes a instalar
-pkgs <- c("tidyverse", "tidyterra","rgee" ,"tmap", "gifski", "cloudml", "sf")
+pkgs <- c("tidyverse", "tidyterra","remotes" ,"tmap", "gifski", "cloudml", "sf")
 # install.packages(pkgs = pkgs, dependencies = TRUE)
 # Se recomienda instalar la versión de GitHub de rgee
 
@@ -166,9 +166,39 @@ for (pkg in pkgs) {
 ```
 El paquete tidyverse está instalado y cargado correctamente.
 El paquete tidyterra está instalado y cargado correctamente.
-El paquete rgee está instalado y cargado correctamente.
+El paquete remotes está instalado y cargado correctamente.
 El paquete tmap está instalado y cargado correctamente.
 El paquete gifski está instalado y cargado correctamente.
 El paquete cloudml está instalado y cargado correctamente.
 El paquete sf está instalado y cargado correctamente
 ```
+El paquete de `rgee` actualmente presenta algunos incovenientes con la versión de CRAN, especialmente para los sistemas operativos de **Windows**, se recomienda instalar la versión de desarrollo la cual está alojada en GitHub. 
+Para su correcta instalación se recomienda seguir cualquiera de las siguientes alternativas mostradas 👇 
+
+<table>
+<tr align='center'>
+  <th> Forma explítica </th>
+  <th> Forma implítica </th>
+</tr>
+
+<tr>
+<td>
+```r
+library(remotes)
+install_github('r-spatial/rgee')
+```
+</td>
+<td>
+```r
+# install.packages('remotes')
+remotes::install_github('r-spatial/rgee')
+```
+</td>
+</tr> 
+</table>
+
+
+```{r}
+#| eval: true
+remotes::install_github("r-earthengine/rgeeExtra")
+```

02_rgee-setup.qmd

@@ -6,7 +6,7 @@ Para poder acceder a todos los beneficios que nos ofrece la plataforma de Earth
 Para registrarnos nos dirigimos a 👉 : <https://code.earthengine.google.com/register>
 
 
-![](https://user-images.githubusercontent.com/23284899/258827533-6b7e7038-7134-4ced-ac30-ed13bf17cd33.png)
+<img src="https://user-images.githubusercontent.com/23284899/258827533-6b7e7038-7134-4ced-ac30-ed13bf17cd33.png" width='100%'/>
 
 
 Earth Engine te ofrece dos alternativas para poder registrarte:
@@ -17,16 +17,16 @@ Earth Engine te ofrece dos alternativas para poder registrarte:
 
 Para nuestro interés procedemos a elegir la segunda opción.
 
-![](https://user-images.githubusercontent.com/23284899/258835768-d84c50b2-0c74-4ee9-a7d8-c5bf7137360b.png)
+<img src="https://user-images.githubusercontent.com/23284899/258835768-d84c50b2-0c74-4ee9-a7d8-c5bf7137360b.png" width='100%'/>
 
 Este nos llevará a una nueva penstaña en donde nos solicitará llenar nuestros datos personales y algunas preguntas adicionales como la afiliación y cuales son las intenciones de usar Earth Engine.
 
-![](https://user-images.githubusercontent.com/23284899/258846389-57859ce1-19df-44f7-924f-0958591ef78e.png)
+<img src="https://user-images.githubusercontent.com/23284899/258846389-57859ce1-19df-44f7-924f-0958591ef78e.png" width='100%'/>
 
 Finalizado el registro Earth Engine, solo nos queda esperar el correo de confirmación para poder acceder sin ninguna restricción a la plataforma.
 Es necesario tener en cuenta que la habilitación puede tomar un lapso de tiempo, hoy en día es casi de forma automática, pero esto podría tomar en algunos casos entre 1 a 2 días.
 
-![](https://user-images.githubusercontent.com/23284899/258846473-981e1659-82cc-477c-93c2-bbf1cf89ee1f.png)
+<img src="https://user-images.githubusercontent.com/23284899/258846473-981e1659-82cc-477c-93c2-bbf1cf89ee1f.png" width='100%'/>
 
 
 ## Confirmación de Earth Engine
@@ -37,9 +37,20 @@ Con este correo de bienvenida de Earth Engine, podemos estár al 100% seguro de
  - Earth Engine Developer Docs
  - Eartg Engine Explore
 
-![](https://user-images.githubusercontent.com/23284899/258848622-c362d3ca-bb81-419c-b273-2fa4be01f44f.png)
+<img src="https://user-images.githubusercontent.com/23284899/258848622-c362d3ca-bb81-419c-b273-2fa4be01f44f.png" width='100%'/>
 
 
+## Creación de un proyecto Cloud 
+Para poder usar Google Earth Engine es necesario crear un proyecto en Google Cloud Platform (GCP), esto es relativamente fácil y requiere que inicie sesión en la consola [GCS](https://console.cloud.google.com/), haga clic en el menú desplegable de proyectos y haga clic en “Nuevo proyecto”. El proyecto se crea en unos segundos.
+
+{{< video https://gitlab.com/uploads/-/system/personal_snippet/3599361/11bb570a8164a2714d8d3bae314728f4/creacion-proyecto.mp4 >}}
+
+
+## Habilitación de la API de Google Earth Engine en su cuenta personal
+Para asegurarse de que su proyecto Google Cloud recién creado es compatible con GEE, deberá habilitar la API de Earth Engine. Para hacer esto, navegue a la sección **API y Servicios** en su cuenta de Google Cloud y haga clic en **API y servicios habilitados**. 
+A partir de ahí, haga clic en **"Habilitar API"**  y busque **Earth Engine**. Una vez que lo haya localizado, habilite la API, tenga en cuenta que los cambios pueden tardar unos minutos en propagarse.
+
+{{< video https://gitlab.com/uploads/-/system/personal_snippet/3599361/87a78f2a8ec23e5dd48b19d9a9c1c3f2/activacion_api.mp4 >}}
 
 ::: {.callout-caution appearance=minimal}
 
@@ -60,10 +71,26 @@ library(cloudml)
 gcloud_install()
 ```
 
+<img src='https://gitlab.com/uploads/-/system/personal_snippet/3599361/6a0c19b09d90bc1910d8802619c140c0/01.png' width='100%'/>
+
 ## Registro de crendenciales
 
-## Configuración de rgee 
+{{< video https://gitlab.com/uploads/-/system/personal_snippet/3599361/7664d0d156cda198591e3f30c30a2ab9/cligcloud.mp4 >}}
+
+
+Antes de emplear `rgee` es necesario crear una carpeta raiz en el mismo editor de google earth engine.
 
+<img src='https://gitlab.com/uploads/-/system/personal_snippet/3599361/705a3ce8206b166a24942d8eacfc812e/02.png' width='100%'>
 
+## Configuración de rgee 
+
+```{r}
+#| warning: false
+library(rgee)
+ee_Initialize(user = "[email protected]", drive = TRUE)
+```
 ## Hola mundo en rgee
 
+```{r}
+ee$String('Hola mundo espacial🌎🚀')$getInfo()
+```

03_methodology.qmd

@@ -10,7 +10,7 @@ Donde los cinco parámetros de entrada están relacionados con la precipitación
 
 ## Definición de parámetros
 
-### Factor R 🌧️
+### Factor R
 
 Es el factor de erosividad de escorrentía de lluvia (MJ·mm·ha−1·h−1·Año−1), índice numérico que expresa la capacidad de la lluvia para erosionar el suelo.
 Para su cálculo existen diferentes modelos; sin embargo para este manual se consideró usar la formula de Wischmeier y Smith (1978) presentada el paper de [Zubairul Isla]() la cual la base de referencia.  
@@ -31,7 +31,7 @@ Es el factor de erodibilidad del suelo $(Mg·h·MJ^{−1}·mm^{−1})$, una desc
 Para su cálculo se tomo como referencia la formula de Sharpley and Williams (1990).
 
 \begin{equation}
-    K = [0.2 + 0.3 \times exp(-0.0256 \times SAN \times (1 - \frac{SIL}{100}))]\times[1-\frac{0.25\times CLA}{CLA + exp(3.72 - 2.95\times CLA)}]  
+K = [0.2 + 0.3 \times exp(-0.0256 \times SAN \times (1 - \frac{SIL}{100}))]\times[1-\frac{0.25\times CLA}{CLA + exp(3.72 - 2.95\times CLA)}]  
 \end{equation}
 
 Donde: 

04_rusle_with_rgee.qmd

@@ -1 +1,59 @@
 ## RUSLE con rgee
+
+En el siguente diagrama se muestra el flujo de trabajo para realizar el cálculo del mapa de erosión.
+
+```{mermaid}
+
+flowchart TD
+A[Mapeo de erosión del suelo] 
+
+A --> B[Propiedades físicas del suelo]
+A --> C[Precipitación]
+A --> D[Elevación]
+A --> E[Índice de vegetación]
+A --> F[Conservación del suelo]
+
+D --> G[Acumulación de flujo]
+D --> H[Pendiente]
+
+B --> I[Factor K]
+C --> J[Factor R]
+G --> K[Factor LS]
+H --> K[Factor LS]
+
+E --> L[Factor C]
+F --> M[Factor P]
+
+I --> N[Erosión del suelo]
+J --> N[Erosión del suelo]
+K --> N[Erosión del suelo]
+L --> N[Erosión del suelo]
+M --> N[Erosión del suelo]
+
+```
+
+## Factor K
+
+```{r}
+#| eval: false
+library(sf)
+library(tidyverse)
+library(nngeo)
+ee_Initialize(user = "[email protected]")
+
+peru_ee <- map_EP |> 
+    st_as_sf() |> 
+    summarise() |> 
+    st_remove_hole |>
+    sf_as_ee() |> 
+    Map$addLayer()
+
+# Factor K 
+# Par<- el cálculo del factor K se tomo encuenta el dataset actualizado de soilgrid v2.0 
+clay <- ee$Image("projects/soilgrids-isric/clay_mean")$multiply(10)
+sand <- ee$Image("projects/soilgrids-isric/sand_mean")$multiply(10)
+silt <- ee$Image("projects/soilgrids-isric/silt_mean")$multiply(10)
+```
+
+
+

_quarto.yml

@@ -32,5 +32,9 @@ format:
     theme:
      light: geoscss/theme-light.scss
      dark: geoscss/theme-dark.scss
+    mermaid: 
+      theme: forest
+    html-math-method: katex
+
   pdf:
     documentclass: scrreprt