Merge pull request #21 from denisabd/clipr_revised

Clipboard copied code with clipr

DESCRIPTION

@@ -23,4 +23,5 @@ Imports:
   miniUI,
   rstudioapi,
   shiny,
-  utils
+  utils,
+  clipr

R/comment_code.R

@@ -11,7 +11,7 @@
 #'
 #' @export
 #'
-comment_code <- function(code) {
-  prompt <- paste0('Add inline comments to the following R code: "', code, '"')
+comment_code <- function(code = clipr::read_clip(allow_non_interactive = TRUE)) {
+  prompt <- paste0('Add inline comments to the following R code: "', paste(gsub('"', "'", code), collapse = "\n"), '"')
   parse_response(gpt_get_completions(prompt))
 }

R/create_unit_tests.R

@@ -13,9 +13,9 @@
 #'
 #' @export
 #'
-create_unit_tests <- function(code) {
+create_unit_tests <- function(code = clipr::read_clip(allow_non_interactive = TRUE)) {
   prompt <- paste0(
-    'Create a full testthat file, with test cases for the following R code: "', code, '"'
+    'Create a full testthat file, with test cases for the following R code: "', paste(gsub('"', "'", code), collapse = "\n"), '"'
   )
   parse_response(gpt_get_completions(prompt))
 }

R/create_variable_name.R

@@ -11,7 +11,7 @@
 #'
 #' @export
 #'
-create_variable_name <- function(code) {
-  prompt <- paste0('Give a good variable name to the result of the following R code: "', code, '"')
+create_variable_name <- function(code = clipr::read_clip(allow_non_interactive = TRUE)) {
+  prompt <- paste0('Give a good variable name to the result of the following R code: "', paste(gsub('"', "'", code), collapse = "\n"), '"')
   parse_response(gpt_get_completions(prompt))
 }

R/document_code.R

@@ -11,7 +11,7 @@
 #'
 #' @export
 #'
-document_code <- function(code) {
-  prompt <- paste0('Document, in roxygen2 format, this R function: "', code, '"')
+document_code <- function(code = clipr::read_clip(allow_non_interactive = TRUE)) {
+  prompt <- paste0('Document, in roxygen2 format, this R function: "', paste(gsub('"', "'", code), collapse = "\n"), '"')
   parse_response(gpt_get_completions(prompt))
 }

R/explain_code.R

@@ -11,7 +11,7 @@
 #'
 #' @export
 #'
-explain_code <- function(code) {
-  prompt <- paste0('Explain the following R code: "', code, '"')
+explain_code <- function(code = clipr::read_clip(allow_non_interactive = TRUE)) {
+  prompt <- paste0('Explain the following R code: "', paste(gsub('"', "'", code), collapse = "\n"), '"')
   parse_response(gpt_get_completions(prompt))
 }

R/find_issues_in_code.R

@@ -11,7 +11,7 @@
 #'
 #' @export
 #'
-find_issues_in_code <- function(code) {
-  prompt <- paste0('Find issues or bugs in the following R code: "', code, '"')
+find_issues_in_code <- function(code = clipr::read_clip(allow_non_interactive = TRUE)) {
+  prompt <- paste0('Find issues or bugs in the following R code: "', paste(gsub('"', "'", code), collapse = "\n"), '"')
   parse_response(gpt_get_completions(prompt))
 }

R/optimize_code.R

@@ -11,7 +11,7 @@
 #'
 #' @export
 #'
-optimize_code <- function(code) {
-  prompt <- paste0('Optimize the following R code: "', code, '"')
+optimize_code <- function(code = clipr::read_clip(allow_non_interactive = TRUE)) {
+  prompt <- paste0('Optimize the following R code: "', paste(gsub('"', "'", code), collapse = "\n"), '"')
   parse_response(gpt_get_completions(prompt))
 }

R/refactor_code.R

@@ -11,7 +11,7 @@
 #'
 #' @export
 #'
-refactor_code <- function(code) {
-  prompt <- paste0('Refactor the following R code, returning valid R code: "', code, '"')
+refactor_code <- function(code = clipr::read_clip(allow_non_interactive = TRUE)) {
+  prompt <- paste0('Refactor the following R code, returning valid R code: "', paste(gsub('"', "'", code), collapse = "\n"), '"')
   parse_response(gpt_get_completions(prompt))
 }