# Little useless-useful R functions – Creating tiny Fireworks with R

[This article was first published on

Want to share your content on R-bloggers? click here if you have a blog, or here if you don't.

**R – TomazTsql**, and kindly contributed to R-bloggers]. (You can report issue about the content on this page here)Want to share your content on R-bloggers? click here if you have a blog, or here if you don't.

New Year’s eve is almost here and what best way to celebrate with fireworks. Snap, pop, crack, boom. This is the most peaceful, animal friendly, harmless, eco, children friendly, no-fire-needed, educative and nifty fireworks.

To get the fireworks, fire up the following R function.

########################################## # # Tiny fireworks with R for New Year's 2022 # # Series: # Little Useless-useful R functions #31 # Created: December 29, 2021 # Author: Tomaz Kastrun # Blog: tomaztsql.wordpress.com # V.1.0 # Changelog: # - add clean rings ########################################### library(animation) library(ggplot2) set.seed(2908) Fireworks <- function(nof_rockets=10) { if(!is.null(dev.list())) dev.off() if(!interactive()) return() draw.fireworks <- function(x,y,ring) { plot(x, y, xaxt='n', ann=FALSE, yaxt='n', frame.plot=FALSE, xlim=c(0,50),ylim=c(0,500)) title(main = "Happy New Year 2022", col.main= "white") for (i in 1:ring) { ani.options(interval = 0.25) color <- sample(rainbow(ring),8, replace=TRUE) symbols(x,y, circles=0.16+i*1.2,add=T, inches=F, fg=color[i]) ani.pause() } par(new=TRUE) } clear.fireworks <- function(x,y,ring){ plot(x, y, xaxt='n', ann=FALSE, yaxt='n', frame.plot=FALSE, xlim=c(0,50),ylim=c(0,500)) for (i in 1:ring) { ani.options(interval = 0.15) symbols(x,y, circles=0.16+i*1.2,add=T, inches=F, fg="black") ani.pause() } par(new=TRUE) } NewYear.fireworks <- function(){ bgcolor <- par("bg") if (bgcolor == "transparent" | bgcolor == "white") bgcolor <- "black" par(bg=bgcolor) # nof_rockets <- 10 xx <-sample(1:50,nof_rockets) yy <-sample(1:500,nof_rockets) ringy <- sample(7:13,nof_rockets, replace = TRUE) for (i in 1:nof_rockets){ x <- xx[i] y <- yy[i] ring <- ringy[i] draw.fireworks(x,y,ring) # if you don't want rings disappearing, comment this IF statement if (i > 1) { x1 <- xx[i-1] y1 <- yy[i-1] ring1 <- ringy[i-1] clear.fireworks(x1, y1, ring1) } } # if you don't want rings disappearing, comment this IF statement clear.fireworks(tail(xx,1), tail(yy,1), tail(ringy,1)) } NewYear.fireworks() } ################## # Run the function ################## Fireworks(15)

And have your own little private useless R fireworks.

Enjoy the silence. Observe the colours. Drink some champagne.

As always, code is available in at the Github in same Useless_R_function repository.

Happy R-coding and Happy New Year 2022!

And stay healthy!

To

**leave a comment**for the author, please follow the link and comment on their blog:**R – TomazTsql**.R-bloggers.com offers

**daily e-mail updates**about R news and tutorials about learning R and many other topics. Click here if you're looking to post or find an R/data-science job.

Want to share your content on R-bloggers? click here if you have a blog, or here if you don't.