Search
Use the ccc_search() function to look up some cases.
results <- ccc_search(
text = "familia",
date_start = "2000-01-01",
date_end = "2001-12-31"
)
glimpse(results)
#> Rows: 1,552
#> Columns: 20
#> $ prov_magistrados <list> "Marco Gerardo Monroy Cabra", "Alfredo Beltrán …
#> $ prov_demandado <chr> "", "", "", "Sin Información", "Sin Información"…
#> $ prov_f_public <chr> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, …
#> $ prov_expediente <chr> "D-3378", "D-2893", "T-322996", "455373", "43853…
#> $ prov_tema <chr> "ADOPCION. IMPOSIBILIDAD DEL LEGISLADOR DE AUTOR…
#> $ prov_sentencia <chr> "C-814/01", "C-1267/00", "T-893/00", "T-881/01",…
#> $ prov_resuelve <chr> "en nombre del pueblo y por mandato de la Consti…
#> $ prov_f_sentencia <chr> "2001-08-02", "2000-09-20", "2000-08-17", "2001-…
#> $ prov_descriptores <chr> "SENTENCIA INTEGRADORA POR OMISION LEGISLATIVA D…
#> $ prov_normas <list> "DECRETO 2737 DE 1989. ARTS. 89 Y 90 (PS.). “PO…
#> $ prov_proceso_terminos <list> "Demandas Ordinarias", "Demandas Ordinarias", "…
#> $ sala_seguimiento <chr> "Sala plena/Revisión", "Sala plena/Revisión", "S…
#> $ prov_demandante <chr> "LUIS EDUARDO MONTOYA MEDINA", "EDDY LUCIA ROJAS…
#> $ prov_tipo <chr> "Constitucionalidad", "Constitucionalidad", "Tut…
#> $ prov_sintesis <chr> "LEY 2737 DE 1989. ARTS. 89 Y 90 (P.). CODIGO DE…
#> $ prov_magistrado_otros <lgl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, …
#> $ url_relatoria <chr> "2001/C-814-01.htm", "2000/C-1267-00.htm", "2000…
#> $ citaciones_total <int> 66, 0, 12, 35, 9, 2, 2, 13, 20, 11, 47, 4, 11, 4…
#> $ prov_seguimiento <list> <NULL>, <NULL>, <NULL>, <NULL>, <NULL>, <NULL>,…
#> $ url <chr> "https://www.corteconstitucional.gov.co/relatori…This data is a little messy. The ccc_clean_dataset()
provides some useful tidying, but you might want to consider doing
things differently.
df <- ccc_clean_dataset(results)
glimpse(df)
#> Rows: 1,552
#> Columns: 8
#> $ id <chr> "T-001-00", "A-001-00", "T-002-00", "T-005-00", "T-006-00"…
#> $ type <fct> T, A, T, T, T, T, T, T, C, C, T, T, T, T, T, T, T, T, T, T…
#> $ year <int> 2000, 2000, 2000, 2000, 2000, 2000, 2000, 2000, 2000, 2000…
#> $ date <date> 2000-01-12, 2000-01-12, 2000-01-13, 2000-01-13, 2000-01-1…
#> $ descriptors <list> <"REVISION FALLO DE TUTELA-Fallecimiento del actor", "DER…
#> $ mp <list> "josé gregorio hernández galindo", "josé gregorio hernánd…
#> $ file <chr> "T-245392", "T-246504", "T-235171", "T-239345", "T-246480"…
#> $ url <chr> "https://www.corteconstitucional.gov.co/relatoria/2000/T-0…Download
Next you’ll want to download some texts. You can use either
ccc_txt() or ccc_rtf(). I prefer
ccc_txt() because it seems most .rtf files
don’t include footnotes.
This is how you download the first ruling:
txt <- ccc_txt(df$url[[1]])
#> https://www.corteconstitucional.gov.co/relatoria/2000/T-001-00.htmAnd this is how you’d download the first 5 rulings:
txts <- lapply(df$url[1:5], ccc_txt)
#> https://www.corteconstitucional.gov.co/relatoria/2000/T-001-00.htm
#> https://www.corteconstitucional.gov.co/relatoria/autos/2000/A001-00.htm
#> https://www.corteconstitucional.gov.co/relatoria/2000/T-002-00.htm
#> https://www.corteconstitucional.gov.co/relatoria/2000/T-005-00.htm
#> https://www.corteconstitucional.gov.co/relatoria/2000/T-006-00.htm
names(txts) <- df$id[1:5]
glimpse(txts)
#> List of 5
#> $ T-001-00: chr "\r\n Sentencia T-001/00\r\n\r\n \r\n DERECHO A LA ATENCION MEDICA INTEGRAL DE ANCIANO-Examen urgente/REVISION F"| __truncated__
#> $ A-001-00: chr "\r\n Auto 001/00\r\n\r\n \r\n DEBIDO PROCESO DE TUTELA-Notificaci�n iniciaci�n de la acci�n\r\n\r\n \r\n Si bie"| __truncated__
#> $ T-002-00: chr "\r\n Sentencia T-002/00\r\n\r\n \r\n EXTINCION DE DOMINIO-Bienes de pariente de presunto narcotraficante\r\n\r\"| __truncated__
#> $ T-005-00: chr "\r\n Sentencia T-005/00\r\n\r\n \r\n MEDIO DE DEFENSA JUDICIAL-Reintegro de mujer despedida por embarazo\r\n\r\"| __truncated__
#> $ T-006-00: chr "\r\n Sentencia T-006/00\r\n\r\n \r\n\r\n \r\n SENTENCIA INHIBITORIA EN TUTELA-Improcedencia\r\n\r\n \r\n Estatu"| __truncated__Each text will look something like this:
txts[[1]] |>
str_trunc(2000) |>
cat()
#>
#> Sentencia T-001/00
#>
#>
#> DERECHO A LA ATENCION MEDICA INTEGRAL DE ANCIANO-Examen urgente/REVISION FALLO DE TUTELA-Fallecimiento del actor
#>
#>
#> La Corte considera necesario subrayar que la actividad de las entidades responsables de mantener la seguridad social en cuanto se refiere a las personas de la tercera edad est�n sujetas a la exigencia espec�fica de cobijar todos los aspectos de la salud de los beneficiarios, que no otro es el significado de la expresi�n
#> "integral", usada por el Constituyente para referirse al contenido de la seguridad social que debe brindarse a los ancianos. Por tanto, el alcance de la protecci�n y de los servicios a cargo de tales entes va mucho m�s all� del puro tr�mite de citas y consultas m�dicas, pues comprende el diagn�stico, la prevenci�n, los tratamientos, los cuidados cl�nicos, los medicamentos, las cirug�as, las terapias y todos aquellos elementos de atenci�n que aseguren la eficiente cobertura de la seguridad social a favor de las personas de la tercera edad. La conducta negligente de la demandada y la negativa a brindar la atenci�n requerida, es muy factible que haya incidido y de manera definitiva, en su pronto deceso.
#>
#>
#> DERECHO A LA SALUD-Pr�ctica inmediata e
#> �ntegra de ex�menes ordenados
#>
#>
#> SENTENCIA INHIBITORIA EN TUTELA-Improcedencia
#>
#>
#> No pudiendo ser inhibitoria la decisi�n por mandato del art�culo 29, par�grafo, del Decreto 2591 de 1991, habr� de ser negativa, no por haberse encontrado indemnes los derechos invocados, ni por entenderse exonerada la persona o entidad demandada, sino justamente por ser in�til e irrealizable -dadas las circunstancias- el prove�do judicial, aun comprobada la conducta inconstitucional del sujeto pasivo de la demanda, como en el presente caso ocurre.
#>
#>
#> Referencia: Expediente T-245392
#>
#>
#> Acci�n de tutela instaurada por Mar�a Arledia Garc�a Garc�a contra el Seguro Social, Seccional Antioquia
#>
#>
#> Magistrado Ponente:
#> Dr. JOS� GREGORIO HERN�NDEZ GALINDO
#>
#>
#> ...Citations
Finally, you can extract_citations() for each individual
document as follows:
extract_citations(txts[[1]])
#> [1] "T-555-97" "T-366-99" "T-428-98" "T-607-99" "T-428-98" "T-001-00"Or you can do something like this for all documents:
lapply(txts, extract_citations)
#> $`T-001-00`
#> [1] "T-555-97" "T-366-99" "T-428-98" "T-607-99" "T-428-98" "T-001-00"
#>
#> $`A-001-00`
#> character(0)
#>
#> $`T-002-00`
#> [1] "T-002-00" "C-374-97"
#>
#> $`T-005-00`
#> [1] "C-470-97" "T-373-98" "T-005-00"
#>
#> $`T-006-00`
#> [1] "T-034-94" "T-486-94" "T-173-93" "C-112-98" "T-385-98" "T-006-00"