2017-01-19 6 views
2

Я пытаюсь создать datatable в блестящем. Это решение работает ранее, но я должен быть изменен кое-что для него не больше:Datatable not render in shiny

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 от реактивной функции, изменение имен столбцов, то создание DataTable с некоторыми вариантами, но это не работает, и я не могу понять, почему.

Когда я удаляю формат столбца (formatCurrency & formatPercentage), а также удаляю строки над фактическим datatable (например, меняя названия столбцов и назначение данных), он будет отображать данные в моем shinyapp.

ответ

1

Выяснил это. Я должен добавить еще один пакет, который сделал вызов неоднозначным. Добавив следующее в интерфейсе пользователя и на стороне сервера, он сработал.

DT::renderDataTable 

DT::dataTableOutput