## Run devtools check and see whether or not it returns any errors
test_results <- devtools::check()
if(length(test_results$errors)>0){
stop(paste("Pipeline failed due to the following errors:\n",paste(test_results$errors, collapse = "\n"), sep = ""))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.