tpus webservice

tpu.R

tpu_ultima_versao <- function(){
  
 url1 <- "https://www.cnj.jus.br/sgt/sgt_ws.php"
 
 corpo <-  '<soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:sgt="https://www.cnj.jus.br/sgt/sgt_ws.php">
    <soapenv:Header/>
    <soapenv:Body>
    <sgt:getDataUltimaVersao/>
    </soapenv:Body>
    </soapenv:Envelope>'
 
 httr::POST(url1, body = corpo) |> 
   httr::content() |> 
   xml2::xml_find_first("//return") |> 
   xml2::xml_text() |> 
   lubridate::dmy()
}

tpu_pesquisa_item_publico <- function(tabela, tipo, valor){

url1 <- "https://www.cnj.jus.br/sgt/sgt_ws.php"
  
corpo <- glue::glue('
  <soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:sgt="https://www.cnj.jus.br/sgt/sgt_ws.php">
    <soapenv:Header/>
    <soapenv:Body>
    <sgt:pesquisarItemPublicoWS>
    <tipoTabela>{tabela}</tipoTabela>
    <tipoPesquisa>{tipo}</tipoPesquisa>
    <valorPesquisa>{valor}</valorPesquisa>
    </sgt:pesquisarItemPublicoWS>
    </soapenv:Body>
    </soapenv:Envelope>'
)

r1 <- httr::POST(url1, body = corpo)

}