Every year, around this time, people all over the world are wondering whether they would be receiving a Christmas present.
Based on some simple inputs, the app calculates the odds of you receiving a Christmas present this year.
The app requires you to be honest about 3 things:
observe({
input$action_odds
values$int <- isolate({
as.numeric(input$num_belief) * as.numeric(input$num_chimney) * as.numeric(input$num_naughty)
})
})
output$str_odds <- renderText({
if (values$int == 0) {
paste("No chance you are getting anything!")
}
else if (values$int >= 1 & values$int < 6 ) {
paste("There's something for you. Just don't expect something out of this world.")
}
else if (values$int >= 6 & values$int <= 11) {
paste("You are doing great! Santa would be delivering your present personally - either by sleight, or DHL.")
}
else if (values$int == 12) {
paste("You are definitely getting what you wish for this Christmas! And perhaps a BIG surprise as well. Merry Christmas!")
}
})
Today is only 22 Nov 2015.
You still have some time before Christmas arrives - Improve your odds!