The 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 = ''
)
}
})
简单的方法:
您只需在 ui 中包含 HTML 函数tags$head() 即可覆盖进度条。由于它是一个通知,因此可以使用 .shiny-notification 来调用。最简单的方法是将此行放在 ui 中的某个位置并调整位置(以及其他 CSS 相关参数,see here https://shiny.rstudio.com/articles/css.html.
ui <- fluidPage(
titlePanel(),
tags$head(tags$style(".shiny-notification {position: fixed; top: 60% ;left: 50%)),
sidebarPanel()
mainPanel()
)
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)