Это очень странная проблема, и я ломал голову последние несколько часов. Получите воспроизводимый пример ниже. Кажется, это ошибка в блестящем пакете R DT.
Итак, давайте посмотрим, что происходит.
library(shiny)
library(DT)
df1 <- data.frame(x=1:10,y=1:2)
ui <- fluidPage(
fluidRow(
DTOutput("list1")
#DTOutput("list2")
)
)
server <- function(input,output) {
output$list1 <- renderDT(df1)
output$list2 <- renderDT(mtcars)
}
shinyApp(ui, server)
Приведенный выше код не отображает простой data.frame из 10 строк. Вместо этого просто показывает пустую таблицу. Снимок экрана прилагается.
![Rstudio viewer screenshot with blank output](https://i.stack.imgur.com/OaDPR.png)
Но очень удивительно, если я просто заменю data.frame на mtcars
, он отображается правильно. Вам просто нужно раскомментировать следующую DTOutput
строку. И прокомментируйте первый DTOutput
перед запуском shinyapp.
#DTOutput("list1")
DTOutput("list2")
Снимок экрана после того, как мы закомментировали предыдущий DTOutput
и раскомментировали следующий
.
UPDATE
Дальнейшее сужение проблемы Я наблюдаю те же симптомы при выводе данных с использованием пакета DT
R без использования shiny
.
Попытка
DT::datatable(data = data.frame(name=letters,age=1:13))
Я просто вижу name
, age
в средстве просмотра Rstudio, а также в браузере Chrome и без содержимого таблицы.
![enter image description here](https://i.stack.imgur.com/CPkuY.png)