在 R Shiny 中闪烁加载文本

Posted

技术标签:

【中文标题】在 R Shiny 中闪烁加载文本【英文标题】:Blinking Loading Text in R Shiny 【发布时间】:2016-09-25 00:16:00 【问题描述】:

我在闪亮的 ui 部分中添加什么会使我的#loadmessage 闪烁?我见过这样的事情

How to make blinking/flashing text with css3?

但是,我不确定如何在 R 中实现这一点。

我的 ui 代码中有以下加载功能:

tags$head(tags$style(type="text/css", 
                      "#loadmessage 
                       position: fixed;
                       top: 50%;
                       left: 50%;
                       ocacity: 0.50; 
                       opacity: 0.0;
                       text-align: center;
                       font-weight: bold;
                       font-size: 300%;
                       color: #000000;
                       z-index: 105;
                       "))


  conditionalPanel(condition="$('html').hasClass('shiny-busy')",tags$div("Loading...",id="loadmessage"))

【问题讨论】:

【参考方案1】:

大概是这样?

library(shiny)

ui <- shinyUI(
  fluidPage(
    tags$head(tags$style(type="text/css", 
      "#loadmessage 
        position: fixed;
        top: 50%;
        left: 50%;
        ocacity: 0.50; 
        text-align: center;
        font-weight: bold;
        font-size: 300%;
        color: #000000;
        z-index: 105;
        animation: blinker 1s linear infinite;
      ")),

    conditionalPanel(condition="$('html').hasClass('shiny-busy')",
      tags$div("Loading...",id="loadmessage"),
      tags$script(HTML("
        (function blink()  
          $('#loadmessage').fadeOut(500).fadeIn(500, blink); 
        )();
      "))
    ),
    actionButton("action", "action")
  )
)

server <- function(input, output)
  observeEvent(input$action, 
    Sys.sleep(3)
  )


shinyApp(ui, server)

【讨论】:

你是最棒的。谢谢!

以上是关于在 R Shiny 中闪烁加载文本的主要内容,如果未能解决你的问题,请参考以下文章

R Shiny Server - 在应用程序启动时设置加载动画

部署 R Shiny 应用程序时加载包时出现问题

导入文件并附加到 r shiny 中先前加载的文件

从使用 devtools 加载的包中设置 ReferenceClass 时,R 中的 Shiny 出错

根据文件选择保存和加载用户选择 - R Shiny

如何避免 Shiny R 图中的闪烁错误?