if (FALSE) {
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)
}
if (FALSE) {
# 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