3

以下のコードは、shinygallery から借りて、いくつかの変更を加えました。基本的にこれは を使用しfluidPageます。を使用して同じことをやり直すことに興味がありflexdashboardます。私はflexdashboardのユーザーガイドを読みました。しかし、そのWebサイトの説明は、rmarkdownまたはsweave形式です?? 私はよく知らない。したがって、この例のフレックスダッシュボード バージョンをマークダウンやスウィーブなしで見ることができれば、さまざまなコンポーネントに簡単に関連付けて、それに基づいて構築することができます。ヒントやポインタは大歓迎です。

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

1 に答える 1

3

これを早速組みました。

完璧ではありません。しかし、それは通常、仕事を終わらせます（そして、私は仕事を離れなければなりません。多分、今夜遅くに微調整します）

flexdashboard私もこの投稿の前に出くわしたことがなかったことに注意してください。私はshinydashboardRMarkdownと同様にかなり使用していたので、これは間違いなく興味深いものです。個人的に何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)
  })
```

1 つの大きな問題は、row を呼び出しているときに、2 つの異なる行ではなく、1 つの行で 2 つのプロットに到達することです。さらに遊びます。

于 2016-05-20T18:57:31.487 に答える