フレックスダッシュボードテンプレートを使用して光沢を再現

Question

shinygalleryからこのコードを借りていくつか変更を加えました。基本的にはfluidPageが使用されます。 flexdashboardを使用して同じことをやり直すことに興味があります。私はflexdashboard userguideを通過しました。 しかし、そのウェブサイトの記述はいくつかのrmarkdownまたはswave形式ですか？私はそれに精通していません。ですから、マークダウンやスウィーブなしでこの例の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) 

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

一つの大きな問題は、私は、行を呼んでいる一方で、私は単一の行上の2つのプロットの代わりに、二つの異なる行になってるということで。私はさらにプレイします。