Function

コメント・参照等
FUN = f_output_textfile.r
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)
}