Bases Entidades del Estado

Directorio de los miembros de las entidades del estado

• En esta primera base se presentan a todos los miembros que pertenecen a las distintas entidades del estado.
  • Fuente: https://www.gob.pe/estado/.
  • Queda pendiente sumar los miembros de las entidades de los gobiernos locales.

estado.peruano <- 
  rvest::read_html('https://www.gob.pe/estado') %>% 
  rvest::html_nodes('.power-card') %>% 
  rvest::html_attr('href')

# Numero de entidades (Sin considerar gobiernos locales)
n.entidades <- length(estado.peruano)-1

BD.Final.miembros <- NULL
estado.miembros <- NULL
for (i in 1:n.entidades) {
  
  i.entidad <- estado.peruano[i]
  
  i.ent.participantes <- 
    paste0('https://www.gob.pe', i.entidad) %>% 
    rvest::read_html() %>% 
    rvest::html_nodes('p') %>% 
    rvest::html_nodes('a') %>% 
    rvest::html_attr('href')
  
  estado.miembros[[i.entidad]] <- i.ent.participantes
  i.n.participantes <- length(i.ent.participantes)
  
  for (j in 1:i.n.participantes) {
    
    j.participante <- i.ent.participantes[j]
    
    miembros <- NULL
    for (k in 1:100) {
      
      try(
        
        k.miembros <- 
          paste0('https://www.gob.pe/institucion', j.participante, '/funcionarios?sheet=', k) %>% 
          rvest::read_html() %>% 
          rvest::html_elements('h3') %>% 
          rvest::html_text2()
         
      )
      
      if (length(k.miembros) != 0) {
        
        miembros[[paste('pagina', k)]] <- k.miembros
        
      } else break
      
    }
    
    BD.miembros <- 
      miembros %>% 
      unlist %>% 
      tidyr::as_tibble()
  
    Nombres <- BD.miembros %>% dplyr::filter(dplyr::row_number() %% 2 != 0)
    Cargos <- BD.miembros %>% dplyr::filter(dplyr::row_number() %% 2 == 0)
    
    union <- 
      dplyr::bind_cols(Nombres, Cargos) %>% 
      setNames(., c('Nombre', 'Cargo')) %>% 
      dplyr::mutate(Entidad = i.entidad, Participante_entidad = j.participante) %>% 
      dplyr::select(Entidad, Participante_entidad, dplyr::everything())
    
    BD.Final.miembros <- 
      BD.Final.miembros %>% 
      dplyr::bind_rows( union )
    
  }
  
  
}

## Error in open.connection(x, "rb") : HTTP error 404.

BD.Final.miembros %>%
  DT::datatable(
    extensions = 'Buttons',
    rownames = F,
    filter = 'top',
    caption = 'Miembros del estado peruano',
    options = list(dom = 'Bfrtip',
                   buttons = list('excel', "csv")))

Administrativos: Portal de transparencia

• En esta segunda base se presenta a todas las personas que administran y proporcionan la informacion en el portal de transparencia.
  • Fuente: https://www.transparencia.gob.pe/personal/pte_presentar_administradores.aspx?id_entidad=144

pages02 <- NULL
for (i in 1:300) {
  
  i.page <- 
    paste0('https://www.transparencia.gob.pe/personal/pte_presentar_administradores.aspx?id_entidad=', i) %>% 
    xml2::read_html() %>% 
    rvest::html_table(header = T) %>% 
    .[[1]]
  
  if (ncol(i.page) == 1) {
    next
  }
  
  pages02[[paste(i)]] <- 
    i.page %>% 
    dplyr::select(!is.logical)
  
}

pages02 <- lapply(X = pages02, FUN = function(x){x[, 4] <- as.character(x[, 4]); x})

Transp_BD02 <- bind_rows(pages02)

Transp_BD02 %>%
  DT::datatable(
    extensions = 'Buttons', 
    filter = 'top',
    rownames = F, 
    caption = 'Portal de transparencia', 
    options = list(dom = 'Bfrtip', 
                   buttons = list('excel', "csv")))