R/num.firm.a.R

In amvallone/DataSpa: Collect Spanish data at municipality level

#' @name num.firm.a
#' @rdname num.firm.a
#'
#' @title Collects the set of self-employed at a municipality level
#'
#' @description \code{num.firm.a} generates a data frame with the set of self-employed in a selected municipality
#'
#' @param provincia one of the 52 Spanish provinces. See \link{getbase.pob} for details.
#'
#' 
#'
#' @return It is a data frame 
#'
#' @family firm functions
#' @examples
#' \dontrun{num.firm.a("Araba")}
#'
#' @export



num.firm.a <- function(provincia){
	prov <- toupper(provincia)
	b <- "https://autonomos.axesor.es/informe-de-autonomo/provincias/"
	p <- c("albacete","alicante","almeria","alava","asturias","avila","badajoz","baleares","barcelona", "vizcaya","burgos","caceres","cadiz","cantabria","castellon","ciudad-real","cordoba","la-coruna","cuenca","guipuzcoa","girona","granada","guadalajara","huelva","huesca","jaen","leon","lleida","lugo","madrid","malaga","murcia","navarra","orense","palencia","las-palmas","pontevedra","la-rioja","salamanca","santa-cruz-de-tenerife","segovia","sevilla","soria","tarragona","teruel","toledo","valencia","valladolid","zamora","zaragoza","ceuta","melilla")
	names(p) <- c("ALBACETE","ALICANTE","ALMERIA","ARABA","ASTURIAS","AVILA","BADAJOZ","BALEARES","BARCELONA","BIZKAIA","BURGOS","CACERES","CADIZ","CANTABRIA","CASTELLON","CIUDAD REAL","CORDOBA","A CORU\u00D1A","CUENCA","GIPUZKOA","GIRONA","GRANADA","GUADALAJARA","HUELVA","HUESCA","JAEN","LEON","LLEIDA","LUGO","MADRID","MALAGA","MURCIA","NAVARRA","OURENSE","PALENCIA","LAS PALMAS","PONTEVEDRA", "LA RIOJA","SALAMANCA","TENERIFE","SEGOVIA","SEVILLA","SORIA","TARRAGONA","TERUEL","TOLEDO","VALENCIA","VALLADOLID","ZAMORA","ZARAGOZA","CEUTA","MELILLA")
	url <- paste(b,p[prov],sep="")
	mun <- municipio.a(url)
	aux <- sapply(mun,lista.empresa.a)
	n <- sapply(aux,length)
	names(n) <- NULL
	names.aux <- html_nodes(read_html(url),css="#bloque_listadoMunicipios")
	names <- html_text(html_children(html_nodes(names.aux,css="td")),"href")
	output <- data.frame("Municipality"=names, "N firms"=n)
	return(output)
}