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

Solución de bug al empezar a día 0 con volumen > 0.

Browse Source
This commit is contained in:
marcelcosta
2024-01-19 14:15:42 +01:00
parent 455901a1db
commit 459a8001fe
1 changed files with 7 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
invivos/app.R
+7 -2
View File
@@ -464,7 +464,10 @@ server <- function(input, output) {
Volume=0, Volume=0,
Observations="" Observations=""
) )
table<-rbind(table, basal)
if (!(0 %in% test$DayPostInoc) | sum(test[test$DayPostInoc == 0,"Volume"],na.rm = T) == 0){
table<-rbind(table, basal)
}
if (input$vacc == "Sí"){ if (input$vacc == "Sí"){
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) == "*") %>%
@@ -540,7 +543,9 @@ server <- function(input, output) {
Volume=0, Volume=0,
Observations="" Observations=""
) )
table<-rbind(table, basal) if (!(0 %in% test$DayPostInoc) | sum(test[test$DayPostInoc == 0,"Volume"],na.rm = T) == 0){
table<-rbind(table, basal)
}
if (input$vacc == "Sí"){ if (input$vacc == "Sí"){
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) == "*") %>%