con <- dbConnect(MySQL(),
                 user = '#',
                 password = '#',
                 host = '#',
                 dbname='#')

tickets<-dbGetQuery(con, "Select * from table")
issues_speed_unique<-unique(na.omit(dbGetQuery(con,"Select * from table2")))
dbDisconnect (con)

some aggregations....

shinyServer(
  function(input,output){
     ...

shinyUI(fluidPage(
     ...

shinyApp(ui = ui, server = server)