1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33
|
library(DBI)
library(ROracle)
library(DT)
library(shinydashboard)
header <- dashboardHeader()
sidebar <- dashboardSidebar()
body <- dashboardBody(
DT::dataTableOutput('tableId'))
shinyApp(
ui = dashboardPage(skin = "blue", header, sidebar, body),
server = function(input, output, session= open()) {
drv <- dbDriver("Oracle")
host <- "host"
port <- port
svc <- "svc"
connect.string <- paste(
"(DESCRIPTION=", "(ADDRESS=(PROTOCOL=tcp)(HOST=", host, ")(PORT=", port, "))",
"(CONNECT_DATA=(SERVICE_NAME=", svc, ")))", sep = "")
DB <- dbConnect(drv, username = "username", password = "password", dbname = connect.string)
req22 <- reactive({
a = dbGetQuery(DB, "SELECT ID_CLIENT, NAME_CLIENT, INFO_CLIENT, DATE_CLIENT FROM CLIENT")
})
output$tableId = renderDataTable(req22(),options(DT.options =list(pageLength=5 )))
}) |
Partager