From 082a9bae3d7e82fa43319a21537c03aeb4ca250e Mon Sep 17 00:00:00 2001
From: Costa <47926492N@ICO.SCS.local>
Date: Thu, 3 Jun 2021 15:17:14 +0200
Subject: [PATCH] =?UTF-8?q?Corretgir=20concentraci=C3=B3.=20Afegir=20c?=
 =?UTF-8?q?=C3=A0lcul=20fmol.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 app.R | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

diff --git a/app.R b/app.R
index 57bbc2e..87c792b 100644
--- a/app.R
+++ b/app.R
@@ -2,7 +2,7 @@ library(shiny)
 library(rhandsontable)
 
 DF<-as.data.frame(matrix(nrow=1, ncol=5))
-colnames(DF)<-c("ID","Concentració Vector (ng)","Longitud Vector (bp)","Concentració Insert (ng)","Longitud Insert (bp)")
+colnames(DF)<-c("ID","Concentració Vector (ng/ul)","Longitud Vector (bp)","Concentració Insert (ng/ul)","Longitud Insert (bp)")
 DF[1,]<-rep("",5)
 
 ui <- fluidPage(
@@ -77,7 +77,7 @@ server <- function(input, output) {
             t[2:5]<-as.data.frame(t(apply(t[2:5],2,as.numeric)))
           }
           
-          Vv<-( (input$voltotal*t$`Concentració Insert (ng)`*t$`Longitud Vector (bp)`)/(t$`Concentració Vector (ng)`*t$`Longitud Insert (bp)`*input$ratio) ) / (1+(t$`Concentració Insert (ng)`*t$`Longitud Vector (bp)`)/(t$`Concentració Vector (ng)`*t$`Longitud Insert (bp)`*input$ratio))
+          Vv<-( (input$voltotal*t$`Concentració Insert (ng/ul)`*t$`Longitud Vector (bp)`)/(t$`Concentració Vector (ng/ul)`*t$`Longitud Insert (bp)`*input$ratio) ) / (1+(t$`Concentració Insert (ng/ul)`*t$`Longitud Vector (bp)`)/(t$`Concentració Vector (ng/ul)`*t$`Longitud Insert (bp)`*input$ratio))
           Vi<-input$voltotal-Vv
           
           t[,"Volum vector (ul)"]<-Vv
@@ -87,19 +87,20 @@ server <- function(input, output) {
           
           Vv.log<-Vv < input$minim
           if (TRUE %in% Vv.log){
-            alt.conc.vect<-( (input$voltotal-input$minim)*t$`Concentració Insert (ng)`*t$`Longitud Vector (bp)`)/ (input$minim*t$`Longitud Insert (bp)`*input$ratio)
-            t$`Dilució vector`[Vv.log]<-(t$`Concentració Vector (ng)`/alt.conc.vect)[Vv.log]
+            alt.conc.vect<-( (input$voltotal-input$minim)*t$`Concentració Insert (ng/ul)`*t$`Longitud Vector (bp)`)/ (input$minim*t$`Longitud Insert (bp)`*input$ratio)
+            t$`Dilució vector`[Vv.log]<-(t$`Concentració Vector (ng/ul)`/alt.conc.vect)[Vv.log]
             t$`Volum vector (ul)`[Vv.log]<-input$minim
             t$`Volum insert (ul)`[Vv.log]<-(input$voltotal-input$minim)
           }
           
           Vi.log<-Vi < input$minim
           if (TRUE %in% Vi.log){
-            alt.conc.insert<-( (input$voltotal-input$minim)*t$`Concentració Vector (ng)`*t$`Longitud Insert (bp)`*input$ratio)/ (input$minim*t$`Longitud Vector (bp)`)
-            t$`Dilució insert`[Vi.log]<-(t$`Concentració Insert (ng)`/alt.conc.insert)[Vi.log]
+            alt.conc.insert<-( (input$voltotal-input$minim)*t$`Concentració Vector (ng/ul)`*t$`Longitud Insert (bp)`*input$ratio)/ (input$minim*t$`Longitud Vector (bp)`)
+            t$`Dilució insert`[Vi.log]<-(t$`Concentració Insert (ng/ul)`/alt.conc.insert)[Vi.log]
             t$`Volum insert (ul)`[Vi.log]<-input$minim
             t$`Volum vector (ul)`[Vi.log]<-(input$voltotal-input$minim)
           }
+          t["Molècules Vector (fmol)"]<-t$`Volum vector (ul)`*t$`Concentració Vector (ng/ul)`*1000000/(t$`Longitud Vector (bp)`*660*t$`Dilució vector`)
           t
         }
     })