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

Corrección bug operados.

Browse Source
This commit is contained in:
marcelcosta
2023-12-12 17:31:18 +01:00
parent 092a788125
commit d9a5689c99
1 changed files with 9 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files
invivos/app.R
+7 -6
View File
@@ -439,6 +439,7 @@ server <- function(input, output) {
table %>% group_by(Group, DayPostInoc, Side) %>% count() %>% spread(DayPostInoc, n) table %>% group_by(Group, DayPostInoc, Side) %>% count() %>% spread(DayPostInoc, n)
} }
}) })
output$cin_group<-renderPlot({ output$cin_group<-renderPlot({
if (!is.null(input$file_analy) & !is.null(analysis$taula)){ if (!is.null(input$file_analy) & !is.null(analysis$taula)){
observeEvent(analysis$taula, {}) observeEvent(analysis$taula, {})
@@ -469,7 +470,7 @@ server <- function(input, output) {
deadmice<-filter(table, !is.na(substr(Observations,1,1)) & substr(Observations,1,1) == "+") %>% deadmice<-filter(table, !is.na(substr(Observations,1,1)) & substr(Observations,1,1) == "+") %>%
pull(Animal) pull(Animal)
print(deadmice) print(deadmice)
if (input$operated == TRUE){ if (input$operated == TRUE & nrow(firstoper) > 0){
for (i in 1:nrow(firstoper)){ for (i in 1:nrow(firstoper)){
table<-table %>% filter(DayPostInoc < firstoper$FirstOper[i] | Side != firstoper$Side[i]) table<-table %>% filter(DayPostInoc < firstoper$FirstOper[i] | Side != firstoper$Side[i])
} }
@@ -494,7 +495,7 @@ server <- function(input, output) {
pull(DayPostInoc) %>% min(na.rm = T) pull(DayPostInoc) %>% min(na.rm = T)
print(firstoper) print(firstoper)
if (input$operated == TRUE){ if (input$operated == TRUE & nrow(firstoper) > 0){
table<-table %>% filter(DayPostInoc < firstoper) table<-table %>% filter(DayPostInoc < firstoper)
}else{ }else{
deadmice<-filter(table, !is.na(substr(Observations,1,1)) & substr(Observations,1,1) == "+") %>% deadmice<-filter(table, !is.na(substr(Observations,1,1)) & substr(Observations,1,1) == "+") %>%
@@ -542,7 +543,7 @@ server <- function(input, output) {
firstoper<- filter(table, !is.na(substr(Observations,1,1)) & substr(Observations,1,1) == "*") %>% firstoper<- filter(table, !is.na(substr(Observations,1,1)) & substr(Observations,1,1) == "*") %>%
select(DayPostInoc, Side) %>% unique() %>% select(DayPostInoc, Side) %>% unique() %>%
group_by(Side) %>% summarise(FirstOper=min(DayPostInoc)) group_by(Side) %>% summarise(FirstOper=min(DayPostInoc))
if (input$operated == TRUE){ if (input$operated == TRUE & nrow(firstoper) > 0){
for (i in 1:nrow(firstoper)){ for (i in 1:nrow(firstoper)){
table<-table %>% filter(DayPostInoc < firstoper$FirstOper[i] | Side != firstoper$Side[i]) table<-table %>% filter(DayPostInoc < firstoper$FirstOper[i] | Side != firstoper$Side[i])
} }
@@ -567,7 +568,7 @@ server <- function(input, output) {
pull(DayPostInoc) %>% min(na.rm = T) pull(DayPostInoc) %>% min(na.rm = T)
print(firstoper) print(firstoper)
if (input$operated == TRUE){ if (input$operated == TRUE & nrow(firstoper) > 0){
table<-table %>% filter(DayPostInoc < firstoper) table<-table %>% filter(DayPostInoc < firstoper)
}else{ }else{
deadmice<-filter(table, !is.na(substr(Observations,1,1)) & substr(Observations,1,1) == "+") %>% deadmice<-filter(table, !is.na(substr(Observations,1,1)) & substr(Observations,1,1) == "+") %>%
@@ -598,7 +599,7 @@ server <- function(input, output) {
firstoper<- filter(table, !is.na(substr(Observations,1,1)) & substr(Observations,1,1) == "*") %>% firstoper<- filter(table, !is.na(substr(Observations,1,1)) & substr(Observations,1,1) == "*") %>%
select(DayPostInoc, Side) %>% unique() %>% select(DayPostInoc, Side) %>% unique() %>%
group_by(Side) %>% summarise(FirstOper=min(DayPostInoc)) group_by(Side) %>% summarise(FirstOper=min(DayPostInoc))
if (input$operated == TRUE){ if (input$operated == TRUE & nrow(firstoper) > 0){
for (i in 1:nrow(firstoper)){ for (i in 1:nrow(firstoper)){
table<-table %>% filter(DayPostInoc < firstoper$FirstOper[i] | Side != firstoper$Side[i]) table<-table %>% filter(DayPostInoc < firstoper$FirstOper[i] | Side != firstoper$Side[i])
} }
@@ -639,7 +640,7 @@ server <- function(input, output) {
pull(DayPostInoc) %>% min(na.rm = T) pull(DayPostInoc) %>% min(na.rm = T)
print(firstoper) print(firstoper)
if (input$operated == TRUE){ if (input$operated == TRUE & nrow(firstoper) > 0){
table<-table %>% filter(DayPostInoc < firstoper) table<-table %>% filter(DayPostInoc < firstoper)
}else{ }else{
deadmice<-filter(table, !is.na(substr(Observations,1,1)) & substr(Observations,1,1) == "+") %>% deadmice<-filter(table, !is.na(substr(Observations,1,1)) & substr(Observations,1,1) == "+") %>%