Apa cara paling efisien untuk mengubah kapitalisasi nama kolom di data.tabel?

Terkadang sebelum menggabungkan ada gunanya mengubah huruf besar/kecil nama kolom untuk konsistensi. Saat bekerja dengan data.frame, hal ini cukup mudah (seperti diuraikan di sini); meskipun solusi yang sama berfungsi pada ``data.table`, solusi ini memunculkan peringatan. Misalnya,

ran <- rep(34,50)
dom <- rep("cat",50)
table <- rep("pig", 50)

DT <- data.table(ran,dom,table); head(DT)
   ran dom table
1:  34 cat   pig
2:  34 cat   pig
3:  34 cat   pig
4:  34 cat   pig
5:  34 cat   pig
6:  34 cat   pig

##the data.frame way

names(DT) <- toupper(names(DT))

##the error 
Warning message:
In `names<-.data.table`(`*tmp*`, value = c("RAN", "DOM", "TABLE" :
  The names(x)<-value syntax copies the whole table. This is due to <- in R 
 itself. Please change to setnames(x,old,new) which does not copy and is faster. 
 See help('setnames'). You can safely ignore this warning if it is inconvenient 
 to change right now. Setting options(warn=2) turns this warning into an error, 
 so you can then use traceback() to find and change your names<- calls.

Saya telah menggunakan solusi berikut untuk menghindari kesalahan, dan ini jauh lebih cepat pada kumpulan data yang luas, tetapi apakah ada data.table cara untuk melakukan ini?

##the work around
upper <- toupper(names(DT))

setnames(DT,upper);head(DT)

   RAN DOM TABLE
1:  34 cat   pig
2:  34 cat   pig
3:  34 cat   pig
4:  34 cat   pig
5:  34 cat   pig
6:  34 cat   pig