2017-01-19 1 views
2

반짝이는 데이터 테이블을 만들려고합니다. 이 솔루션은 이전에 일하고있다하지만 난 더이상 그것을 위해 무언가를 변경해야합니다 :데이터 테이블이 반짝이는 렌더링되지 않습니다.

output$ltl_tbl <- renderDataTable({ 
    input$refresh 
    ltl_view <- car() 
    colnames(ltl_view) <- c('Carrier', 'Volume', 'CWT', 'On Time') 
    DT::datatable(ltl_view, 
       options = list(lengthMenu = c(10, 25, 50), 
           pageLength = 10, 
           orderClasses = TRUE, 
           fillContainer = TRUE, 
           searching = FALSE), 
       rownames = FALSE 
) %>% 
    formatCurrency(3, '$') %>% formatPercentage(4, 0) %>% formatCurrency(2, '', digits= 0) 
}) 

난 그냥 다음 몇 가지 옵션 만이 가진 데이터 테이블을 생성, 열 이름을 변경, 반응성 기능에서 dataframe를 호출하고 왜 작동하지 않는 나는 이유를 알아낼 수 없습니다.

format (formatCurrency & formatPercentage)을 제거하고 실제 데이터 테이블 위의 행 (예 : 열 이름 및 데이터 프레임 할당 변경)을 제거하면 내 shinyapp에 데이터 테이블이 렌더링됩니다.

답변

1

알아 냈어. 나는 그 전화를 애매하게 만들었던 또 다른 패키지를 추가 했음에 틀림 없다. 사용자 인터페이스와 서버 측에 다음을 추가함으로써 작동했습니다.

DT::renderDataTable 

DT::dataTableOutput 
관련 문제