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)))

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

1 个答案: