# Load readtext package

library(readtext)

## Read in Word data (.docx)

readtext(paste0(DATA_DIR, "/word/*.docx"))

## readtext object consisting of 2 documents and 0 docvars.

## # Description: df[,2] [2 × 2]

##   doc_id                      text               

##   <chr>                       <chr>              

## 1 UK_2015_EccentricParty.docx "\"The Eccent\"..."

## 2 UK_2015_LoonyParty.docx     "\"The Offici\"..."