data producst peer assignments using shiny and slidify