# NOT RUN {
# create QualificationType
qual1 <- CreateQualificationType(name="Requestable Qualification",
description="This is a test qualification that can be requested.",
status = "Active")
# poll for qualification requests
qrs <- GetQualificationRequests(qual1$QualificationTypeId)
# grant a qualification request
GrantQualification(qrs$QualificationRequestId[1], values = "100")
# correct a worker's score (note use of `SubjectId`, not `WorkerId`)
UpdateQualificationScore(qrs$QualificationTypeId[1], qrs$SubjectId[1], value = "95")
# reject a qualification request
RejectQualification(qrs$QualificationTypeId[2], reason = "Sorry!")
# cleanup
DisposeQualificationType(qual1$QualificationTypeId)
# }
Run the code above in your browser using DataLab