更改特定 valueBox 中值的字体大小（flexdashboard）

Question

我有一个带有一堆 valueBox 的 flexdashboard。然而，有些值是非常长的字符串，因此会溢出页面并且通常看起来很难看。我希望能够在 value 的字符长度超过一定限制时动态更改特定 valueBoxes 的 value font-size。

我知道我可以像这样使用 css 全局更改字体大小：

.value-box .value {
    font-size: 38px;
    font-weight: bold;
    margin: 0 0 3px 0;
    white-space: nowrap;
    padding: 0;
}

但我不想更改每个 valueBox 的 value font-size，只更改特定的 valueBoxes。

我也尝试过使用shiny 中的tags 函数直接编辑字体大小：

### Test Heading
flexdashboard::valueBox(
  value = shiny::tags$p("This is a very long string", style = "font-size: 20px;"),
  caption = "Test Caption"
)

但这似乎并没有改变任何东西。

Answer 1

这是可能的，将您的长字符串分配给值，然后使用inline R code 调用 valueBox 内的值。

---
title: "Super long string"
author: ""
date: "`r format(Sys.time(), '%d %B, %Y')`"
output: 
  flexdashboard::flex_dashboard:
    orientation: row
    vertical_layout: fill
---


```{r setup, include=FALSE}
require(flexdashboard)
value = 'this is a very very very very very very very very very very very very very very very very long string'
```

Column {data-width=350}
-------------------------------------
### ```r value```

```{r}
valueBox("Valuebox", icon = "fa-pencil", href="#details")
```