```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)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.