reproduzindo brilhante usando o modelo flexdashboard

Peguei emprestado esse código abaixo da brightgallery e fiz algumas alterações. Basicamente, isso usafluidPage. Estou interessado em refazer a mesma coisa usandoflexdashboard . Eu passei peloflexdashboard userguide. mas as descrições nesse site estão em algum formato rmarkdown ou sweave? com o qual não estou familiarizado. Portanto, se eu puder ver a versão flexdashboard deste exemplo sem a remarcação ou sweave, eu posso facilmente me relacionar com diferentes componentes e aproveitar isso. Quaisquer dicas ou sugestões são apreciadas pessoal.

library(shiny)
ui = shinyUI(fluidPage(
                mainPanel(
                 tabsetPanel(
                   tabPanel("Plot",plotOutput("plot1"),plotOutput("plot2")),
                   tabPanel("Summary",verbatimTextOutput("summary")),
                  tabPanel("Table",DT::dataTableOutput("table"))
                   ))))

server = shinyServer(function(input, output, session) {
  output$plot1 <- renderPlot({
    plot(cars)
  })

  output$plot2 <- renderPlot({
    plot(iris)
  })

  output$summary <- renderPrint({
    summary(cars)
  })

  output$table <- DT::renderDataTable({
    DT::datatable(cars)
  })
})

shinyApp(ui, server)

questionAnswers(1)

yourAnswerToTheQuestion