Cloud2016
这里需要 renderValueBox()
, 要加 runtime: shiny
在 YAML。我个人喜欢把 valuebox 内容单独拎出来这样更清晰,也方便加 class。
---
title: "Untitled"
output:
flexdashboard::flex_dashboard:
vertical_layout: scroll
runtime: shiny
---
```{r setup, include=FALSE}
library(flexdashboard)
library(sparkline)
```
Column {data-width=650}
-----------------------------------------------------------------------
###
```{r}
tips <- sparkline(values = 1:5)
valueBoxSpark <- function(value, title, sparkobj = NULL){
div(
class = "inner",
tags$small(title),
h3(value),
if (!is.null(sparkobj)) sparkobj
)
}
valueBoxInfo <- valueBoxSpark(
value = "12.3%",
title = "搜索占比",
sparkobj = tips
)
renderValueBox(
valueBox(valueBoxInfo)
)
```
Column {data-width=350}
-----------------------------------------------------------------------
### Chart B
```{r}
# 注释掉,valueBox 也能显示 sparkline
# sparkline(values = 1:5)
```
### Chart C
```{r}
```