diff --git a/R/dfm_gen.R b/R/dfm_gen.R
index be336fb..375f49e 100644
--- a/R/dfm_gen.R
+++ b/R/dfm_gen.R
@@ -16,7 +16,7 @@
 
 # filter(`_source.codes.timeSpent` != -1) %>% ### Exclude Norwegian summer sample hack
 
-dfm_gen <- function(out,words = '999', text = c("lemmas","full")) {
+dfm_gen <- function(out,words = '999', text = "lemmas") {
   # Create subset with just ids, codes and text
   out <- out %>%
     select(`_id`, matches("_source.*")) ### Keep only the id and anything belonging to the source field