使用Rmd flexdashboard中的shiny_prerendered预填充数据表和图表

时间:2017-11-03 23:59:05

标签: shiny r-markdown prerender flexdashboard

我使用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")

1 个答案:

答案 0 :(得分:0)

嗯,它可能比您想象的要简单。例如,为什么不尝试从runtime:shiny更改为runtime:shiny_prerendered?它可以解决问题。