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

 addingAnimals <- function(imie,gatunek,plec,data_urodzenia, sektor, id_opiekuna) {
   conn <- dbConnect(
    drv = dbDriver("PostgreSQL"),
     user = "nela",
     dbname = "postgres",
     host = "localhost",
     port = 5432,
     password = "haslo"
   )
   #on.exit(dbDisconnect(conn))
   # sql <- reactive({paste("INSERT INTO zwierzeta (imie, gatunek, plec, data_urodzenia, sektor, id_opiekuna) VALUES
   #                   (",input$imie,", ",input$gatunek,", ",input$plec,", ",input$data_urodzenia,", ",input$sektor,", ",input$id_opiekuna,")")
   # })
   result <- reactive({sprintf("INSERT INTO zwierzeta (imie, gatunek, plec, data_urodzenia, sektor, id_opiekuna) VALUES (%s,%s,%s,%s,%s,%s)",
                      input$imie, input$gatunek, input$plec, input$data_urodzenia, input$sektor, input$id_opiekuna)})
   dbSendQuery(conn, result)

   isolate({
       addingAnimals(imie, gatunek, plec, data_urodzenia, sektor, id_opiekuna)
     })


 }
 #observeEvent(input$add, {addRow(dataTableProxy(outputId = "animals", session = shiny::getDefaultReactiveDomain()),
#                                 input$imie, input$gatunek, input$plec, input$data_urodzenia, input$sektor, input$id_opiekuna)})



output$animals <- renderDataTable({
    conn <- dbConnect(
       drv = dbDriver("PostgreSQL"),
       user = "nela",
      dbname = "postgres",
      host = "localhost",
       port = 5432,
      password = "haslo"

    )
    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 = "haslo"
    )
    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 = "haslo"
    )
    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 = "haslo"
    )
    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 = "haslo"
    )
    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 = "haslo"
    )
    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 = "haslo"
    )
    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 = "haslo"
    )
    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 = "haslo"
    )
    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 = "haslo"
    )
    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 = "haslo"
    )
    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 = "haslo"
    )
    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 = "haslo"
    )
    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)
  })
   # observeEvent(input$add, {
   #   addRow(dataTableProxy(outputId = "animals", session = shiny::getDefaultReactiveDomain()),
   #          data = data.frame(row.names =  "imie", "gatunek", "plec", "data_urodzenia", "sektor", "id_opiekuna" ) ,
   #          input$input)
   # })

}