sheet - reproduciendo brillante usando la plantilla de flexdashboard

flexdashboard themes

Question

Pedí prestado este código a continuación desde la galería brillante e hice algunos cambios. Básicamente esto usa fluidPage . Estoy interesado en rehacer lo mismo usando flexdashboard . He pasado por la guía de usuario de flexdashboard . pero las descripciones en ese sitio web están en algún formato de reducción o eliminación? con lo que no estoy familiarizado Entonces, si puedo ver la versión de flexdashboard de este ejemplo sin el descuento o la reducción, entonces puedo relacionarme fácilmente con diferentes componentes y construir sobre eso. Cualquier consejo o punteros son personas apreciadas.

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)

Answer 1

Rápidamente armé esto.

No es perfecto. Pero generalmente hace el trabajo (y tengo que dejar el trabajo, tal vez lo ajuste más tarde esta noche)

Tenga en cuenta que nunca antes me había encontrado con flexdashboard antes de esta publicación. Había usado shinydashboard un poco, así como RMarkdown, así que esto es definitivamente interesante. No estoy seguro de qué flexdashboard realmente agregará para mí personalmente más allá de shinydashboard , pero definitivamente voy a jugar con él un poco más.

De todas formas...

---
title: "Test App"
output: flexdashboard::flex_dashboard
---
Plot
=====================================
row
-------------------------------------
```{r}
library(shiny)
renderPlot({
plot(cars)
})
```
row
-------------------------------------
```{r}
renderPlot({
plot(iris)
})
```
Summary
=====================================
```{r}
renderPrint({
summary(cars)
})
```
Table
=====================================
```{r}
DT::renderDataTable({
DT::datatable(cars)
})
```

El único gran problema es que, mientras llamo a row, estoy llegando a las dos parcelas en una sola fila en lugar de a dos filas diferentes. Jugaré más lejos.