city-nature-challenge-austria-2026/page_primeval_forest_relict_beetle.qmd at main · HannesOberreiter/city-nature-challenge-austria-2026 · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
---
title: "City Nature Challenge: Urwaldreliktkäfer"
lang: 'de-AT'
bibliography: references.bib
execute:
  warning: false
  error: false
  echo: false
order: 1
date: last-modified
date-format: "YYYY-MM-DDTHH:mm:ssZ"
---

Diese Seite listet die während der City Nature Challenge in allen teilnehmenden Regionen beobachteten Urwaldreliktkäfer (Coleoptera) auf. Die Artenliste basiert auf @eckelt2018.

{{< include _init.qmd >}}

```{r loadRelictSpecies}
#| include: false
#| cache: false
relictSpecies <- readr::read_csv2("data/primeval_forest_relict_beetle.csv")
```


```{r init}
#| include: false
#| cache: false
resultsDf <- loadAll()

if(is.null(resultsDf) || nrow(resultsDf) == 0){
  resultsDf <- NULL
  message("No data loaded from either source.")
} else {
   message(paste("Loaded", nrow(resultsDf), "total observations."))
}
```

```{r relictTable}
if(!is.null(resultsDf)){
  resultsDf |>
    filterSpeciesLevel() |>
    left_join(relictSpecies, by = c('scientificName' = 'Species')) |>
    filter(!is.na(Category)) |>
    select(
        "Link" = uri_html,
        "Spezies" = scientificName,
        "Familie" = Family,
        "Kategorie" = Category,
        "Region" = project.name,
        'Umgangspr. Name' = vernacularName
        ) |>
    datatable(
      rownames = FALSE,
      escape = FALSE,
      filter = list(
        position = 'bottom',
        clear = FALSE,
        plain = TRUE
     ),
      options = list(
        columnDefs = list(list(type = 'html', targets = c(1)))
      )
    )
} else {
  print('Noch keine Beobachtungen')
}
```


## References

::: {#refs}
:::