#Función consulta pais, para un periodo especifico
funcion_consulta_pais<-function (iso_pais,anio_inicio,anio_final){
enquo(iso_pais)->iso_pais
pwt9.0 %>% filter(isocode==!!iso_pais, year>=anio_inicio, year<=anio_final)->df
return (df)
}