# NOT RUN {
# setup email notification
hittype <-
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 <- GenerateNotification("requester@example.com", event.type = "HITExpired")
SetHITTypeNotification(hit.type = hittype$HITTypeId,
notification = a,
active = TRUE)
# send test notification
SendTestEventNotification(a, test.event.type="HITExpired")
# }
# NOT RUN {
# }
# NOT RUN {
# setup SQS notification
hittype <-
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")
b <- GenerateNotification("https://sqs.us-east-1.amazonaws.com/123456789/Example",
transport = "SQS",
event.type = "HITExpired")
SetHITTypeNotification(hit.type = hittype$HITTypeId,
notification = b,
active = TRUE)
# send test notification
SendTestEventNotification(b, test.event.type="HITExpired")
# }
Run the code above in your browser using DataLab