motivate()
is a tool to lift up even the unmotivated individual.
Use with caution and remember— DO take it personally.
Value
motivate()
takes a preferred category and an optional reproducible seed
to return a motivational quote for the user to feel better at any given time.
Details
When cat is 'any' (default), the function combines all category data frames and then samples from the new,combined data frame.
There are a total of five categories: psych, stoic, religion, lit(literature), and modern (history) When a specific category is chosen the function will sample from a motivational quote data frame and output a random quote for your spiritual and mental growth.
Examples
motivate("any",seed = "lethargic raccoon")
#> [1] "A lie can travel half way around the world while the truth is putting on its shoes. — Mark Twain"
motivate("lit")
#> [1] "The fear of death follows from the fear of life. A man who lives fully is prepared to die at any time. — Mark Twain"
motivate("stoic", seed = 2899)
#> [1] "Wealth consists not in having great possessions, but in having few wants. - Epictetus"