\dontrun{
WPT <- server()
history <- getHistory(WPT, filter = "London")
tID <- as.character(history[dim(history)[1], "Test ID"])
testresults <- getTestResults(WPT, tID, requestId = "someID")
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.