Gostaria de trabalhar em vários arquivos csv para fazer algumas comparações, então escrevi esse código para ler os diferentes arquivos csv que tenho:

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="")))
}

Meus arquivos csv são algo como isto:

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 meu código, R separa corretamente todos os arquivos, mas para cada um deles cria uma tabela adicionando mais espaço extra no início:

                 |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
...

Como posso corrigir isso?

Além disso, considerando que o nome original de cada arquivo é realmente longo, é possível nomear cada data.frame usando as últimas letras do arquivo? Ou apenas um número cardinal?