Amazon MTURK将点击率发布到沙箱

Amazon MTURK将点击率发布到沙箱,r,mechanicalturk,R,Mechanicalturk,因此,我尝试将csv文件的点击量发布到AWS沙箱,每次只打印1460行中的1190行。我已经从文件中清除了所有外部符号。对于每发布一次(大约)300次点击,此错误会出现几次,然后继续从csv文件发布点击: Error (ServiceUnavailable): 服务AWSMechanicalTurkRequester当前不可用。请稍后再试 请求NA对API请求无效: https://mechanicalturk.sandbox.amazonaws.com/?Service =AWSMecha

因此,我尝试将csv文件的点击量发布到AWS沙箱,每次只打印1460行中的1190行。我已经从文件中清除了所有外部符号。对于每发布一次(大约)300次点击,此错误会出现几次,然后继续从csv文件发布点击:

 Error (ServiceUnavailable):
服务AWSMechanicalTurkRequester当前不可用。请稍后再试
请求NA对API请求无效:
https://mechanicalturk.sandbox.amazonaws.com/?Service =AWSMechanicalTurkRequester
&AWSAccessKeyId=已编辑
&RequesterAnnotation=注释%20编码%20项目%202016-07-12

这是我用来创建点击的文件:
if(!(file.exists(输入文件)和&file.exists(模板文件)))
stop('包含模板或输入值的文件不存在')
#读取输入文件

输入值1190/91行有什么奇怪的地方吗?你可能会遇到MTurk API的某种速率限制(速率没有文档记录,因此很难知道你是否达到了这些速率)。嗨,谢谢你的回复!昨天它一直在打印1190行,但今天,在我运行的每个测试批中,它似乎只打印了大约580行。可能是因为沙盒的AWS方面的问题(这个服务器错误已经发生了好几个星期了)。我怀疑沙盒的速率限制低于实时服务器,所以可能是这个问题(如果您在它们之间来回移动)。
if (!(file.exists(input_file) && file.exists(template_file)))
  stop('File containing the template or the input values does not exist.')

# Read the input file
input_values <- read.csv(input_file, header = T);

 # Create or retrieve the HIT type.
  git_hit_type <- RegisterHITType(title = 'Categorize comments',
                            description = 'categorize comments!',
                            reward = '.05',
                            duration = seconds(minutes = 5),
                            keywords = 'categorization, coding,     moderation, category',
                            auto.approval.delay = seconds(days = 1),
                            qual.req = score_moder)


# Create the HITs and store their data.
created_hits <- BulkCreateFromTemplate(hit.type = git_hit_type$HITTypeId,
                                   template = template_file,
                                   input = input_values,
                                   expiration = seconds(days = 1),
                                   annotation = paste('Comment coding project', Sys.Date()))

# HITIDs of created HITs.
HITID_value <- rbindlist(created_hits)$HITId

# Clean up.
rm(input_file, template_file, input_values, created_hits)