Skip to main content
conteúdo editado
Fonte Link
Marcus Nunes
  • 19mil
  • 9
  • 32
  • 59

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

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

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

Como utilizar funções externas dentro do server usando Shiny?

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