encourage_gm <- function() {
x <- c(
"I hereby declare all your tests as passed!",
"No-one can fool you!",
"Right in the pink!",
"As expected!",
"You really know what to test!",
"Oops! You did it again!",
"You lift TDD to a whole new level!",
"Impossible!",
"There's always an alternative fact",
"It's a conspiracy!",
"Another hit!",
"No regrets!"
)
checkAudio <- requireNamespace("audio", quietly = TRUE)
if (checkAudio) {
#godmode:::playWave("Die.wav")
#godmode:::playWave("GameOver.wav")
smpl <- godmode:::loadWaves(c("Die.wav", "GameOver.wav"))
audio::play.audioSample(smpl)
}
godmode:::randomize(x)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.