How to change accounting posting periods based on the invoice dates in R?

Question

[Scenario 1: Assuming todays date is 12 Sept 2020, I want the posting date to take the 1 date of Sept for those invoices that are dated Aug and earlier. Our accounting period cl