# NOT RUN {
# }
# NOT RUN {
# Disable a single HIT
hittype1 <- RegisterHITType(title = "10 Question Survey",
description = "Complete a 10-question survey",
reward = ".20",
duration = seconds(hours=1),
keywords = "survey, questionnaire, politics")
a <- GenerateExternalQuestion("https://www.example.com/", "400")
hit1 <- CreateHIT(hit.type = hittype1$HITTypeId,
assignments = 1,
expiration = seconds(days=1),
question = a$string)
DisableHIT(hit = hit1$HITId)
# Disable all HITs of a given HITType
DisableHIT(hit.type = hit1$HITTypeId)
# Disable all HITs of a given batch from the RUI
DisableHIT(annotation="BatchId:78382;")
# Delete the HIT previously disabled
DeleteHIT(hit = hit1$HITId)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab