Shiny: 불확실한 시간에 대한 진행률 표시줄

또 다른 가능성은 단순히 줄무늬를 더 잘 보이게 만들고 진행률 값을 1로 설정하는 것입니다.

server <- function(input, output) {
  output$plot <- renderPlot({
    input$goPlot # Re-run when button is clicked

    dat <- data.frame(x = rnorm(10), y = rnorm(10))

    withProgress(message = 'Making plot', value = 1, {
      Sys.sleep(20)
    })

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

ui <- shinyUI(basicPage(
  tags$head(tags$style(HTML("
    .progress-striped .bar {
      background-color: #149bdf;
      background-image: -webkit-gradient(linear, 0 100%, 100% 0, color-stop(0.25, rgba(255, 255, 255, 0.6)), color-stop(0.25, transparent), color-stop(0.5, transparent), color-stop(0.5, rgba(255, 255, 255, 0.6)), color-stop(0.75, rgba(255, 255, 255, 0.6)), color-stop(0.75, transparent), to(transparent));
      background-image: -webkit-linear-gradient(45deg, rgba(255, 255, 255, 0.6) 25%, transparent 25%, transparent 50%, rgba(255, 255, 255, 0.6) 50%, rgba(255, 255, 255, 0.6) 75%, transparent 75%, transparent);
      background-image: -moz-linear-gradient(45deg, rgba(255, 255, 255, 0.6) 25%, transparent 25%, transparent 50%, rgba(255, 255, 255, 0.6) 50%, rgba(255, 255, 255, 0.6) 75%, transparent 75%, transparent);
      background-image: -o-linear-gradient(45deg, rgba(255, 255, 255, 0.6) 25%, transparent 25%, transparent 50%, rgba(255, 255, 255, 0.6) 50%, rgba(255, 255, 255, 0.6) 75%, transparent 75%, transparent);
      background-image: linear-gradient(45deg, rgba(255, 255, 255, 0.6) 25%, transparent 25%, transparent 50%, rgba(255, 255, 255, 0.6) 50%, rgba(255, 255, 255, 0.6) 75%, transparent 75%, transparent);
      -webkit-background-size: 40px 40px;
         -moz-background-size: 40px 40px;
           -o-background-size: 40px 40px;
              background-size: 40px 40px;
    }
  "))),
  plotOutput('plot', width = "300px", height = "300px"),
  actionButton('goPlot', 'Go plot')
))

shinyApp(ui = ui, server = server)

위의 제안을 받아 보려고했지만 ... 작동하지 않는 것 같습니다 ...

내 시도에 대해 아래를 참조하십시오. 도움을 주시면 감사하겠습니다.

http://stackoverflow.com/questions/38339593/shiny-loading-bar-for-htmlwidgets

이런것도 써도될까요...?

https://gist.github.com/eesur/cf81a5ea738f85732707

https://getbootstrap.com/docs/3.4/components/#progress -animated를 사용할 수 있다고 생각합니다.

@jcheng5 는 value = NA 를 설정하여 "불확정 모드"를 활성화할 것을 제안했습니다. 그러나 이것이 "애니메이션"이라고 하는 경우 animated 매개변수를 추가하는 것이 더 유연할 수 있으므로 withProgress(..., value = 1, animate = TRUE)