the r shiny version of the previous hw assignment