GenerateExternalQuestion <-
function (url, frame.height = 400) {
external <- newXMLNode("ExternalQuestion", namespaceDefinitions = "http://mechanicalturk.amazonaws.com/AWSMechanicalTurkDataSchemas/2006-07-14/ExternalQuestion.xsd")
external.url <- newXMLNode("ExternalURL", url, parent = external)
external.frame <- newXMLNode("FrameHeight", frame.height, parent = external)
addChildren(external, c(external.url, external.frame))
string <- toString.XMLNode(external)
return(structure(list(xml.parsed = external,
string = string,
url.encoded = curl_escape(string)),
class = 'ExternalQuestion'))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.