From 031177217a0cbe0634f604b7e66b834c2257480c Mon Sep 17 00:00:00 2001
From: marcelcosta <marcelcosta@protonmail.com>
Date: Thu, 3 Jun 2021 08:27:03 +0200
Subject: [PATCH] Cambiar etiquetas y corregir tabla con espacios en blanco y
 NA.

---
 app.R | 65 +++++++++++++++++++++++++++++++----------------------------
 1 file changed, 34 insertions(+), 31 deletions(-)

diff --git a/app.R b/app.R
index 68228ae..57bbc2e 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("name","conc.vector","bp.vector","conc.insert","bp.insert")
+colnames(DF)<-c("ID","Concentració Vector (ng)","Longitud Vector (bp)","Concentració Insert (ng)","Longitud Insert (bp)")
 DF[1,]<-rep("",5)
 
 ui <- fluidPage(
@@ -24,7 +24,7 @@ ui <- fluidPage(
                         max = 1.25,
                         value = 0.5, step = 0.1),
             sliderInput("voltotal",
-                        "Volum Total:",
+                        "Volum Total (V vector+V insert):",
                         min = 1.5,
                         max = 2.5,
                         value = 2, step = 0.5),
@@ -59,7 +59,6 @@ server <- function(input, output) {
     })
     
     output$hot <- renderRHandsontable({
-        print(DF)
         if (!is.null(DF)){
             rhandsontable(DF, stretchH = "all", readOnly = F, useTypes = T)   
         }
@@ -68,37 +67,41 @@ server <- function(input, output) {
     output$results <- renderTable({
         observe({values})
         t<-values[["DF"]]
-        print(t)
-        if (nrow(t) > 1){
-            t[2:5]<-as.data.frame(apply(t[2:5],2,as.numeric))
+        t<-t[apply(t,1, function(x) any(is.na(x)|x=="") == F),]
+        if (nrow(t) < 1){
+          t
         }else{
+          if (nrow(t) > 1){
+            t[2:5]<-as.data.frame(apply(t[2:5],2,as.numeric))
+          }else{
             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))
+          Vi<-input$voltotal-Vv
+          
+          t[,"Volum vector (ul)"]<-Vv
+          t[,"Volum insert (ul)"]<-Vi
+          t[,"Dilució vector"]<-1
+          t[,"Dilució insert"]<-1
+          
+          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]
+            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]
+            t$`Volum insert (ul)`[Vi.log]<-input$minim
+            t$`Volum vector (ul)`[Vi.log]<-(input$voltotal-input$minim)
+          }
+          t
         }
-        
-        Vv<-( (input$voltotal*t$conc.insert*t$bp.vector)/(t$conc.vector*t$bp.insert*input$ratio) ) / (1+(t$conc.insert*t$bp.vector)/(t$conc.vector*t$bp.insert*input$ratio))
-        Vi<-input$voltotal-Vv
-        
-        t[,"vol.v"]<-Vv
-        t[,"vol.i"]<-Vi
-        t[,"dil.v"]<-1
-        t[,"dil.i"]<-1
-        
-        Vv.log<-Vv < input$minim
-        if (TRUE %in% Vv.log){
-            alt.conc.vector<-( (input$voltotal-input$minim)*t$conc.insert*t$bp.vector)/ (input$minim*t$bp.insert*input$ratio)
-            t$dil.v[Vv.log]<-(t$conc.vector/alt.conc.vector)[Vv.log]
-            t$vol.v[Vv.log]<-input$minim
-            t$vol.i[Vv.log]<-(input$voltotal-input$minim)
-        }
-        
-        Vi.log<-Vi < input$minim
-        if (TRUE %in% Vi.log){
-            alt.conc.insert<-( (input$voltotal-input$minim)*t$conc.vector*t$bp.insert*input$ratio)/ (input$minim*t$bp.vector)
-            t$dil.i[Vi.log]<-(t$conc.insert/alt.conc.insert)[Vi.log]
-            t$vol.i[Vi.log]<-input$minim
-            t$vol.v[Vi.log]<-(input$voltotal-input$minim)
-        }
-        t
     })
     
 }