1  | Feeling()
 | 
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35  | ##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--	or do  help(data=index)  for the standard data sets.
## The function is currently defined as
function () 
{
    choice <- 99
    choice <- Awareness(choice)
    while (!(choice == 100)) {
        if (choice == 1) {
            Dat <- createProfile(response)
            choice <- Awareness(choice = 0)
        }
        if (choice == 2) {
            (Emoji <- SentimentAnalysis(Dat))
            choice <- Awareness(choice = 0)
        }
        if (choice == 3) {
            (pref <- Personality())
            choice <- Awareness(choice = 0)
        }
        if (choice == 4) {
            Email()
            choice <- Awareness(choice = 0)
        }
        if (choice == 5) {
            Crawler()
            choice <- Awareness(choice = 0)
        }
        if (choice == 100) {
            centerText("Good Bye! Master!")
        }
    }
  }
 | 
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.