Как добавить Newline в подробном сообщении панели Shiny Progress?

Question

Есть ли способ написать добавление символа новой строки в сообщении панели Shiny Progress? \n или <br> не похоже на работу.

Я пытаюсь преобразовать один из моих старых кодов в блестящее приложение. Код в основном вызывает несколько функций одну за другой, выполнение которых занимает некоторое время. Из приложения я хотел бы знать, какие функции уже выполнены и сколько времени заняла каждая из них. Я пытаюсь добиться этого с помощью индикатора выполнения. Дайте мне знать, если есть лучшие способы сделать это.

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

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 1 done \n task 2 done \n task 3 done")
      Sys.sleep(1.5)
    })
  })
}

shinyApp(ui, server)

Это то, чего я пытаюсь достичь

Заранее спасибо!