R shiny 交互式表格

目录

1.需求

2.问题

3.解决

3.1 DT包

3.2 reactable包

3 reactablefmtr包（插入图标）

4 结果

---

1.需求

        在shiny的使用中，需要有一个交互式的表格来实现查看，操作以及管理功能。

        具体场景是用户提交一则申请，管理员进行批准和拒绝操作。

2.问题

        有现成的插件，但是不够美观

        不方便使用observe、observeEvent等在shiny server监听button事件

3.解决

3.1 DT包

         
DT::datatable(
            cal_df_display,
            # filter = list(position="top",targets=c(3,4,5,6)),
            selection = "none",
            # callback = childtb_js,
            # rownames = rowNames,
            escape = FALSE,
            options = list(
              keys = TRUE,
              fixedHeader = TRUE,
              dom="frtip",
              search = list(regex=TRUE,caseInsensitive=TRUE),
              # columnDefs = list(list(targets = c(2,3,4,5,6,7,8), orderable = FALSE)),
              pageLength = 15
            )
            # extensions = c("Select","SearchPanes")
          )

3.2 reactable包

问题：想要修改DT包的theme风格

R代码：

    
library(reactable)     
reactable(
            cal_df_display,
            showPageInfo = TRUE,
            # filterable = TRU