chaoshengt / Useless_R_functions

Useless R Functions. That's it

Useful - Useless R functions - UUR

UUR is useful, yet useless set of custom R functions using {base} for your everyday R use. That's it :-) And nothing more.

Feature Summary

• Mixed Cases (blog post)
• DataFrame maker (blog post)
• R Job Title generator (blog post)
• Psychedelic Square Root visual with x11() (blog post)
• Friday 13th obvious searcher
• Full moon finder (blog post)
• Lorem Ipsum R text generator (blog post)
• Wacky Password generator (blog post)
• Play Rock-Paper-Scissors with your R Engine (blog post)
• Duplicate and frequent functions used in many R packages (blog post)
• Making Scatter Plot from Image file (blog post)
• Function that generates calculator script (blog post)
• Word scrambler (blog post)
• Folder TreeMap (blog post)
• Playing stack of cards (blog post)
• R to Python dataFrame (blog post)
• Four Fours (blog post)
• Countdown Number Puzzle (blog post)
• R Version (blog post)
• R Poem for Valentine (blog post)
• Pipe (%>%) for ggplot2 (blog post)
• L-Systems (blog post)
• Letter frequency in numbers (blog post)
• Using SQL Syntax for wrangling data frames (blog post)
• Looping through variable names and generating plots (blog post)
• Inserting variable values into strings (blog post)
• Colourful ggplot line graphs (blog post)
• Drawing calendar(blog post)
• Useless Year progress bar with spinning cursor (blog post)
• Useless analog and digital clock (blog post)
• Animated showcase of plot function (blog post)
• Interface for learning irregular verbs (blog post)
• Interactive Voronoi diagram generator (blog post)
• Mastermind board game for R (blog post)
• Making boxplot from a picture (blog post)

Cloning the repository

You can follow the steps below to clone the repository.

git clone https://github.com/tomaztk/Useless_R_functions.git

Quickstart

1. Clone the repository
2. Start using any of the functions e.g. IsItFriday13()
3. Explore and enjoy!

# non-deterministic
IsItFriday13 <- function(){
  #da <- "2020-11-13"
  da <- Sys.Date()
  rn <- as.POSIXlt(da)$wday
  d <- as.POSIXlt(da)$mday 
  
  if (rn == 5 & d == 13){
      print("It is a Friday the 13th!")
  } else {
      print("Not a Friday 13th!")
    }
  }  

IsItFriday13()

Contributors and co-authors

Thanks to these wonderful community people making and helping this useless R functions better. Contributions of any kind is highly appreciated!

Riccardo Porreca

retooooo

mrdwab

Contact

Feel free to get in touch for new useful-useless functions.

Gallery (from blog)

Vignettes

General examples

ToDo

• Possibly change some functionalities to work properly on UNIX / WIN machines
  • x11() and CLI export
• A vignette finished; write proper feature details!
• Create useless R package.