R/rate_task.R

In cloudyr/microworkers: Microworkers.com R Client

approve_task <- function(campaign, task, comment, type = "basic", key = getOption("microworkers_key")) {
    if(inherits(campaign, "mw_campaign"))
        campaign <- campaign$campaign_id
    if(inherits(task, "mw_task"))
        task <- task$task_id
    a <- paste0("?id_task=", task, "&rating=OK")
    mwPUT(path = paste0("/campaign_", .ctype(type), "/rate_task/", campaign, a), key = key)
}

reject_task <- function(campaign, task, comment, type = "basic", key = getOption("microworkers_key")) {
    if(inherits(campaign, "mw_campaign"))
        campaign <- campaign$campaign_id
    if(inherits(task, "mw_task"))
        task <- task$task_id
    if(missing(comment))
        stop("'comment' is required for task rejection")
    a <- paste0("?id_task=", task, "&rating=NOK")
    mwPUT(path = paste0("/campaign_", .ctype(type), "/rate_task/", campaign, a), key = key)
}