Corrección firstoper en sección survival.

2024-01-22 12:07:08 +01:00
parent 3a9907c480
commit bbf19befaf
1 changed files with 2 additions and 2 deletions
@@ -645,9 +645,9 @@ server <- function(input, output) {
      }else{
        firstoper<- filter(table, !is.na(substr(Observations,1,1)) & substr(Observations,1,1) == "*") %>% 
          pull(DayPostInoc) %>% min(na.rm = T)
-        print(firstoper)
+        if (firstoper == Inf){firstoper<-c()}
        
-        if (input$operated == TRUE & nrow(firstoper) > 0){
+        if (input$operated == TRUE & length(firstoper) > 0){
          table<-table %>% filter(DayPostInoc < firstoper)
        }else{
          deadmice<-filter(table, !is.na(substr(Observations,1,1)) & substr(Observations,1,1) == "+") %>%