-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のインタラクティブなテーブルを作成しました。私はコードの作業を理解できませんでした。誰かがこのコードがサーバー機能でどのように機能するかを説明してくれれば幸いです。ありがとう:)リアクティブ関数のコードを説明してください
クール、ありがとうございました。 :)役に立った – Vinit