#install.packages(“tesseract”) #install.packages(“magick”) #install.packages(“officer”) #install.packages(“pdftools”)
library(tesseract)
library(magick)## Linking to ImageMagick 6.9.12.98
## Enabled features: cairo, freetype, fftw, ghostscript, heic, lcms, pango, raw, rsvg, webp
## Disabled features: fontconfig, x11library(officer)
library(pdftools)## Using poppler version 23.08.0pdf_file <- "C:\\Users\\Derek\\Documents\\eso3.pdf"
imagenes <- image_read_pdf(pdf_file, density = 300)tesseract_download("spa")## [1] "C:\\Users\\Derek\\AppData\\Local\\tesseract5\\tesseract5\\tessdata/spa.traineddata"tesseract_engine <- tesseract("spa")doc1 <- read_docx()for (i in 1:length(imagenes)) {
imagen <- imagenes[i] %>% image_convert(format = "png") # Convertir la imagen a PNG para evitar problemas de formato
texto <- ocr(imagen, engine = tesseract_engine)
# Agregar el texto extraído al documento
doc1 <- doc1 %>% body_add_par(texto, style = "Normal")
}
print(doc1)## rdocx document with 4 element(s)
##
## * styles:
## Normal heading 1 heading 2
## "paragraph" "paragraph" "paragraph"
## heading 3 Default Paragraph Font Normal Table
## "paragraph" "character" "table"
## No List strong centered
## "numbering" "character" "paragraph"
## table_template Light List Accent 2 Titre 1 Car
## "table" "table" "character"
## Titre 2 Car Titre 3 Car Image Caption
## "character" "character" "paragraph"
## Table Caption Table Professional toc 1
## "paragraph" "table" "paragraph"
## toc 2 Balloon Text Texte de bulles Car
## "paragraph" "paragraph" "character"
## reference_id graphic title table title
## "character" "paragraph" "paragraph"
##
## * Content at cursor location:
## level num_id
## 1 NA NA
## text
## 1 Y lo mostró en alto, sonriendo. Llevaba un traje de seda abolsado con grandes botones color\nnaranja. Una corbata brillante, de color azul eléctrico, se le derramaba por la pechera. En las\nmanos llevaba grandes guantes blancos, como Mickey y Donald.\n\n—Sí, claro —dijo George, mirando dentro de la boca de tormenta.\n\n—¿Y un globo? Los tengo rojos, verdes, amarillos, azules..\n\n—¿Flotan?\n\n—¿Que si flotan? —La sonrisa del payaso se acentuó—. Oh, sí, claro que sí. iFlotan! También tengo\nalgodón de azúcar...\n\nGeorge estiró la mano.\n\nEl payaso le sujetó el brazo.\n\nY entonces George vio cómo la cara del payaso cambiaba.\n\nLo que vio entonces fue tan terrible que lo peor que había imaginado sobre la cosa del sótano\nparecía un dulce sueño. Lo que vio destruyó su cordura de un zarpazo.\n\n—Flotan —croó la cosa de la alcantarilla con una voz que reía como entre coágulos.\n\nSujetaba el brazo de George con su puño grueso y agusanado. Tiró de él hacia esa horrible\noscuridad por donde el agua corría y rugía y aullaba llevando hacia el mar los desechos de la\ntormenta. George estiró el cuello para apartarse de esa negrura definitiva y empezó a gritar hacia\nla lluvia, a gritar como un loco hacia el gris cielo otoñal que se curvaba sobre Derry aquel día de\notoño de 1957. Sus gritos eran agudos y penetrantes y a lo largo de toda la calle, la gente se\nasomó a las ventanas o se lanzó a los porches.\n\n—Flotan —gruñó la cosa—, flotan, Georgie. Y cuando estés aquí abajo, conmigo, tú también\nflotarás.\n\nEl hombro de George se clavó contra el cemento del bordillo. Dave Gardener, que ese día no\nhabía ido a trabajar al Shoeboat debido a la inundación, vio sólo a un niño de impermeable\namarillo, un niño que gritaba y se retorcía en el arroyo mientras el agua lodosa le corría sobre la\ncara haciendo que sus alaridos sonaran burbujeantes.\n\n—Aquí abajo todo flota —susurró esa voz podrida, riendo, y de pronto sonó un desgarro y hubo\nun destello de agonía y George Denbrough ya no supo más.\n\nDave Gardener fue el primero en llegar. Aunque llegó sólo cuarenta y cinco segundos después\ndel primer grito, George Denbrough ya había muerto. Gardener lo agarró por el impermeable, tiró\nde él hasta sacarlo a la calle.. y al girar en sus manos el cuerpo de George, también él empezó a\ngritar. El lado izquierdo del impermeable del niño estaba de un rojo intenso. La sangre fluía hacia\nla alcantarilla desde el agujero donde había estado el brazo izquierdo. Un trozo de hueso,\nhorriblemente brillante, asomaba por la tela rota.\n\nLos ojos del niño miraban fijamente el cielo gris y mientras Dave retrocedía a tropezones hacia\nlos otros que ya corrían por la calle, empezaron a llenarse de lluvia.\n
## style_name content_type
## 1 Normal paragraphprint(doc1, target = "texto_extraido.docx")