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)
# 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