Creating & Displaying Slides In A Shiny App

Hi,

I was playing around with the notion of building a Shiny app that worked as a basic version of Google Sheets, Docs, and Slides all in one. I used rhandsontable and shinyAce to setup a basic version of the first two, but no amount of searching revealed how to use knitr to create and display slides within a Shiny app. This server code knits an Rmarkdown file in the app:

output$knitDoc <- renderUI({
  input$eval
  return(isolate(HTML(knit2html(text = input$rmd, fragment.only = TRUE, quiet = TRUE))))
    }) 

I'd like to know whether or not it's possible to do something similar to create slides. The prototype is here in display mode (scroll down to see the code):

https://gfleetwood.shinyapps.io/one-doc/

Thanks in advance for any help.