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

Eliminar un taula$def.

Browse Source
This commit is contained in:
marcelcosta
2023-02-07 18:13:39 +01:00
parent bdbd8edf9d
commit 603f06db66
1 changed files with 4 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files
invivos/app.R
+3 -4
View File
@@ -369,14 +369,13 @@ server <- function(input, output) {
table_group table_group
) %>% relocate(Group, .after = DayPostInoc) %>% arrange(DayPostInoc, Animal, Side) ) %>% relocate(Group, .after = DayPostInoc) %>% arrange(DayPostInoc, Animal, Side)
analysis$taula<-table analysis$taula<-table
} }
}) })
output$cutoffUI<-renderUI({ output$cutoffUI<-renderUI({
if (!is.null(analysis$taula_def)){ if (!is.null(analysis$taula)){
observeEvent(analysis$taula_def, {}) observeEvent(analysis$taula, {})
max_val<-max(analysis$taula_def$Volume, na.rm = T) max_val<-max(analysis$taula$Volume, na.rm = T)
# print(max_val) # print(max_val)
sliderInput("cutoff", "Cutoff para Survival", min=0, max=round(max_val, digits=2), step=round(max_val, digits=2)/200, value=max_val) sliderInput("cutoff", "Cutoff para Survival", min=0, max=round(max_val, digits=2), step=round(max_val, digits=2)/200, value=max_val)
} }