Function

コメント・参照等
  • zipファイルを作成する関数

FUN = f_create_zipfile.r
function (dest_folder, files, zipname = 1) 
{
    path_to_folder <- paste0("C:/Users/", Sys.info()["user"], dest_folder)
    setwd(path_to_folder)
    zipfile <- gsub("(.+)\\.[^\\.]+$", "\\1", files[zipname])
    zip(zipfile = zipfile, files = files)
}

Asset Management Consulting Corporation