added small-woddy-feature geodata post

_posts_geodata/small-woody-features_europe_2018_100m_03035_tif/small-woody-features_europe_2018_100m_03035_tif.rmd

@@ -0,0 +1,88 @@
+---
+title: 'small-woody-features europe 2018'
+categories:
+  - Europe
+  - epsg:3035
+  - 100m
+  - '2018'
+author:
+  - name: Moritz Wenzler-Meya
+
+    affiliation: IZW Berlin
+    affiliation_url: https://ecodynizw.github.io/EcoDynIZW
+date: '2023-11-07'
+output:
+  distill::distill_article:
+    self_contained: false
+    toc: true
+---
+
+
+
+```{r setup, include=FALSE}
+knitr::opts_chunk$set(echo = FALSE, message = FALSE, warning = FALSE,
+dev = 'ragg_png', fig.width = 9, fig.height = 6, dpi = 250, retina = 1)
+
+Sys.setlocale('LC_TIME', 'C')
+
+library(patchwork)
+
+`%>%` <- magrittr::`%>%`
+
+ggplot2::theme_set(ggplot2::theme_void())
+ggplot2::theme_update(
+  legend.position = 'bottom',
+  legend.key.width = ggplot2::unit(3.5, 'lines'),
+  legend.key.height = ggplot2::unit(.5, 'lines'),
+  plot.margin = ggplot2::margin(rep(10, 4)),
+  plot.title = ggplot2::element_text(hjust = .5, face = 'bold')
+)
+```
+
+
+
+```{r data-impor}
+
+# get path
+path <-
+    paste0(ifelse(dir.exists('E:/PopDynCloud') == T, 'E:/PopDynCloud', 'C:/PopDynCloud'),  '/',  'GeoData/data-raw/europe/small-woody-features_europe_2018_100m_03035_tif')
+
+meta <-
+      utils::read.csv(list.files(path, pattern = '.csv$', recursive = TRUE, full.names = TRUE)) %>%
+  dplyr::mutate(dplyr::across(dplyr::everything(), as.character))
+
+```
+
+```{r data-table}
+meta_gt <- gt::gt(meta %>%
+  tidyr::pivot_longer(
+    cols = dplyr::everything(),
+    names_to = 'column',
+    values_to = 'input'
+  ))
+```
+
+```{r map}
+p_map <-
+ readRDS(paste0(ifelse(dir.exists('E:/PopDynCloud') == T, 'E:/PopDynCloud', 'C:/PopDynCloud'), '/', 'GeoData/data-raw/europe/small-woody-features_europe_2018_100m_03035_tif/small-woody-features_europe_2018_100m_03035_tif' ,'.rds'))
+
+```
+
+```{r plot, layout='l-screen'}
+p_map
+meta_gt
+```
+
+
+<details><summary>Session Info</summary>
+
+```{r sessionInfo}
+## DO NOT REMOVE!
+## We store the settings of your computer and the current versions of the
+## packages used to allow for reproducibility
+Sys.time()
+#git2r::repository() ## uncomment if you are using GitHub
+sessionInfo()
+```
+
+</details>