From 28989f2bc4cba1fafd9a8b30907d5b5d8441c9cb Mon Sep 17 00:00:00 2001
From: Erik de Vries <erik@devries.pm>
Date: Thu, 2 May 2019 13:21:22 +0200
Subject: [PATCH] dfm_gen: yet another fix for codes

---
 R/dfm_gen.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/dfm_gen.R b/R/dfm_gen.R
index fde93a2..d174ace 100644
--- a/R/dfm_gen.R
+++ b/R/dfm_gen.R
@@ -31,7 +31,7 @@ dfm_gen <- function(out, words = '999', text = "lemmas", clean, cores = detectCo
   }
   if ('_source.codes.majorTopic' %in% colnames(out)) {
     out <- out %>%
-      mutate(codes = .$`_source.codes.majorTopic`) %>%
+      mutate(codes = `_source.codes.majorTopic`) %>%
       mutate(junk = case_when(
           .$codes == 92 ~ 1,
           .$codes == 91 ~ 1,