Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- server <- function(input, output, session){
- addingAnimals <- function(input) {
- conn <- dbConnect(
- drv = dbDriver("PostgreSQL"),
- user = "nela",
- dbname = "postgres",
- host = "localhost",
- port = 5432,
- password = "haslo"
- )
- on.exit(dbDisconnect(conn))
- # result <-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 <-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)
- }
- observeEvent(input$add, isolate({addingAnimals(input)}))
- 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)
- # })
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement