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'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')