Package 'aperol'

Drunk Praise

Description

Generates praise with praise::praise(), then repeats some words, and permutes them all.

Usage

drunk(
  repeat_words = 1,
  repeat_times = 2,
  template = "You are ${adverb} ${adjective}!"
)

Arguments

repeat_words	int scalar, the number of words that get repeated
repeat_times	an integer-valued (non-negative) vector. If length(repeat_times) is repeat_words, gives the number of times each repeated word appears. If length 1, each repeated word appears that number of times. Otherwise, throws an error (see rep()).
template	character scalar, template for the (non-swapped) praise

Examples

drunk()
drunk(2, 2:3)
drunk(2, 2, "You are ${creating} a ${adverb} ${adjective} ${rpackage}")

---

Increment the spritz count

Description

Adds a row to the spritz count variable in the the environment

Usage

increment_spritz_count(func)

Arguments

func	Character. Function to be evaluated

Value

Invisible. Data frame for spritz_count

Examples

increment_spritz_count(func = "1+1")

---

Spritz

Description

A thin wrapper around a function (e.g devtools::check()) that provides affirmation after X calls in Y minutes. Praise gets drunker as the number of actual runs exceeds the number of runs in the time frame.

Usage

spritz(
  func = "devtools::check()",
  runs = 3,
  minutes = 10,
  template = "You are ${adverb} ${adjective}!"
)

Arguments

func	Character. A function you expect to run multiple times
runs	Numeric. Number of runs in time frame before praise
minutes	Numeric. Number of minutes in time frame
template	Character. Praise template

Value

Returns the output of func

Examples

## Not run: 

# default is to run devtools::check()
spritz()
# with a different function and praise template
spritz("devtools::document()", 
       template = "You are ${creating} a ${adverb} ${adjective} ${rpackage}")
# change rate depending on speed of devtools::check()
spritz(runs = 4, minutes = 15)

## custom function
sleep_add <- function() {
  Sys.sleep(2)
  out <- 1 + 1
  return(out)
}

spritz(func = "sleep_add()")

## End(Not run)

---

Tipsy Praise

Description

Generates praise with praise::praise(), then swaps some words.

Usage

tipsy(swaps = 1, template = "You are ${adverb} ${adjective}!")

Arguments

swaps	int scalar, number of word swaps to make
template	character scalar, template for the (non-swapped) praise

Examples

tipsy()
tipsy(2, "You are ${creating} a ${adverb} ${adjective} ${rpackage}")

---