From b249ff22ded44ca5bfd225fcf2d7fc714108f5f6 Mon Sep 17 00:00:00 2001 From: Erik de Vries Date: Thu, 2 May 2019 13:04:13 +0200 Subject: [PATCH] dfm_gen.R: fixed junk mutation --- R/dfm_gen.R | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/R/dfm_gen.R b/R/dfm_gen.R index f261cc5..4b4db04 100644 --- a/R/dfm_gen.R +++ b/R/dfm_gen.R @@ -32,9 +32,9 @@ dfm_gen <- function(out, words = '999', text = "lemmas", clean, cores = detectCo if ('_source.codes.majorTopic' %in% colnames(out)) { out <- out %>% mutate(junk = case_when( - .$codes == 2301 ~ 1, - .$codes == 3101 ~ 1, - .$codes == 34 ~ 1, + .$codes == 92 ~ 1, + .$codes == 91 ~ 1, + .$codes == 93 ~ 1, TRUE ~ 0 ) ) %>%