［R］ディレクトリを作成する

dir.create関数を使う。以下は、一時ディレクトリ（テンポラリーディレクトリ）に、実際にディレクトリを作成した例。

> print(tempdir())
[1] "C:\\Users\\○○○\\AppData\\Local\\Temp\\×××"
> list.files(tempdir(), include.dir = TRUE)
character(0)
> dir.create(file.path(tempdir(), "鈴木みのり"))
> list.files(tempdir(), include.dir = TRUE)
[1] "鈴木みのり"
> dir.create(file.path(tempdir(), "鈴木みのり", "セナディア"))
> list.files(tempdir(), include.dir = TRUE)
[1] "鈴木みのり"
> list.files(file.path(tempdir(), "鈴木みのり"), include.dir = TRUE)
[1] "セナディア"

［R］ファイルやディレクトリのパスを連結する

file.path関数を使う。以下は、自動的に削除される一時ディレクトリを利用し、temp1.txtとtemp2.txtという2つのテキストファイルについて、パスを連結して出力と読み込み行った例。一方はfile.path関数を使って連結し、もう一方はpaste0関数を使用して手動で文字列として連結して行っている（ディレクトリの区切り記号は.Platform$file.sepを使用）。いずれも問題なく読み書きできることが分かる。

> tempd <- tempdir()
> # [一時ファイル1と2の作成とファイルへの書き出し]
> f1 <- file.path(tempd, "temp1.txt")
> f2 <- sprintf(paste0(tempd, .Platform$file.sep, "temp2.txt"))
> write("スノウブレイクのリフ－ムゲン知眼役の瀬戸麻紗美さん", file = f1)
> write("かわいい", file = f1, append = TRUE)
> write("マクロスΔのフレイア役の鈴木みのりさん", file = f2)
> write("かわいい", file = f2, append = TRUE)
> # [一時ファイル1と2からの読み込み]
> lns <- scan(f1, what = character(), quiet = TRUE)
> print(lns)
[1] "スノウブレイクのリフ－ムゲン知眼役の瀬戸麻紗美さん"
[2] "かわいい"                                          
> lns <- scan(f2, what = character(), quiet = TRUE)
> print(lns)
[1] "マクロスΔのフレイア役の鈴木みのりさん" "かわいい"