# NOT RUN {
a <- GenerateExternalQuestion("https://www.example.com/","400")
hit1 <- CreateHIT(title = "Example",
description = "Simple Example HIT",
reward = ".01",
expiration = seconds(days = 4),
duration = seconds(hours = 1),
keywords = "example",
question = a$string)
# add assignments
ExtendHIT(hit = hit1$HITId, add.assignments = "20")
# add time
ExtendHIT(hit = hit1$HITId, add.seconds = seconds(days=1)))
# add assignments and time
ExtendHIT(hit = hit1$HITId, add.assignments = "20", 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