#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) 
  }