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

Solución de bug test for table

Browse Source
This commit is contained in:
marcelcosta
2024-01-19 14:19:46 +01:00
parent 459a8001fe
commit b01f7bb11d
1 changed files with 2 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
invivos/app.R
+2 -3
View File
@@ -464,8 +464,7 @@ server <- function(input, output) {
Volume=0, Volume=0,
Observations="" Observations=""
) )
if (!(0 %in% table$DayPostInoc) | sum(table[test$DayPostInoc == 0,"Volume"],na.rm = T) == 0){
if (!(0 %in% test$DayPostInoc) | sum(test[test$DayPostInoc == 0,"Volume"],na.rm = T) == 0){
table<-rbind(table, basal) table<-rbind(table, basal)
} }
@@ -543,7 +542,7 @@ server <- function(input, output) {
Volume=0, Volume=0,
Observations="" Observations=""
) )
if (!(0 %in% test$DayPostInoc) | sum(test[test$DayPostInoc == 0,"Volume"],na.rm = T) == 0){ if (!(0 %in% table$DayPostInoc) | sum(test[table$DayPostInoc == 0,"Volume"],na.rm = T) == 0){
table<-rbind(table, basal) table<-rbind(table, basal)
} }