library(pdftools) library(dplyr) library(tidyverse) options(max.print = 1000000) choose.files() files<-list.files("C:/Users/nana/Documents/GHANA INFO/GH_ News Ag