knitr::opts_chunk$set( collapse = TRUE, comment = "#>", message = FALSE, warning = FALSE, fig.path = "man/figures/README-", out.width = "100%" ) library(kittyR)
This package is designed for rainy days when your results are heartbreaking or when no matter what you try, you can't seem to get rid of that bug. Take a respite from those negative thoughts by accessing kitty pictures and their adorable meows right from your R console 😻 and then get back to work again.
May these kitties bring some joy and amusement during your stressful data cleaning jobs! 😊
The package is available only on GitHub
:
# install.packages("remotes") remotes::install_github("IndrajeetPatil/kittyR")
There are only two functions in this package-
kittyR()
In case you want a picture of a kitty:
# to always have the same kitty on README set.seed(20) # show me the kitty NOW! kittyR(meow = FALSE)
By default, the collection will include any kind of cat (big, small, wild, etc.). If you want only kittens, you can use an additional argument.
# to always have the same kitty on README set.seed(144) # show me the kitten NOW! kittyR(meow = FALSE, only_kitten = TRUE)
The collection of cat pictures comes from the following collections of freely available images:
meowR()
In case you just want to hear a meow either apropos nothing or at the end of execution of some code to let you know that the execution is complete, just include this line of code:
# meow meow meow # you can choose from a sample of six meows meowR(sound = 4)
There are only six meows available at the moment.
table_html <- function() { '<table style="text-align: center; vertical-align: middle;"> <thead> <tr> <th>Sound ID</th> <th>Meows</th> </tr> </thead> <tbody> <tr> <td>1</td> <td> <audio controls=""> <source src="man/figures/1.wav" type="audio/wav"> <source src="reference/figures/1.wav" type="audio/wav"> </audio> </td> </tr> <tr> <td>2</td> <td> <audio controls=""> <source src="man/figures/2.wav" type="audio/wav"> <source src="reference/figures/2.wav" type="audio/wav"> </audio> </td> </tr> <tr> <td>3</td> <td> <audio controls=""> <source src="man/figures/3.wav" type="audio/wav"> <source src="reference/figures/3.wav" type="audio/wav"> </audio> </td> </tr> <tr> <td>4</td> <td> <audio controls=""> <source src="man/figures/4.wav" type="audio/wav"> <source src="reference/figures/4.wav" type="audio/wav"> </audio> </td> </tr> <tr> <td>5</td> <td> <audio controls=""> <source src="man/figures/5.wav" type="audio/wav"> <source src="reference/figures/5.wav" type="audio/wav"> </audio> </td> </tr> <tr> <td>6</td> <td> <audio controls=""> <source src="man/figures/6.wav" type="audio/wav"> <source src="reference/figures/6.wav" type="audio/wav"> </audio> </td> </tr> </tbody> </table>' }
cat(table_html())
If you have a kitty meow that you like and would like to include in the package, please either make a PR or e-mail it to me and I will include it.
This package was inspired by pupR package by Melissa Innerst.
The hexsticker was generously designed by Sarah Otterstetter (Max Planck Institute for Human Development, Berlin).
Please note that the kittyR
project is released with a Contributor Code of Conduct.
By contributing to this project, you agree to abide by its terms.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.