Function

コメント・参照等
  • csvファイルを出力する関数

FUN = f_output_csvfile.r
function (df, file_name0 = format(Sys.time(), "%Y%m%d%H%M%OS"), dest_folder, quote = T, na = "", fileEncoding = "UTF-8", row.names = F) 
{
    path_to_folder <- paste0("C:/Users/", Sys.info()["user"], dest_folder)
    setwd(path_to_folder)
    write.csv(x = df, file = paste0(file_name0, ".csv"), quote = quote, na = na, fileEncoding = fileEncoding, row.names = row.names)
}