Nothing
CreateQualificationType <-
createqual <-
function (name, description, status, keywords = NULL, retry.delay = NULL,
test = NULL, answerkey = NULL, test.duration = NULL,
validate.test = FALSE, validate.answerkey = FALSE,
auto = NULL, auto.value = NULL, verbose = getOption('MTurkR.verbose', TRUE), ...) {
operation <- "CreateQualificationType"
if(!status %in% c("Active", "Inactive"))
stop("QualificationTypeStatus must be Active or Inactive")
GETparameters <- paste("&Name=", curl_escape(name), "&Description=",
curl_escape(description), "&QualificationTypeStatus=",
status, sep = "")
if (!is.null(keywords)) {
GETparameters <- paste(GETparameters, "&Keywords=", curl_escape(keywords), sep = "")
}
if (!is.null(test)) {
if (validate.test) {
if (!is.null(xmlChildren(xmlParse(test))$QuestionForm)) {
namespace <- xmlNamespace(xmlChildren(xmlParse(test))$QuestionForm)[1]
} else {
stop("No Namespace specified in 'test'")
}
validation <- xmlSchemaValidate(namespace, test)
if(!validation$status==0) {
warning("'test' object does not validate against MTurk schema")
return(validation)
}
}
GETparameters <- paste(GETparameters, "&Test=", curl_escape(test),
"&TestDurationInSeconds=", test.duration, sep = "")
if (!is.null(answerkey)) {
if (validate.answerkey==TRUE) {
if (!is.null(xmlChildren(xmlParse(answerkey))$AnswerKey)) {
namespace <- xmlNamespace(xmlChildren(xmlParse(answerkey))$AnswerKey)[1]
} else {
stop("No Namespace specified in 'answerkey'")
}
validation <- xmlSchemaValidate(namespace, answerkey)
if (!validation$status==0) {
warning("'answerkey' object does not validate against MTurk schema")
return(validation)
}
t.temp <- as.character(unique(as.data.frame.QuestionForm(xmlParse(test))$Question$QuestionIdentifier))
a.temp <- as.character(unique(as.data.frame.AnswerKey(xmlParse(answerkey))$Questions$QuestionIdentifier))
if (!sum(a.temp %in% t.temp) == length(a.temp)) {
stop("One or more QuestionIdentifiers in AnswerKey not in QuestionForm")
}
if (!sum(t.temp %in% a.temp) == length(t.temp)) {
stop("One or more QuestionIdentifiers in QuestionForm not in AnswerKey")
}
}
GETparameters <- paste(GETparameters, "&AnswerKey=",
curl_escape(answerkey), sep = "")
}
}
if (!is.null(retry.delay)) {
GETparameters <- paste(GETparameters, "&RetryDelayInSeconds=", retry.delay, sep = "")
}
if (!is.null(auto) && auto == TRUE & is.null(test) & !is.null(auto.value)) {
GETparameters <- paste(GETparameters, "&AutoGranted=", "true",
"&AutoGrantedValue=", auto.value, sep = "")
} else if (!is.null(auto) && auto == FALSE & is.null(test) & !is.null(auto.value)) {
GETparameters <- paste(GETparameters, "&AutoGranted=", "false",
"&AutoGrantedValue=", auto.value, sep = "")
} else if (!is.null(auto) && auto == TRUE & is.null(test) & is.null(auto.value)) {
GETparameters <- paste(GETparameters, "&AutoGranted=", "true", sep = "")
} else if (!is.null(auto) && auto == FALSE & is.null(test) & is.null(auto.value)) {
GETparameters <- paste(GETparameters, "&AutoGranted=", "false", sep = "")
} else if (!is.null(auto) && !is.null(test)) {
warning("AutoGranted Ignored! Test and AutoGranted cannot be declared together")
}
request <- request('CreateQualificationType', GETparameters = GETparameters, ...)
if (is.null(request$valid)) {
return(request)
}
if (request$valid == TRUE) {
QualificationType <- as.data.frame.QualificationTypes(xml.parsed = xmlParse(request$xml))
if (verbose) {
message("QualificationType Created: ", QualificationType$QualificationTypeId[1])
}
return(QualificationType)
} else if (request$valid == FALSE) {
if (verbose) {
warning("Invalid request")
}
return(emptydf(0, 13, c("QualificationTypeId", "CreationTime", "Name", "Description", "Keywords",
"QualificationTypeStatus", "AutoGranted", "AutoGrantedValue", "IsRequestable",
"RetryDelayInSeconds", "TestDurationInSeconds", "Test", "AnswerKey")))
}
}
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.