if (FALSE) {
# Step 1: search PVLs and filter for approved ones
pvl_pe <- get_pvl(uf = "PE")
pvl_deferidos <- pvl_pe[pvl_pe$status == "Deferido", ]
# Step 2: pick an id_pleito from the APPROVED requests
id <- pvl_deferidos$id_pleito[1]
# Step 3: get processing status (only works for deferred PVLs)
status <- get_pvl_tramitacao(id_pleito = id)
}
Run the code above in your browser using DataLab