How to add a row in a existent table?

[Iasmim Louriene]

Hello all,

I'm trying to add a row that contains the sum of trees2 (nt) and the name "Total" in a existent summary table. Does anyone know how to do that? I really appreciate the help!
Here's my server.R

output$sumy <- renderTable({

input$action

if(is.null(input$action))
return(NULL)

else

Arvsumy <- isolate({

trees2 <- FindTreesCHM(fchm(), (as.numeric(input$fws)), (as.numeric(input$minht)))

h <- trees2["height"]
nt <- nrow(trees2)
cbind(summary(h))
})

})

Thanks a lot!

[Bárbara Borges]

I'm gonna use the `cars` dataset here, but it should work for you too. From what I understand you have something like:

h <- cars[["speed"]]

nt <- nrow(cars)

tab <-  cbind(summary(h))

Now, to add another row with the `nt` variable, you could do:

tab <- rbind(tab, nt)

You will notice that the name for that last row is now `nt`. You could either change it "manually" (i.e. `rownames(tab)[nrow(tab)] <- "Total"`) or you can have `Total <- nrow(cars)` from the beginning.

Hope it works!

Barbara