hittype1 <- 
RegisterHITType(title = "10 Question Survey",
                description =
                  "Complete a 10-question survey about news coverage and your opinions",
                reward = ".20", 
                duration = seconds(hours=1), 
                keywords = "survey, questionnaire, politics")
a <- GenerateExternalQuestion("http://www.example.com/", "400")
hit <- CreateHIT(hit.type = hittype1$HITTypeId, 
                 assignments = 1,
                 expiration = seconds(days=1),
                 question = a$string)
# change to HITType with new reward amount
hittype2 <- 
RegisterHITType(title = "10 Question Survey",
                description =
                  "Complete a 10-question survey about news coverage and your opinions",
                reward = ".45", 
                duration = seconds(hours=1), 
                keywords = "survey, questionnaire, politics")
ChangeHITType(hit = hit$HITId,
              new.hit.type=hittype2$HITTypeId)
# Change to new HITType, with arguments stated atomically
ChangeHITType(hit = hit$HITId,
              title = "10 Question Survey", 
              description =
                "Complete a 10-question survey about news coverage and your opinions", 
              reward = ".20", 
              duration = seconds(hours=1), 
              keywords = "survey, questionnaire, politics")
# expire and dispose HIT
ExpireHIT(hit = hit$HITId)
DisposeHIT(hit = hit$HITId)Run the code above in your browser using DataLab