R Shiny - Вызов функции в зависимости от ввода пользователя

Question

Я работаю над блестящим приложением, в которое я пытаюсь добавить кнопку downloadPlot с помощью downloadHandler. Сюжет для загрузки зависит от выбранного входа (функция selectInput)

До нескольких вариантов, которые я могу использовать операторы if else, но что Если у меня есть 10 вариантов, как я могу вызвать соответствующие функции? Я думал об использовании списка (как показано ниже), но он не работает, он загружает пустые текстовые файлы. Должен быть простой способ сделать это.

Мой код для загрузки:

output$downloadPlot = downloadHandler(
filename = function() {paste(input$download_plot_select,'.png',sep='')},
content = function(file) 
{
    lst = list('dogs' = dogs(), 'cats' = cats(), 'rabbit' = rabbit())
    png(file)
    plot(lst[[paste(input$download_plot_select)]])
    dev.off()
}, contentType = 'image/png')