# small arg checker for a selected measure for a BMR
# if NULL, the 1st measure in the BMR is returned
checkBMRMeasure = function(measure, bmr) {
if (is.null(measure)) {
measure = getBMRMeasures(bmr)[[1]]
} else {
assertClass(measure, "Measure")
assertChoice(measure$id, getBMRMeasureIds(bmr))
}
return(measure)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.