if (FALSE) {
# Search all PVLs for Pernambuco
pvl_pe <- get_pvl(uf = "PE")
# Search by IBGE code (Recife)
pvl_recife <- get_pvl(id_ente = 2611606)
# Use id_pleito from results for detail queries:
id <- pvl_pe$id_pleito[1]
pagamentos <- get_opc_cronograma_pagamentos(id_pleito = id)
cdp <- get_res_cdp(id_pleito = id)
# For PVL processing status, filter approved PVLs first:
deferidos <- pvl_pe[pvl_pe$status == "Deferido", ]
if (nrow(deferidos) > 0) {
status <- get_pvl_tramitacao(id_pleito = deferidos$id_pleito[1])
}
}
Run the code above in your browser using DataLab