From 5d78567c58ca13d3b5232d8379e3d9ef84065974 Mon Sep 17 00:00:00 2001
From: Romain Francois <romain@purrple.cat>
Date: Fri, 2 Feb 2024 14:04:37 +0100
Subject: [PATCH 1/3] + tada::verse()

---
 DESCRIPTION  |  4 +++-
 NAMESPACE    |  2 ++
 R/verse.R    | 17 +++++++++++++++++
 man/verse.Rd | 21 +++++++++++++++++++++
 4 files changed, 43 insertions(+), 1 deletion(-)
 create mode 100644 R/verse.R
 create mode 100644 man/verse.Rd

diff --git a/DESCRIPTION b/DESCRIPTION
index d5a8451..316449f 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -9,9 +9,11 @@ Description: Suite of tools to support the practice of tada science. It includes
 License: MIT + file LICENSE
 Encoding: UTF-8
 Roxygen: list(markdown = TRUE)
-RoxygenNote: 7.3.1.9000
+RoxygenNote: 7.3.1
 Imports: 
+    chattr,
     cli,
+    glue,
     grDevices,
     purrr,
     utils
diff --git a/NAMESPACE b/NAMESPACE
index 131f1f0..f09cfb4 100644
--- a/NAMESPACE
+++ b/NAMESPACE
@@ -1,6 +1,8 @@
 # Generated by roxygen2: do not edit by hand
 
 export(pkg_roulette)
+export(verse)
+importFrom(chattr,chattr)
 importFrom(cli,make_ansi_style)
 importFrom(grDevices,colors)
 importFrom(purrr,pwalk)
diff --git a/R/verse.R b/R/verse.R
new file mode 100644
index 0000000..b06b412
--- /dev/null
+++ b/R/verse.R
@@ -0,0 +1,17 @@
+
+#' Write poems about R packages
+#'
+#' @param pkg A package to write a poem about
+#'
+#' @examples
+#' \dontrun{
+#'   chattr::chattr_use("gpt35")
+#'   tada::verse("ggplot2")
+#' }
+#'
+#' @importFrom chattr chattr
+#' @export
+verse <- function(pkg = "ggplot2") {
+  prompt <- glue::glue("Can you write a poem about the R package called '{pkg}'. Please add a bunch of emojis.")
+  chattr::chattr(prompt)
+}
diff --git a/man/verse.Rd b/man/verse.Rd
new file mode 100644
index 0000000..2f869e6
--- /dev/null
+++ b/man/verse.Rd
@@ -0,0 +1,21 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/verse.R
+\name{verse}
+\alias{verse}
+\title{Write poems about R packages}
+\usage{
+verse(pkg = "ggplot2")
+}
+\arguments{
+\item{pkg}{A package to write a poem about}
+}
+\description{
+Write poems about R packages
+}
+\examples{
+\dontrun{
+  chattr::chattr_use("gpt35")
+  tada::verse("knitr")
+}
+
+}

From 65ca86c85466d72e41b966e4306522bba3dd4bd1 Mon Sep 17 00:00:00 2001
From: Romain Francois <romain@purrple.cat>
Date: Fri, 2 Feb 2024 14:09:45 +0100
Subject: [PATCH 2/3] docuent()

---
 man/verse.Rd | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/man/verse.Rd b/man/verse.Rd
index 2f869e6..c9b60e8 100644
--- a/man/verse.Rd
+++ b/man/verse.Rd
@@ -15,7 +15,7 @@ Write poems about R packages
 \examples{
 \dontrun{
   chattr::chattr_use("gpt35")
-  tada::verse("knitr")
+  tada::verse("ggplot2")
 }
 
 }

From 8f9fe543acee93c929b7475c06710ad3c8b30197 Mon Sep 17 00:00:00 2001
From: Romain Francois <romain@purrple.cat>
Date: Fri, 2 Feb 2024 14:09:52 +0100
Subject: [PATCH 3/3] remotes:

---
 DESCRIPTION | 1 +
 1 file changed, 1 insertion(+)

diff --git a/DESCRIPTION b/DESCRIPTION
index 316449f..16ef6a2 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -10,6 +10,7 @@ License: MIT + file LICENSE
 Encoding: UTF-8
 Roxygen: list(markdown = TRUE)
 RoxygenNote: 7.3.1
+Remotes: mlverse/chattr
 Imports: 
     chattr,
     cli,