R fastest way to convert an entire data table to lower case

Question

I have a function written as:

setlower <- function(df) {
  for(j in seq_along(df)){
    data.table::set(df, j=j, value=stringi::stri_trans_tolower(df[[j]]))