title: How to get current week start date ( Monday ) and End Date ( Sunday) in R
body: <p>How to get current week start date  ( Monday ) and End Date ( Sunday) in R.</p>
  <p>My business weeks start from Monday and ends on Sunday.</p>
  <p>How do i retrieve Start Date and End Date from my current date.</p>
  <p><code>Eg. Curent date is 18-07-2020. How to retrieve Monday Date ( 18-07-2020) and Sunday Date (19-07-2020)</code></p>
  <p>My Code :</p>
  <pre><code>library(lubridate)
  library(mailR)
  library(htmlTable)
  library(DBI)
  
  todays_date &lt;- Sys.Date()
  stdt &lt;- floor_date(todays_date, 'week') + 1
  lsdt &lt;- floor_date(todays_date, 'week') + 7
  </code></pre>
  <p>If I execute the above code on Sunday, it falls on to next week. Any workaround to make the code to run on Sunday as well, by considering Monday to Sunday as working days.</p>