Function

コメント・参照等
  • 指定したディレクトリ及び拡張子のファイルを削除する関数
  • 利用する際は細心の注意を払ってください

FUN = f_remove_file.r
function (path_to_folder, extension = NULL) 
{
    setwd(path_to_folder)
    print(getwd())
    if (!is.null(extension)) {
        files <- dir(path = path_to_folder, pattern = paste0("\\.", extension, "$"))
        print(files)
        file.remove(files)
    }
}