From cf3768af57ddb80fd0ec0404b547ab4b2eb7ec87 Mon Sep 17 00:00:00 2001
From: Juan Pablo <jpmonteagudo2014@gmail.com>
Date: Mon, 26 Aug 2024 13:29:52 -0400
Subject: [PATCH] corrected output for demotivate function

---
 .Rbuildignore   | 1 +
 CRAN-SUBMISSION | 3 +++
 DESCRIPTION     | 2 +-
 NEWS.md         | 5 +++++
 R/demotivate.R  | 2 +-
 5 files changed, 11 insertions(+), 2 deletions(-)
 create mode 100644 CRAN-SUBMISSION

diff --git a/.Rbuildignore b/.Rbuildignore
index 72f8943..335f95e 100644
--- a/.Rbuildignore
+++ b/.Rbuildignore
@@ -8,3 +8,4 @@
 ^\.github$
 ^cran-comments\.md$
 
+^CRAN-SUBMISSION$
diff --git a/CRAN-SUBMISSION b/CRAN-SUBMISSION
new file mode 100644
index 0000000..27e6282
--- /dev/null
+++ b/CRAN-SUBMISSION
@@ -0,0 +1,3 @@
+Version: 0.1.0
+Date: 2024-08-02 19:20:35 UTC
+SHA: d114383062ab01c35ddb90ff615443b9ae17a7a1
diff --git a/DESCRIPTION b/DESCRIPTION
index c39dd3f..8a3d667 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: despair
 Title: Motivational Quotes and Shakespearean Bard–bits for Personal Projects
-Version: 0.1.0
+Version: 0.1.1
 Authors@R: 
     person("JP", "Monteagudo", 
     email = "jpmonteagudo2014@gmail.com", 
diff --git a/NEWS.md b/NEWS.md
index d734cc7..a3c2413 100644
--- a/NEWS.md
+++ b/NEWS.md
@@ -3,3 +3,8 @@
 # despair 0.1.0
 
 * Initial development release
+
+# despair 0.1.1
+
+Previously `demotivate` would throw an error when the category was set to `rednecks`.
+Correction to demotivate `rednecks` category output.
diff --git a/R/demotivate.R b/R/demotivate.R
index 44549a8..f1a8b04 100644
--- a/R/demotivate.R
+++ b/R/demotivate.R
@@ -66,7 +66,7 @@ demotivate <- function(cat = "any",
     my_quote <- sample(tv$values,1)
   }
   if(cat == "rednecks"){
-    my_red_quote <- sample(rednecks$values,1)
+    my_quote <- sample(rednecks$values,1)
   }
   if(cat == "family"){
     my_quote <- sample(family$values,1)