GPT를 이용한 R code 수정(gptstudio)

open ai의 chatgpt 창이 아닌 rstuido에서 에러가 생긴 r code를 수정할 수 있다. 
 
1. 설치 후 불러오기
 
install.packages("gptstudio")
library(gptstudio)
 
2. open ai에서 api key 받은것 실행하기
 
Sys.setenv(OPENAI_API_KEY = "api_key")
 
3. 그리고 간단한 코드를 짜 본다.
 
앞에 썼던 로또 번호 추출 코드를 붙여 보았다.  그 중에 ) 하나를 빼 보았다. 
 

library(shiny)

ui <- fluidPage(
  actionButton("btn", "로또 번호 추첨")
)

server <- function(input, output, session) {
  observeEvent(input$btn, {
    number <- sample(1:46, 6, replace = FALSE)
    showModal(modalDialog(
      title = "로또 번호 추첨 완료",
      paste("당첨 번호: ", paste(number, collapse = " "))
    ))
  })
}

shinyApp(ui, server
 
4. 그리고 코드를 드래그 한 후 지난번에 add in 된 것에서 complete selected code 를 누른다. 

 
5. 그러면 에러가 수정된 코드가 나온다. 
 

*** ChatGPT output:
 
library(shiny)
 
ui <- fluidPage(
  actionButton('btn', '로또 번호 추첨')
)
 
server <- function(input, output, session) {
  observeEvent(input$btn, {
    number <- sample(1:46, 6, replace = FALSE)
    showModal(modalDialog(
      title = '로또 번호 추첨 완료',
      paste('당첨 번호: ', paste(number, collapse = ' '))
    ))
  })
}
 
shinyApp(ui, server)