From 08d85f84d5e9ffbc19e99f6a3be34b78bdbe47db Mon Sep 17 00:00:00 2001
From: kumeS <satoshi.kume@a.riken.jp>
Date: Sun, 18 Feb 2024 16:50:04 +0900
Subject: [PATCH] Version 0.3

---
 R/textEmbedding.R | 2 ++
 1 file changed, 2 insertions(+)

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)