Hola, tengo datos en el siguiente formato

101,20130826T155649
------------------------------------------------------------------------
3,1,round-0,10552,180,yellow
12002,1,round-1,19502,150,yellow
22452,1,round-2,28957,130,yellow,30457,160,brake,31457,170,red
38657,1,round-3,46662,160,yellow,47912,185,red

y los he estado leyendo y limpiando / formateando con este código

b <- read.table("sid-101-20130826T155649.csv", sep = ',', fill=TRUE, col.names=paste("V", 1:18,sep="") )
b$id<- b[1,1]
b<-b[-1,]
b<-b[-1,]
b$yellow<-B$V6

y así sucesivamente Hay alrededor de 300 archivos como este, e idealmente todos se compilarán sin las dos primeras líneas, ya que la primera línea es solo id e hice una columna separada para identificar estos datos. ¿Alguien sabe cómo leer estas tablas rápidamente, limpiarlas y formatearlas de la manera que quiero, luego compilarlas en un archivo grande y exportarlas?