library(yaml)
x <- yaml.load_file("inst/validation/pmplots-stories.yaml")
stories <- names(x)
stories <- sub("PMP-S", "", stories)
stories <- as.integer(stories)
tests <- unlist(lapply(x, function(x) x$tests), use.names=FALSE)
dupt <- any(duplicated(tests))
tests <- sub("PMP-TEST-", "", tests)
tests <- as.integer(tests)
message("last story: ", max(stories))
message("last test: ", max(tests))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.