DNA Dilution Calculator Slides

Here is the ui.R code for the front end of my app!

sidebarLayout(
    sidebarPanel(
      numericInput("numericA", "What is the starting concentration in ng/uL?", 
                   value = 0, min = 1, max = 1000, step = 1),
      numericInput("numericB", "What is the starting volume in uL?",
                     value = 0, min = 1, max = 10000, step = 1),
      numericInput("numericC", "What is the desired concentration in ng/uL?",
                    value = 0, min = 1, max = 1000, step = 1),
      submitButton("Submit")
    ),

    mainPanel(
       h3("Volume of diluent to be added to starting DNA solution 
          in order to achieve desired dilution:"),
       textOutput("calcA"),
       h3("Total volume of completed dilution:"),
       textOutput("calcB")
    )
  )
))

Here is the server.R code from my app!

library(shiny)


shinyServer(function(input, output) {
   calcA <- reactive({
    ((input$numericA * input$numericB)/input$numericC)-input$numericB
   })
   calcB <- reactive({
     ((input$numericA * input$numericB)/input$numericC)
   })
   output$calcA <- calcA
   output$calcB <- calcB
  })

If you ever need to calculate DNA Dilutions then YOU NEED THIS APP!

If you are working with DNA then you need to calculate DNA Dilutions so YOU NEED THIS APP!!!