💜

DESCRIPTION

@@ -1,9 +1,8 @@
 Package: valentine
-Title: What the Package Does (One Line, Title Case)
-Version: 0.0.0.9000
+Title: Spread the love for R packages with poetry
+Version: 2014.2.14
 Authors@R: 
-    person("First", "Last", , "first.last@example.com", role = c("aut", "cre"),
-           comment = c(ORCID = "YOUR-ORCID-ID"))
+    person("Romain", "François", email = "romain@tada.science", role = c("aut", "cre"))
 Description: What the package does (one paragraph).
 License: MIT + file LICENSE
 Suggests: 
@@ -14,3 +13,6 @@ Roxygen: list(markdown = TRUE)
 RoxygenNote: 7.3.1
 URL: https://github.com/tadascience/valentine, http://tada.science/valentine/
 BugReports: https://github.com/tadascience/valentine/issues
+Imports: 
+    glue,
+    openai

NAMESPACE

@@ -1,2 +1,6 @@
 # Generated by roxygen2: do not edit by hand
 
+export(prompt)
+export(roses)
+importFrom(glue,glue)
+importFrom(openai,create_chat_completion)

R/roses.R

@@ -0,0 +1,51 @@
+#' Make a roses are red poem
+#'
+#' Make a "roses are red ..." poem
+#' about an R package.
+#'
+#' @param pkg A package
+#' @param hint extra information to add to the prompt
+#' @param emoji Should the poem include empojis.
+#' @param ... Passed to [openai::create_chat_completion()]
+#'
+#' @return A poem generated by ChatGPT.
+#'
+#' @importFrom glue glue
+#' @importFrom openai create_chat_completion
+#' @examples
+#' prompt("dplyr")
+#'
+#' \dontrun{
+#'   roses("dplyr")
+#' }
+#' @export
+roses <- function(pkg, hint = "", emoji = TRUE, ...) {
+  result <- create_chat_completion(
+    model = "gpt-3.5-turbo",
+    messages = list(
+      list(
+        "role" = "system",
+        "content" = "You are helpful assistant"
+      ),
+      list(
+        "role" = "user",
+        "content" = prompt(pkg, hint, emoji)
+      )
+    ),
+    ...
+  )$choices$message.content
+
+  writeLines(result)
+  invisible(result)
+}
+
+#' @rdname roses
+#' @export
+prompt <- function(pkg, hint = "", emoji = TRUE) {
+  emoji_prompt <- if (isTRUE(emoji)) {
+    "Include a bunch of emojis"
+  } else {
+    "Don't include emojis"
+  }
+  glue('Make a 4 lines "roses are red ..." poem about the R package "{pkg}". {emoji_prompt}. {hint}')
+}

tests/testthat/test-love.R

@@ -0,0 +1,3 @@
+test_that("1 + 1", {
+  expect_equal(1 + 1, 2)
+})