EJEMPLO EJECUTIVO

#Paso 0

library(rvest)
## Warning: package 'rvest' was built under R version 4.0.5
urlGOB="https://www.gob.pe/institucion/presidencia/funcionarios"
pagina_webGOB=read_html(urlGOB)

#Columna “Nombre”:

css_nombre="h3.h.is-6.link.link--read-more-inline.is-bold"
nombre_html <- html_nodes(pagina_webGOB,css_nombre)
nombre_texto <- html_text(nombre_html)
head(nombre_texto)
## [1] "José Pedro Castillo Terrones"      "Dina Ercilia Boluarte Zegarra"    
## [3] "Arnulfo Bruno Pacheco Castillo"    "Ysmael Rafael Mayuri Quispe"      
## [5] "Auner Augusto Vásquez Cabrera"     "Aida Giovanna Cecilia Céliz Kuóng"

#Columna “Cargo”:

css_cargo="h3.font-light"
cargo_html <- html_nodes(pagina_webGOB, css_cargo)
cargo_texto <- html_text(cargo_html)
head(cargo_texto)
## [1] "Presidente de la República del Perú"                       
## [2] "Primera Vicepresidenta de la República del Perú"           
## [3] "Secretario General"                                        
## [4] "Subsecretario General"                                     
## [5] "Jefe de Gabinete Técnico de la Presidencia de la República"
## [6] "Jefe del Órgano de Control Institucional (e)"

#Base de datos:

dataEJECUTIVO <- data.frame(NOMBRE = nombre_texto, CARGO = cargo_texto)
head(dataEJECUTIVO)
##                              NOMBRE
## 1      José Pedro Castillo Terrones
## 2     Dina Ercilia Boluarte Zegarra
## 3    Arnulfo Bruno Pacheco Castillo
## 4       Ysmael Rafael Mayuri Quispe
## 5     Auner Augusto Vásquez Cabrera
## 6 Aida Giovanna Cecilia Céliz Kuóng
##                                                        CARGO
## 1                        Presidente de la República del Perú
## 2            Primera Vicepresidenta de la República del Perú
## 3                                         Secretario General
## 4                                      Subsecretario General
## 5 Jefe de Gabinete Técnico de la Presidencia de la República
## 6               Jefe del Órgano de Control Institucional (e)