Multiple if statements within loop in R

I have an R script that retrieves CSV files from a daily email in my outlook and then depending whether the date in email subject is greater than a set date, moves them to a specific folder. The code is splitting the subject line to extract the date - the position of which can be in one of two places in the string, due to recent changes.

I have an if statement built which can successfully locate the date within the string in either circumstance, but I can't then use a second if statement to see if the output from the first if statement is greater than the sample date.

Below is the code I am trying to execute (I have included data that can be reproduced):

# Test data
testLoop <- c("[EXTERNAL] Test Promo Sessions was executed at 28062019 100005",
              "[EXTERNAL] Test Promo Sessions was executed at 29062019 100023",
              "Test Promo Sessions was executed at 30062019 100007",
              "Test Promo Sessions was executed at 01072019 100043",
              "Test Promo Sessions was executed at 02072019 100049",
              "Test Promo Sessions was executed at 03072019 100001")

# Example date
todaysDateFormatted2 <- '30062019'

# Loop
for(i in testLoop){
  if(if(nchar(i) == 51){
    strptime(sapply(strsplit(i, "\\s+"), "[", 7),"%d%m%Y")
  } else {
    strptime(sapply(strsplit(i, "\\s+"), "[", 8),"%d%m%Y")
  } > strptime(todaysDateFormatted2,"%d%m%Y")){
    print("greater than - move file")
  } else {
    print("not greater than - do nothing")
  }
}

When attempting the execute this code, I get the following error, however I'm not sure how to interpret it:

[1] "not greater than - do nothing"
[1] "not greater than - do nothing"
Error in if (if (nchar(i) == 51) { : 
  argument is not interpretable as logical
In addition: Warning message:
In if (if (nchar(i) == 51) { :
  the condition has length > 1 and only the first element will be used