R でプログラムスライシング #rstatsj - Qiita

function (x, n = 6L, ...) { stopifnot(length(n) == 1L) n <- if (n < 0L) max(length(x) + n, 0L) else min(n, length(x)) x[seq_len(n)] } 最初の n 個の要素を取り出すだけなのに、複雑すぎませんか？ コードをよく見てみると、二行目の if(n < 0L) で n が 0 より小さいかどうか判定しています。 これは、head() に渡す n をマイナス値にすると、後ろから -n 個を取り除くという動作に変わるためです。

[stockedge]

ひょっとして部分評価（コンパイラ技法）してる？凄い！