R/submit_proof.R

Defines functions submit_proof

Documented in submit_proof

submit_proof <- function(campaign, worker, ip, proof, type = "basic", key = getOption("microworkers_key")) {
    if(inherits(campaign, "mw_campaign"))
        campaign <- campaign$campaign_id
    a <- paste0("?proof=", proof, "&ip=", ip, "&user_id=", worker)
    mwPUT(path = paste0("/campaign_", .ctype(type), "/submit_proof/", campaign, a), key = key)
}
cloudyr/microworkers documentation built on May 13, 2019, 8:21 p.m.