R Shiny app embedded in PowerPoint

Question

Let's consider a simple r shiny application

# Global variables can go here
n <- 200
# Define the UI
ui <- bootstrapPage(
  numericInput('n', 'Number of obs', n),
  plotOutput('plot')
)
# Define the server code
server <- function(input, output) {
  output$plot <- renderPlot({
    hist(runif(input$n))
  })
}
# Return a Shiny app object
shinyApp(ui = ui, server = server)

I would like to implement this application into my (Microsoft) PowerPoint presentation without losing its interactivity. I tried some things, but with little success:

• ReporteRs package is promising, but I couldn’t find the way to directly include shiny application.
• Another way is to install a gadget for live web pages into PowerPoint. In this case I can host my application on a web server and connect to that server with PowerPoint. But I don’t want that (there are sometimes problems with internet …).
• Thirdly, I could create a presentation in R Markdown and later implement it into PowerPoint, but also didn’t find the way to do it. So, are there any suggestions?