Удалить избыточное имя в столбце data.table

Question

У меня есть data.table x, например

@ A B C D
1 2 3 4 n/a
5 6 7 8 n/a
.
.
.

Я хочу изменить его на

A B C D
1 2 3 4
5 6 7 8
.
.
.

Если есть простой способ сделать это? даже в data.table::fread или read.csv состоянии?

Answer 1

Как насчет этого?

headers <- names(x)[1:(length(x)-1)]
x <- x[, 1:(length(x)-1)]
names(x) <- headers