exemplo_download.R

# install.packages("remotes")
# remotes::install_github("jjesusfilho/tjsp")

# processo a ser acessado
processo <- "15012667120228260617"

# autenticação: precisa fazer uma vez por sessão, apenas
tjsp::autenticar("CPF", "SENHA")

# baixa a tabela de documentos do processo

dir_metadados <- fs::dir_create("metadados_processo")
tjsp::tjsp_cpopg_baixar_tabela_docs(processo, dir_metadados)

f <- "metadados_processo/tabela_cpopg_docs_processo_15012667120228260617.html"

# mostra a lista de documentos
tbl_docs <- tjsp::tjsp_ler_tabela_docs(f)
dplyr::glimpse(tbl_docs)

# aqui, você pode filtrar a tabela para pegar uma lista menor de documentos

tbl_docs_baixar <- tbl_docs |> 
  dplyr::filter(stringr::str_detect(doc_name, "Auto de Prisão"))

# cria uma pasta para salvar arquivos
dir_files <- fs::dir_create("arquivos_pdf")
tbl_docs_baixar |> 
  tjsp::tjsp_baixar_cpopg_docs(dir_files)