数据表中的列在闪亮的应用程序中消失

Question

我对 DT::renderDatatable 功能有疑问，也许有人可以提供帮助。我试图在闪亮的应用程序中显示 data.table，它只显示 14 列中的前 9 列。当我将 DT 打印到控制台时，它工作正常。

 # load and render
     observeEvent(input$btLoadUserRules, {
    # get data.frame with user rules
    df.temp1 <- oFormUserRules$getAllUserRules()
    # convert to data.table
    dt.temp2 <- data.table(df.temp1)


    output$tbl_tab2_1 <- DT::renderDataTable(dt.temp2,
                                             options = list(paging = FALSE, searching = FALSE))

谢谢！

玛丽

Answer 1

就我个人而言，我不喜欢你在 observeEvent 中所做的事情，因为你应该在 observe 声明中做一些小事。也许这个替代方案会奏效？

dt.temp2 <- eventReactive(input$btLoadUserRules, {
        # get data.frame with user rules
        return(as.data.table(oFormUserRules$getAllUserRules())))
output$tbl_tab2_1 <- DT::renderDataTable(dt.temp2(),options = list(paging = FALSE, searching = FALSE)))

数据表中的列在闪亮的应用程序中消失

Columns from datatable disappearing in shiny application

r

shiny

data.table

dt