In BrunoDaleffi/CrawlerCarf: A web scraper for the CARF system

knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

Downloading CARF jurisprudence data

dir <- "example-data/"
files <- carf::download_decision_year(2014, dir, min_page = 1, max_page = 50)

dir_2014 <- paste0(dir, "/2014")
list.files(dir_2014)

list.files("example-data/2014/")

dir_page01 <- paste0(dir_2014, "/page_0001/")
list.files(dir_2014)

list.files("example-data/2014/page_0001/")

Parsing jurisprudence data

parsed <- carf::parse_decision(files)

files <- list.files("example-data/2014/", pattern = "\\.html", recursive = TRUE, full.names = TRUE)
parsed <- carf::parse_decision(files)

parsed$decicions

parsed$pages

Downloading comprot data given lawsuits

ids <- unique(parsed$decicions$id_lawsuit)
carf::get_comprot(ids)

BrunoDaleffi/CrawlerCarf documentation built on May 7, 2019, 4:36 p.m.