Несколько операторов if внутри цикла в R
У меня есть сценарий R, который извлекает CSV-файлы из ежедневной электронной почты в моем Outlook, а затем, в зависимости от того, превышает ли дата в теме электронной почты установленную дату, перемещает их в определенную папку. Код разбивает строку темы для извлечения даты, которая может находиться в одном из двух мест в строке из-за недавних изменений.
У меня есть построенный оператор 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
Как отметил @Uwe, измените эту строку кода на if (nchar(i) == 51{.
Ответы 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"
Код в 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
>
Пожалуйста, перепроверьте строку
if (if (nchar(i) == 51){. Это выглядит немного странно. По крайней мере, не хватает закрывающей скобки, наверное.