library(httr2)
library(rvest)

method_post <- function() {
    request("https://www.transparencia.gob.pe/contrataciones/pte_transparencia_ordenes.aspx") |> 
        req_body_form(
            ch_tipo_busqueda=1,
            id_entidad=2022, 
            id_tema=34, 
            Ver="", 
            in_anno_consulta=2021, 
            ch_mes_consulta=06, 
            cmb_buscar="Enviar"
        ) |> 
        req_perform()
}

method_get <- function() {
    request("https://www.transparencia.gob.pe/contrataciones/pte_transparencia_ordenes.aspx") |> 
        req_url_query(
            in_anno_consulta=2021, 
            ch_mes_consulta="06", 
            id_entidad=2022, 
            id_tema=34,
            pag=1
        ) |> 
        req_perform()
}

# Para procesar y obtener la tabla
table_get <- function(x) {
    x |> 
        resp_body_html() |> 
        html_element(".table") |> 
        html_table(header = TRUE)
}

# Unit: seconds
#  expr      min       lq     mean   median       uq      max neval
#  post 1.425692 2.205296 5.891176 3.355373 5.168499 37.72443    50
#   get 1.566802 2.386330 5.106356 3.495146 5.409074 37.90098    50