Nothing
UpdateQualificationScore <-
updatequalscore <-
function (qual, workers, values = NULL, increment = NULL,
verbose = getOption('MTurkR.verbose', TRUE), ...){
operation <- "UpdateQualificationScore"
if (is.factor(qual)) {
qual <- as.character(qual)
}
if (is.factor(workers)) {
workers <- as.character(workers)
}
if (!is.null(increment)) {
values <- NA
score <- NA
for (i in 1:length(workers)) {
score[i] <- GetQualificationScore(qual, workers[i], ...)$Value[1]
if (is.null(score[i]) || is.na(score[i])) {
score[i] <- 0
}
}
values <- as.numeric(score) + as.numeric(increment)
}
if (!is.null(values)) {
for (i in 1:length(values)) {
if (!is.numeric(as.numeric(values[i]))) {
stop("Value is non-numeric or not coercible to numeric")
}
}
if (length(values) == 1) {
values <- rep(values[1], length(workers))
}
if (!length(workers) == length(values)) {
stop("!length(workers)==length(values)")
}
} else {
stop("Value(s) is/are missing")
}
Qualifications <- emptydf(length(workers), 4, c("QualificationTypeId", "WorkerId", "Value", "Valid"))
for (i in 1:length(workers)) {
GETparameters <- paste("&QualificationTypeId=", qual,
"&SubjectId=", workers[i],
"&IntegerValue=", values[i], sep = "")
request <- request(operation, GETparameters = GETparameters, ...)
if (is.null(request$valid)) {
return(request)
}
Qualifications[i, ] <- c(qual, workers[i], values[i], request$valid)
if (request$valid & verbose) {
message(i, ": Qualification Score for Worker ", workers[i], " updated to ", values[i])
} else if (!request$valid & verbose) {
warning(i, ": Invalid Request for worker ", workers[i])
}
}
if (verbose) {
message(i, " Qualification Scores Updated")
}
Qualifications$Valid <- factor(Qualifications$Valid, levels=c('TRUE','FALSE'))
return(Qualifications)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.