# NOT RUN {
# }
# NOT RUN {
f <- system.file("templates/htmlquestion1.xml", package = "pyMTurkR")
a <- GenerateHTMLQuestion(file=f)
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)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab