R Shiny 进度框

Question

我正在开发一个闪亮的应用程序，并使用 .progress，.progess-bar 和 .progress-text 在我的 CSS 中实现了进度条，并将其修改为所需的样式。我已经接近我想要的效果，但我只需要摆脱带有 x 的灰色弹出框（请参见附图）。

我尝试了各种不同的 CSS 组合，但没有任何进展。有人知道此框的 CSS ID 吗？

示例：

UI：

ui <- shinyUI(fluidPage(

  includeCSS("www/styles.css"),

  plotOutput('plot', width = "300px", height = "300px"),

  actionButton('goPlot', 'Go plot')
))

服务器:

server <- function(input, output) {
output$plot <- renderPlot({
input$goPlot 

dat <- data.frame(x = numeric(0), y = numeric(0))

withProgress(message = 'Making plot', value = 0, {
  n <- 1000

  for (i in 1:n) {
    dat <- rbind(dat, data.frame(x = rnorm(1), y = rnorm(1)))

    incProgress(1/n, detail = paste("Doing part", i))

  }
})

plot(dat$x, dat$y)
})
}

css

.progress{
  position:fixed;
  bottom:50px;
  left:25%;
  width:50%;
}

.progress-bar{
  background-color:#000;
}

.progress-text{
  position:fixed;
  bottom:60px;
  left:25%;
  font-size:25px;
}

- MJH

---

@HubertL 现在已经包含在上面的示例中。 - MJH

Answer 1

您可以将以下代码添加到CSS中，它将隐藏通知：

.shiny-notification{
  position:fixed;
  left:-100px;
  width:0px;
}

- HubertL

---

作为后续，是否有一种方法可以通过将它们放置在特定的div中并更改CSS来以不同的方式定位或样式化条形图？我看到了很多“制作自己的”条形图信息，但如果可能的话，我最好还是坚持使用withProgress和incProgress。 - MJH