저자
소속

1 Codex

  • 주석을 코드로 전환
  • 맥락을 보고 다음 코드를 자동 작성
  • 라이브러리, API 등 추천을 통해 새로운 지식 전달
  • 주석 자동 추가
  • 동일한 기능을 갖지면 효율성 좋은 코드로 변환

2 이미지 생성

코드
library(tidyverse)
library(openai)

# usethis::edit_r_environ(scope = "project")

response <- create_image(
    prompt = "Create R programming language logo for Korean R user group in a kandinsky and Gustav Klimt style embracing Python programming language supported by many contributors around the world, which must include R logo from R consortium and wikipedia",
    n = 1,
    size = "256x256",
    response_format = "url",
    openai_api_key = Sys.getenv("OPEN_AI_KEY")
)

library(magick)
astronaut <- image_read(response$data$url)
print(astronaut)
#> # A tibble: 1 × 7
#>   format width height colorspace matte filesize density
#>   <chr>  <int>  <int> <chr>      <lgl>    <int> <chr>  
#> 1 PNG      256    256 sRGB       FALSE   197109 72x72

3 예측모형

코드
penguins_classification_instruction <- 
  glue::glue("# R language\n",
             "Build sex classification machine learning model withe palmer penguin datatset\n",
             "Use palmer penguins data package for dataset\n",
             "Use tidymodels framework\n",
             "Use random forest model\n",
             "Include evaluation metrics including accruacy, precision, reall")

build_model <- create_completion(
    model="code-davinci-002",
    prompt = penguins_classification_instruction,
    max_tokens=1024,
    openai_api_key = Sys.getenv("OPEN_AI_KEY")
)
코드

parsed_code <- str_split(build_model$choices$text, "\n")[[1]]

write_lines(parsed_code, "palmer_penguins.Rmd")