Estou criando uma interface gráfica para um algoritmo que desenvolvi em linguagem R. O algoritmo possui diversos scripts com funções que conversam entre si, e após iniciado, demora horas para ser finalizado.
Estou usando o pacote Shiny com suas entradas para coletar os parâmetros do algoritmo, e assim colocar ele para rodar. Entretanto, não estou conseguindo.
O algoritmo não possui saídas gráficas, somente escreve arquivos na própria máquina.

O código segue, onde algoritmo é o código a ser chamado, e `algoritmo.R` é onde se encontra todos os scripts com as funções.


----------

    ui <- ... (
      ...
      tabPanel ("Resultados",
        textOutput ("resultados")
      )
    )
    
    server <- function (input, output) {
      ...
      output$resultados <- eventReactive ({
        if (input$iniciar)
          isolate (algoritmo (input))
      })
    }
    
    source ('algoritmo.R')