有没有办法在闪亮的进度条消息中添加换行符?\n
or <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)
这就是我想要实现的目标 https://i.stack.imgur.com/u88qM.png
提前致谢!