PDF a texto

Teoría

El Reconocimiento óptico de Caracteres (OCR) es una tecnología utilizada para convertir diferentes tipos de documentos, como imágenes, documentos impresos escaneados, fotografías de texto, archivos PDF, o imágenes capturadas con una cámara, en datos editables y buscables.

Instalar paquetes y llamar librerias

#install.packages ("tesseract") 
library(tesseract) 
#install.packages("magick") 
library(magick) 
#install.packages("officer") 
library(officer) 
#install.packages("pdftools") 
library(pdftools)
#install.packages("purrr") 
library(purrr)

#Obtener texto de un pdf

#file.choose()
pdf1 <- pdf_convert("/Users/agustingomezperez/Desktop/Inteligencia Artificial/eso3.pdf", dpi = 600) %>% map(ocr)

## Converting page 1 to eso3_1.png... done!
## Converting page 2 to eso3_2.png... done!
## Converting page 3 to eso3_3.png... done!

pdf1

## [[1]]
## [1] "Y alli estaba, persiguiendo su barco de papel por el lado izquierdo de Witcham Street. Corria\ndeprisa, pero el agua le ganaba y el barquito estaba sacando ventaja. Oyo un rugido profundo y\nvio como cincuenta metros mas adelante, colina abajo, el agua de la cuneta se precipitaba\ndentro de una boca de tormenta que aun continuaba abierta. Era un largo semicirculo oscuro\nabierto en el bordillo de la acera y mientras George miraba, una rama desgarrada, con la corteza\noscura y reluciente se hundio en aquellas fauces. Alli pendio por un momento y luego se deslizo\nhacia el interior. Hacia alli se encaminaba su bote.\n\n—jiMierda! —chillo horrorizado.\n\nForzo el paso y, por un momento, parecio que iba a alcanzar al barquito. Pero uno de sus pies\nresbalo y George cayo despatarrado despellejandose la rodilla con un grito de dolor. Desde su\nnueva perspectiva, a la altura del pavimento, vio que su barco giraba en redondo dos veces,\nmomentaneamente atrapado en otro remolino, antes de desaparecer.\n\n—jiMierda y mas mierda! —volvio a chillar, estrellando el puno contra el pavimento.\n\nEso tambien dolio, y se echo a sollozar. iQue manera tan estupida de perder el barco!\n\nSe levanto para caminar hacia la boca de tormenta y alli se dejo caer de rodillas, para mirar hacia\nel interior. EL agua hacia un ruido hueco y humedo al caer en la oscuridad. Ese sonido le daba\nescalofrios. Hacia pensar en...\n\n—jEh!\n\nLa exclamacion le fue arrancada como con un cordel. Retrocedio.\n\nAlli adentro habia unos ojos amarillos. Ese tipo de ojos que el siempre imaginaba, sin verlos\nnunca, en la oscuridad del sotano. Es un animal —penso, incoherente—; eso es todo: un animal; a lo\nmejor un gato que quedo atrapado...\n\nDe todos modos, estaba por echar a correr; habria corrido Uno o dos segundos, cuando su\ntablero mental se hubiera hecho cargo del espanto que le produjeron esos dos ojos amarillos y\nbrillantes. Sintio la aspera superficie del pavimento bajo los dedos y la fina lamina de agua fria\nque corria alrededor. Se vio a si mismo levantandose y retrocediendo. Y fue entonces cuando\nuna voz, Una voz perfectamente razonable y bastante simpatica, le hablo desde dentro de la\nboca de tormenta:\n\n—Hola, George —dijo.\n\nGeorge parpadeo y volvio a mirar. Apenas podia dar credito a lo que vela; era como algo sacado\nde un cuento o de una pelicula donde uno sabe que los animales hablan y bailan. Si hubiera\ntenido diez anos mas, no habria creido en lo que estaba viendo; pero no tenia dieciseis anos, sino\nSEIS.\n\nEn la boca de tormenta habia un payaso. La luz distaba de ser buena, pero basto para que\nGeorge Denbrough estuviese seguro de lo que vela. Era un payaso, como en el circo o en la tele.\nParecia una mezcla de Bozo y Clarabell, el que hablaba haciendo sonar su bocina en Howdy\nDoody, los sabados por la manana. Bufalo Bob era el unico que entendia a Clarabell, y eso\nsiempre hacia reir a George. La cara del payaso metido en la boca de tormenta era blanca; tenia\ncomicos mechones de pelo rojo a cada lado de la calva y Una gran sonrisa de payaso pintada\n"
## 
## [[2]]
## [1] "alrededor de la boca. Si George hubiese vivido anos despues, habria pensado en Ronald\nMcDonald antes que en Bozo o en Clarabell.\n\nEl payaso tenia en una mano un manojo de globos de todos los colores, como tentadora fruta\nmadura.\n\nEn la otra, el barquito de papel de George.\n\n—- Quieres tu barquito, Georgie? —El payaso sonrelia.\n\nGeorge tambien sonrio. No podia evitarlo; aqguella sonrisa era del tipo que uno devuelve sin\nquerer.\n\n—Por supuesto.\n\nEl payaso se echo a relr.\n\n—«Por supuesto». iIASi me gusta! iAsi me gusta! ¢Y un globo? ¢Que te parece? ¢Quieres un globo?\n—Bueno.. Si, por Supuesto. —Alargo la mano, pero de inmediato la retiro contra su voluntad—. No\ndebo coger nada que me ofrezca un desconocido. Lo dice mi papa.\n\n—Y tu papa tiene mucha razon —replico el payaso de la boca de tormenta sonriendo. George se\nopregunto como podia haber creido que sus ojos eran amarillos, si eran de un color azul brillante,\nbailarin, como los ojos de su mama y de Bill—. Muchisima razon, ya lo creo. Por lo tanto, voy a\noresentarme. George, soy el senor Bob Gray, tambien conocido como Pennywise, el payaso\nBailarin. Pennywise, te presento a George Denbrough. George, te presento a Pennywise. Y ahora\nya nos conocemos. Yo no soy un desconocido y tu tampoco. ¢Correcto?\n\nGeorge solto una risita.\n\n—Correcto. —Volvio a estirar la mano.. y a retirarla—. ¢Como te metiste alli adentro?\n\n—La tormenta me trajo volaaaando —dijo Pennywise, el payaso Bailarin—. Se llevo todo el circo.\néNo sientes olor a circo, George?\n\nGeorge se inclino hacia adelante. iDe pronto olia a cacahuetes! iCacahuetes tostados! iY vinagre\nblanco, del que se pone en las patatas fritas por un agujero de la tapa! Y olia a algodon de\nazucar, a bunuelos, y tambien, leve, pero poderosamente, a estiercol de animales salvajes. Olia el\naroma regocijante del aserrin. Y sin embargo...\n\nSin embargo, bajo todo eso olia a inundacion, a hojas deshechas y a oscuras sombras en bocas\nde tormenta. Era un olor humedo y putrido. El olor del sotano.\n\nPero los otros olores eran mas fuertes.\n\n—Claro que lo huelo —dijo.\n\n—- Quieres tu barquito, George? —pregunto Pennywise—. Te lo pregunto otra vez porque no\npareces desearlo mucho.\n"
## 
## [[3]]
## [1] "Y lo mostro en alto, sonriendo. Llevaba un traje de seda abolsado con grandes botones color\nnaranja. Una corbata brillante, de color azul electrico, se le derramaba por la pechera. En las\nmanos llevaba grandes guantes blancos, como Mickey y Donald.\n\n—Si, 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 acentuo—. Oh, si, claro que si. iFlotan! Tambien tengo\nalgodon de azucar..\n\nGeorge estiro la mano.\n\nEl payaso le sujeto el brazo.\n\nY entonces George vio como la cara del payaso cambiaba.\n\nLo que vio entonces fue tan terrible que lo peor que habia imaginado sobre la cosa del sotano\nparecia un dulce sueno. Lo que vio destruyo su cordura de un Zarpazo.\n\n—Flotan —croo la cosa de la alcantarilla con una voz que rela como entre coagulos.\n\nSujetaba el brazo de George con su puno grueso y agusanado. Tiro de el hacia esa horrible\noscuridad por donde el agua corria y rugia y aullaba llevando hacia el mar los desechos de la\ntormenta. George estiro el cuello para apartarse de esa negrura definitiva y empezo a gritar hacia\nla lluvia, a gritar como un loco hacia el gris cielo otonal que se curvaba sobre Derry aquel dia de\notono de 1957. Sus gritos eran agudos y penetrantes y a lo largo de toda la calle, la gente se\nasomo a las ventanas o se lanzo a los porches.\n\n—Flotan —gruno la cosa—, flotan, Georgie. Y cuando estes aqui abajo, conmigo, tu tambien\nflotaras.\n\nEl hombro de George se clavo contra el cemento del bordillo. Dave Gardener, que ese dia no\nhabia ido a trabajar al Shoeboat debido a la inundacion, vio solo a un nino de impermeable\namarillo, un nino que gritaba y se retorcia en el arroyo mientras el agua lodosa le corria sobre la\ncara haciendo que sus alaridos sonaran burbujeantes.\n\n—Aqul abajo todo flota —susurro esa voz podrida, riendo, y de pronto sono un desgarro y hubo\nun destello de agonia y George Denbrough ya no supo mas.\n\nDave Gardener fue el primero en llegar. Aunque llego solo cuarenta y cinco segundos despues\ndel primer grito, George Denbrough ya habia muerto. Gardener lo agarro por el impermeable, tiro\nde el hasta sacarlo a la calle... y al girar en Sus manos el cuerpo de George, tambien el empezo a\ngritar. El lado izquierdo del impermeable del nino estaba de un rojo Intenso. La sangre flulia hacia\nla alcantarilla desde el agujero donde habia estado el brazo Izquierdo. Un trozo de hueso,\nhorriblemente brillante, asomaba por la tela rota.\n\nLos ojos del nino miraban fijamente el cielo gris y mientras Dave retrocedia a tropezones hacia\nlos otros que ya corrian por la calle, empezaron a llenarse de lluvia.\n"

#Guardar texto en WORD

doc1 <- read_docx()
doc1 <- doc1 %>% body_add_par(pdf1[[1]], style = "Normal")
print(doc1, target = "pdf1enpdf.docx")

doc1 <- read_docx()
doc1 <- doc1 %>% body_add_par(pdf1[[2]], style = "Normal")
print(doc1, target = "pdf1enpdf2.docx")

doc1 <- read_docx()
doc1 <- doc1 %>% body_add_par(pdf1[[3]], style = "Normal")
print(doc1, target = "pdf1enpdf3.docx")

#Conclusiones

El OCR es una tecnología que nos permite hacer más eficiente las operaciones de la empresa, ahorrando costos en la captura de la información.