Añadir una opción en el apartado de exportar para multiplicar o dividir por mil.

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)