title: Extend HITs until agreement MTurkR
body: <p>I am using <code>MTurkR</code> to post HITs to mTurk and I am having trouble extending the HITs until there is consensus among workers (or until a total of 5 HITs have been posted). </p>
  
  <p>When two different responses are entered, the HIT is not extended. My code follows from <code>MTurkR</code> <a href="http://cran.r-project.org/web/packages/MTurkR/MTurkR.pdf" rel="nofollow">documentation</a> pg. 45. My code is as follows:</p>
  
  <pre><code># ##############################################
  # SET PARAMTERS FOR HITS
  # ##############################################
  layout="XXXXXXXXXXX"
      #format for sandbox question. Get this from MTURK site
  annotation.v="Question1"
  assignments.v="2"
  title.v="TITLE"
  description.v="DESCRIPTION."
  reward.v=".00"
  duration.v=seconds(hour=1)
  expiration.v=seconds(days=4)
  keywords.v="survey"
  auto.approval.delay.v=seconds(days=1)
  
  
  # ##############################################
  # EXTEND HIT UNTIL AGREEMENT
  # ##############################################
  TurkAgreement=list(QuestionIds=c("Question1"),
    QuestionAgreementThreshold=49, #at least 50% agree
    ExtendIfHITAgreementScoreIsLessThan=50,
    ExtendMinimumTimeInSeconds=3600,
    ExtendMaximumAssignments=5,
    DisregardAssignmentIfRejected=TRUE)
  
  policya=do.call(GenerateHITReviewPolicy,TurkAgreement)
  
  
  # ##############################################
  # CREATE HITS
  # ##############################################
  hits=NULL
  for(i in 1:length(DF)){
    hits.i=CreateHIT(
      hitlayoutid=layout,
      hitlayoutparameters=GenerateHITLayoutParameter(c("XX","XX","XX"), c(DF[i,1],DF[i,2],DF[i,3])),
      annotation=annotation.v[i],
      assignments=assignments.v,
      title=title.v,
      description=description.v,
      reward=reward.v,
      duration=duration.v,
      expiration=expiration.v,
      keywords=keywords.v,
      auto.approval.delay=auto.approval.delay.v,
      qual.req=qualReqs,
      hit.review.policy=policya,
      sandbox=sandbox.v)
      hits=rbind(hits,hits.i)}
  </code></pre>
  
  <p>The code generates 2 HITs (as specified by <code>assignments.v</code>) but the HIT doesn't extend.</p>
  
  <p>My session info is below:</p>
  
  <pre><code>&gt; sessionInfo()
  R version 3.1.1 (2014-07-10)
  Platform: x86_64-w64-mingw32/x64 (64-bit)
  
  locale:
  [1] LC_COLLATE=English_United States.1252  LC_CTYPE=English_United States.1252   
  [3] LC_MONETARY=English_United States.1252 LC_NUMERIC=C                          
  [5] LC_TIME=English_United States.1252    
  
  attached base packages:
  [1] stats     graphics  grDevices utils     datasets  methods   base     
  
  other attached packages:
  [1] MTurkR_0.6
  
  loaded via a namespace (and not attached):
  [1] digest_0.6.4   RCurl_1.95-4.3 tcltk_3.1.1    XML_3.98-1.1  
  </code></pre>