GPT를 이용한 Shiny app 만들기

GPT가 인기다. 

평소 R을 이용하여 데이터 시각화를 하고 있는 나에게 GPT가 RStudio에 붙었다는 기사를 보았다.

바로 gptstudio 라는 패키지다. 

 

사용법은 간단하다.

 

1. 먼저 gpt의 api key를 아래와 같이 넣어 실행한다.

 

Sys.setenv(OPENAI_API_KEY = "api key")

 

2. 그리고 gptstudio 라는 패키지를 설치하고 실행하다.

 

install.packages("gptstudio")
library(gptstudio)
gptstudio:::addin_chatgpt()

 

끝.

 

그러면 add in에 아래와 같은 것이 보인다.

 

 

3. 그러면 아래와 같은 창이 나오고, 여기에 한글로 내가 만들고자 하는 것을 적어 넣으면 된다.

 

4. 한참 기다리면 답이 나온다.

 

5. 정말 실행이 될까? 

코드 아래에는 친철하게 아래와 같은 설명도 있다.

 

 

 

6. 샤이니 앱 실행이 정말 된다.

 

물론 몇번 에러가 나서 수정도 해 보았다. 

그러나 코드가 chatgpt 창에 넣어서 하는 것보다 에러가 적다. 

 

아래는 로또 번호 뽑는 앱 코드 내용

 

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)