## develop menu
dinner <- list(Entree="Spaghetti and Meatballs",
Starter="Caesar Salad", Dessert="Spumoni",
Beverage="Wine and Water")
## pretty-print the menu
prettyPrintList(dinner, header="What's for dinner?")
Run the code above in your browser using DataLab