Adventure Time's age calculator

• I've tried to have a good time while learning data products publication.

• I'm an Adventure Time fan.

• I want to demonstrate that age is relative (in comparison with frozen kings, vampires and princesses who experiment with biomass).

Here's a link to my Shiny App:
https://lulacourt.shinyapps.io/project

It consists of:

1. A radio button which allows you to select a character according to the mood.
   
2. As soon as you do that, it shows you an image and a brief description including his/her/its age.
   
3. You are asked for entering your age in a slider.
   
4. The selected character tells you about the age difference between both of you. In most of cases you'll start to feel younger.
   
5. Finally, you'll get your absolute standardized age (taken as reference the Land of Ooo inhabitants' age.)

myage <- as.numeric(readline('Enter your age: '))
if (is.na(myage)==TRUE) {
    print ("Please, enter a number")
    } else {paste("I'm", round(myage), "years old")
            }

## [1] "I'm 41 years old"

# Land of Ooo inhabitants' ages.
ages<-c(16,1044,31,1003,828)
# Calculating your absolute standardized age.
mystage<-round(abs((myage-mean(ages))/sd(ages)),2)
paste("My absolute standardized age in Land of Ooo is", mystage)

## [1] "My absolute standardized age in Land of Ooo is 1.05"

Unless you're a kind of immortal creature, the outcome of my app must be in a range [0.94-1.09].

In another case, you have all the eternity to finish this course, lucky you!