Bug anterior en sección Exportar.
This commit is contained in:
+3
-1
@@ -784,7 +784,9 @@ server <- function(input, output) {
|
|||||||
Volume=0,
|
Volume=0,
|
||||||
Observations=""
|
Observations=""
|
||||||
)
|
)
|
||||||
table<-rbind(table, basal)
|
if (!(0 %in% table$DayPostInoc) | sum(table[table$DayPostInoc == 0,"Volume"],na.rm = T) == 0){
|
||||||
|
table<-rbind(table, basal)
|
||||||
|
}
|
||||||
if (input$fig_id %in% c("Cinética Grupo", "Cinética Individual")){
|
if (input$fig_id %in% c("Cinética Grupo", "Cinética Individual")){
|
||||||
if (input$fig_id == "Cinética Grupo"){
|
if (input$fig_id == "Cinética Grupo"){
|
||||||
if (input$vacc == "Sí"){
|
if (input$vacc == "Sí"){
|
||||||
|
|||||||
Reference in New Issue
Block a user