Cacher is the code snippet organizer for pro developers

library(quanteda)
library(readtext)

#read corpus
corp <- readtext::readtext("C:/FactivaOut")
c <- corpus(corp)

#check corpus
summary(c,n=3)

#read dictionary
agile <- read.csv("C:/AgilityDict/Dictionary.csv")
terms <- as.vector(agile$term)

#check dictionary
head(terms,5)

#set up data frame 
df_total <- data.frame()

#loop terms
for (term in terms){
  kwickout <- kwic(c, term, window = 9, valuetype = "glob")
  df <- data.frame(kwickout)
  df_total <- rbind(df_total, df)
}

#check
dim(df_total)
dim(df)

#write to csv
write.csv(df_total,"C:/FactivaAnalysis/dfout.csv")