25_R互動式網頁_DataTable

 在前面有介紹到Shiny套件在網頁呈現資料表格的方式，當然是很陽春!而今天我們在開發Web時都會常做的頁面，將資料呈現在網頁上，可讓使用者選擇整個頁面總共出現幾筆資料，並有關鍵字可進行搜尋，網頁的下方有資料的分頁。

我相信!在開發Web頁面時這些都是很基本的功能，甚至有時使用者會要求依據他篩選的資料要求，下載成csv或Execl檔案，供它們後續的加值應用。

因此本篇將以R的資料集iris進行，首先也是開一個新的資料夾，並將ui.R及server.R開新檔分別命名，當然也可以將之前幾篇的檔案複製過來；接下來安裝套件DT，而DT套件是甚麼?DT套件使得JavaScript中的方法能在R中被應用，並將矩陣或者數據表在網頁中可視化成表格，程式碼如下

ui.R程式

library(shiny)
library(DT)
ui <- fluidPage(
  titlePanel("Data Table Download"),
  sidebarLayout(
    sidebarPanel(
      
    ),
    mainPanel(
      DT::dataTableOutput("iris")
    )
  )
)

server.R程式

library(shiny)

server <- shinyServer(function(input,output){

  output$iris <- DT::renderDataTable({

    iris

  })

})

成果如下

老實說真的很簡單!做出來東西雖然不很炫!但簡單乾淨，當然有很多參數可調，可使用?DT()就會有眾多參數進行調整，接下來就是依據使用者的篩選後的結果下載，目前我們的搜尋針對項次做搜尋，而搜尋的結果可下載成csv檔案，本次只要修改server.R即可，ui.R維持原樣程式碼如下

library(shiny)

server <- shinyServer(function(input,output){

  output$iris <-  DT::renderDataTable({

    DT::datatable(iris,

                  extensions = 'Buttons',

                  options = list(

                    dom = 'Blfrtip',

                    buttons = 

                      list(

                        list(

                          extend = 'csv',

                          buttons = c('csv'),

                          exportOptions = list(

                            modifiers = list(page = "current")

                          )

                        ))

                  )

    )

  })

  

})

其中程式碼中Blfrtip是有意義不是單純字串，解釋如下

l- l更改輸入量

f- f過濾輸入

t-有t能力！

i-表i信息摘要

p- p攪拌控制

r- r處理顯示元素

成果如下

下一篇見!