2017-01-10 14 views
3

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

Progress bar

私は別の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; 
} 
+0

@HubertLの例が含まれています – MJH

答えて

1

あなたのCSSにこれを追加することができ、それが通知を非表示になります。

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

フォローアップとして、特定のdivに配置してCSSを変更することで、バーの配​​置やスタイルを変更する方法がありますか?私はたくさんの「あなた自身のバー情報です」と思っていますが、可能であれば、 'withProgress'と' incProgress'を使いたいと思っています。 – MJH