# NOT RUN {
# register HITType
hittype <-
RegisterHITType(title="10 Question Survey",
description=
"Complete a 10-question survey about news coverage and your opinions",
reward=".20",
duration=seconds(hours=1),
keywords="survey, questionnaire, politics")
a <- GenerateExternalQuestion("http://www.example.com/","400")
hit1 <-
CreateHIT(hit.type = hittype$HITTypeId, question = a$string)
GetHIT(hit1$HITId)
HITStatus(hit1$HITId)
# cleanup
DisableHIT(hit1$HITId)
# }
# NOT RUN {
# Get the status of all HITs from a given batch from the RUI
HITStatus(annotation="BatchId:78382;")
# }
Run the code above in your browser using DataLab