title: Get next Wednesday date after a date with R
body: <p>i have an assignment for students and I would like to add a column to this table that includes the date of the Wednesday following the date specified in column <code>date</code>.  Students are supposed to look at news coverage on the day specified in <code>date</code> and then present their results on the next class, the next Wednesday.</p>
  
  <pre><code>#generate all possible days 
  dates&lt;-seq.Date(from=as.Date('2019-09-11'), to=as.Date('2019-10-31'), by='days')
  #These are the group names
  groups&lt;-paste('Group', seq(1,6,1))
  #sample 6 random dates and pair with a group
  df&lt;-data.frame(date=sample(dates, 6), group=groups)
  df
  </code></pre>