# NOT RUN {
a <- GenerateExternalQuestion("http://www.example.com/","400")
hit1 <-
CreateHIT(hit.type="2FFNCWYB49F9BBJWA4SJUNST5OFSOW", question=a$string)
SetHITAsReviewing(hit1$HITId)
# cleanup
DisableHIT(hit1$HITId)
# }
Run the code above in your browser using DataLab