Merge pull request #8 from tadascience/dev_verse

verse()

DESCRIPTION

@@ -9,9 +9,12 @@ 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
+Remotes: mlverse/chattr
 Imports: 
+    chattr,
     cli,
+    glue,
     grDevices,
     purrr,
     utils

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)

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)
+}