title: Need to pull a random set of photos into a program for an "aging test"
body: <p><a href="https://i.stack.imgur.com/f5Sip.jpg" rel="nofollow noreferrer">enter image description here</a>Here is my issue.  I have the following code below that uses &quot;RFishBC&quot; and &quot;dplyr&quot; packages.  Currently it pulls up an image from my file folder and has an interactive portion that allows the user to estimate the age of the fish.</p>
  <p>So in the code below it pulls out each of the 34 fish in the file one by one to age them.  What I need it to do is randomly select 10 of those each time a new user runs through the code.</p>
  <p>The end goal is that we could have someone new come in and use this code to test their knowledge on a random subset of our known age fish database.  Any help would  be greatly appreciated</p>
  <pre class="lang-r prettyprint-override"><code>digitizeRadii(&quot;Fish1.jpg&quot;, id=&quot;01&quot;,reading=&quot;INSERT INITIALS HERE&quot;,edgeIsAnnulus=FALSE, scaleBarLength =2.5)    
  digitizeRadii(&quot;Fish2.jpg&quot;, id=&quot;02&quot;,reading=&quot;INSERT INITIALS HERE&quot;,edgeIsAnnulus=FALSE, scaleBarLength =2.5)     
  digitizeRadii(&quot;Fish3.jpg&quot;, id=&quot;03&quot;,reading=&quot;INSERT INITIALS HERE&quot;,edgeIsAnnulus=FALSE, scaleBarLength =2.5)        
  digitizeRadii(&quot;Fish4.jpg&quot;, id=&quot;04&quot;,reading=&quot;INSERT INITIALS HERE&quot;,edgeIsAnnulus=FALSE, scaleBarLength =2.5)      
  digitizeRadii(&quot;Fish5.jpg&quot;, id=&quot;05&quot;,reading=&quot;INSERT INITIALS HERE&quot;,edgeIsAnnulus=FALSE, scaleBarLength =2.5)
  digitizeRadii(&quot;Fish6.jpg&quot;, id=&quot;06&quot;,reading=&quot;INSERT INITIALS HERE&quot;,edgeIsAnnulus=FALSE, scaleBarLength =2.5)
  digitizeRadii(&quot;Fish7.jpg&quot;, id=&quot;07&quot;,reading=&quot;INSERT INITIALS HERE&quot;,edgeIsAnnulus=FALSE, scaleBarLength =2.5)
  digitizeRadii(&quot;Fish8.jpg&quot;, id=&quot;08&quot;,reading=&quot;INSERT INITIALS HERE&quot;,edgeIsAnnulus=FALSE, scaleBarLength =2.5)
  digitizeRadii(&quot;Fish9.jpg&quot;, id=&quot;09&quot;,reading=&quot;INSERT INITIALS HERE&quot;,edgeIsAnnulus=FALSE, scaleBarLength =2.5)
  digitizeRadii(&quot;Fish10.jpg&quot;, id=&quot;10&quot;,reading=&quot;INSERT INITIALS HERE&quot;,edgeIsAnnulus=FALSE, scaleBarLength =2.5)
  digitizeRadii(&quot;Fish11.jpg&quot;, id=&quot;11&quot;,reading=&quot;INSERT INITIALS HERE&quot;,edgeIsAnnulus=FALSE, scaleBarLength =2.5)
  digitizeRadii(&quot;Fish12.jpg&quot;, id=&quot;12&quot;,reading=&quot;INSERT INITIALS HERE&quot;,edgeIsAnnulus=FALSE, scaleBarLength =2.5)
  digitizeRadii(&quot;Fish13.jpg&quot;, id=&quot;13&quot;,reading=&quot;INSERT INITIALS HERE&quot;,edgeIsAnnulus=FALSE, scaleBarLength =2.5)   
  digitizeRadii(&quot;Fish14.jpg&quot;, id=&quot;14&quot;,reading=&quot;INSERT INITIALS HERE&quot;,edgeIsAnnulus=FALSE, scaleBarLength =2.5)                     
  digitizeRadii(&quot;Fish15.jpg&quot;, id=&quot;15&quot;,reading=&quot;INSERT INITIALS HERE&quot;,edgeIsAnnulus=FALSE, scaleBarLength =2.5)                               
  digitizeRadii(&quot;Fish16.jpg&quot;, id=&quot;16&quot;,reading=&quot;INSERT INITIALS HERE&quot;,edgeIsAnnulus=FALSE, scaleBarLength =2.5)                            
  digitizeRadii(&quot;Fish17.jpg&quot;, id=&quot;17&quot;,reading=&quot;INSERT INITIALS HERE&quot;,edgeIsAnnulus=FALSE, scaleBarLength =2.5)                              
  digitizeRadii(&quot;Fish18.jpg&quot;, id=&quot;18&quot;,reading=&quot;INSERT INITIALS HERE&quot;,edgeIsAnnulus=FALSE, scaleBarLength =2.5)
  digitizeRadii(&quot;Fish19.jpg&quot;, id=&quot;19&quot;,reading=&quot;INSERT INITIALS HERE&quot;,edgeIsAnnulus=FALSE, scaleBarLength =2.5)
  digitizeRadii(&quot;Fish20.jpg&quot;, id=&quot;20&quot;,reading=&quot;INSERT INITIALS HERE&quot;,edgeIsAnnulus=FALSE, scaleBarLength =2.5)
  digitizeRadii(&quot;Fish21.jpg&quot;, id=&quot;21&quot;,reading=&quot;INSERT INITIALS HERE&quot;,edgeIsAnnulus=FALSE, scaleBarLength =2.5)
  digitizeRadii(&quot;Fish22.jpg&quot;, id=&quot;22&quot;,reading=&quot;INSERT INITIALS HERE&quot;,edgeIsAnnulus=FALSE, scaleBarLength =2.5)
  digitizeRadii(&quot;Fish23.jpg&quot;, id=&quot;23&quot;,reading=&quot;INSERT INITIALS HERE&quot;,edgeIsAnnulus=FALSE, scaleBarLength =2.5)
  digitizeRadii(&quot;Fish24.jpg&quot;, id=&quot;24&quot;,reading=&quot;INSERT INITIALS HERE&quot;,edgeIsAnnulus=FALSE, scaleBarLength =2.5)
  digitizeRadii(&quot;Fish25.jpg&quot;, id=&quot;25&quot;,reading=&quot;INSERT INITIALS HERE&quot;,edgeIsAnnulus=FALSE, scaleBarLength =2.5)
  digitizeRadii(&quot;Fish26.jpg&quot;, id=&quot;26&quot;,reading=&quot;INSERT INITIALS HERE&quot;,edgeIsAnnulus=FALSE, scaleBarLength =2.5)
  digitizeRadii(&quot;Fish27.jpg&quot;, id=&quot;27&quot;,reading=&quot;INSERT INITIALS HERE&quot;,edgeIsAnnulus=FALSE, scaleBarLength =2.5)
  digitizeRadii(&quot;Fish28.jpg&quot;, id=&quot;28&quot;,reading=&quot;INSERT INITIALS HERE&quot;,edgeIsAnnulus=FALSE, scaleBarLength =2.5)
  digitizeRadii(&quot;Fish29.jpg&quot;, id=&quot;29&quot;,reading=&quot;INSERT INITIALS HERE&quot;,edgeIsAnnulus=FALSE, scaleBarLength =2.5)
  digitizeRadii(&quot;Fish30.jpg&quot;, id=&quot;30&quot;,reading=&quot;INSERT INITIALS HERE&quot;,edgeIsAnnulus=FALSE, scaleBarLength =2.5)
  digitizeRadii(&quot;Fish31.jpg&quot;, id=&quot;31&quot;,reading=&quot;INSERT INITIALS HERE&quot;,edgeIsAnnulus=FALSE, scaleBarLength =2.5)
  digitizeRadii(&quot;Fish32.jpg&quot;, id=&quot;32&quot;,reading=&quot;INSERT INITIALS HERE&quot;,edgeIsAnnulus=FALSE, scaleBarLength =2.5)
  digitizeRadii(&quot;Fish33.jpg&quot;, id=&quot;33&quot;,reading=&quot;INSERT INITIALS HERE&quot;,edgeIsAnnulus=FALSE, scaleBarLength =2.5)
  digitizeRadii(&quot;Fish34.jpg&quot;, id=&quot;34&quot;,reading=&quot;INSERT INITIALS HERE&quot;,edgeIsAnnulus=FALSE, scaleBarLength =2.5)
  </code></pre>