Salut à tous, je résalise une application R shiny mais je trouve des difficultés à coder.
J'utilise une Base de données Oracle et la table que j'utilise est CLIENT(ID_CLIENT, NAME_CLIENT, INFO_CLIENT, DATE_CLIENT)
Je voudrais avoir toutes les informations du client à partir de req22() qui utilise une fonction réactive et afficher tout dans tableau de type DataTable
Malheureusement j'ai cette erreur ci : Error in &&: type 'x' incorrect dans 'x && y'
Apparemment l'erreur est ici renderDataTable(req22(),options(DT.options =list(pageLength=5 ))) , je ne sais pas bien comment écrire req22.
Pourriez-vous m'aider s'i vous plait ? Je vous remercie d'avance. Voici mon code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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 ))) 
})