From 7b508fb2dd6b08d88843dcc2b6c1a1146cb030a0 Mon Sep 17 00:00:00 2001
From: Your Name <you@example.com>
Date: Mon, 28 Aug 2023 15:30:26 +0200
Subject: [PATCH] try to fix BIOMASS problem

---
 DESCRIPTION              |  2 +-
 vignettes/LoggingLab.Rmd | 30 ++++++++++++++++++++++++++++++
 2 files changed, 31 insertions(+), 1 deletion(-)

diff --git a/DESCRIPTION b/DESCRIPTION
index 59408dc..0c6f4fd 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -47,7 +47,7 @@ Imports:
     dplyr (>= 1.1.2),
     tibble (>= 3.2.1),
     tidyr (>= 1.3.0),
-    BIOMASS (>= 2.1.8),
+    BIOMASS,
     rlang (>= 1.1.1),
     raster (>= 3.6.20),
     sp (>= 1.6.0),
diff --git a/vignettes/LoggingLab.Rmd b/vignettes/LoggingLab.Rmd
index 0995e47..d0d9b67 100644
--- a/vignettes/LoggingLab.Rmd
+++ b/vignettes/LoggingLab.Rmd
@@ -60,6 +60,36 @@ data(PlotMask)
 data(CreekDistances)
 ```
 
+```{r, echo = F}
+distvert <- as.data.frame(CreekDistances$distvert, xy = TRUE) %>%
+  na.omit() %>%
+  dplyr::rename('distvert' = 'file9e98702b30f5')
+
+
+ggplot() + 
+  geom_raster(data = distvert, aes(x = x, y = y, fill = distvert)) +
+  scale_fill_gradientn(name = "Relative elevation to the creek (m)",
+                       colors = hcl.colors(25, "Blues"),
+                       na.value="white") +
+  ggtitle("Paracou P6: Relative elevation to the creek") + 
+  theme_classic() +
+  coord_sf()
+
+disthorz <- as.data.frame(CreekDistances$disthorz, xy = TRUE) %>%
+  na.omit() %>%
+  dplyr::rename('disthorz' = 'file9e985b5916bd')
+
+
+ggplot() + 
+  geom_raster(data = disthorz, aes(x = x, y = y, fill = disthorz)) +
+  scale_fill_gradientn(name = "Relative horizontal distance to the creek (m)",
+                       colors = hcl.colors(25, "Blues"),
+                       na.value="white") +
+  ggtitle("Paracou P6: Relative elevation to the creek") + 
+  theme_classic() +
+  coord_sf()
+```
+
 # Required format of the inventory
 \code{\link{Paracou6_2016}}