如何在闪亮的应用程序中输出仪表板正文中的数据库表？

Question

如何将数据库查询的结果输出到我闪亮的应用程序仪表板中。这是我的密码

library(shiny)
library(shinydashboard)
library(dbConnect)
library(RMySQL)
library(DBI)
library(foreign)

conn <- dbConnect(
    drv = RMySQL::MySQL(),
    dbname = "shinytest",
    host = "localhost",
    username = "root",
    password = "root")

rs <- dbGetQuery(conn, "Select * from test;") 

ui <- dashboardPage(
  dashboardHeader(title = "Basic dashboard"),
  dashboardSidebar(),
  dashboardBody())

server <- function(input, output) {}

shinyApp(ui, server)

现在，代码rs <- dbGetQuery(conn, "Select * from test")确实在控制台窗口中给出了输出，但是我想在仪表板正文中输出它。我怎样才能做到这一点？

Answer 1

library(shiny)
library(shinydashboard)
library(dbConnect)
library(RMySQL)
library(DBI)
library(foreign)

dbDisconnect(conn)
conn <- dbConnect(
    drv = RMySQL::MySQL(),
    dbname = "apilogs",
    host = "localhost",
    username = "root",
    password = "root")

rs <- dbGetQuery(conn, "Select * from test;") 

ui <- dashboardPage(
  dashboardHeader(title = "Basic dashboard"),
  dashboardSidebar(),
  dashboardBody(box(

tableOutput('table')
)))


server <- function(input, output) {
output$table <- renderTable(rs)

}

dbDisconnect(conn)
shinyApp(ui, server)