Update googleVision-LIB.R

shaun-jacks · web-flow · commit 6c2909d750ed · 2019-02-10T03:24:57.000-08:00
added more extensions
diff --git a/R/googleVision-LIB.R b/R/googleVision-LIB.R
@@ -52,6 +52,12 @@ extractResponse <- function(pp, feature){
   if (feature == "LANDMARK_DETECTION") {
     return(pp$content$responses$landmarkAnnotations[[1]])
   }
+  if (feature == "IMAGE_PROPERTIES") {
+    return(pp$content$responses$imagePropertiesAnnotation[[1]])
+  }
+  if (feature == "SAFE_SEARCH_DETECTION") {
+    return(pp$content$responses$safeSearchAnnotation)
+  }
   if (feature == "OBJECT_LOCALIZATION") {
     return(pp$content$responses$localizedObjectAnnotations[[1]])
   }

Original file line number	Diff line number	Diff line change
`@@ -52,6 +52,12 @@ extractResponse <- function(pp, feature){`
`52`	`52`	`if (feature == "LANDMARK_DETECTION") {`
`53`	`53`	`return(pp$content$responses$landmarkAnnotations[[1]])`
`54`	`54`	`}`
	`55`	`+ if (feature == "IMAGE_PROPERTIES") {`
	`56`	`+ return(pp$content$responses$imagePropertiesAnnotation[[1]])`
	`57`	`+ }`
	`58`	`+ if (feature == "SAFE_SEARCH_DETECTION") {`
	`59`	`+ return(pp$content$responses$safeSearchAnnotation)`
	`60`	`+ }`
`55`	`61`	`if (feature == "OBJECT_LOCALIZATION") {`
`56`	`62`	`return(pp$content$responses$localizedObjectAnnotations[[1]])`
`57`	`63`	`}`