Как показать содержимое файла журнала в блестящем приложении? - PullRequest
Новая
       14

Как показать содержимое файла журнала в блестящем приложении?

0 голосов
/ 18 октября 2018

Внутри моего блестящего приложения я компилирую скрипт на python, который генерирует результат, и файл журнала, который показывает прогресс. 

create_file <- reactive({

  tmpDir <- tempdir() 
  file1 = as.integer(Sys.time())
  file_name = file.path(tmpDir,paste0(file1,".txt") )
  file_name1 = file.path(tmpDir,paste0(file1,".out") )

  sink(file_name,append = TRUE)
  print(mydata)
  sink()

  ##### progress bar ###########
  progress <- shiny::Progress$new()
  on.exit(progress$close())
  progress$set(message = " calculating ... ", value = 0)

  system(paste("python code.py -s",file_name,"-d db.xml"))

  progress$inc()
  result = list(file_name1 = file_name1,tmpDir = tmpDir)
  return(result)

})

output$downloadData <- downloadHandler(

  filename = function() {"lrm.txt"},
  content = function(file) {
    file.copy(create_file()$file_name1, file) 

  }
)
session$onSessionEnded(function() {
  unlink(create_file()$tmpDir, recursive = T)
})

Поскольку вычисления занимают много времени, я хотел бы показать прогресспоказывая последнюю строку файла журнала, этот пользователь видит прогресс.

Но я не знаю, как это сделать ?!имя файла журнала будет file1.log.

...