datatable nie wyświetla się w Shiny dashboard


datatable nie jest wyświetlany w Shinydashboard. Po prostu robi cienki biały pasek na pudełko. Uruchomienie tylko funkcji datatable w RStudio powoduje wyświetlenie datatable w przeglądarce RStudio. Jak więc poprawnie wyrenderować datatable DT w błyszczącej aplikacji?
## app.R ##
library(shiny)
library(shinydashboard)
library(htmlwidgets)
library(DT)
library(xtable)
source('../ts01/db.R')ui <- dashboardPage( dashboardHeader(),
dashboardSidebar(),
dashboardBody( fluidRow( box(tableOutput("table1"))
)
))server <- function(input, output) {
output$table1 <- DT::renderDataTable({
datatable(amount_data)
})
}shinyApp(ui, server)

Zaproszony:
Anonimowy użytkownik

Anonimowy użytkownik

Potwierdzenie od:

Powinieneś spróbować następujących rzeczy:

1)
tableOutput

rm(list = ls())
library(shiny)
library(shinydashboard)
my_data <- head(mtcars)ui <- dashboardPage( dashboardHeader(),
dashboardSidebar(),
dashboardBody( fluidRow( box(tableOutput("table1"))
)
))server <- function(input, output) {
output$table1 <- renderTable({
my_data
})
}shinyApp(ui, server)


2)
dataTableOutput

rm(list = ls())
library(shiny)
library(DT)
library(shinydashboard)my_data <- head(mtcars)ui <- dashboardPage( dashboardHeader(),
dashboardSidebar(),
dashboardBody( fluidRow( box(DT::dataTableOutput("table1"))
)
))server <- function(input, output) {
output$table1 <- DT::renderDataTable({
datatable(my_data)
})
}shinyApp(ui, server)
Anonimowy użytkownik

Anonimowy użytkownik

Potwierdzenie od:

Aby upewnić się, że używasz odpowiedniego pakietu do renderowania danych, użyj tego w swoim interfejsie użytkownika:
DT::dataTableOutput('table1')

Aby odpowiedzieć na pytania, Zaloguj się lub Zarejestruj się