results %>% distinct(scientific_name, Area = LocationGroup, Model = ModelType, Duration, Status, FileFingerprint, StatusFingerprint, Nederlands) %>% mutate( Model = str_replace(Model, "aggregate imputed: max ~ Year", "wintermaximum per year") %>% str_replace("aggregate imputed: sum ~ Year \\+ Month", "monthly total per year") %>% str_replace("imputed average: Total ~ cPeriod", "average wintermaximum") %>% str_replace("imputed trend: Total ~ Year \\+ Month", "linear trend monthly totals") %>% str_replace("yearly imputed index: Total ~ Year \\+ Month", "non-linear trend monthly totals") %>% str_replace("inla nbinomial: Year \\* \\(Month \\+ Location\\)", "imputation"), id = abbreviate(scientific_name, 10), Fingerprints = paste(str_trunc(FileFingerprint, 20), str_trunc(StatusFingerprint, 20), sep = "\n") ) %>% select(-FileFingerprint, -StatusFingerprint) %>% arrange(Area, Model, Duration) -> fingerprints fingerprints %>% distinct(scientific_name, id) %>% arrange(scientific_name) %>% pull(id) %>% sapply( function(id) { knit_expand("_fingerprints.Rmd", id = id) } ) %>% paste(collapse = "\n\n") -> rmd knit(text = rmd, quiet = TRUE) %>% cat()
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.