为闪亮的应用程序添加"计算过程中"指标

Question

我正在使用闪亮来构建一个Web应用程序.某些步骤需要一些时间来计算,因此我想在闪亮的应用程序中添加流程指示器中的计算.

我在堆栈溢出中更改选项卡面板时发现显示Shiny正忙(或加载),但shinyIncubator包接缝需要指定min和max.

然后我找到了这个博客:http://withr.me/blog/2014/01/03/add-calculation-in-process-indictor-for-shiny-application/他提供了一个很好的方法来做到这一点.

shinyUI(bootstrapPage(
  # Add custom CSS & Javascript;
  tagList(
    tags$head(
      tags$link(rel="stylesheet", type="text/css",href="style.css"),
      tags$script(type="text/javascript", src = "busy.js")
    )
  ),
  div(class = "busy",  
      p("Calculation in progress.."), 
      img(src="http://imageshack.us/a/img827/4092/ajaxloaderq.gif")
  ),
  div(class = "span4", uiOutput("obs")),
  div(class = "span8", plotOutput("distPlot"))
))

Java脚本;

setInterval(function(){
  if ($('html').attr('class')=='shiny-busy') {
    setTimeout(function() {
      if ($('html').attr('class')=='shiny-busy') {
        $('div.busy').show()
      }
    }, 1000)
  } else {
    $('div.busy').hide()
  }
}, 100)

style.css文件

div.busy { 
  position:absolute;
  top: 40%;
  left: 50%;
  margin-top: -100px;
  margin-left: -50px;
  display:none;
  background: rgba(230, 230, 230, .8);
  text-align: center;
  padding-top: 20px;
  padding-left: 30px;
  padding-bottom: 40px;
  padding-right: 30px;
  border-radius: 5px;
}

所以我的问题是如何在我的ui文件中添加自定义CSS和Javascript？我试图创建两个单独的js和css文件,但指示器不断出现在左上角.然后我试着将这两段代码直接放在R中,而绝对是语法错误.谢谢!

问题解决:创建一个名为"www"的文件夹,并将两个文件放入其中.

Answer 1

创建一个名为“www”的文件夹并将这两个文件放入其中。