Nobel Prize App

Did you ever wonder what did they do to win it ? Where do they come from ? The Nobel Prize app will answer these questions and more.

Also, It is a fun way to learn about these great women, men and organizations.

Link to the app: https://rouille.shinyapps.io/Nobel/

It is super easy to use !

• choose a category (Physics, Medecine, Peace, …);
• select a date range;

You can then navigate using the tabs to view the outpouts

The app uses:

• the Nobel Prize API: https://nobelprize.readme.io/v1.0
• the googleVis package

library(jsonlite)
url <- "http://api.nobelprize.org/v1/laureate.json"
nobel  <- fromJSON(url)
names(nobel$laureates)

 [1] "id"              "firstname"       "surname"        
 [4] "born"            "died"            "bornCountry"    
 [7] "bornCountryCode" "bornCity"        "diedCountry"    
[10] "diedCountryCode" "diedCity"        "gender"         
[13] "prizes"         

gender <- table(nobel$laureates$gender)
barplot(as.numeric(gender), names.arg = names(gender) )