R/GenerateExternalQuestion.R

In leeper/MTurkR: R Client for the MTurk Requester API

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'))
}