Me gustaría trabajar en varios archivos csv para hacer algunas comparaciones, así que escribí este código para leer los diferentes archivos csv que tengo:

path <- "C:\\data\\"
files <- list.files(path=path, pattern="*.csv")
for(file in files)
{
  perpos <- which(strsplit(file, "")[[1]]==".")
  assign(
    gsub(" ","",substr(file, 1, perpos-1)), 
    read.csv(paste(path,file,sep="")))
}

Mis archivos csv son algo como esto:

Start Time,End Time,Total,Diffuse,Direct,Reflected
04/09/14 00:01:00,04/09/14 00:01:00,2.221220E-003,5.797364E-004,0.000000E+000,1.641484E-003,
04/09/14 00:02:00,04/09/14 00:02:00,2.221220E-003,5.797364E-004,0.000000E+000,1.641484E-003,
04/09/14 00:03:00,04/09/14 00:03:00,2.221220E-003,5.797364E-004,0.000000E+000,1.641484E-003,
(...)

Usando mi código, R separa correctamente todos los archivos, pero para cada uno de ellos crea una tabla que agrega un espacio adicional al principio:

                 |Start Time       |End Time     |Total        |Diffuse      |Direct       |Reflected
04/09/14 00:01:00|04/09/14 00:01:00|2.221220E-003|5.797364E-004|0.000000E+000|1.641484E-003|NA
...

¿Cómo puedo arreglarlo?

Además, considerando que el nombre original de cada archivo es realmente largo, ¿es posible nombrar cada data.frame usando las últimas letras del archivo? ¿O simplemente un número cardinal?