使用情节提要模式和valueBox

Question

在flexdashboard故事板模式下，我无法使用valueBox功能。由于valueBox始终显示为单个框，而不是单独的框。您设法解决了这个问题吗？参见下面的截图：

我在rmarkdown文件中编写的代码如下：

---
title: "Childcare"
output: 
  flexdashboard::flex_dashboard:
    storyboard: true
    social: menu
---

```{r setup, include=FALSE}
packages <- c("flexdashboard", "shiny", "jsonlite", "maptools", "ggplot2",
              "tidyr", "dplyr", "purrr", "leaflet", "plotly", "data.table",
              "rjson", "maptools", "reshape", "plyr", "reshape2")

for (p in packages) {
  # 'require' checks whether package exists and returns TRUE or FALSE
  if (!require(p, character.only = T)) {
    install.packages(p)
  }
  library(p, character.only = T)
}

# Loading the data
raw_data <- jsonlite::fromJSON("childcare_dataset.json", flatten=FALSE)
raw_data_flatten <- flatten(raw_data)
raw_data_df <- raw_data_flatten$records

raw_data_pg <- dplyr::filter(raw_data_df, raw_data_df$pg_vacancy!="na")
raw_data_n1 <- dplyr::filter(raw_data_df, raw_data_df$n1_vacancy!="na")
raw_data_n2 <- dplyr::filter(raw_data_df, raw_data_df$n2_vacancy!="na")
raw_data_k1 <- dplyr::filter(raw_data_df, raw_data_df$k1_vacancy!="na")
raw_data_k2 <- dplyr::filter(raw_data_df, raw_data_df$k2_vacancy!="na")

```

### What is the high-level overview of the childcare industry in Singapore?
```{r}
valueBox(length(raw_data_df), caption = "Total childcare facilities", icon="fa-random")
valueBox(42, caption = "N1 - No vacancy rate (%)", icon="fa-thumbs-down")

```