through shiny lecture