Advertisement
Guest User

server

a guest
Feb 9th, 2018
100
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
R 5.76 KB | None | 0 0
  1.  
  2. server <- function(input, output, session){
  3.  
  4.  addingAnimals <- function(input) {
  5.    conn <- dbConnect(
  6.     drv = dbDriver("PostgreSQL"),
  7.      user = "nela",
  8.      dbname = "postgres",
  9.      host = "localhost",
  10.      port = 5432,
  11.      password = "haslo"
  12.    )
  13.    on.exit(dbDisconnect(conn))
  14.    # result <-paste("INSERT INTO zwierzeta(imie, gatunek, plec, data_urodzenia, sektor, id_opiekuna)
  15.    #              VALUES (",input$imie,",",input$gatunek,",",input$plec,",",input$data_urodzenia,",",input$sektor,",",input$id_opiekuna,");")
  16.    #
  17.  
  18.     result <-sprintf("INSERT INTO zwierzeta (imie, gatunek, plec, data_urodzenia, sektor, id_opiekuna) VALUES (%s,%s,%s,%s,%s,%s);",
  19.                       input$imie, input$gatunek, input$plec, input$data_urodzenia, input$sektor, input$id_opiekuna)
  20.    dbSendQuery(conn, result)
  21.    
  22.  
  23.  }
  24.  observeEvent(input$add, isolate({addingAnimals(input)}))
  25.  
  26.  
  27. output$animals <- renderDataTable({
  28.     conn <- dbConnect(
  29.        drv = dbDriver("PostgreSQL"),
  30.        user = "nela",
  31.       dbname = "postgres",
  32.       host = "localhost",
  33.        port = 5432,
  34.       password = "haslo"
  35.  
  36.     )
  37.     on.exit(dbDisconnect(conn), add = TRUE)
  38.      dbGetQuery(conn, "SELECT * FROM zwierzeta;")
  39.   })
  40.   output$guardian <- renderDataTable({
  41.     conn <- dbConnect(
  42.       drv = dbDriver("PostgreSQL"),
  43.       user = "nela",
  44.       dbname = "postgres",
  45.       host = "localhost",
  46.       port = 5432,
  47.       password = "haslo"
  48.     )
  49.     on.exit(dbDisconnect(conn), add = TRUE)
  50.     dbGetQuery(conn, "SELECT * FROM opiekunowie;")
  51.   })
  52.   output$diet <- renderDataTable({
  53.     conn <- dbConnect(
  54.       drv = dbDriver("PostgreSQL"),
  55.       user = "nela",
  56.       dbname = "postgres",
  57.       host = "localhost",
  58.       port = 5432,
  59.       password = "haslo"
  60.     )
  61.     on.exit(dbDisconnect(conn), add = TRUE)
  62.     dbGetQuery(conn, "SELECT * FROM zwierzeta JOIN dieta USING(id_zwierzecia);")
  63.   })
  64.   output$vet <- renderDataTable({
  65.     conn <- dbConnect(
  66.       drv = dbDriver("PostgreSQL"),
  67.       user = "nela",
  68.       dbname = "postgres",
  69.       host = "localhost",
  70.       port = 5432,
  71.       password = "haslo"
  72.     )
  73.     on.exit(dbDisconnect(conn), add = TRUE)
  74.     dbGetQuery(conn, "SELECT * FROM weterynarze;")
  75.   })
  76.   output$sectorA <- renderDataTable({
  77.     conn <- dbConnect(
  78.       drv = dbDriver("PostgreSQL"),
  79.       user = "nela",
  80.       dbname = "postgres",
  81.       host = "localhost",
  82.       port = 5432,
  83.       password = "haslo"
  84.     )
  85.     on.exit(dbDisconnect(conn), add = TRUE)
  86.     dbGetQuery(conn, "SELECT * FROM zwierzeta WHERE sektor = 'A';")
  87.   })
  88.   output$sectorB <- renderDataTable({
  89.     conn <- dbConnect(
  90.       drv = dbDriver("PostgreSQL"),
  91.       user = "nela",
  92.       dbname = "postgres",
  93.       host = "localhost",
  94.       port = 5432,
  95.       password = "haslo"
  96.     )
  97.     on.exit(dbDisconnect(conn), add = TRUE)
  98.     dbGetQuery(conn, "SELECT * FROM zwierzeta WHERE sektor = 'B';")
  99.   })
  100.   output$sectorC <- renderDataTable({
  101.     conn <- dbConnect(
  102.       drv = dbDriver("PostgreSQL"),
  103.       user = "nela",
  104.       dbname = "postgres",
  105.       host = "localhost",
  106.       port = 5432,
  107.       password = "haslo"
  108.     )
  109.     on.exit(dbDisconnect(conn), add = TRUE)
  110.     dbGetQuery(conn, "SELECT * FROM zwierzeta WHERE sektor = 'C';")
  111.    
  112.   })
  113.   output$sectorD <- renderDataTable({
  114.     conn <- dbConnect(
  115.       drv = dbDriver("PostgreSQL"),
  116.       user = "nela",
  117.       dbname = "postgres",
  118.       host = "localhost",
  119.       port = 5432,
  120.       password = "haslo"
  121.     )
  122.     on.exit(dbDisconnect(conn), add = TRUE)
  123.     dbGetQuery(conn, "SELECT * FROM zwierzeta WHERE sektor = 'D';")
  124.   })
  125.   output$sectorE <- renderDataTable({
  126.     conn <- dbConnect(
  127.       drv = dbDriver("PostgreSQL"),
  128.       user = "nela",
  129.       dbname = "postgres",
  130.       host = "localhost",
  131.       port = 5432,
  132.       password = "haslo"
  133.     )
  134.     on.exit(dbDisconnect(conn), add = TRUE)
  135.     dbGetQuery(conn, "SELECT * FROM zwierzeta WHERE sektor = 'E';")
  136.   })
  137.   output$sectorF <- renderDataTable({
  138.     conn <- dbConnect(
  139.       drv = dbDriver("PostgreSQL"),
  140.       user = "nela",
  141.       dbname = "postgres",
  142.       host = "localhost",
  143.       port = 5432,
  144.       password = "haslo"
  145.     )
  146.     on.exit(dbDisconnect(conn), add = TRUE)
  147.     dbGetQuery(conn, "SELECT * FROM zwierzeta WHERE sektor = 'F';")
  148.   })
  149.   output$sectorG <- renderDataTable({
  150.     conn <- dbConnect(
  151.       drv = dbDriver("PostgreSQL"),
  152.       user = "nela",
  153.       dbname = "postgres",
  154.       host = "localhost",
  155.       port = 5432,
  156.       password = "haslo"
  157.     )
  158.     on.exit(dbDisconnect(conn), add = TRUE)
  159.     dbGetQuery(conn, "SELECT * FROM zwierzeta WHERE sektor = 'G';")
  160.   })
  161.   output$sectorH <- renderDataTable({
  162.     conn <- dbConnect(
  163.       drv = dbDriver("PostgreSQL"),
  164.       user = "nela",
  165.       dbname = "postgres",
  166.       host = "localhost",
  167.       port = 5432,
  168.       password = "haslo"
  169.     )
  170.     on.exit(dbDisconnect(conn), add = TRUE)
  171.     dbGetQuery(conn, "SELECT * FROM zwierzeta WHERE sektor = 'H';")
  172.   })
  173.   output$visits <- renderDataTable({
  174.     conn <- dbConnect(
  175.       drv = dbDriver("PostgreSQL"),
  176.       user = "nela",
  177.       dbname = "postgres",
  178.       host = "localhost",
  179.       port = 5432,
  180.       password = "haslo"
  181.     )
  182.     on.exit(dbDisconnect(conn), add = TRUE)
  183.     dbGetQuery(conn, "SELECT * FROM wizyty JOIN diagnozy USING(id_wizyty) LEFT JOIN leczenie USING(id_wizyty);")
  184.   })
  185.    output$res <- renderText({
  186.     req(input$sidebarItemExpanded)
  187.     paste("Expanded menu item: ", input$sidebarItemExpanded)
  188.   })
  189.    # observeEvent(input$add, {
  190.    #   addRow(dataTableProxy(outputId = "animals", session = shiny::getDefaultReactiveDomain()),
  191.    #          data = data.frame(row.names =  "imie", "gatunek", "plec", "data_urodzenia", "sektor", "id_opiekuna" ) ,
  192.    #          input$input)
  193.    # })
  194.  
  195. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement