为什么 if 循环不能在 R 中的函数中正确捕获 NA 值？

问：

我有一个相当复杂的函数，可以修改一些字符变量。在对函数进行编码时，我在处理 NA 值时遇到了一个奇怪的问题。我将为您省去复杂的函数，而是在下面的 MWE 中提出问题：

# Create an example data frame
df <- data.frame(noun = c("apple", NA, "banana"))

# Display the example data frame
df
#>     noun
#> 1  apple
#> 2   <NA>
#> 3 banana

# Introduce the function 
process_my_df <- function(input_data, my_var) {
  # Create a new variable based on an existing variable
  for (i in 1:nrow(input_data)) {
    if (!is.na(input_data[[my_var]][i])) {
      input_data[[paste0(my_var, "_result")]][i] <- "is a fruit"
    }
  }
  return(input_data)
}

# Call the function to process the data frame
processed_df <- process_my_df(df, "noun")

# Display the resulting df
processed_df
#>     noun noun_result
#> 1  apple  is a fruit
#> 2   <NA>  is a fruit
#> 3 banana  is a fruit

^{创建于 2023-11-03 with reprex v2.0.2}

我的问题：根据条件，我期望以下结果：if (!is.na(input_data[[my_var]][i])) {}

#>     noun noun_result
#> 1  apple  is a fruit
#> 2   <NA>        <NA>
#> 3 banana  is a fruit

这是怎么回事？

编辑：

由于下面公认的答案，我在函数中添加了一行简单的行，现在一切正常：

# Introduce the function 
process_my_df <- function(input_data, my_var) {
  # Create a new variable based on an existing variable
  
  # But first, "prime" it with NA_character_
  input_data[[paste0(my_var, "_result")]] = NA_character_
  
  for (i in 1:nrow(input_data)) {
    if (!is.na(input_data[[my_var]][i])) {
      input_data[[paste0(my_var, "_result")]][i] <- "is a fruit"
    }
  }
  return(input_data)
}

^{创建于 2023-11-03 with reprex v2.0.2}