当前位置：网站首页>Shiny04---Application of DT and progress bar in shiny

Shiny04---Application of DT and progress bar in shiny

2022-08-05 07:03:00 【51CTO】

找了半天终于找到了shinyThe method to display the progress bar in ,直接上demo,记录下.

UI脚本

       
       ### UI
       
library(shiny)
       
ui = fluidPage(
       
  sidebarPanel(
       
    #Control keys for the sidebar
       
    width = 3,#设置侧边栏的宽度
       
    #时间控件
       
    dateRangeInput(
       
      inputId = "date",
       
      label = h2(strong(span("日  期", style = "color:blue"))),
       
      start = Sys.Date() - 7,
       
      #Start date setting
       
      end = Sys.Date() - 1,
       
      language = "zh-CN",
       
      width = "90%",
       
      separator = "至"
       
    ),
       
    actionButton(inputId = "update", label = "提 交",icon=icon('play-circle'))
       
),
       
mainPanel(DT::dataTableOutput(outputId = 'tbl'))
       
)
      
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.

Server脚本

       
       if (!require("DT")){install.packages('DT')}
       
library(shiny)
       
library(DT)
       
## All in the scriptdatatable()part together.
       
## Change the description text in the table to Chinese
       
options(DT.options = list(
       
  searchHighlight = TRUE,
       
  language = list(
       
    info = '显示第_START_ 至 _END_ 项结果,共 _TOTAL_ 项',
       
    search = '搜索:',
       
    paginate = list(previous = '上页', `next` = '下页'),
       
    lengthMenu = '显示 _MENU_ 项结果'
       
  ),
       
  columnDefs = list(
       
    list(className = 'dt-center',targets = "_all"))# Set the columns in the table to be centered ,参数targetsThe value of can select the specified column,All can also be displayed
       
))
       
shinyServer(function(input, output, session) {
       
  ## 点击actionButtonbutton to update the data,and a loading progress bar
       
  datasetInput <- eventReactive(
       
    eventExpr = input$update,
       
    valueExpr = {
       
      # Plus progress bar display
       
      progress <-
       
        Progress$new(session,
       
                     min = 1,
       
                     max = 10
       
                     # ,style = "old"
       
                     )
       
      on.exit(progress$close())
       
      progress$set(message = '程序执行中')
       
      for (i in 1:5) {
       
        progress$set(value = i)
       
        Sys.sleep(0.5)
       
      }
       
      data <- iris
       
      for (i in 6:10) {
       
        progress$set(value = i)
       
        Sys.sleep(0.5)
       
      }
       
      data
       
    },
       
    ignoreNULL = T
       
  )
       
  output$tbl = DT::renderDataTable(
       
    ## Modify a column in percent format
       
    expr={datatable(datasetInput())%>%formatPercentage(4, 2)} ,
       
    filter = 'top',
       
    # The location of the filter box
       
    server = TRUE,
       
    # 不显示行名
       
    rownames = FALSE,
       
    # 添加表格标题
       
    caption = "The case for the form",
       
    options = list(autoWidth = TRUE )
       
  )
       
}
       
)
      
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.

最终页面

Shiny04---DTand progress bar inshiny中的应用_ico

Shiny04---DTand progress bar inshiny中的应用_进度条_02

REF

[1] https://datatables.net/reference/option/

[2] http://www.jianshu.com/p/90e290e80cd0

后记

参数太多了,I'm just concerned with the simple implementation of the function,所以,Just know a little bit about it.Refer to the document parameter setting is too much to think about,And all in English,感兴趣&Have time to look at it more~

原网站

版权声明
本文为[51CTO]所创，转载请带上原文链接，感谢
https://yzsam.com/2022/217/202208050625362289.html