2017-01-20 14 views
-3
1 dat <- reactive({ 
2 input$myslider 
3 mtcars[1:input$myslider,c("mpg", "cyl", "disp")] 
4  
5 }) 
6 
7 output$mytable <- DT::renderDataTable(dat(), 
8          options = list(paging=FALSE, scrollX =TRUE), 
9          rownames=TRUE, filter = "top")) 
} 

皆さん、私はかなり初心者ですが、シャイニーのアプリケーションを学んでいます。 Zevrossにこのアプリケーションコードがあり、DTのインタラクティブなテーブルを作成しました。私はコードの作業を理解できませんでした。誰かがこのコードがサーバー機能でどのように機能するかを説明してくれれば幸いです。ありがとう:)リアクティブ関数のコードを説明してください

答えて

1

行2:冗長、それはの値だけを出力するので、それを取り除くことができます。

行3:サブセットは、スライダ上の数であり、列mpgcyldispどのように行1からmtcarsオブジェクト。結果は、n×3のdata.frameである。

行4:空。 :)

ライン7:反応性環境dat(ここで、data.frameはスライダ入力に基づいて生成されます)は、renderDataTableになります。 Options are passed on to datatable(利用可能なすべてを参照してくださいoptions hereを参照してください)。この行は結果を光沢のあるアプリに描かれた出力に結び付けます。

+0

クール、ありがとうございました。 :)役に立った – Vinit

関連する問題