course_gpt3 <- function(val, temp){
initPrompt <- "Classify each dish by its country of origin"
catPrompt = paste0("prompt : ", initPrompt,
"\ndish: " , kw1 , ", country :" , Cl1 ,
"\ndish: " , kw2 , ", country :" , Cl2 ,
"\ndish: " , kw3 , ", country :" , Cl3 ,
"\ndish: " , kw4 , ", country :" , Cl4 ,
"\ndish: " , kw5 , ", country :" , Cl5 ,
"\n\ndish: ",val,", country :")
result <- create_completion(
strsplit(result,"\n")[[1]][1]