For debugging purposes, you can store a copy of the inputs by adding to server:
input <<- lapply(input, function(x) x)