From 8dc0177515d898b2ee081951c2a986f5ebf46427 Mon Sep 17 00:00:00 2001
From: marcelcosta <marcelcosta@mcosta.cat>
Date: Thu, 16 Feb 2023 12:52:55 +0100
Subject: [PATCH] =?UTF-8?q?A=C3=B1adir=20una=20opci=C3=B3n=20en=20el=20apa?=
 =?UTF-8?q?rtado=20de=20exportar=20para=20multiplicar=20o=20dividir=20por?=
 =?UTF-8?q?=20mil.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 invivos/app.R | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/invivos/app.R b/invivos/app.R
index d38bfaa..38b7f7a 100755
--- a/invivos/app.R
+++ b/invivos/app.R
@@ -66,6 +66,7 @@ ui <- fluidPage(
                                     h3('Seleccionar figura'),
                                     selectInput("fig_id", "", selected="", choices=c("Cinética Grupo", "Cinética Individual", "Survival")),
                                     h3('Formato'),
+                                    selectInput("unit_fact", "Factor de unidad", choices = c("0.001","1","1000"), selected="1"),
                                     sliderInput("width", "Ancho", min=1000, max=20000, step=1000, value=10000),
                                     sliderInput("height", "Altura", min=1000, max=20000, step=1000, value=6000),
                                     textInput("colors", label="Colors", value=""),
@@ -683,6 +684,7 @@ server <- function(input, output) {
     observeEvent(analysis$taula, {})
     if (!is.null(input$file_analy) & !is.null(analysis$taula)){
       table<-analysis$taula
+      table$Volume<-table$Volume*as.numeric(input$unit_fact)
       animals<-unique(table$Animal)
       sides<-unique(table$Side)
       groups<-table %>% select(Animal, Group) %>% unique() %>% pull(Group)