Convertir en ligne les noms dans plusieurs trames de données de la colonne dans le bloc de données

J'ai une liste de .csv les fichiers que j'ai lu dans R et placé dans un grand bloc de données appelé data qui se compose de 6 données.les cadres qui sont les 6 fichiers dans filenames. Mon code pour l'instant est:

filenames <- list.files( paste(mainDirInput,sep=""), pattern="Out.*csv", full.names=TRUE) 
data = lapply(filenames, function(f) {
wb = read.csv(f, header=TRUE)
})

La ligne des noms de colonnes et dans chacun de données.cadre sont exactement les mêmes, je voudrais extraire les noms de ligne et, au lieu de les avoir comme la première colonne dans R. Un exemple de l'un de mes trames de données serait comme ceci:

            w    x    y    z
2012 01     12   43   87   09
2012 02     14   53   75   76
2012 03     76   34   76   28
2012 04     41   36   85   16
  :         :    :    :    :
  :         :    :    :    :

J'ai besoin d'être en mesure d'utiliser ce code sur d'autres fichiers, donc je ne peux pas il suffit juste de créer une nouvelle colonne avec les valeurs 2012 01, 2012 02, 2012 03...

OriginalL'auteur userk | 2013-08-23