Nothing
      test_that("GenerateHTMLQuestion", {
  f <- system.file("templates/htmlquestion1.xml", package = "pyMTurkR")
  a <- GenerateHTMLQuestion(file = f)
  b <- GenerateHTMLQuestion(character = paste0(readLines(f), collapse = ""))
  expect_s3_class(a, "HTMLQuestion")
  expect_s3_class(a, "HTMLQuestion")
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.