R/get,empresa.R

In amvallone/DataSpa: Collect Spanish data at municipality level

# Crea las URLs de las empresas para extraer informacion


get.empresas<-function(http){
			h<-read_html(http)
			l.e<-html_node(h,css="table")
			g<-html_children(html_nodes(html_node(l.e,css="tbody"),css="td"))
			e<-html_attr(g,"href")
			e<-e[complete.cases(e)==TRUE]
			www<-rep("http:",length(e))
			w.e<-paste(www,e,sep="")
			w.e
		}