Spalten von Datatable verschwinden in glänzenden Anwendung

Question

Ich habe ein Problem mit der DT :: renderDatatable-Funktion, vielleicht kann jemand helfen. Ich versuche, eine data.table in einer glänzenden App anzuzeigen, und es zeigt nur die ersten 9 von 14 Spalten an. Wenn ich das DT auf die Konsole drucke, funktioniert es gut.

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

Vielen Dank!

Marie

Answer 1

Persönlich mag ich nicht, was Sie in observeEvent tun, wie Sie jemals in observe Anweisung kleine Dinge tun sollen. Vielleicht wird diese Alternative funktionieren?

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