Shift-JISなcsvファイルをRで読み込む

タイトル通りです。

filename <- file("data.csv",encoding="Shift-JIS")

df <- read.csv(filename,,header=T,as.is=T)

一行で書ける方法はないのかなあ？