dfm_gen: yet another fix for codes

5 years ago · 28989f2bc4
parent 0757b6bf8b
commit 28989f2bc4
1 changed files with 1 additions and 1 deletions
--- 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,