server

server <- function(input, output, session){

output$animals <- renderDataTable({
    conn <- dbConnect(
       drv = dbDriver("PostgreSQL"),
       user = "nela",
      dbname = "postgres",
      host = "localhost",
       port = 5432,
       password = "eLipsonka97"
    )
    on.exit(dbDisconnect(conn), add = TRUE)
     dbGetQuery(conn, "SELECT * FROM zwierzeta;")
  })
  output$guardian <- renderDataTable({
    conn <- dbConnect(
      drv = dbDriver("PostgreSQL"),
      user = "nela",
      dbname = "postgres",
      host = "localhost",
      port = 5432,
      password = "eLipsonka97"
    )
    on.exit(dbDisconnect(conn), add = TRUE)
    dbGetQuery(conn, "SELECT * FROM opiekunowie;")
  })
  output$diet <- renderDataTable({
    conn <- dbConnect(
      drv = dbDriver("PostgreSQL"),
      user = "nela",
      dbname = "postgres",
      host = "localhost",
      port = 5432,
      password = "eLipsonka97"
    )
    on.exit(dbDisconnect(conn), add = TRUE)
    dbGetQuery(conn, "SELECT * FROM zwierzeta JOIN dieta USING(id_zwierzecia);")
  })
  output$vet <- renderDataTable({
    conn <- dbConnect(
      drv = dbDriver("PostgreSQL"),
      user = "nela",
      dbname = "postgres",
      host = "localhost",
      port = 5432,
      password = "eLipsonka97"
    )
    on.exit(dbDisconnect(conn), add = TRUE)
    dbGetQuery(conn, "SELECT * FROM weterynarze;")
  })
  output$sectorA <- renderDataTable({
    conn <- dbConnect(
      drv = dbDriver("PostgreSQL"),
      user = "nela",
      dbname = "postgres",
      host = "localhost",
      port = 5432,
      password = "eLipsonka97"
    )
    on.exit(dbDisconnect(conn), add = TRUE)
    dbGetQuery(conn, "SELECT * FROM zwierzeta WHERE sektor = 'A';")
  })
  output$sectorB <- renderDataTable({
    conn <- dbConnect(
      drv = dbDriver("PostgreSQL"),
      user = "nela",
      dbname = "postgres",
      host = "localhost",
      port = 5432,
      password = "eLipsonka97"
    )
    on.exit(dbDisconnect(conn), add = TRUE)
    dbGetQuery(conn, "SELECT * FROM zwierzeta WHERE sektor = 'B';")
  })
  output$sectorC <- renderDataTable({
    conn <- dbConnect(
      drv = dbDriver("PostgreSQL"),
      user = "nela",
      dbname = "postgres",
      host = "localhost",
      port = 5432,
      password = "eLipsonka97"
    )
    on.exit(dbDisconnect(conn), add = TRUE)
    dbGetQuery(conn, "SELECT * FROM zwierzeta WHERE sektor = 'C';")
  })
  output$sectorD <- renderDataTable({
    conn <- dbConnect(
      drv = dbDriver("PostgreSQL"),
      user = "nela",
      dbname = "postgres",
      host = "localhost",
      port = 5432,
      password = "eLipsonka97"
    )
    on.exit(dbDisconnect(conn), add = TRUE)
    dbGetQuery(conn, "SELECT * FROM zwierzeta WHERE sektor = 'D';")
  })
  output$sectorE <- renderDataTable({
    conn <- dbConnect(
      drv = dbDriver("PostgreSQL"),
      user = "nela",
      dbname = "postgres",
      host = "localhost",
      port = 5432,
      password = "eLipsonka97"
    )
    on.exit(dbDisconnect(conn), add = TRUE)
    dbGetQuery(conn, "SELECT * FROM zwierzeta WHERE sektor = 'E';")
  })
  output$sectorF <- renderDataTable({
    conn <- dbConnect(
      drv = dbDriver("PostgreSQL"),
      user = "nela",
      dbname = "postgres",
      host = "localhost",
      port = 5432,
      password = "eLipsonka97"
    )
    on.exit(dbDisconnect(conn), add = TRUE)
    dbGetQuery(conn, "SELECT * FROM zwierzeta WHERE sektor = 'F';")
  })
  output$sectorG <- renderDataTable({
    conn <- dbConnect(
      drv = dbDriver("PostgreSQL"),
      user = "nela",
      dbname = "postgres",
      host = "localhost",
      port = 5432,
      password = "eLipsonka97"
    )
    on.exit(dbDisconnect(conn), add = TRUE)
    dbGetQuery(conn, "SELECT * FROM zwierzeta WHERE sektor = 'G';")
  })
  output$sectorH <- renderDataTable({
    conn <- dbConnect(
      drv = dbDriver("PostgreSQL"),
      user = "nela",
      dbname = "postgres",
      host = "localhost",
      port = 5432,
      password = "eLipsonka97"
    )
    on.exit(dbDisconnect(conn), add = TRUE)
    dbGetQuery(conn, "SELECT * FROM zwierzeta WHERE sektor = 'H';")
  })
  output$visits <- renderDataTable({
    conn <- dbConnect(
      drv = dbDriver("PostgreSQL"),
      user = "nela",
      dbname = "postgres",
      host = "localhost",
      port = 5432,
      password = "eLipsonka97"
    )
    on.exit(dbDisconnect(conn), add = TRUE)
    dbGetQuery(conn, "SELECT * FROM wizyty JOIN diagnozy USING(id_wizyty) LEFT JOIN leczenie USING(id_wizyty);")
  })
   output$res <- renderText({
    req(input$sidebarItemExpanded)
    paste("Expanded menu item: ", input$sidebarItemExpanded)
  })

}