1:length(x) の代わりに seq_along(x) を使うと良いってごみ箱が言ってた

seq_alongの方が、空っぽのベクターに対しても安全に動作しますよっと。

> x <- 1:3
> 1:length(x)
[1] 1 2 3
> seq_along(x)
[1] 1 2 3
> x <- c()
> 1:length(x)
[1] 1 0
> seq_along(x)
integer(0)