From e594185719f44a3e879b2fdac574e43bdc3e5fd1 Mon Sep 17 00:00:00 2001
From: Erik de Vries <erik@devries.pm>
Date: Fri, 30 Aug 2019 13:51:59 +0200
Subject: [PATCH] dfm_gen: set default cores to 1

---
 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 d174ace..9f98507 100644
--- a/R/dfm_gen.R
+++ b/R/dfm_gen.R
@@ -18,7 +18,7 @@
 
 # filter(`_source.codes.timeSpent` != -1) %>% ### Exclude Norwegian summer sample hack
 
-dfm_gen <- function(out, words = '999', text = "lemmas", clean, cores = detectCores()) {
+dfm_gen <- function(out, words = '999', text = "lemmas", clean, cores = 1) {
   # 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