显示基于select_filter的valueBox（串扰）

Question

在我的Rmarkdown / flexdashboard代码中，我想基于过滤器生成一个valueBox来显示成本总和。我使用串扰构造了此滤波器，请参见下面的代码。但是，我似乎无法将过滤器考虑在内，如果这样做，我会遇到很多错误。

如果尝试从不同的数据，sd（shareddata）和我的旧的showcase_df中提取过滤器。

---
title: "test"
output: 
  flexdashboard::flex_dashboard:
    orientation: columns
---
Column {data-width=150}
---------

```{r}
library(crosstalk)
library(flexdashboard)
library(dplyr)
library(plotly)

showcase_df <- data.frame(c("A", "B", "A", "B", "A", "B"), c(1,5,3,2,4,1))
colnames(showcase_df) <- c("category", "costs")
shared_data <- SharedData$new(showcase_df)

filter_select("showcase_filter", "A or B?", shared_data, showcase_df$category)

valueBox(sum(showcase_df$costs))
```

我也尝试了valueBox(sum(sd$costs))等。我得到的错误消息主要是“ closure类型的对象不可子集化。总而言之，我想基于我的过滤器构造一个valueBox