corrected output for demotivate function

jpmonteagudo28 · Aug 26, 2024 · cf3768a · cf3768a
1 parent d114383
commit cf3768a
Show file tree

Hide file tree

Showing 5 changed files with 11 additions and 2 deletions.
diff --git a/.Rbuildignore b/.Rbuildignore
@@ -8,3 +8,4 @@
 ^\.github$
 ^cran-comments\.md$
 
+^CRAN-SUBMISSION$
diff --git a/CRAN-SUBMISSION 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
@@ -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 = "[email protected]", 

diff --git 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
@@ -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)
Original file line number	Diff line number	Diff line change
Expand Up		@@ -8,3 +8,4 @@
		^\.github$
		^cran-comments\.md$

		^CRAN-SUBMISSION$