How to deal with this error: Error in FUN(X[[i]], …) : object 'Total' not found?

Question

I try to add a new row of % by this code:

adde_percent <- lapply(added_total, function(x){
last_row <- nrow(x)
pct <- Total / sum(Total)
x[last_row+1