From 0928805ebb04e94adfd28869659088bf06ba0698 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Sergio=20S=C3=A1nchez?= <sergiosanchez@artelnics.com>
Date: Thu, 5 Apr 2018 12:55:33 +0200
Subject: [PATCH] Add feature SAFE_SEARCH_DETECTION

---
 R/googleVision-LIB.R | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/R/googleVision-LIB.R b/R/googleVision-LIB.R
index f47ca0a..23e0875 100644
--- a/R/googleVision-LIB.R
+++ b/R/googleVision-LIB.R
@@ -54,6 +54,9 @@ extractResponse <- function(pp, feature){
   if (feature == "IMAGE_PROPERTIES") {
     return(pp$content$responses$imagePropertiesAnnotation[[1]]$colors)
   }
+  if (feature == "SAFE_SEARCH_DETECTION") {
+    return(pp$content$responses$safeSearchAnnotation)
+  }
 }