R/extrae.new.R

In amvallone/DataSpa: Collect Spanish data at municipality level

# Extrae informacion de los pdf.


extrae.new <- function(file){
				data<-read.table(file,quote="\t",sep="\t",skip=1)
				a<-capture.output(data)	
				Seg<-matrix("A",5,2)
				for (i in 4:8){
					aux1<-str_trim(substring(a[i],120,nchar(a[i])))
					aux<-as.matrix(unlist(strsplit(aux1," ")))
					aux<-as.vector(aux[which(nchar(aux)!=0),])
					Seg[i-3,1]<-paste0(aux[1:(length(aux)-1)],collapse=" ")
					Seg[i-3,2]<-aux[length(aux)]
					if(i==7){Seg[i-3,1]<-substring(aux1,str_locate(aux1,"Sanciones")[1],str_locate(aux1,"2015")[2])}
					if(i==8){Seg[i-3,1]<-substring(aux1,str_locate(aux1,"Puntos")[1],str_locate(aux1,"2015")[2])}
		 			if(Seg[i-3,2]=="2015" && nchar(aux1)<99) Seg[i-3,2]<-"NA"
					}

			Censo.Cond<-matrix("A",3,2)
				for (i in 8:10){
					aux<-str_trim(substring(a[i],1,110))
					if(i==9) {aux<-a[i]}
					aux<-as.matrix(unlist(strsplit(aux," ")))
					aux<-as.vector(aux[which(nchar(aux)!=0),])
					Censo.Cond[i-7,1]<-paste0(c("Conductores",aux[2]),collapse=" ")
					Censo.Cond[i-7,2]<-aux[length(aux)]
				}

			sinITV<-matrix("A",3,2)
				for(i in 38:40){
					aux<-as.matrix(unlist(strsplit(a[i]," ")))
					aux<-as.vector(aux[which(nchar(aux)!=0),])
					sinITV[i-37,1]<-paste(str_trim(aux[2]),"sin ITV en vigor",collapse=" ")
					sinITV[i-37,2]<-str_trim(aux[3])
			}

			parque<-matrix("A",6,2)
			antiguedad<-matrix("A",6,2)
			for(i in 15:20){
				aux<-as.matrix(unlist(strsplit(a[i]," ")))
				aux<-as.vector(aux[which(nchar(aux)!=0),])
				if(i==18) {aux<-aux[1:5]}
				if(i==15) {aux<-c(aux[1],paste0(aux[2:5],collapse=" "),aux[6],"100",aux[7])}
				parque[i-14,1]<-paste0(c("Parque",aux[2]),collapse=" ")
				antiguedad[i-14,1]<-paste0(c("Antiguedad",aux[2]),collapse=" ")
				parque[i-14,2]<-str_trim(aux[3])
				antiguedad[i-14,2]<-str_trim(aux[5])
			}
			nn<-as.matrix(unlist(strsplit(a[2]," ")))
			nn<-as.vector(nn[which(nchar(nn)!=0),])
			nn<-nn[which(nn=="Municipio:"):(which(nn=="Provincia:")-1)]
			if(length(nn)>2){
				Nombre<-matrix(c(nn[1],paste0(nn[2:length(nn)],collapse=" ")),1,2)
			} else {
				Nombre<-matrix(c(nn[1:2]),1,2)
			}
			salida<-t(rbind(Nombre, parque, antiguedad, Censo.Cond, Seg))
			cols<-salida[1,]
			#ifelse(k==1,colnames(salida)<-cols,colnames(salida)<-names(base))
			colnames(salida)<-cols
			salida<-salida[-1,]
			salida<-as.data.frame(t(salida)) ; rownames(salida)<-NULL
			return(salida)	
}