# Wish Christmas with R

This post is dedicated to all the R Lovers...Flaunt your knowledge of R programming in your peer group with the following code.
 Wish Christmas with R

Method 1 : Run the following program and see what I mean -

paste(intToUtf8(acos(log(1))*180/pi-13),
toupper(substr(month.name[2],2,2)),
paste(rep(intToUtf8(acos(exp(0)/2)*180/pi+2^4+3*2),2), collapse = intToUtf8(0)),
LETTERS[5^(3-1)], intToUtf8(atan(1/sqrt(3))*180/pi+2),
toupper(substr(month.abb[10],2,2)),
intToUtf8(acos(log(1))*180/pi-(2*3^2)),
toupper(substr(month.name[4],3,4)),
intToUtf8(acos(exp(0)/2)*180/pi+2^4+3*2+1),
intToUtf8(acos(exp(0)/2)*180/pi+2^4+2*4),
intToUtf8(acos(log(1))*180/pi-13),
LETTERS[median(0:2)],
intToUtf8(atan(1/sqrt(3))*180/pi*3-7),
sep = intToUtf8(0)
)

Method 2 : Audio Wish for Christmas

Turn on computer speakers before running the code.
install.packages("audio")
library(audio)
christmas_file <- tempfile()
download.file("https://sites.google.com/site/pocketecoworld/merrychristmas1.wav", christmas_file, mode = "wb")
xmas <- load.wave(christmas_file)
play(xmas)
Related Posts
About Author:

Deepanshu founded ListenData with a simple objective - Make analytics easy to understand and follow. He has over 8 years of experience in data science. During his tenure, he has worked with global clients in various domains like Banking, Insurance, Telecom and Human Resource.

8 Responses to "Wish Christmas with R"
1. Hi!
Thank you for the post!
Although I had troubles running the code on R Studio Mac. Some error with the URL.
Any thoughts?
Merry Christmas!

1. What's the error message? Merry Christmas! :-)

2. hi
it is working supob, but can u please tell me how to play internal sons, like our movie songs, can u please share that

3. hi
what happend bro. can u please reply me

4. Hi, Its throwing the following error-
> library(audio)
> christmas_file <- tempfile()
> download.file("https://sites.google.com/site/pocketecoworld/merrychristmas1.wav", mode = "wb")
Error in download.file("https://sites.google.com/site/pocketecoworld/merrychristmas1.wav", :
argument "destfile" is missing, with no default
> xmas <- load.wave(christmas_file)
Error in load.wave(christmas_file) :
unable to open file 'C:\Users\DOYEL~1.KAY\AppData\Local\Temp\RtmpiubV1u\file25fc3e74443a'
> play(xmas)
Error in play(xmas) : object 'xmas' not found
>
Pls help

1. Hi doyel,

connect the internet and try its once again its working ok.

5. i have this error... Error in play.default(x, rate, ...) : no audio drivers are available

Next → ← Prev
Love this Post? Spread the Word!
Share