Столбцы из datatable исчезают в блестящем приложении

Question

У меня проблема с функцией DT :: renderDatatable, может быть, кто-то может помочь. Я пытаюсь отобразить таблицу data.table в блестящем приложении, и он показывает только первые 9 из 14 столбцов. Когда я печатаю 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)))