# NOT RUN {
a <- GenerateExternalQuestion("http://www.example.com/","400")
hit1 <-
CreateHIT(hit.type="2FFNCWYB49F9BBJWA4SJUNST5OFSOW", question = a$string)
# expire HIT
ExpireHIT(hit = hit1$HITId)
# Expire all HITs of a given batch from the RUI
ExpireHIT(annotation="BatchId:78382;")
# }
Run the code above in your browser using DataLab