# NOT RUN {
# Dispose a single HIT
b <- GenerateExternalQuestion("http://www.example.com/","400")
hit1 <-
CreateHIT(hit.type = "2FFNCWYB49F9BBJWA4SJUNST5OFSOW",
expiration = seconds(days = 1),
question=b$string)
ExpireHIT(hit1$HITId) # must be expired before disposing
DiposeHIT(hit1$HITId)
# Dispose all HITs of a given HITType
DisposeHIT(hit.type = hit1$HITTypeId)
# Dispose all HITs of a given batch from the RUI
DisposeHIT(annotation="BatchId:78382;")
# }
Run the code above in your browser using DataLab