jtrecenti
/ 04-stringr.R
Created
October 2, 2024 00:40
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| library(tidyverse) | |
| link_dados <- "https://github.com/jtrecenti/main-cdad2/releases/download/data/camaras.csv" | |
| camaras <- read_csv(link_dados) | |
| glimpse(camaras) | |
| camaras$ementa[2] |
jtrecenti
/ 04-stringr.R
Created
October 1, 2024 23:33
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| library(tidyverse) | |
| link_dados <- "https://github.com/jtrecenti/main-cdad2/releases/download/data/camaras.csv" | |
| camaras <- read_csv(link_dados) | |
| glimpse(camaras) | |
| camaras$ementa[2] |
jtrecenti
/ scraper_consumidor_gov.R
Created
September 23, 2024 21:51
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| u <- "https://consumidor.gov.br/pages/indicador/relatos/consultar" | |
| parametros <- list( | |
| indicePrimeiroResultado = 0, | |
| palavrasChave = "", | |
| segmentoMercado = 4, | |
| fornecedor = "", | |
| regiao = "", | |
| area = "", | |
| assunto = "", |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| install.packages("yfR") | |
| da <- yfR::yf_get( | |
| "AMER3.SA", | |
| first_date = "2024-05-15", | |
| last_date = "2024-06-04" | |
| ) |> | |
| dplyr::mutate( | |
| price_close = price_close / 100, |
jtrecenti
/ exemplo_download.R
Last active
August 2, 2024 00:24
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| # 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") |
jtrecenti
/ consumidor.r
Created
May 22, 2024 22:51
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| tibble::tibble() | |
| tribunais <- forosCNJ::da_tribunal |> | |
| dplyr::filter(id_justica == 8) |> | |
| dplyr::pull(sigla) |> | |
| tolower() | |
| endpoints <- glue::glue( | |
| "https://api-publica.datajud.cnj.jus.br/api_publica_{tribunais}/_search" | |
| ) |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| # Endpoint for SOAP requests | |
| endpoint_url <- 'https://www.cnj.jus.br/corregedoria/justica_aberta/ws.php' | |
| # XML payload, replace the method name and parameters as per actual API | |
| # This is a simplified example assuming a SOAP method called 'getServentiaJudicial' that accepts 'seq_orgao' as a parameter | |
| xml_payload <- '<soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:cor="https://www.cnj.jus.br/corregedoria/justica_aberta/ws.php"> | |
| <soapenv:Header/> | |
| <soapenv:Body> | |
| <cor:pesquisarServentiasJudiciais> | |
| <!--Optional:--> |
jtrecenti
/ exemplo-filter.R
Created
February 16, 2024 00:50
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| # reciclou mas deu um warning porque não é múltiplo | |
| tibble::tibble(x = c('a', 'b', 'c')) |> | |
| dplyr::filter(x == c('a', 'b')) | |
| #> Warning: There was 1 warning in `dplyr::filter()`. | |
| #> ℹ In argument: `x == c("a", "b")`. | |
| #> Caused by warning in `x == c("a", "b")`: | |
| #> ! comprimento do objeto maior não é múltiplo do comprimento do objeto menor | |
| #> # A tibble: 2 × 1 | |
| #> x | |
| #> <chr> |
jtrecenti
/ pesquisa_sexo_relator.r
Created
December 8, 2023 13:48
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| # arrumação dos dados para pesquisa | |
| moral_raw <- readxl::read_excel("moral.xlsx") | |
| sexual_raw <- readxl::read_excel("sexual.xlsx") | |
| moral <- moral_raw |> | |
| janitor::clean_names() |> | |
| dplyr::mutate( | |
| no_processo_original = no_processo, | |
| no_processo = abjutils::clean_cnj(no_processo) |
jtrecenti
/ chatgpt-pdf.r
Created
December 1, 2023 23:04
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| pdf_full <- pdftools::pdf_text("pdf_full.pdf") | |
| # 33-36, 38-39, 41-46, 48-49, 52-54, 56-61, 63-72, 74-77, 79-83, 85-91, 93-96, 98-100, 102-105 | |
| paginas <- c( | |
| 33:36, 38:39, 41:46, 48:49, | |
| 52:54, 56:61, 63:72, 74:77, | |
| 79:83, 85:91, 93:96, 98:100, |