光沢のあるアプリケーションで消えるデータテーブルの列

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

個人的に私はあなたがobserve文の中の小さな物事を行う必要があるとして、あなたはobserveEventでやっていることが好きではありません。おそらく、この代替案はうまくいくでしょうか？

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