```r}} if (interactive()) { this_id <- sample(fingerprints$id, 1) } else { this_id <- "{{id}}" } fingerprints %>% filter(id == this_id) -> this_fingerprints

# _`r this_fingerprints$scientific_name[1]`_ (`r this_fingerprints$Nederlands[1]`)

(ref:fingerprint-{{id}}) File and status fingerprint for the analyses of _`r this_fingerprints$scientific_name[1]`_.

```r}, results = "asis"}
this_fingerprints %>%
  select(-scientific_name, -id, -Nederlands) %>%
  pandoc.table(caption = "(ref:fingerprint-{{id}})", split.tables = Inf)


inbo/watervogelanalysis documentation built on Oct. 10, 2024, 7:17 a.m.