更改 withProgress() 生成的消息框的样式和位置

Question

该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 = ''
              )
      }
   })

Answer 1

简单的方法：您可以在 ui 中包含 HTML 函数 tag$head() 来覆盖进度条。由于它是一个通知，因此可以使用 .shiny-notification 来调用。最简单的方法是将此行放在 ui 中的某个位置并调整位置（以及其他 CSS 相关参数，请参阅此处.

ui <- fluidPage(
  titlePanel(),

  tags$head(tags$style(".shiny-notification {position: fixed; top: 60% ;left: 50%)),

  sidebarPanel()
  mainPanel()
         )