From 3e66c7e1cde75d27e4eae2ed6ba9f6d094cd84dc Mon Sep 17 00:00:00 2001
From: Erik de Vries <erik@devries.pm>
Date: Wed, 7 Nov 2018 15:39:50 +0100
Subject: [PATCH] Updated dfm_gen to have all topic vectors as numeric
 variables

---
 R/dfm_gen.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/R/dfm_gen.R b/R/dfm_gen.R
index 375f49e..fee5173 100644
--- a/R/dfm_gen.R
+++ b/R/dfm_gen.R
@@ -37,10 +37,10 @@ dfm_gen <- function(out,words = '999', text = "lemmas") {
   }
   if ('_source.codes.majorTopic' %in% colnames(out)) {
     out <- out %>%
-      mutate(codes = case_when(
+      mutate(codes = as.numeric(case_when(
         .$`_source.codes.timeSpent` == -1 ~ NA_character_,
         TRUE ~ .$`_source.codes.majorTopic`
-      )
+      ))
       ) %>%
       mutate(junk = case_when(
         .$codes == 2301 ~ 1,