if (FALSE) {
# setup email notification
hittype <- RegisterHITType(title = "10 Question Survey",
description = "Complete a 10-question survey",
reward = ".20",
duration = seconds(hours = 1),
keywords = "survey, questionnaire, politics")
a <- GenerateNotification("user@gmail.com", "Email", "AssignmentAccepted")
SetHITTypeNotification(hit.type = hittype$HITTypeId,
notification = a,
active = TRUE)
# send test notification
SendTestEventNotification(a, test.event.type = "AssignmentAccepted")
}
Run the code above in your browser using DataLab