使用Shiny app小部件进行Slidify的新示例？

Question

我厌倦了通过互联网看到Slidify演示文稿中嵌入的相同的Shiny Quiz示例。我没有简单的index.Rmd文件，您可以清楚地看到闪亮的ui.R和server.R代码是如何嵌入到Slidify演示文稿中使用小部件的并加载一些数据？

我需要了解如何使用小部件添加到Slidify经典ui.R

shinyUI(fluidPage(
  sidebarLayout(
    sidebarPanel( *widgets here* )
    mainPanel( *output from interactive render functions* )
  )
))

和server.R加载一些数据并使用相应的renderX函数

shinyServer(function(input, output) {

  output$out1 <- renderText({ ...})
...
}

提前感谢您的支持！