如何在闪亮的应用程序中显示日志文件内容？

Question

在我闪亮的应用程序中，我正在编译一个生成结果的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。