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)