load_practical <- function (name = NULL) {
tutorialnames <- c("BST02R_InteractiveTutorial1",
"BST02R_InteractiveTutorial2",
"BST02R_InteractiveTutorial3")
if (name %in% tutorialnames){
learnr::run_tutorial(name,
package = "BST02R")
}else{
stop('Unknown practical')
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.