相关疑难解决方法(0)

有没有办法在闪亮的进度条消息中添加换行符？\n或者<br>似乎不起作用。

我正在尝试将我的一个旧代码转换为一个闪亮的应用程序。该代码基本上是一个接一个地调用许多函数，所有这些函数都需要一些时间来执行。从应用程序中，我想知道哪些功能已经执行以及每个功能花费的时间。我正在尝试使用进度条功能来实现这一点。如果有更好的方法可以做到这一点，请告诉我。

下面是我的虚拟代码。\ns 是我想添加换行符的地方。如果我想做的事情不清楚，请告诉我。

library(shiny)

ui <- fluidPage(
  tags$head(tags$style(
      HTML(".shiny-notification {position:fixed;top: 30%;left: 0%;right: 0%;}"))),
  actionButton(inputId = "go", label = "Launch long calculation")
)

server <- function(input, output, session) {
  observeEvent(input$go,{
    withProgress(message = "doing task 1",value = 0,{
      Sys.sleep(1.5)#task 1
      setProgress(0.3,message = "doing task 2",detail = "\n task 1 done")
      Sys.sleep(1.5)#task 2
      setProgress(0.6,message = "doing task 3",detail = "\n task 1 done \n task 2 done")
      Sys.sleep(1.5)#task 3
      setProgress(0.9,message = "Almost done",detail = "\n task …

该withProgress()函数可以生成一个消息框，指示闪亮的应用程序正在运行。但该消息位于浏览器的右上角，文字尺寸较小，这使得该消息不那么引人注目。

所以我想知道有没有什么方法可以改变这个框的样式和位置，这样信息就更具有表现力。

这是我的代码的一部分：

output$plot <- renderPlot({ 
 if (input$button){

 withProgress(
              distributionPolygon(data(),unit="years",colors=c("black","gray30","gray50","gray70","blue3","dodgerblue3","steelblue1","lightskyblue1","red4","indianred3","orange","seagreen4"),main=title(),tpsMax=input$months),
              message = 'Loading...',
              detail = ''
              )
      }
   })