r - R: 原子ベクトルに対して無効な $ 演算子 POSIX でのエラー

Question

ここで本当に明らかな何かが欠けている可能性があります。助けてもらえますか?

日付オブジェクトを seLocalize() 関数に送信すると、次のコードに期待どおりに返されます (14-mar-18 を送信し、13-mar-18 を返しました)

seLocalize <- function(dataTeste) {
    data <- as.POSIXlt(dataTeste) 
    if(data$wday != 0) {
        data <- data-86400
    }
    print(data)
}

ただし、コードの一部に従うと、同じテストで「エラー: $ 演算子は原子ベクトルに対して無効です」が返されます。

seLocalize <- function(dataTeste) {
    data <- as.POSIXlt(dataTeste)
    while(data$wday != 0) {
        data <- data-86400
    }
    print(data)
}

なんで？