Для цикла: «количество заменяемых элементов не кратно длине замены» в R

Question

Я работаю над некоторыми упражнениями (гл.21.2.1, вопрос 1-2) в книге R для Data Science.https://r4ds.had.co.nz/iteration.html

Вопрос в следующем: определите тип каждого столбца в nycflights13 :: flight

Вот код.

library(nycflights13)

output_air <- vector("list", ncol(flights))
names(output_air) = names(flights)

for (i in names(output_air)) {
  output_air[i] = class(flights[[i]])
  print(output_air)
}
output_air #1 with output_air[i]

for (i in names(output_air)) {
  output_air[[i]] = class(flights[[i]])
  print(output_air)
}
output_air #2 with output_air[[i]]

Так что, очевидно, # 2 является правильнымспособ сделать это и # 1 показать ошибку: «В output_air [i] <- class (flight [[i]])): количество заменяемых элементов не кратно длине замены», но я понятия не имею, почему. </p>

Проблема здесь в том, что когда я делаю # 1, класс, хранящийся в $ time_hour, включает только «POSIXct» вместо «POSIXct» и «POSIXt».

$time_hour
[1] "POSIXct"

$time_hour
[1] "POSIXct" "POSIXt"