R 通过模板创建批量命中_R_Mechanicalturk

R 通过模板创建批量命中

R 通过模板创建批量命中,r,mechanicalturk,R,Mechanicalturk,运行模板时出现的错误如下所示： filecon中出错，r:无法打开连接此外：警告信息：在filecon中，r: 无法打开文件'http://mechanicalturk.amazonaws.com/AWSMechanicalTurkDataSchemas/2011-11-11/HTMLQuestion.xsd“>450”：参数无效 library(MTurkR) options(MTurkR.sandbox = TRUE) credentials(keypair=c(

运行模板时出现的错误如下所示： filecon中出错，r:无法打开连接此外：警告信息：在filecon中，r: 无法打开文件'http://mechanicalturk.amazonaws.com/AWSMechanicalTurkDataSchemas/2011-11-11/HTMLQuestion.xsd“>450”：参数无效

    library(MTurkR)
    options(MTurkR.sandbox = TRUE)
    credentials(keypair=c("XXXXXX","XXXXXX"))
    AccountBalance()
    #BulkCreateFromTemplate
    temp <- system.file("template.html", package = "MTurkR")
    a <- data.frame(hittitle = c("HIT title 1", "HIT title 2", "HIT title 3"),
                    hitvariable = c("HIT text 1", "HIT text 2", "HIT text 3"), 
                    stringsAsFactors = FALSE)
    BulkCreateFromTemplate(template = temp,
                           input = a,
                           annotation = paste("Bulk From Template", Sys.Date()),
                           title = "Categorize an image",
                           description = "Categorize this image",
                           reward = ".05",
                           expiration = seconds(days = 4),
                           duration = seconds(minutes = 5),
                           auto.approval.delay = seconds(days = 1),
                           keywords = "categorization, image, moderation, category")

您的问题在这一行：

#tempalte I am using is:
<!DOCTYPE html>
<html>
 <head>
  <meta http-equiv='Content-Type' content='text/html; charset=UTF-8'/>
  <script type='text/javascript' src='https://s3.amazonaws.com/mturk-public/externalHIT_v1.js'></script>
 </head>
 <body>
  <form name='mturk_form' method='post' id='mturk_form' action='https://www.mturk.com/mturk/externalSubmit'>
  <input type='hidden' value='' name='assignmentId' id='assignmentId'/>
  <h1>${hittitle}</h1>
  <p>${hitvariable}</p>
  <p>What do you think?</p>
  <p><textarea name='comment' cols='80' rows='3'></textarea></p>
  <p><input type='submit' id='submitButton' value='Submit' /></p></form>
  <script language='Javascript'>turkSetAssignmentID();</script>
 </body>
</html>

以及传递给BulkCreateFromTemplate的其他选项。

非常感谢您的帮助

temp <- system.file("template.html", package = "MTurkR")

BulkCreateFromTemplate(template = "template.html", ...