我使用Rmd / Flexdashboard创建了一个闪亮的应用程序,其中包含许多图表和表格。它运作良好。最近,我开始使用shiny_prerendered来改善启动期间的UX。现在页面加载速度更快但所有部分都是空的(这是预期的 - html呈现但图表和表仍在等待数据),直到服务器代码运行。
在设置期间是否可以使用一些占位符数据来加载闪亮的输出?在设置上下文中无法识别无功输出。这是服务器启动上下文的用途吗?我也试过没有成功?
这是一个带有两个值框的简单代码
---
title: "ValueBoxTest"
output:
flexdashboard::flex_dashboard:
vertical_layout: fill
theme: united
runtime: shiny
---
```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE, options(scipen = 1, digits = 2))
### load packages
```
# ValueBox Test
===============================================
## Row 1
### Box 1
```{r, context="server"}
output$value1 <- renderValueBox({
### p <- 100 starting value placeholder
### call function to generate "p"
p <- functionToGenerateValue()
valueBox(p, icon = "fa-usd")
})
```
```{r echo = FALSE}
valueBoxOutput("value1")
```
## Row 2
### Box 2
```{r, context="server"}
output$value2 <- renderValueBox({
### q <- 0 starting value placeholder
### call function to generate "q"
q <- functionToGenerateValue()
valueBox(q, icon = "fa-usd")
})
```
```{r echo = FALSE}
valueBoxOutput("value2")
答案 0 :(得分:0)
嗯,它可能比您想象的要简单。例如,为什么不尝试从runtime:shiny更改为runtime:shiny_prerendered?它可以解决问题。