how to force data.table to save data in utf8?

[melgoussi]

library(data.table)
dt <- data.table(x = c("\u00f4", "T\u00fCrkiye"), stringsAsFactors = FALSE)
data.table::fwrite(dt, "DF.csv", bom = TRUE)

cat("Header\n", file = "DF.csv")
data.table::fwrite(dt, file = "DF.csv", append = TRUE, col.names = TRUE, bom = TRUE)

i want to edit the second chunck of code to add header in top of the file.
Thanks

[nirgrahamuk]

library(data.table)
dt <- data.table(x = c("\u00f4", "T\u00fCrkiye"), stringsAsFactors = FALSE)
cat("\xEF\xBB\xBF",file="DF.csv")
cat("Header\n", file = "DF.csv",append = TRUE)
data.table::fwrite(dt, file = "DF.csv", append = TRUE, col.names = TRUE)