私は光沢のあるアプリを開発中で、プログレスバーを実装して、CSS内で.progress
,.progess-bar
、.progress-text
をどのように使いたいかを修正しました。私はそれがほしいと思う方法をほとんど持っていますが、xをつけた灰色のポップアップボックスを取り除くだけです(添付の画像を参照)。R Shiny Progress Box
私は別の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;
}
@HubertLの例が含まれています – MJH