Ｒで特定の列だけ読み取る方法

Ｒで特定の列だけ読み取る方法。
本当は、awkやcutで処理した後
Ｒにいれるのが一番ベストだが、
それができない場合。

例えば、
「数字,100000文字の日本語文字列,数字」
のように、普通にはメモリーオーバーで
読み取れないようなファイルのとき、１列目と
３列目だけ読みだしたいときなど役立つかもしれない。

あまり、いい方法ではないと思うが、
Ｃ言語風に書く。
（ファイルの終了はエラーで無理やり止まる。）

f<-file("test.txt","r")
s<-0
a1<-0
a2<-0
i<-1

repeat{

	s<-strsplit(readLines(f,1),",")
	a1[i]<-as.numeric(s[[1]][1])
	a2[i]<-as.numeric(s[[1]][3])
	i<-i+1
}

やはり、unixコマンドがほしい。