使用 flexdashboard 模板重现闪亮

Posted 2023-03-24

【中文标题】使用 flexdashboard 模板重现闪亮

【英文标题】：reproducing shiny using flexdashboard template

【发布时间】：2016-09-18 02:28:02

【问题描述】：

我从 Shinygallery 借用了下面的代码并进行了一些更改。基本上这使用fluidPage。我有兴趣使用 flexdashboard 重做同样的事情。我已经通过flexdashboard userguide。 但是该网站上的描述是某种 rmarkdown 或 sweave 格式？我不熟悉。因此，如果我可以在没有降价或 sweave 的情况下看到此示例的 flexdashboard 版本，那么我可以轻松地与不同的组件相关联并以此为基础。任何提示或指示都表示赞赏。

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)

【参考方案1】：

我很快把它放在一起。

不完美。但它通常可以完成工作（我不得不下班，也许今晚晚些时候我会调整一下）

请注意，在这篇文章之前我也从未遇到过flexdashboard。我已经使用了很多 shinydashboard 以及 RMarkdown，所以这绝对很有趣。不知道flexdashboard 会在shinydashboard 之外真正为我个人添加什么，但我肯定会更多地使用它。

无论如何...

---
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)
  )
```

一个大问题是，当我调用 row 时，我会在一行而不是两个不同的行上找到两个图。我会玩得更远。

【讨论】：

感谢 Andrew，由于某种原因，数据表在最后一个选项卡中没有为我打开。我会深入研究。

您可能需要在设置部分使用library(DT)。但这似乎是issue in flexdashboard 的一个问题，我看到@missy 提出了这个问题。