# NOT RUN {
a <- GenerateExternalQuestion("http://www.example.com/","400")
hit1 <-
CreateHIT(hit.type="2FFNCWYB49F9BBJWA4SJUNST5OFSOW", question = a$string)
# add assignments
ExtendHIT(hit = hit1$HITId, add.assignments = "20")
# add time
ExtendHIT(hit = hit1$HITId, add.seconds = seconds(days=1)))
# cleanup
DisableHIT(hit = hit1$HITId)
# }
# NOT RUN {
# Extend all HITs of a given batch from the RUI
ExtendHIT(annotation="BatchId:78382;", add.assignments = "20")
# }
Run the code above in your browser using DataLab