Intégrer chatGPT dans R

install.packages("chatgpt")

library(chatgpt)

Sys.setenv(OPENAI_API_KEY = "XXXXXXXXXXXXXXXXXXXX")

consigne <- "Un code R court (sans aucune explication !) pour analyser l'effet de Species dans les données iris. Interdiction d'utiliser ggplot."

cat(consigne)

# Générer du texte avec ChatGPT - On lui demande ici du code.

generated_text <- ask_chatgpt(consigne)

cat(generated_text)

library(stringr)

code <- str_split_fixed(generated_text, "``` r\n",2)

cat(code[,2])

# Supprimer les balises à la fin du texte

code <- gsub("```$", "", code[,2])

# Évaluer le texte généré comme du code R - Hop, le code fabriqué par GPT s'exécute

eval(parse(text = code[1]))

Le mieux, ce sera toujours de compiler le traitement dans une fonction :

library(stringr)

exec_chatgpt_code <- function(output_chatgpt) {

code <- str_split_fixed(output_chatgpt, "```",3) #```

#cat(code[,2])

# Supprimer les balises à la fin du texte

code <- gsub("```", "", code[,2])

code <- gsub("r\n", "", code)

# Évaluer le texte généré comme du code R - Hop, le code fabriqué par GPT s'exécute

eval(parse(text = code[1]))

}

Il semble possible d'intégrer  Bard de Google de  la même façon dans R ou python, ce qui permettrait d'automatiser la lecture et l'évaluation de fichiers, un rêve. Voici quelques sources :

1. Intégrer Bard dans R

2. Intégrer Bard dans python (possibilité de lire automatiquement des images ou des pdf convertis)