抽出演算子 '[' - POSIXlt unclassed list prints datetime

Question

対象：POSIXltオブジェクトから取得したリストの最初の要素を出力する。

コード：

> x <- as.POSIXlt(Sys.time()) 
> x 
[1] "2016-06-18 23:51:14 IST" 
> x[1] 
[1] "2016-06-18 23:51:14 IST" 
> x[[1]] 
[1] 14.70887 
> temp <- list(999,23,3) 
> temp[1] 
[[1]] 
[1] 999 
> temp[[1]] 
[1] 999 

我々は、単一の抽出物を用いたX POSIXltオブジェクトにアクセスする場合、全体の日時が印刷されているが、我々は同様に別のリスト（TEMP）にアクセスするときに、最初の要素が印刷されます、リストとして（単一のブラケット抽出が同じオブジェクトを返すので）。最初の要素は、二重ブラケット抽出を使用するときに取得されますが、Rに新しく、誰でもこれについていくつかの光を当てることができますか？

Answer 1

POSIXltオブジェクトを通常のリストから索引付けする際の異常な動作は、演算子がPOSIXltクラス用に定義されている方法に関連しています。 [.POSIXltというソースコードを見ると、直感的な方法で定義されています。リストをサブセット化するのではなく、リストをループして各要素を取り上げ、属性を再割り当てします。x[1]は本質的にxと同じです。だから、私のコメントはlength(l)によって返されます。これはlengthのクラスPOSIXltの機能がこのように定義されているためです。より慎重に2つの関数定義を確認し、動作がlist通常通りではありませんなぜあなたは表示されます。

[POSIXltための関数定義：

`[.POSIXlt` 
function (x, ..., drop = TRUE) 
{ 
    val <- lapply(X = x, FUN = "[", ..., drop = drop) 
    # note how the above line has looped through the original list and collected all of them 
    attributes(val) <- attributes(x) 
    val 
} 
<bytecode: 0x105dc90d8> 
<environment: namespace:base> 

lengthPOSIXltための関数定義：

length.POSIXlt 
function (x) 
length(x[[1L]])  # this will always return one 
<bytecode: 0x102270a68> 
<environment: namespace:base> 

また、[[はPOSIXltクラスに対して定義されていないため、通常のリストとしても動作しますしましょう。