R/refactor_code.R

In chatgpt: Interface to 'ChatGPT' from R

#' ChatGPT: Refactor Code
#'
#' @param code The code to be refactored by ChatGPT. If not provided, it will use what's copied on
#'   the clipboard.
#'
#' @examples
#' \dontrun{
#' cat(refactor_code("i <- 10\nwhile (i > 0) {\n  i <- i - 1\n  print(i)\n}"))
#' }
#'
#' @importFrom clipr read_clip
#'
#' @return A character value with the response generated by ChatGPT.
#'
#' @export
#'
refactor_code <- function(code = clipr::read_clip(allow_non_interactive = TRUE)) {
  code <- paste(gsub('"', "'", code), collapse = "\n")
  prompt <- paste0('Refactor the following R code, returning valid R code: "', code, '"')
  parse_response(gpt_get_completions(prompt))
}