I dont know how to use a function like this in Shiny. If it isn't possible is there an alternative solution?

Question

I have a function that takes a list of numbers and spits out a multi-sheet xlsx workbook for each number. So instead of something like : asdf <- function(list_of_numbers,