diff --git a/R/textEmbedding.R b/R/textEmbedding.R
index a63f221..56f5481 100644
--- a/R/textEmbedding.R
+++ b/R/textEmbedding.R
@@ -40,9 +40,11 @@ textEmbedding <- function(text,
 
   # Parse response
   content <- httr::content(response, "parsed")
+  #str(content$data[[1]])
 
   #convert to vector
   v <- unlist(content$data[[1]]$embedding)
+  #str(v)
 
   # Return vector
   return(v)