library(testthat)
library(httr)
runIntegrationTests <- class(try(httr::GET("http://localhost:8000/csw"))) != "try-error"
if(runIntegrationTests){
cat("Running integration tests...\n")
test_check("ows4R")
}else{
cat("Skipping integration tests...\n")
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.