R Shiny Progress Box

Question

Я работаю над блестящим приложением и внедрил свой индикатор выполнения и изменил его, как он хотел использовать .progress, .progess-bar и .progress-text в моем CSS. У меня это почти так, как я хочу, но мне просто нужно избавиться от серого всплывающего окна с х (см. Прикрепленное изображение).

Я пробовал различные комбинации CSS и не получили нигде. Кто-нибудь знает идентификатор CSS для этого окна?

Пример:

УИ:

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; 
} 

Answer 1

Вы можете добавить это в ваш CSS, он будет скрывать уведомления:

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