R Shiny server: Как я могу остановить внешний источник сценария в среде Shiny?

Question

У меня есть блестящее приложение, которое получает указанный c скрипт («Externalscript.R»), когда я нажимаю на вход («начало»), прослушиваю реактивы приложения («mylist») и затем показываю подробный через блестящий JS. Он прекрасно работает, но этот скрипт часто бывает очень длинным и блокирует все последующие действия.

Я хотел бы сделать еще один ввод («стоп»), который фактически останавливает этот процесс скрипта, так что я не могу не нужно ждать, пока он закончится, прежде чем я смогу использовать другой реактив в приложении.

Вот мой код:

observeEvent(input$start, {

   req(credentials()$user_auth)


   withCallingHandlers({
     shinyjs::html("texttech", "")
     source("Externalscript.R", local = list2env(mylist()))
   },
   message = function(m) {
     shinyjs::html(id = "texttech", html = paste('<div class="box-header">',m$message,'</div><br />',sep=""), add = TRUE)
   })
 })

У вас есть идеи, как этого добиться?

Спасибо.