## 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