From 6bb8f9b635ea83c8695658ba8cf3fafe4a72ddbb Mon Sep 17 00:00:00 2001
From: Erik de Vries <erik@devries.pm>
Date: Tue, 13 Nov 2018 17:01:56 +0100
Subject: [PATCH] class_update: added explicit httr::: references

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

diff --git a/R/class_update.R b/R/class_update.R
index 187036c..2ccf484 100644
--- a/R/class_update.R
+++ b/R/class_update.R
@@ -21,8 +21,8 @@ class_update <- function(out, localhost = T, model_final, dfm_words, varname, es
   pred <- data.frame(id = out$`_id`, pred = predict(model_final, newdata = dfm))
   bulk <- apply(pred, 1, bulk_writer, varname = varname, type = 'set')
   res <- elastic_update(bulk, es_super = es_super, localhost = localhost)
-  stop_for_status(res)
-  appData <- content(res)
+  httr:::stop_for_status(res)
+  appData <- httr:::content(res)
   if (appData$errors == T){
     print(appData)
     stop("Aborting, errors found during updating")