inst/validation/latest.R

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))
metrumresearchgroup/pmplots documentation built on Oct. 15, 2024, noon