Sonic Name Generator

Andrea Alcala
August 19, 2019

Background

Task is to create a shiny application that includes the following:

Some form of input (widget: textbox, radio button, checkbox, …)
Some operation on the ui input in sever.R
Some reactive output displayed as a result of server calculations
You must also include enough documentation so that a novice user could use your application.
The documentation should be at the Shiny website itself. Do not post to an external link.

Sonic Name Generator

The Sonic Name Generator is based off a meme which assigns a Sonic name to a user based on the following criteria:
1. The first letter of the first name
2. The second letter of the middle name
3. The birthmonth

Source: knowyourmeme.com my image

How it works

Input:
1. letter
2. month
Note: The second letter of the middle name is not needed as this always yields 'the.'

Output:
Sonic name

Example

firstname<-function(x){
      x<-tolower(x)
      if(x=='a'){'Sonic'}
      else if(x=='b'){'Sanic'}
      else if(x=='c'){'Super Sanic'}
      else if(x=='d'){'Super Sonic'}
}
lastname<-function(x){
      x<-tolower(x)
      if(x=='january'){'Coldsteel'}
      else if(x=='february'){'Hedgehog'}
      else if(x=='march'){'Hedgeheg'}
}
paste(firstname('b'),"the",lastname('march'),sep=" ")

[1] "Sanic the Hedgeheg"