\dontrun{
WPT <- server()
history <- getHistory(WPT, days = 10L, filter = "google.com")
tests <- tail(history[["Test ID"]], 1)
vidRes <- getEmbedVideoPlayer(WPT, tests$testId)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.