function (dest_folder, output_text, text_file_name = format(Sys.time(), "%Y%m%d%H%M%OS"))
{
setwd(dest_folder)
con <- file(paste0(text_file_name, ".txt"), open = "wt", encoding = "UTF-8")
sink(file = con, append = F)
cat(output_text)
sink()
close(con)
}