Несколько операторов if внутри цикла в R

Question

У меня есть сценарий R, который извлекает файлы CSV из ежедневного электронного письма в моем внешнем виде, а затем в зависимости от того, превышает ли дата в теме электронного письма установленную дату, перемещает их в определенную папку. Код разбивает строку темы, чтобы извлечь дату, положение которой может быть в одном из двух мест в строке из-за недавних изменений.

У меня есть встроенный оператор if, который может успешно найти дату в строке в любом случае, но я не могу затем использовать второй оператор if, чтобы узнать, больше ли результат первого оператора if, чем дата выборки.

Ниже приведен код, который я пытаюсь выполнить (я включил данные, которые можно воспроизвести):

# 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")
  }
}

При попытке выполнить этот код я получаю следующую ошибку, однако я не уверен, как ее интерпретировать:

[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

Answer 1

Код в OP не выполняется, поскольку R не всегда разрешает внутренний оператор if() в вектор длины 1, что приводит к сбою внешнего if(), как описано в OP.

Если код предназначен для того, чтобы решить, следует ли перемещать файл на основе даты в имени файла, более простая версия кода может достичь желаемого.Здесь мы уменьшаем уровни вложенности, используя lapply() и сохраняя вывод из исходного внутреннего предложения if() в объект.Затем мы сравниваем сохраненный объект с объектом, представляющим сегодняшнюю дату, и записываем сообщение в журнал R.

# 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'


datesProcessed <- lapply(testLoop,function(x){
     if(nchar(x) == 51) y <- strptime(sapply(strsplit(x, "\\s+"), "[", 7),"%d%m%Y")
     else y <- strptime(sapply(strsplit(x, "\\s+"), "[", 8),"%d%m%Y")
     if(y > strptime(todaysDateFormatted2,"%d%m%Y")) message("greater than - move file")
     else message("not greater than - do nothing")
     y
})

... и вывод:

> datesProcessed <- lapply(testLoop,function(x){
+      if(nchar(x) == 51) y <- strptime(sapply(strsplit(x, "\\s+"), "[", 7),"%d%m%Y")
+      else y <- strptime(sapply(strsplit(x, "\\s+"), "[", 8),"%d%m%Y")
+      if(y > strptime(todaysDateFormatted2,"%d%m%Y")) message("greater than - move file")
+      else message("not greater than - do nothing")
+      y
+ })
not greater than - do nothing
not greater than - do nothing
not greater than - do nothing
greater than - move file
greater than - move file
greater than - move file
> 

Answer 2

В вашем коде было несколько недостатков.Дублированный if был странным, и вы strptime попали в никуда, если не присвоили его чему-либо ниже t.Также вы можете назначить условие else для t.Теперь вы можете сравнить t с todaysDateFormatted2 и распечатать результат для каждой итерации.

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

# [1] "not greater than - do nothing"
# [1] "not greater than - do nothing"
# [1] "not greater than - do nothing"
# [1] "greater than - move file"
# [1] "greater than - move file"
# [1] "greater than - move file"