我每秒都会更新一个闪亮的文本输出，该文本输出是从 SQL 数据库读取的，这只需要一些时间。在仪表板中，我只想看看输出如何变化而没有花哨的动画/闪烁。是否可以在等待更新时删除动画并仅显示文本？
这是一些代码示例，您可以在其中看到更新的闪烁：
# ui.R
library(shiny)
shinyUI(fluidPage(
# App title ----
titlePanel("Title"),
# Sidebar layout with input and output definitions ----
sidebarLayout(
# Sidebar panel for inputs ----
sidebarPanel(),
# Main panel for displaying outputs ----
mainPanel(
# Output: Data file ----
# Output: Tabset w/ plot, summary, and table ----
tabsetPanel(type = "tabs",
tabPanel("Main",
textOutput("foo"))
)
)
)
)
)
# server.R
library(shiny)
check_for_update <- function() {
Sys.time()
}
get_data <- function() {
df <- data.frame(replicate(20000,sample(0:1000,rep=TRUE)))
}
shinyServer(
function(input, output, session) {
# checks for new data every 1 seconds
data <- reactivePoll(50, session,
checkFunc = check_for_update,
valueFunc = get_data)
# the outputs will only be refreshed in case the data changed
output$foo <- renderText({
df <- data()
df[[2]]
})
}
)
提前致谢！
某些 html 诱导的绘图（例如通过传单）无法避免闪烁/刷新。
您可以将闪亮应用程序的不透明度调整为 1，以给人一种不闪烁的错觉，但它仅适用于某些非 html 对象。看到这个link http://groups.google.com/forum/m/#!topic/shiny-discuss/9faA5OUm2Hc和答案郑乔。一年半前我一直没能解决这个问题。
例如，可以使用 grob 对象的动画来消除闪烁。尝试 Joe 的解决方案，使用一些带有 ggplot 线图的动画。
本文内容由网友自发贡献，版权归原作者所有，本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容，请联系:hwhale#tublm.com(使用前将#替换为@)
