checkKeyArg <- function(assessmentKey, ...) {
if (missing(assessmentKey)) {
dots <- list(...)
if ("key" %in% names(dots)) {
assessmentKey <- dots$key
warning("key argument is depreciated, use assessmentKey instead.", call. = FALSE)
}
}
assessmentKey
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.