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.