［R］ファイル名を示す文字列から拡張子を削除する

ファイル名を文字列型ベクトルに格納して、gsub関数で正規表現を使えば簡単に削除できる。以下、例。

> s <- c("abc", "abc.def", "abc.def.ghi")
> gsub("\\.[^\\.]+$", "", s)
[1] "abc"     "abc"     "abc.def"

「￥￥．」は「．」（ピリオド）一文字を表現している。「．」はパターンを表す書式に使用されるため、それを避けるために前に「￥」を付けている。この付けた「￥」自体もパターンを表す書式に使用する文字のため、「￥」の前にもさらに「￥」を付けている。

「［＾￥￥．」＋」とは、ピリオド以外の文字を一つ以上ということ。このように指定しないと、含まれるピリオドより右側すべての文字が削除されてしまう。