Написание цикла for для заполнения значений с использованием readline

Question

У меня есть data.frame с одним столбцом, содержащим некоторое значение, которое помечено как "Пустой".

amount <- c(10,12,14)
description <- c("bankafschrift", "ABN", "albert heijn")
post <- ("Blank", "Bank", "Blank")

df <- data.frame(description, amount, post)

Теперь я хотел бы написать, что циклы по всем значениям, которые помечены как "Пустые", и вручную предоставить его для ввода.

Поэтому я написал следующее:

 for(i in 1:nrow(df)) {

 if (df$post == "Blank") {

    des <- df$description[i]
    var <- paste0("What is the post of: ", des)
    df$post[i] <- readline(var) 

  }
 } 

Это работает для первой строки, но затем я получаю следующую ошибку:

 Warning messages:
1: In if (df$post == "Blank") { :
the condition has length > 1 and only the first element will be used
2: In if (df$post == "Blank") { :
the condition has length > 1 and only the first element will be used
3: In if (df$post == "Blank") { :
the condition has length > 1 and only the first element will be used

Кто-нибудь может уточнить, что происходит не так и что именно означает ошибка?