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
+4 -5
View File
@@ -357,7 +357,7 @@ server <- function(input, output) {
wide<-as.numeric(strsplit(table[i,"Wide"],"+", fixed = T)[[1]]) wide<-as.numeric(strsplit(table[i,"Wide"],"+", fixed = T)[[1]])
table[i,"Volume"]<-sum(sapply(1:length(long), function(x) (long[x]*wide[x]*wide[x])*(pi/6))) table[i,"Volume"]<-sum(sapply(1:length(long), function(x) (long[x]*wide[x]*wide[x])*(pi/6)))
} }
## Autocompletado de grupo ## Autocompletado de grupo
table_group<-merge( table_group<-merge(
table %>% select(Animal, Group) %>% unique() %>% group_by(Animal) %>% count(), table %>% select(Animal, Group) %>% unique() %>% group_by(Animal) %>% count(),
@@ -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)
} }