a <- GenerateExternalQuestion(url="http://www.example.com/", frame.height="400")
hit1 <- 
CreateHIT(title = "Survey",
          description = "5 question survey",
          reward = ".10",
          expiration = seconds(days = 4),
          duration = seconds(hours = 1),
          keywords = "survey, questionnaire",
          question = a$string)
ExpireHIT(hit1$HITId)
DisposeHIT(hit1$HITId)Run the code above in your browser using DataLab