Buenas, tengo un código en el que por medio de un bucle se van abriendo y analizando archivos que figuran en una lista. Como voy a tener que analizar varios archivos quiero que se imprima el nombre del archivo que tiene problemas para abrir. Un problema que es común que tengan los archivos es que falte algún nombre de columna, por ejemplo en vez de tener:
ID; date; close; description
1;20-12-2017;0.5;"archivo"
tiene
ID; close; description
1;20-12-2017;0.5;"archivo"
Esto evidentemente levanta un error ya que al leer el archivo se ve que el número de nombres de columnas no se corresponde con el número de columnas.
Para detectar estos errores estoy siguiendo el siguiente código:
for (i in 1:length(files)){
tryCatch({
name<-as.character(files[i])
dat<-read.table(name,header = T,sep="@",dec=",",comment.char = "")
},
error<-function(e){
print("error in file",files[i])
})
donde files es un listado de archivos.
Entonces lo que intento es que se imprima en pantalla el nombre del archivo.
El error que me salta es:
3.stop("bad handler specification")
2.tryCatch({
name <- as.character(files[i])
dat <- read.table(name, header = T, sep = "@", dec = ",",
comment.char = "") ...
1.data_function(files)
Gracias!