From 709628702be79fb7fa42b981d6171c26c54ab8d8 Mon Sep 17 00:00:00 2001
From: dchakro <35454738+dchakro@users.noreply.github.com>
Date: Thu, 22 Jun 2023 08:28:28 -0700
Subject: [PATCH] add code to invoke gptstudio API

---
 r.snippets.txt | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/r.snippets.txt b/r.snippets.txt
index a92ef8c..10adf4e 100644
--- a/r.snippets.txt
+++ b/r.snippets.txt
@@ -231,4 +231,8 @@ snippet objectSize
 snippet unMelt
 	mat <- data.table::dcast.data.table(${1:myDT}, ${2:row} ~ ${3:col}, value.var = "${4:value}")
 	${0}
-	
\ No newline at end of file
+		
+snippet gptAPI
+	Sys.setenv(OPENAI_API_KEY = "sk-YOURKEYHERE")
+	options(gptstudio.max_tokens = 200)
+	${0}
\ No newline at end of file