防止R中的文件路徑中出現重複的斜槓

Question

我想建立一個文件的路徑，給定一個文件名和一個存在該文件的文件夾。該文件夾可能包含尾部斜線或不可以。在python中，os.path.join爲你解決了這個問題。是否有解決這個問題的基礎R？如果不是，建議R的建立文件路徑沒有重複斜槓的建議方式是什麼？

這工作得很好：

> file.path("/path/to/folder", "file.txt") 
[1] "/path/to/folder/file.txt" 

但是，如果用戶提供以斜槓的文件夾，file.path是否仍然功能，但惱人的雙斜線：

> file.path("/path/to/folder/", "file.txt") 
[1] "/path/to/folder//file.txt" 

我m尋找一個內置的，1個功能的答案來解決這個常見問題。

Answer 1

如果太煩人，可以使用gsub替換//與/。你可以把它放在一個自定義的功能，以方便

file.path2 = function(..., fsep = .Platform$file.sep){ 
    gsub("//", "/", file.path(..., fsep = fsep)) 
} 

file.path2("/path/to/folder", "file.txt") 
#[1] "/path/to/folder/file.txt" 

file.path2("/path/to/folder/", "file.txt") 
#[1] "/path/to/folder/file.txt"