marcelcosta/invivos
1
0
Fork 0
Code Issues 3 Pull Requests Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
marcelcosta
2023-02-16 12:52:55 +01:00
parent 35a73598d3
commit 8dc0177515
1 changed files with 2 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
invivos/app.R
+2
View File
@@ -66,6 +66,7 @@ ui <- fluidPage(
h3('Seleccionar figura'), h3('Seleccionar figura'),
selectInput("fig_id", "", selected="", choices=c("Cinética Grupo", "Cinética Individual", "Survival")), selectInput("fig_id", "", selected="", choices=c("Cinética Grupo", "Cinética Individual", "Survival")),
h3('Formato'), 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("width", "Ancho", min=1000, max=20000, step=1000, value=10000),
sliderInput("height", "Altura", min=1000, max=20000, step=1000, value=6000), sliderInput("height", "Altura", min=1000, max=20000, step=1000, value=6000),
textInput("colors", label="Colors", value=""), textInput("colors", label="Colors", value=""),
@@ -683,6 +684,7 @@ server <- function(input, output) {
observeEvent(analysis$taula, {}) observeEvent(analysis$taula, {})
if (!is.null(input$file_analy) & !is.null(analysis$taula)){ if (!is.null(input$file_analy) & !is.null(analysis$taula)){
table<-analysis$taula table<-analysis$taula
table$Volume<-table$Volume*as.numeric(input$unit_fact)
animals<-unique(table$Animal) animals<-unique(table$Animal)
sides<-unique(table$Side) sides<-unique(table$Side)
groups<-table %>% select(Animal, Group) %>% unique() %>% pull(Group) groups<-table %>% select(Animal, Group) %>% unique() %>% pull(Group)