mainPanel(
DT::dataTableOutput("table"), #My Table
plotOutput("plot")) # My graph
downloadButton("plot_export", "PDF"),
                         # Button
downloadButton("downloadData", "XLS")
 ))

cpk_total <- reactive({
 data_testeur <- odbcConnect(input$base, uid="uid")

 SQL query to feed my dataTable

 Close connexion data_testeur

 return result created from the SQL query
})

 output$Table <- DT::renderDataTable({
 DT::datatable(cpk_total(),...) # Formating table
  })

output$plot <- renderPlot({
dta <- cpk_total()
data_testeur <- odbcConnect(input$base, uid="uid")

  another SQL query to trace the graph for 1 item selected
  #This SQL query use a variable from the created cpk_total table

 Close connexion data_testeur

 graph <- ....

   )